OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Minor reformatting. 

From-SVN: r103895
This commit is contained in:
Arnaud Charlet 2005-09-05 10:11:07 +02:00
parent a2cb348ef4
commit d124a2302d
2 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
gcc/ada/a-szmzco.ads
View File

@ -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;

8
gcc/ada/sem_case.adb
View File

@ -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