Skip to content

R
riscv-gcc-1
Commit eb73a3a9 by Vadim Godunko Committed by Pierre-Marie de Rodat
Options

[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
parent 81ffc744
Showing with 5 additions and 6 deletions
gcc/ada/ChangeLog
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 * libgnat/g-exptty.ads (TTY_Process_Descriptor): Set default
addition to saving the pragma for further processing, copy the value for Process.
pragma into the main unit if necessary. \ No newline at end of file
\ No newline at end of file
gcc/ada/libgnat/g-exptty.ads
...@@ -139,7 +139,7 @@ private ...@@ -139,7 +139,7 @@ private
Still_Active : constant Integer := -1; Still_Active : constant Integer := -1;
type TTY_Process_Descriptor is new Process_Descriptor with record type TTY_Process_Descriptor is new Process_Descriptor with record
Process : System.Address; Process : System.Address := System.Null_Address;
-- Underlying structure used in C -- Underlying structure used in C
Exit_Status : Integer := Still_Active; Exit_Status : Integer := Still_Active;
-- Hold the exit status of the process. -- Hold the exit status of the process.
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment