Minor reformatting.

From-SVN: r237962

diff --git a/gcc/ada/freeze.adb b/gcc/ada/freeze.adb
index b9d70c416c9dcf1fb13a8548105da90e8a97bc9f..6596d53371aa36f168e279dd0962cd3940311435 100644 (file)
--- a/gcc/ada/freeze.adb
+++ b/gcc/ada/freeze.adb
@@ -1403,8 +1403,8 @@ package body Freeze is
       while Present (Op_Node) loop
          Prim := Node (Op_Node);
 
-         --  Map the overridden primitive to the overriding one. This
-         --  takes care of all overridings and is done only once.
+         --  Map the overridden primitive to the overriding one. This takes
+         --  care of all overridings and is done only once.
 
          if Present (Overridden_Operation (Prim))
             and then Comes_From_Source (Prim)

diff --git a/gcc/ada/sem_prag.ads b/gcc/ada/sem_prag.ads
index 8613bba1831a64845fc99fe73bc26c528c4cd3a4..db7bcbb8b85e033f599621d9293483fa5be7a5d1 100644 (file)
--- a/gcc/ada/sem_prag.ads
+++ b/gcc/ada/sem_prag.ads
@@ -531,12 +531,10 @@ package Sem_Prag is
    procedure Update_Primitives_Mapping
      (Inher_Id : Entity_Id;
       Subp_Id  : Entity_Id);
-
-   --  map primitive operations of the parent type to the corresponding
-   --  operations of the descendant. note that the descendant type may
-   --  not be frozen yet, so we cannot use the dispatch table directly.
-   --  This is called when elaborating a contract for a subprogram, and
-   --  when freezing a type extension to verify legality rules on inherited
-   --  conditions.
+   --  Map primitive operations of the parent type to the corresponding
+   --  operations of the descendant. Note that the descendant type may not be
+   --  frozen yet, so we cannot use the dispatch table directly. This is called
+   --  when elaborating a contract for a subprogram, and when freezing a type
+   --  extension to verify legality rules on inherited conditions.
 
 end Sem_Prag;