From f202fce8349645797cd4786d23d7a9e9650035dc Mon Sep 17 00:00:00 2001 From: charlet Date: Mon, 5 Sep 2005 08:11:07 +0000 Subject: [PATCH] Minor reformatting. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@103895 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/ada/a-szmzco.ads | 2 +- 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 -- 2.7.4