Minor reformatting.

From-SVN: r103895

diff --git a/gcc/ada/a-szmzco.ads b/gcc/ada/a-szmzco.ads
index 146f35f..06695f6 100644 (file)
--- a/gcc/ada/a-szmzco.ads
+++ b/gcc/ada/a-szmzco.ads
@@ -38,7 +38,7 @@
 with Ada.Characters.Wide_Wide_Latin_1;
 
 package Ada.Strings.Wide_Wide_Maps.Wide_Wide_Constants is
-pragma Preelaborate (Wide_Wide_Constants);
+   pragma Preelaborate;
 
    Control_Set           : constant Wide_Wide_Maps.Wide_Wide_Character_Set;
    Graphic_Set           : constant Wide_Wide_Maps.Wide_Wide_Character_Set;

diff --git a/gcc/ada/sem_case.adb b/gcc/ada/sem_case.adb
index 09f8e70..a7df779 100644 (file)
--- a/gcc/ada/sem_case.adb
+++ b/gcc/ada/sem_case.adb
@@ -99,11 +99,11 @@ package body Sem_Case is
       Msg_Sloc       : Source_Ptr)
    is
       function Lt_Choice (C1, C2 : Natural) return Boolean;
-      --  Comparison routine for comparing Choice_Table entries.
-      --  Use the lower bound of each Choice as the key.
+      --  Comparison routine for comparing Choice_Table entries. Use the lower
+      --  bound of each Choice as the key.
 
       procedure Move_Choice (From : Natural; To : Natural);
-      --  Move routine for sorting the Choice_Table.
+      --  Move routine for sorting the Choice_Table
 
       procedure Issue_Msg (Value1 : Node_Id; Value2 : Node_Id);
       procedure Issue_Msg (Value1 : Node_Id; Value2 : Uint);
@@ -578,7 +578,7 @@ package body Sem_Case is
 
          Bounds_Lo : Uint;
          Bounds_Hi : Uint;
-         --  The actual bounds of the above type.
+         --  The actual bounds of the above type
 
          Expected_Type : Entity_Id;
          --  The expected type of each choice. Equal to Choice_Type, except