diff options
| author | Etienne Servais <servais@adacore.com> | 2021-10-29 12:32:11 +0200 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2021-11-09 09:44:49 +0000 |
| commit | 80d52cbe59b19577fa215a4357c327e707890e9b (patch) | |
| tree | 89d43036daa026e98d5f8598fa4200cd831c3ca9 /gcc | |
| parent | c8a0089baf7597baca757ee173a2a948c9697567 (diff) | |
| download | gcc-80d52cbe59b19577fa215a4357c327e707890e9b.zip gcc-80d52cbe59b19577fa215a4357c327e707890e9b.tar.gz gcc-80d52cbe59b19577fa215a4357c327e707890e9b.tar.bz2 | |
[Ada] Initialize Current_Source_Unit
gcc/ada/
* sinput.ads: Initialize Current_Source_Unit to No_Unit.
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/sinput.ads | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/gcc/ada/sinput.ads b/gcc/ada/sinput.ads index 2926b85..881e775 100644 --- a/gcc/ada/sinput.ads +++ b/gcc/ada/sinput.ads @@ -412,10 +412,10 @@ package Sinput is -- Initialized so that some tools (such as gprbuild) can be built with -- -gnatVa and pragma Initialize_Scalars without problems. - Current_Source_Unit : Unit_Number_Type; - -- Unit number of source file currently being scanned. The special value - -- of No_Unit indicates that the configuration pragma file is currently - -- being scanned (this has no entry in the unit table). + Current_Source_Unit : Unit_Number_Type := No_Unit; + -- Unit number of source file currently being scanned. Initialized to + -- No_Unit for pre-processing and the configuration pragma file scanning, + -- since both stages have no corresponding entry in the unit table. Source_gnat_adc : Source_File_Index := No_Source_File; -- This is set if a gnat.adc file is present to reference this file |