diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2005-09-05 10:11:07 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2005-09-05 10:11:07 +0200 |
| commit | d124a2302d8331862e1921f3d034ab182c4bea2c (patch) | |
| tree | d7874589edeaaf602088900e0aa93bc1509ff605 /gcc/ada | |
| parent | a2cb348ef4d982ff951a398a07e71f7bdff020ab (diff) | |
| download | gcc-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.ads | 2 | ||||
| -rw-r--r-- | gcc/ada/sem_case.adb | 8 |
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 |