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