From 95be5cecfb9ed0b5db682b4d1fec649a87eff14c Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Thu, 5 Oct 2017 20:38:46 +0200 Subject: Name_Last_Character: use usual notation. --- src/std_names.ads | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) (limited to 'src/std_names.ads') 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; -- cgit v1.2.3