[Ada] Remove extra space in single object declarations
authorPiotr Trojanek <trojanek@adacore.com>
Mon, 27 Dec 2021 18:42:51 +0000 (19:42 +0100)
committerPierre-Marie de Rodat <derodat@adacore.com>
Tue, 11 Jan 2022 13:24:46 +0000 (13:24 +0000)
gcc/ada/

* exp_aggr.adb, exp_attr.adb, exp_ch3.adb, exp_ch7.adb,
exp_dist.adb, exp_util.adb, freeze.adb, frontend.adb,
inline.adb, itypes.adb, lib-load.adb, lib-xref.adb,
libgnat/a-cfhase.adb, libgnat/a-cforse.adb,
libgnat/a-chtgbo.adb, libgnat/a-crdlli.adb,
libgnat/a-except.adb, libgnat/a-strfix.adb,
libgnat/a-textio.adb, libgnat/a-tienau.adb,
libgnat/a-tigeau.adb, libgnat/a-witeio.adb,
libgnat/a-wtenau.adb, libgnat/a-wtgeau.adb,
libgnat/a-ztenau.adb, libgnat/a-ztexio.adb,
libgnat/a-ztgeau.adb, libgnat/g-comlin.adb,
libgnat/g-debpoo.adb, libgnat/g-expect.adb,
libgnat/s-fileio.adb, libgnat/s-memory.adb, libgnat/s-mmap.adb,
libgnat/s-objrea.adb, libgnat/s-pehage.adb,
libgnat/s-regpat.adb, libgnat/s-shasto.adb,
libgnat/s-valued.adb, libgnat/s-valuef.adb, par-ch11.adb,
par-ch4.adb, par-ch6.adb, par-ch9.adb, par_sco.adb,
repinfo-input.adb, sem_cat.adb, sem_ch10.adb, sem_ch12.adb,
sem_ch13.adb, sem_ch4.adb, sem_eval.adb, sem_prag.adb,
sem_res.adb, sem_util.adb, sinput.adb, switch-c.adb: Fix style.

56 files changed:
gcc/ada/exp_aggr.adb
gcc/ada/exp_attr.adb
gcc/ada/exp_ch3.adb
gcc/ada/exp_ch7.adb
gcc/ada/exp_dist.adb
gcc/ada/exp_util.adb
gcc/ada/freeze.adb
gcc/ada/frontend.adb
gcc/ada/inline.adb
gcc/ada/itypes.adb
gcc/ada/lib-load.adb
gcc/ada/lib-xref.adb
gcc/ada/libgnat/a-cfhase.adb
gcc/ada/libgnat/a-cforse.adb
gcc/ada/libgnat/a-chtgbo.adb
gcc/ada/libgnat/a-crdlli.adb
gcc/ada/libgnat/a-except.adb
gcc/ada/libgnat/a-strfix.adb
gcc/ada/libgnat/a-textio.adb
gcc/ada/libgnat/a-tienau.adb
gcc/ada/libgnat/a-tigeau.adb
gcc/ada/libgnat/a-witeio.adb
gcc/ada/libgnat/a-wtenau.adb
gcc/ada/libgnat/a-wtgeau.adb
gcc/ada/libgnat/a-ztenau.adb
gcc/ada/libgnat/a-ztexio.adb
gcc/ada/libgnat/a-ztgeau.adb
gcc/ada/libgnat/g-comlin.adb
gcc/ada/libgnat/g-debpoo.adb
gcc/ada/libgnat/g-expect.adb
gcc/ada/libgnat/s-fileio.adb
gcc/ada/libgnat/s-memory.adb
gcc/ada/libgnat/s-mmap.adb
gcc/ada/libgnat/s-objrea.adb
gcc/ada/libgnat/s-pehage.adb
gcc/ada/libgnat/s-regpat.adb
gcc/ada/libgnat/s-shasto.adb
gcc/ada/libgnat/s-valued.adb
gcc/ada/libgnat/s-valuef.adb
gcc/ada/par-ch11.adb
gcc/ada/par-ch4.adb
gcc/ada/par-ch6.adb
gcc/ada/par-ch9.adb
gcc/ada/par_sco.adb
gcc/ada/repinfo-input.adb
gcc/ada/sem_cat.adb
gcc/ada/sem_ch10.adb
gcc/ada/sem_ch12.adb
gcc/ada/sem_ch13.adb
gcc/ada/sem_ch4.adb
gcc/ada/sem_eval.adb
gcc/ada/sem_prag.adb
gcc/ada/sem_res.adb
gcc/ada/sem_util.adb
gcc/ada/sinput.adb
gcc/ada/switch-c.adb

