diff options
Diffstat (limited to 'src/std_names.ads')
| -rw-r--r-- | src/std_names.ads | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/src/std_names.ads b/src/std_names.ads index 2f75e8b0e..bc144c13c 100644 --- a/src/std_names.ads +++ b/src/std_names.ads @@ -23,9 +23,8 @@ with Types; use Types; package Std_Names is -- Predefined names. Name_First_Character : constant Name_Id := 1; - Name_Last_Character : constant Name_Id := - Name_First_Character + Character'Pos (Character'Last) - - Character'Pos (Character'First); + Name_Last_Character : constant Name_Id := Name_First_Character + 255; + subtype Name_Characters is Name_Id range Name_First_Character .. Name_Last_Character; |