diff options
| author | Vadim Godunko <godunko@adacore.com> | 2019-10-10 15:23:42 +0000 |
|---|---|---|
| committer | Pierre-Marie de Rodat <pmderodat@gcc.gnu.org> | 2019-10-10 15:23:42 +0000 |
| commit | eb73a3a91b45bc473705c2f5f82434b2bcbdae3c (patch) | |
| tree | b9074adb15e83060d0a5c5b36891db988158b04e /gcc/ada | |
| parent | 81ffc744fb09d51ef79fc69a8d6410ccc97e915e (diff) | |
| download | gcc-eb73a3a91b45bc473705c2f5f82434b2bcbdae3c.zip gcc-eb73a3a91b45bc473705c2f5f82434b2bcbdae3c.tar.gz gcc-eb73a3a91b45bc473705c2f5f82434b2bcbdae3c.tar.bz2 | |
[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.
From-SVN: r276820
Diffstat (limited to 'gcc/ada')
| -rw-r--r-- | gcc/ada/ChangeLog | 7 | ||||
| -rw-r--r-- | 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 <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 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. |