index 98f9026..e360baa 100644 (file)
@@ -9375,7 +9375,7 @@ package body Exp_Aggr is
          -----------------------
 
          function Get_Component_Val (N : Node_Id) return Uint is
-            Val  : Uint;
+            Val : Uint;
 
          begin
             --  We have to analyze the expression here before doing any further
index dd796bc..5374dd4 100644 (file)
@@ -3784,7 +3784,7 @@ package body Exp_Attr is
       --------------
 
       when Attribute_From_Any => From_Any : declare
-         Decls  : constant List_Id   := New_List;
+         Decls : constant List_Id := New_List;
 
       begin
          Rewrite (N,
index 921ab58..50f46fb 100644 (file)
@@ -4139,7 +4139,7 @@ package body Exp_Ch3 is
                Set_Static_Initialization (Proc_Id, Agg);
 
                declare
-                  Comp  : Node_Id;
+                  Comp : Node_Id;
                begin
                   Comp := First (Component_Associations (Agg));
                   while Present (Comp) loop
index d8b398c..8c74808 100644 (file)
@@ -4702,7 +4702,7 @@ package body Exp_Ch7 is
      (N   : Node_Id;
       Ref : Node_Id) return Node_Id
    is
-      Loc  : constant Source_Ptr := Sloc (N);
+      Loc : constant Source_Ptr := Sloc (N);
 
    begin
       --  For restricted run-time libraries (Ravenscar), tasks are
index 00da994..e1df9d2 100644 (file)
@@ -2908,7 +2908,7 @@ package body Exp_Dist is
    ---------------------------------
 
    procedure Expand_Calling_Stubs_Bodies (Unit_Node : Node_Id) is
-      Spec  : constant Node_Id := Specification (Unit_Node);
+      Spec : constant Node_Id := Specification (Unit_Node);
    begin
       Add_Calling_Stubs_To_Declarations (Spec);
    end Expand_Calling_Stubs_Bodies;
index df94e02..e1b462a 100644 (file)
@@ -8780,7 +8780,7 @@ package body Exp_Util is
    ----------------------------------
 
    function Is_Possibly_Unaligned_Object (N : Node_Id) return Boolean is
-      T  : constant Entity_Id := Etype (N);
+      T : constant Entity_Id := Etype (N);
 
    begin
       --  If renamed object, apply test to underlying object
index 3da6f49..7ed44f5 100644 (file)
@@ -2124,7 +2124,7 @@ package body Freeze is
    ----------------------------
 
    procedure Check_Strict_Alignment (E : Entity_Id) is
-      Comp  : Entity_Id;
+      Comp : Entity_Id;
 
    begin
       --  Bit-packed array types do not require strict alignment, even if they
index 32d9a2d..c60234d 100644 (file)
@@ -539,7 +539,7 @@ begin
    --  Initialize_Scalars, but others should be checked: as well???
 
    declare
-      Item  : Node_Id;
+      Item : Node_Id;
 
    begin
       Item := First (Context_Items (Cunit (Main_Unit)));
index ed91751..49d034d 100644 (file)
@@ -2377,7 +2377,7 @@ package body Inline is
       ------------------------
 
       function Copy_Return_Object (Obj_Decl : Node_Id) return Node_Id is
-         Obj_Id  : constant Entity_Id := Defining_Entity (Obj_Decl);
+         Obj_Id : constant Entity_Id := Defining_Entity (Obj_Decl);
 
       begin
          --  The use of New_Copy_Tree ensures that global references are
@@ -3264,7 +3264,7 @@ package body Inline is
          ------------------
 
          function Process_Loop (N : Node_Id) return Traverse_Result is
-            Id  : Entity_Id;
+            Id : Entity_Id;
 
          begin
             if Nkind (N) = N_Loop_Statement
@@ -3676,7 +3676,7 @@ package body Inline is
       ----------------------------
 
       procedure Rewrite_Procedure_Call (N : Node_Id; Blk : Node_Id) is
-         HSS  : constant Node_Id := Handled_Statement_Sequence (Blk);
+         HSS : constant Node_Id := Handled_Statement_Sequence (Blk);
 
       begin
          Make_Loop_Labels_Unique (HSS);
index 0ff9ff5..f7e8dd6 100644 (file)
@@ -89,7 +89,7 @@ package body Itypes is
        Related_Nod : Node_Id;
        Scope_Id    : Entity_Id := Current_Scope) return Entity_Id
    is
