diff options
| author | Piotr Trojanek <trojanek@adacore.com> | 2021-05-26 15:27:02 +0200 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2021-07-08 13:34:19 +0000 |
| commit | 3711c2e5a06ac318fec2f7a5cfbd1f0267607a0f (patch) | |
| tree | ee341a8328b1e11b4598db2327793cf770585e69 /gcc | |
| parent | 62aae315f680f2205d474ff3ebcb1756a707f715 (diff) | |
| download | gcc-3711c2e5a06ac318fec2f7a5cfbd1f0267607a0f.zip gcc-3711c2e5a06ac318fec2f7a5cfbd1f0267607a0f.tar.gz gcc-3711c2e5a06ac318fec2f7a5cfbd1f0267607a0f.tar.bz2 | |
[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.
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/lib-load.adb | 4 | ||||
| -rw-r--r-- | gcc/ada/par-load.adb | 4 | ||||
| -rw-r--r-- | 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 19afe26..f7534b6 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 6079fa4..dcba6d5 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 66b1105..bf1307c 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; |