diff options
| author | Tristan Gingold <tgingold@free.fr> | 2017-10-05 20:38:46 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2017-10-05 20:38:46 +0200 |
| commit | 95be5cecfb9ed0b5db682b4d1fec649a87eff14c (patch) | |
| tree | 90519481feed2e76becce79bc40b8f8e5551414c /src/std_names.ads | |
| parent | 3e7685f0960aa730f39569c16fea18134e69e61f (diff) | |
| download | ghdl-95be5cecfb9ed0b5db682b4d1fec649a87eff14c.tar.gz ghdl-95be5cecfb9ed0b5db682b4d1fec649a87eff14c.tar.bz2 ghdl-95be5cecfb9ed0b5db682b4d1fec649a87eff14c.zip | |
Name_Last_Character: use usual notation.
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; |