diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-09-05 08:11:07 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-09-05 08:11:07 +0000 |
| commit | f202fce8349645797cd4786d23d7a9e9650035dc (patch) | |
| tree | d7874589edeaaf602088900e0aa93bc1509ff605 | |
| parent | 1d9b970a8fc86e69c3eeb9314b9a5de609047115 (diff) | |
| download | ppe42-gcc-f202fce8349645797cd4786d23d7a9e9650035dc.tar.gz ppe42-gcc-f202fce8349645797cd4786d23d7a9e9650035dc.zip | |
Minor reformatting.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@103895 138bc75d-0d04-0410-961f-82ee72b054a4
| -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 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 |