-      I_Typ        : Entity_Id;
+      I_Typ : Entity_Id;
 
    begin
       pragma Assert (Is_Access_Type (T));
index e8eb720..cab72c0 100644 (file)
@@ -958,7 +958,7 @@ package body Lib.Load is
    --  code will have to be generated for it.
 
    procedure Make_Instance_Unit (N : Node_Id; In_Main : Boolean) is
-      Sind  : constant Source_File_Index := Source_Index (Main_Unit);
+      Sind : constant Source_File_Index := Source_Index (Main_Unit);
 
    begin
       Units.Increment_Last;
index 5fde2fd..359e006 100644 (file)
@@ -1677,7 +1677,7 @@ package body Lib.Xref is
       --  declared in the main unit.
 
       Handle_Prim_Ops : declare
-         Ent  : Entity_Id;
+         Ent : Entity_Id;
 
       begin
          for J in 1 .. Xrefs.Last loop
index 635397f..6e289e4 100644 (file)
@@ -949,7 +949,7 @@ is
            (Vet (Container, Position), "bad cursor in function Key");
 
          declare
-            N  : Node_Type renames Container.Content.Nodes (Position.Node);
+            N : Node_Type renames Container.Content.Nodes (Position.Node);
          begin
             return Key (N.Element);
          end;
index 1529d2b..3b64511 100644 (file)
@@ -429,7 +429,7 @@ is
    ------------------
 
    procedure Delete_First (Container : in out Set) is
-      X    : constant Count_Type := Container.Content.First;
+      X : constant Count_Type := Container.Content.First;
    begin
       if X /= 0 then
          Tree_Operations.Delete_Node_Sans_Free (Container.Content, X);
@@ -442,7 +442,7 @@ is
    -----------------
 
    procedure Delete_Last (Container : in out Set) is
-      X    : constant Count_Type := Container.Content.Last;
+      X : constant Count_Type := Container.Content.Last;
    begin
       if X /= 0 then
          Tree_Operations.Delete_Node_Sans_Free (Container.Content, X);
@@ -1741,7 +1741,7 @@ is
       --------------
 
       function New_Node return Count_Type is
-         N  : Node_Type renames NN (Node);
+         N : Node_Type renames NN (Node);
       begin
          N.Element := Item;
          N.Color   := Red;
