[Ada] Define default value for Process field

2019-10-10  Vadim Godunko  <godunko@adacore.com>

gcc/ada/

	* libgnat/g-exptty.ads (TTY_Process_Descriptor): Set default
	value for Process.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@276820 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 0182d1858ade6f0c621094e3aa7fb97a87071c5b..db07f3b845afbe126c14c45f3dda9692a8be6d2c 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,5 +1,4 @@
-2019-10-10  Bob Duff  <duff@adacore.com>
+2019-10-10  Vadim Godunko  <godunko@adacore.com>
 
-       * 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 81068a69ed74baaee6d236a9d6a9494982d8da6c..f61ea6215b453a3487dd624c1c131ed88e69c220 100644 (file)
--- 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.