Minor reformatting.

From-SVN: r247184

diff --git a/gcc/ada/exp_atag.adb b/gcc/ada/exp_atag.adb
index dd25237fd8fb20f163d70e665d8ffd25d2eab9ad..587432c538d1ebd11732a2da3abb4e49905827d4 100644 (file)
--- a/gcc/ada/exp_atag.adb
+++ b/gcc/ada/exp_atag.adb
@@ -197,20 +197,21 @@ package body Exp_Atag is
         Make_Object_Declaration (Loc,
           Defining_Identifier => Obj_TSD,
           Constant_Present    => True,
-          Object_Definition   => New_Occurrence_Of
-                                   (RTE (RE_Type_Specific_Data_Ptr), Loc),
-          Expression => Build_TSD (Loc, New_Occurrence_Of (Tag_Addr, Loc))),
+          Object_Definition   =>
+            New_Occurrence_Of (RTE (RE_Type_Specific_Data_Ptr), Loc),
+          Expression          =>
+            Build_TSD (Loc, New_Occurrence_Of (Tag_Addr, Loc))),
         Suppress => All_Checks);
 
       Insert_Action (Related_Nod,
         Make_Object_Declaration (Loc,
           Defining_Identifier => Typ_TSD,
           Constant_Present    => True,
-          Object_Definition   => New_Occurrence_Of
-                                   (RTE (RE_Type_Specific_Data_Ptr), Loc),
-          Expression => Build_TSD (Loc,
-                          Unchecked_Convert_To (RTE (RE_Address),
-                            Typ_Tag_Node))),
+          Object_Definition   =>
+            New_Occurrence_Of (RTE (RE_Type_Specific_Data_Ptr), Loc),
+          Expression          =>
+            Build_TSD (Loc,
+              Unchecked_Convert_To (RTE (RE_Address), Typ_Tag_Node))),
         Suppress => All_Checks);
 
       Insert_Action (Related_Nod,
@@ -246,7 +247,7 @@ package body Exp_Atag is
             Make_Op_Eq (Loc,
               Left_Opnd =>
                 Make_Indexed_Component (Loc,
-                  Prefix =>
+                  Prefix      =>
                     Make_Selected_Component (Loc,
                       Prefix        => New_Occurrence_Of (Obj_TSD, Loc),
                       Selector_Name =>

diff --git a/gcc/ada/exp_ch4.adb b/gcc/ada/exp_ch4.adb
index 8a2698befbfcae39640e697e95142b6962d9eecc..ec2251121bb2f2c6571577a274eea7898588d2c0 100644 (file)
--- a/gcc/ada/exp_ch4.adb
+++ b/gcc/ada/exp_ch4.adb
@@ -5859,8 +5859,7 @@ package body Exp_Ch4 is
                if Tagged_Type_Expansion then
                   Tagged_Membership (N, SCIL_Node, New_N);
                   Rewrite (N, New_N);
-                  Analyze_And_Resolve
-                    (N, Restyp, Suppress => All_Checks);
+                  Analyze_And_Resolve (N, Restyp, Suppress => All_Checks);
 
                   --  Update decoration of relocated node referenced by the
                   --  SCIL node.

diff --git a/gcc/ada/inline.adb b/gcc/ada/inline.adb
index a5d5ce1c511d6e4c8fd463edfe5abcd9665f11b6..ff07aea4f99f44e6d90f02881b10bd11549103c8 100644 (file)
--- a/gcc/ada/inline.adb
+++ b/gcc/ada/inline.adb
@@ -812,7 +812,7 @@ package body Inline is
                               Next (Item);
                            end loop;
 
-                           --  If no suspicious with_clauses, analyze the body.
+                           --  If no suspicious with_clauses, analyze the body
 
                            if Is_Inlined (U_Id) then
                               Semantics (Body_Unit);

diff --git a/gcc/ada/sem_ch8.adb b/gcc/ada/sem_ch8.adb
index d44cef2d819a7ac7f71789e776c4c7dd1f8fb459..2b9a681cd5c2f27a61a424effa52199f6091d95b 100644 (file)
--- a/gcc/ada/sem_ch8.adb
+++ b/gcc/ada/sem_ch8.adb
@@ -1090,8 +1090,8 @@ package body Sem_Ch8 is
                     ("\function & will be called only once?R?", Nam,
                      Entity (Name (Nam)));
                   Error_Msg_N -- CODEFIX
-                    ("\suggest using an initialized constant "
-                     & "object instead?R?", Nam);
+                    ("\suggest using an initialized constant object "
+                     & "instead?R?", Nam);
                end if;
          end case;
       end if;
@@ -3804,8 +3804,8 @@ package body Sem_Ch8 is
          return;
       end if;
 
-      --  Otherwise, create new list and attach to it the operations that
-      --  are made use-visible by the clause.
+      --  Otherwise, create new list and attach to it the operations that are
+      --  made use-visible by the clause.
 
       Set_Used_Operations (N, New_Elmt_List);
       Id := First (Subtype_Marks (N));
@@ -4606,13 +4606,13 @@ package body Sem_Ch8 is
                   --  use_type clause.
 
                   if Nkind (Id) = N_Defining_Operator_Symbol
-                       and then
-                         (Is_Primitive_Operator_In_Use (Id, First_Formal (Id))
-                           or else
-                             (Present (Next_Formal (First_Formal (Id)))
-                               and then
-                                 Is_Primitive_Operator_In_Use
-                                   (Id, Next_Formal (First_Formal (Id)))))
+                    and then
+                      (Is_Primitive_Operator_In_Use (Id, First_Formal (Id))
+                        or else
+                          (Present (Next_Formal (First_Formal (Id)))
+                            and then
+                              Is_Primitive_Operator_In_Use
+                                (Id, Next_Formal (First_Formal (Id)))))
                   then
                      null;
                   else
@@ -9197,8 +9197,8 @@ package body Sem_Ch8 is
 
       elsif From_Limited_With (T) and then From_Limited_With (Scope (T)) then
          Error_Msg_N
-           ("incomplete type from limited view "
-            & "cannot appear in use clause", Id);
+           ("incomplete type from limited view cannot appear in use clause",
+            Id);
 
       --  If the use clause is redundant, Used_Operations will usually be
       --  empty, but we need to set it to empty here in one case: If we are