From 80d52cbe59b19577fa215a4357c327e707890e9b Mon Sep 17 00:00:00 2001 From: Etienne Servais Date: Fri, 29 Oct 2021 12:32:11 +0200 Subject: [PATCH] [Ada] Initialize Current_Source_Unit gcc/ada/ * sinput.ads: Initialize Current_Source_Unit to No_Unit. --- gcc/ada/sinput.ads | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/gcc/ada/sinput.ads b/gcc/ada/sinput.ads index 2926b85acff0..881e77506345 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 -- 2.47.2