index eeca570..2ffc923 100644 (file)
@@ -439,7 +439,7 @@ package body Ada.Containers.Hash_Tables.Generic_Bounded_Operations is
      (Stream : not null access Root_Stream_Type'Class;
       HT     : out Hash_Table_Type'Class)
    is
-      N  : Count_Type'Base;
+      N : Count_Type'Base;
 
    begin
       Clear (HT);
index e21820e..a5fe431 100644 (file)
@@ -1316,7 +1316,7 @@ package body Ada.Containers.Restricted_Doubly_Linked_Lists is
       pragma Assert (Vet (Position), "bad cursor in Update_Element");
 
       declare
-         N  : Node_Type renames Container.Nodes (Position.Node);
+         N : Node_Type renames Container.Nodes (Position.Node);
 
       begin
          Process (N.Element);
index d0d6d30..3cf7712 100644 (file)
@@ -1110,7 +1110,7 @@ package body Ada.Exceptions is
 
       else
          declare
-            New_Msg  : constant String := Prefix & Exception_Name (X);
+            New_Msg : constant String := Prefix & Exception_Name (X);
 
          begin
             --  No message present, just provide our own
index 56adedb..255738a 100644 (file)
@@ -370,7 +370,7 @@ package body Ada.Strings.Fixed with SPARK_Mode is
       Before   : Positive;
       New_Item : String) return String
    is
-      Front  : constant Integer := Before - Source'First;
+      Front : constant Integer := Before - Source'First;
 
    begin
       if Before - 1 not in Source'First - 1 .. Source'Last then
index 26de53f..bd76caa 100644 (file)
@@ -403,7 +403,7 @@ is
    -----------------
 
    function End_Of_Page (File : File_Type) return Boolean is
-      ch  : int;
+      ch : int;
 
    begin
       FIO.Check_Read_Status (AP (File));
@@ -598,7 +598,7 @@ is
      (File : File_Type;
       Item : out Character)
    is
-      ch          : int;
+      ch : int;
 
    begin
       FIO.Check_Read_Status (AP (File));
index 42464fd..2e3fbcc 100644 (file)
@@ -213,7 +213,7 @@ package body Ada.Text_IO.Enumeration_Aux is
       Start : out Natural;
       Stop  : out Natural)
    is
-      C  : Character;
+      C : Character;
 
    --  Processing for Scan_Enum_Lit
 
index 5f2fd08..0ca5a03 100644 (file)
@@ -384,7 +384,7 @@ package body Ada.Text_IO.Generic_Aux is
       Buf  : out String;
       Ptr  : in out Natural)
    is
-      Loaded   : Boolean;
+      Loaded : Boolean;
 
    begin
       --  Skip initial blanks, and load possible sign
index ccecf36..39203db 100644 (file)
@@ -274,7 +274,7 @@ package body Ada.Wide_Text_IO is
    -----------------
 
    function End_Of_File (File : File_Type) return Boolean is
-      ch  : int;
+      ch : int;
 
    begin
       FIO.Check_Read_Status (AP (File));
@@ -368,7 +368,7 @@ package body Ada.Wide_Text_IO is
    -----------------
 
    function End_Of_Page (File : File_Type) return Boolean is
-      ch  : int;
+      ch : int;
 
    begin
       FIO.Check_Read_Status (AP (File));
@@ -444,7 +444,7 @@ package body Ada.Wide_Text_IO is
      (File : File_Type;
       Item : out Wide_Character)
    is
-      C  : Character;
+      C : Character;
 
    begin
       FIO.Check_Read_Status (AP (File));
index 2507e4b..5c102bc 100644 (file)
@@ -227,7 +227,7 @@ package body Ada.Wide_Text_IO.Enumeration_Aux is
       Start : out Natural;
       Stop  : out Natural)
    is
-      WC  : Wide_Character;
+      WC : Wide_Character;
 
    --  Processing for Scan_Enum_Lit
 
index caa4735..0831c3a 100644 (file)
@@ -410,7 +410,7 @@ package body Ada.Wide_Text_IO.Generic_Aux is
       Buf  : out String;
       Ptr  : in out Natural)
    is
-      Loaded   : Boolean;
+      Loaded : Boolean;
 
    begin
       --  Skip initial blanks and load possible sign
