From: pmderodat <pmderodat@138bc75d-0d04-0410-961f-82ee72b054a4>
Date: Thu, 10 Oct 2019 15:23:42 +0000 (+0000)
Subject: [Ada] Define default value for Process field
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=b77c647b7db08f53f97e3c1bdc61b2da7ee51779;p=thirdparty%2Fgcc.git

[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 0182d1858ade..db07f3b845af 100644
--- 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 81068a69ed74..f61ea6215b45 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.