From: Arnaud Charlet <charlet@gcc.gnu.org>
Date: Mon, 5 Sep 2005 08:11:07 +0000 (+0200)
Subject: Minor reformatting.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=d124a2302d8331862e1921f3d034ab182c4bea2c;p=gcc.git

Minor reformatting.

From-SVN: r103895
---

diff --git a/gcc/ada/a-szmzco.ads b/gcc/ada/a-szmzco.ads
index 146f35f73eb..06695f6082a 100644
--- 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 09f8e700a01..a7df779f324 100644
--- 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