index 9b1c1f5..b03ad8f 100644 (file)
@@ -229,7 +229,7 @@ package body Ada.Wide_Wide_Text_IO.Enumeration_Aux is
       Start : out Natural;
       Stop  : out Natural)
    is
-      WC  : Wide_Wide_Character;
+      WC : Wide_Wide_Character;
 
    --  Processing for Scan_Enum_Lit
 
index 3b63fc2..db0017e 100644 (file)
@@ -274,7 +274,7 @@ package body Ada.Wide_Wide_Text_IO is
    -----------------
 
    function End_Of_File (File : File_Type) return Boolean is
-      ch  : int;
+      ch : int;
 
    begin
       FIO.Check_Read_Status (AP (File));
@@ -368,7 +368,7 @@ package body Ada.Wide_Wide_Text_IO is
    -----------------
 
    function End_Of_Page (File : File_Type) return Boolean is
-      ch  : int;
+      ch : int;
 
    begin
       FIO.Check_Read_Status (AP (File));
@@ -444,7 +444,7 @@ package body Ada.Wide_Wide_Text_IO is
      (File : File_Type;
       Item : out Wide_Wide_Character)
    is
-      C  : Character;
+      C : Character;
 
    begin
       FIO.Check_Read_Status (AP (File));
index a5caeb7..42e4daf 100644 (file)
@@ -410,7 +410,7 @@ package body Ada.Wide_Wide_Text_IO.Generic_Aux is
       Buf  : out String;
       Ptr  : in out Natural)
    is
-      Loaded   : Boolean;
+      Loaded : Boolean;
 
    begin
       --  Skip initial blanks and load possible sign
index ca6ee93..e583c27 100644 (file)
@@ -465,8 +465,8 @@ package body GNAT.Command_Line is
 
       if Do_Expansion then
          declare
-            Arg   : constant String :=
-                      Argument (Parser, Parser.Current_Argument - 1);
+            Arg : constant String :=
+                    Argument (Parser, Parser.Current_Argument - 1);
          begin
             for Index in Arg'Range loop
                if Arg (Index) in '*' | '?' | '[' then
@@ -1257,7 +1257,7 @@ package body GNAT.Command_Line is
       Expanded : String;
       Section  : String := "")
    is
-      Def    : Alias_Definition;
+      Def : Alias_Definition;
 
    begin
       if Config = null then
index 5cb212b..ecab282 100644 (file)
@@ -777,7 +777,7 @@ package body GNAT.Debug_Pools is
       function Is_Valid_Or_Handled
         (Storage : System.Address;
          Valid   : Boolean) return Boolean is
-         Int_Storage  : constant Integer_Address := To_Integer (Storage);
+         Int_Storage : constant Integer_Address := To_Integer (Storage);
 
       begin
          --  The pool only returns addresses aligned on Storage_Alignment so
index 0a1e505..e43ef4f 100644 (file)
@@ -193,7 +193,7 @@ package body GNAT.Expect is
       Str       : String;
       Filter_On : Filter_Type)
    is
-      Current_Filter  : Filter_List;
+      Current_Filter : Filter_List;
 
    begin
       if Pid.Filters_Lock = 0 then
index b58d601..3fdb297 100644 (file)
@@ -244,7 +244,7 @@ package body System.File_IO is
 
          if File.Shared_Status = Yes then
             declare
-               P   : AFCB_Ptr;
+               P : AFCB_Ptr;
 
             begin
                P := Open_Files;
index def450a..965ef15 100644 (file)
@@ -134,7 +134,7 @@ package body System.Memory is
       Size : size_t)
       return System.Address
    is
-      Result      : System.Address;
+      Result : System.Address;
    begin
       if Size = size_t'Last then
          raise Storage_Error with "object too large";
index bbba7bf..3c526e8 100644 (file)
@@ -367,7 +367,7 @@ package body System.Mmap is
       Length  : File_Size := 0;
       Mutable : Boolean := False) return Mapped_Region
    is
