aboutsummaryrefslogtreecommitdiff
path: root/gcc/ada
diff options
context:
space:
mode:
authorArnaud Charlet <charlet@gcc.gnu.org>2005-09-05 10:11:07 +0200
committerArnaud Charlet <charlet@gcc.gnu.org>2005-09-05 10:11:07 +0200
commitd124a2302d8331862e1921f3d034ab182c4bea2c (patch)
treed7874589edeaaf602088900e0aa93bc1509ff605 /gcc/ada
parenta2cb348ef4d982ff951a398a07e71f7bdff020ab (diff)
downloadgcc-d124a2302d8331862e1921f3d034ab182c4bea2c.zip
gcc-d124a2302d8331862e1921f3d034ab182c4bea2c.tar.gz
gcc-d124a2302d8331862e1921f3d034ab182c4bea2c.tar.bz2
Minor reformatting.
From-SVN: r103895
Diffstat (limited to 'gcc/ada')
-rw-r--r--gcc/ada/a-szmzco.ads2
-rw-r--r--gcc/ada/sem_case.adb8
2 files changed, 5 insertions, 5 deletions
diff --git a/gcc/ada/a-szmzco.ads b/gcc/ada/a-szmzco.ads
index 146f35f..06695f6 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 09f8e70..a7df779 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