From eb73a3a91b45bc473705c2f5f82434b2bcbdae3c Mon Sep 17 00:00:00 2001 From: Vadim Godunko Date: Thu, 10 Oct 2019 15:23:42 +0000 Subject: [PATCH] [Ada] Define default value for Process field 2019-10-10 Vadim Godunko gcc/ada/ * libgnat/g-exptty.ads (TTY_Process_Descriptor): Set default value for Process. From-SVN: r276820 --- gcc/ada/ChangeLog | 7 +++---- gcc/ada/libgnat/g-exptty.ads | 2 +- 2 files changed, 4 insertions(+), 5 deletions(-) diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 0182d18..db07f3b 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,5 +1,4 @@ -2019-10-10 Bob Duff +2019-10-10 Vadim Godunko - * sem_prag.adb (Defer_Compile_Time_Warning_Error_To_BE): In - addition to saving the pragma for further processing, copy the - pragma into the main unit if necessary. \ No newline at end of file + * libgnat/g-exptty.ads (TTY_Process_Descriptor): Set default + value for Process. \ No newline at end of file diff --git a/gcc/ada/libgnat/g-exptty.ads b/gcc/ada/libgnat/g-exptty.ads index 81068a6..f61ea62 100644 --- a/gcc/ada/libgnat/g-exptty.ads +++ b/gcc/ada/libgnat/g-exptty.ads @@ -139,7 +139,7 @@ private Still_Active : constant Integer := -1; type TTY_Process_Descriptor is new Process_Descriptor with record - Process : System.Address; + Process : System.Address := System.Null_Address; -- Underlying structure used in C Exit_Status : Integer := Still_Active; -- Hold the exit status of the process. -- 2.7.4