-      Region  : Mapped_Region := Invalid_Mapped_Region;
+      Region : Mapped_Region := Invalid_Mapped_Region;
    begin
       Read (File, Region, Offset, Length, Mutable);
       return Region;
index ce43726..854bbb2 100644 (file)
@@ -1472,7 +1472,7 @@ package body System.Object_Reader is
         (Obj : in out XCOFF32_Object_File;
          Sym : Object_Symbol) return String_Ptr_Len
       is
-         Symbol  : Symbol_Entry;
+         Symbol : Symbol_Entry;
 
       begin
          Seek (Obj.Symtab_Stream, Sym.Off);
@@ -1820,7 +1820,7 @@ package body System.Object_Reader is
      (S : in out Mapped_Stream;
       Off : Offset) return String
    is
-      Buf     : Buffer;
+      Buf : Buffer;
 
    begin
       Seek (S, Off);
index 1f1367a..1468628 100644 (file)
@@ -1233,7 +1233,7 @@ package body System.Perfect_Hash_Generators is
    ------------
 
    procedure Insert (Value : String) is
-      Len  : constant Natural := Value'Length;
+      Len : constant Natural := Value'Length;
 
    begin
       if Verbose then
index 92cb4b3..4f758f9 100644 (file)
@@ -664,7 +664,7 @@ package body System.Regpat is
          Operand : Pointer;
          Greedy  : Boolean := True)
       is
-         Old    : Pointer;
+         Old : Pointer;
       begin
          Old := Insert_Operator_Before (Op, Operand, Greedy, Opsize => 7);
          Emit_Natural (Old + Next_Pointer_Bytes, Min);
@@ -2108,7 +2108,7 @@ package body System.Regpat is
 
          if Do_Print then
             declare
