diff options
Diffstat (limited to 'gcc/ada/prepcomp.adb')
-rw-r--r-- | gcc/ada/prepcomp.adb | 19 |
1 files changed, 10 insertions, 9 deletions
diff --git a/gcc/ada/prepcomp.adb b/gcc/ada/prepcomp.adb index 05773daa66c..e81c9763648 100644 --- a/gcc/ada/prepcomp.adb +++ b/gcc/ada/prepcomp.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 2003, Free Software Foundation, Inc. -- +-- Copyright (C) 2003-2005, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -135,6 +135,7 @@ package body Prepcomp is procedure Add_Command_Line_Symbols is Symbol_Id : Prep.Symbol_Id; + begin for J in 1 .. Symbol_Table.Last (Command_Line_Symbols) loop Symbol_Id := Prep.Index_Of (Command_Line_Symbols.Table (J).Symbol); @@ -225,11 +226,11 @@ package body Prepcomp is ------------------------------ procedure Parse_Preprocessing_Data_File (N : File_Name_Type) is - OK : Boolean := False; + OK : Boolean := False; Dash_Location : Source_Ptr; - Symbol_Data : Prep.Symbol_Data; - Symbol_Id : Prep.Symbol_Id; - T : constant Nat := Total_Errors_Detected; + Symbol_Data : Prep.Symbol_Data; + Symbol_Id : Prep.Symbol_Id; + T : constant Nat := Total_Errors_Detected; begin -- Load the preprocessing data file @@ -246,13 +247,13 @@ package body Prepcomp is end if; -- Initialize the sanner and set its behavior for a processing data file + Scn.Scanner.Initialize_Scanner (No_Unit, Source_Index_Of_Preproc_Data_File); Scn.Scanner.Set_End_Of_Line_As_Token (True); Scn.Scanner.Reset_Special_Characters; - For_Each_Line : - loop + For_Each_Line : loop <<Scan_Line>> Scan; @@ -340,7 +341,6 @@ package body Prepcomp is -- Check the switches that may follow while Token /= Tok_End_Of_Line and then Token /= Tok_EOF loop - if Token /= Tok_Minus then Error_Msg ("`'-` expected", Token_Ptr); Skip_To_End_Of_Line; @@ -508,7 +508,7 @@ package body Prepcomp is Symbol_Id := Prep.Index_Of (Symbol_Data.Symbol); - -- Otherwise, add a new entry in the table. + -- Otherwise, add a new entry in the table if Symbol_Id = No_Symbol then Symbol_Table.Increment_Last (Prep.Mapping); @@ -635,6 +635,7 @@ package body Prepcomp is -- If not already done it, process the definition file if Current_Data.Processed then + -- Set Prep.Mapping Prep.Mapping := Current_Data.Mapping; |