From 3711c2e5a06ac318fec2f7a5cfbd1f0267607a0f Mon Sep 17 00:00:00 2001 From: Piotr Trojanek Date: Wed, 26 May 2021 15:27:02 +0200 Subject: [PATCH] [Ada] Fix style in comments and code related to compilation units gcc/ada/ * lib-load.adb (Load_Unit): Fix style in comment. * par-load.adb (Load): Likewise. * scng.adb (Initialize_Scanner): Fix whitespace. --- gcc/ada/lib-load.adb | 4 ++-- gcc/ada/par-load.adb | 4 ++-- gcc/ada/scng.adb | 20 ++++++++++---------- 3 files changed, 14 insertions(+), 14 deletions(-) diff --git a/gcc/ada/lib-load.adb b/gcc/ada/lib-load.adb index 19afe268ea7..f7534b6016b 100644 --- a/gcc/ada/lib-load.adb +++ b/gcc/ada/lib-load.adb @@ -823,7 +823,7 @@ package body Lib.Load is Units.Table (Calling_Unit).Fatal_Error := Error_Detected; -- If with'ed unit had an ignored error, then propagate it - -- but do not overide an existring setting. + -- but do not overide an existing setting. when Error_Ignored => if Units.Table (Calling_Unit).Fatal_Error = None then @@ -900,7 +900,7 @@ package body Lib.Load is Remove_Unit (Unum); -- If unit not required, remove load stack entry and the junk - -- file table entry, and return No_Unit to indicate not found, + -- file table entry, and return No_Unit to indicate not found. else Load_Stack.Decrement_Last; diff --git a/gcc/ada/par-load.adb b/gcc/ada/par-load.adb index 6079fa477f6..dcba6d516a9 100644 --- a/gcc/ada/par-load.adb +++ b/gcc/ada/par-load.adb @@ -129,8 +129,8 @@ begin Save_Style_Check_Options (Save_Style_Checks); Save_Style_Check := Opt.Style_Check; - -- If main unit, set Main_Unit_Entity (this will get overwritten if - -- the main unit has a separate spec, that happens later on in Load) + -- If main unit, set Main_Unit_Entity (this will get overwritten if the + -- main unit has a separate spec, that happens later on in Load). if Cur_Unum = Main_Unit then Main_Unit_Entity := Cunit_Entity (Main_Unit); diff --git a/gcc/ada/scng.adb b/gcc/ada/scng.adb index 66b11055dd1..bf1307cb229 100644 --- a/gcc/ada/scng.adb +++ b/gcc/ada/scng.adb @@ -230,16 +230,16 @@ package body Scng is -- Initialize scan control variables - Current_Source_File := Index; - Source := Source_Text (Current_Source_File); - Scan_Ptr := Source_First (Current_Source_File); - Token := No_Token; - Token_Ptr := Scan_Ptr; - Current_Line_Start := Scan_Ptr; - Token_Node := Empty; - Token_Name := No_Name; - Start_Column := Set_Start_Column; - First_Non_Blank_Location := Scan_Ptr; + Current_Source_File := Index; + Source := Source_Text (Current_Source_File); + Scan_Ptr := Source_First (Current_Source_File); + Token := No_Token; + Token_Ptr := Scan_Ptr; + Current_Line_Start := Scan_Ptr; + Token_Node := Empty; + Token_Name := No_Name; + Start_Column := Set_Start_Column; + First_Non_Blank_Location := Scan_Ptr; Initialize_Checksum; Wide_Char_Byte_Count := 0; -- 2.11.4.GIT