-               Point   : constant String := Pointer'Image (Index);
+               Point : constant String := Pointer'Image (Index);
             begin
                Put ([1 .. 4 - Point'Length => ' ']
                     & Point & ":"
index 094b51d..c383878 100644 (file)
@@ -440,7 +440,7 @@ package body System.Shared_Storage is
 
       if SFE = null then
          declare
-            S  : aliased constant String := Dir.all & Var;
+            S : aliased constant String := Dir.all & Var;
 
          begin
             SFE := new Shared_Var_File_Entry;
@@ -521,7 +521,7 @@ package body System.Shared_Storage is
 
       if SFE = null then
          declare
-            S  : aliased constant String := Dir.all & Var;
+            S : aliased constant String := Dir.all & Var;
 
          begin
             SFE := new Shared_Var_File_Entry;
index 1794f8b..c4a78a2 100644 (file)
@@ -186,7 +186,7 @@ package body System.Value_D is
 
             elsif S > 0 then
                declare
-                  LS  : Integer := S;
+                  LS : Integer := S;
 
                begin
                   Y := Safe_Expont (B, LS, 10 ** Integer'Max (0, Scale));
index 1b9e35f..e252a28 100644 (file)
@@ -255,7 +255,7 @@ package body System.Value_F is
 
       elsif ScaleB > 0 then
          declare
-            LS  : Integer := ScaleB;
+            LS : Integer := ScaleB;
 
          begin
             Y := Safe_Expont (B, LS, Den);
index 5d5f082..cc10ba7 100644 (file)
@@ -56,7 +56,7 @@ package body Ch11 is
    --  Error_Recovery : Cannot raise Error_Resync
 
    function P_Handled_Sequence_Of_Statements return Node_Id is
-      Handled_Stmt_Seq_Node  : Node_Id;
+      Handled_Stmt_Seq_Node : Node_Id;
    begin
       Handled_Stmt_Seq_Node :=
         New_Node (N_Handled_Sequence_Of_Statements, Token_Ptr);
index bd9e561..0895be1 100644 (file)
@@ -1194,7 +1194,7 @@ package body Ch4 is
      (Prefix_Node : Node_Id)
       return        Node_Id
    is
-      Attr_Node  : Node_Id;
+      Attr_Node : Node_Id;
 
    begin
       Attr_Node := New_Node (N_Attribute_Reference, Token_Ptr);
index 91bdb3d..1b3cf94 100644 (file)
@@ -1144,7 +1144,7 @@ package body Ch6 is
       --------------
 
       function Real_Dot return Boolean is
-         Scan_State  : Saved_Scan_State;
+         Scan_State : Saved_Scan_State;
 
       begin
          if Token /= Tok_Dot then
index 0a5a65d..7d4ea62 100644 (file)
@@ -283,7 +283,7 @@ package body Ch9 is
    --  Error recovery:  cannot raise Error_Resync
 
    function P_Task_Definition return Node_Id is
-      Def_Node  : Node_Id;
+      Def_Node : Node_Id;
 
    begin
       Def_Node := New_Node (N_Task_Definition, Token_Ptr);
index 6db1389..aba863d 100644 (file)
@@ -922,8 +922,8 @@ package body Par_SCO is
    ---------------------
 
    procedure Record_Instance (Id : Instance_Id; Inst_Sloc : Source_Ptr) is
-      Inst_Src  : constant Source_File_Index :=
-                    Get_Source_File_Index (Inst_Sloc);
+      Inst_Src : constant Source_File_Index :=
+                   Get_Source_File_Index (Inst_Sloc);
    begin
       SCO_Instance_Table.Append
         ((Inst_Dep_Num       => Dependency_Num (Unit (Inst_Src)),
index 4cd399b..845da12 100644 (file)
@@ -288,7 +288,7 @@ package body Repinfo.Input is
       ----------------------
 
       function Decode_Integer (Lo, Hi : Text_Ptr) return Uint is
-         Len  : constant Nat := Int (Hi) - Int (Lo) + 1;
+         Len : constant Nat := Int (Hi) - Int (Lo) + 1;
 
       begin
          --  Decode up to 9 characters manually, otherwise call into Uint
index f6de07d..71395ec 100644 (file)
@@ -526,8 +526,8 @@ package body Sem_Cat is
    ----------------------------
 
    function In_Package_Declaration return Boolean is
-      Unit_Kind   : constant Node_Kind :=
-                      Nkind (Unit (Cunit (Current_Sem_Unit)));
+      Unit_Kind  : constant Node_Kind :=
+                     Nkind (Unit (Cunit (Current_Sem_Unit)));
 
    begin
       --  There are no restrictions on the body of an RCI or RT unit
index d32b2a0..9dbb871 100644 (file)
@@ -2279,7 +2279,7 @@ package body Sem_Ch10 is
       ----------------------------
 
       procedure Re_Install_Use_Clauses is
-         U  : Node_Id;
+         U : Node_Id;
       begin
          for J in reverse 1 .. Num_Scopes loop
             U := Use_Clauses (J);
index f4b35f8..5eeaf3d 100644 (file)
@@ -2394,7 +2394,7 @@ package body Sem_Ch12 is
       T   : Entity_Id;
       Def : Node_Id)
    is
-      Loc   : constant Source_Ptr := Sloc (Def);
+      Loc : constant Source_Ptr := Sloc (Def);
 
    begin
       --  Rewrite as a type declaration of a derived type. This ensures that
@@ -10348,7 +10348,7 @@ package body Sem_Ch12 is
          Formal_Ent  : Entity_Id;
          Actual_Ent  : Entity_Id)
       is
-         Act_Pkg   : Entity_Id;
+         Act_Pkg : Entity_Id;
 
       begin
          Set_Instance_Of (Formal_Ent, Actual_Ent);
index 1577b9b..52f3df0 100644 (file)
@@ -593,7 +593,7 @@ package body Sem_Ch13 is
          Comp   := First_Component_Or_Discriminant (R);
          while Present (Comp) loop
             declare
-               CC   : constant Node_Id := Component_Clause (Comp);
+               CC : constant Node_Id := Component_Clause (Comp);
 
             begin
                --  Collect only component clauses whose last bit is less than
index f6f6ec5..42547e3 100644 (file)
@@ -8263,7 +8263,7 @@ package body Sem_Ch4 is
               and then Is_Entity_Name (Name (Parent (Par)))
             then
                declare
-                  Proc   : Entity_Id;
+                  Proc : Entity_Id;
 
                begin
                   --  We should look for an interpretation with the proper
index e69e627..2a6ca78 100644 (file)
@@ -4727,7 +4727,7 @@ package body Sem_Eval is
    ------------------
 
    function Expr_Value_E (N : Node_Id) return Entity_Id is
-      Ent  : constant Entity_Id := Entity (N);
+      Ent : constant Entity_Id := Entity (N);
    begin
       if Ekind (Ent) = E_Enumeration_Literal then
          return Ent;
index 2cabef6..f9169ee 100644 (file)
@@ -32677,7 +32677,7 @@ package body Sem_Prag is
    --------------------------------------------
 
    procedure Defer_Compile_Time_Warning_Error_To_BE (N : Node_Id) is
-      Arg1  : constant Node_Id := First (Pragma_Argument_Associations (N));
+      Arg1 : constant Node_Id := First (Pragma_Argument_Associations (N));
    begin
       Compile_Time_Warnings_Errors.Append
         (New_Val => CTWE_Entry'(Eloc  => Sloc (Arg1),
index d4f9265..4f66b71 100644 (file)
@@ -9774,7 +9774,7 @@ package body Sem_Res is
       ----------------------------
 
       procedure Resolve_Set_Membership is
-         Alt  : Node_Id;
+         Alt : Node_Id;
 
       begin
          --  If the left operand is overloaded, find type compatible with not
index 0687502..3534e83 100644 (file)
@@ -1659,7 +1659,7 @@ package body Sem_Util is
       Typ            : Entity_Id;
       Suggest_Static : Boolean := False)
    is
-      Gen            : Entity_Id;
+      Gen : Entity_Id;
 
    begin
       --  Avoid cascaded errors
@@ -10729,7 +10729,7 @@ package body Sem_Util is
    -------------------------------------
 
    function Get_Actual_Subtype_If_Available (N : Node_Id) return Entity_Id is
-      Typ  : constant Entity_Id := Etype (N);
+      Typ : constant Entity_Id := Etype (N);
 
    begin
       --  If what we have is an identifier that references a subprogram
@@ -21951,7 +21951,7 @@ package body Sem_Util is
       ------------------------------------
 
       function Prefix_Has_Volatile_Components (P : Node_Id) return Boolean is
-         Typ  : constant Entity_Id := Etype (P);
+         Typ : constant Entity_Id := Etype (P);
 
       begin
          if Is_Access_Type (Typ) then
index 599f2ae..4df735c 100644 (file)
@@ -329,7 +329,7 @@ package body Sinput is
    begin
       for X in 1 .. Source_File.Last loop
          declare
-            S  : Source_File_Record renames Source_File.Table (X);
+            S : Source_File_Record renames Source_File.Table (X);
          begin
             if S.Instance = No_Instance_Id then
                Free_Source_Buffer (S.Source_Text);
index 343d296..a34e841 100644 (file)
@@ -1285,7 +1285,7 @@ package body Switch.C is
 
                else
                   declare
-                     OK  : Boolean;
+                     OK : Boolean;
 
                   begin
                      Set_Validity_Check_Options
@@ -1408,7 +1408,7 @@ package body Switch.C is
                   Store_Switch := False;
 
                   declare
-                     OK  : Boolean;
+                     OK : Boolean;
 
                   begin
                      Set_Style_Check_Options