diff options
author | Tristan Gingold <tgingold@free.fr> | 2018-01-19 06:10:41 +0100 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2018-01-20 07:40:53 +0100 |
commit | c763877e06400de084ccaffae61ccc98e451c474 (patch) | |
tree | 65e20a39f4ff68808662f6d800602c4793600245 /src/name_table.ads | |
parent | c46dc8215f1d873c0f149cf06875284d9ccbd1a1 (diff) | |
download | ghdl-c763877e06400de084ccaffae61ccc98e451c474.tar.gz ghdl-c763877e06400de084ccaffae61ccc98e451c474.tar.bz2 ghdl-c763877e06400de084ccaffae61ccc98e451c474.zip |
name_table: get rid of Nam_Buffer/Nam_Length.
Diffstat (limited to 'src/name_table.ads')
-rw-r--r-- | src/name_table.ads | 18 |
1 files changed, 0 insertions, 18 deletions
diff --git a/src/name_table.ads b/src/name_table.ads index eb604c8f1..2dc6137c6 100644 --- a/src/name_table.ads +++ b/src/name_table.ads @@ -47,10 +47,6 @@ package Name_Table is -- If the name is a character, then single quote are added. function Image (Id: Name_Id) return String; - -- Set NAME_BUFFER/NAME_LENGTH with the image of ID. Characters aren't - -- quoted. - procedure Image (Id : Name_Id); - -- Get the address of the first character of ID. The address is valid -- until the next call to Get_Identifier (which may reallocate the string -- table). @@ -71,9 +67,6 @@ package Name_Table is function Is_Character (Id: Name_Id) return Boolean; pragma Inline (Is_Character); - -- Get or create an entry in the name table, use NAME_BUFFER/NAME_LENGTH. - function Get_Identifier return Name_Id; - -- Like GET_IDENTIFIER, but return NULL_IDENTIFIER if the identifier -- is not found (and do not create an entry for it). function Get_Identifier_No_Create (Str : String) return Name_Id; @@ -93,17 +86,6 @@ package Name_Table is -- Be sure all info fields have their default value. procedure Assert_No_Infos; - -- This buffer is used by get_token to set the name. - -- This can be seen as a copy buffer but this is necessary because names - -- case is 'normalized' as VHDL is case insensitive. - -- To avoid name clash with std_names, Nam_Buffer and Nam_Length are used - -- instead of Name_Buffer and Name_Length. - Max_Nam_Length : constant Natural := 1024; - Nam_Buffer : String (1 .. Max_Nam_Length); - - -- The length of the name string. - Nam_Length: Natural range 0 .. Max_Nam_Length; - -- Free all resources. The package cannot be used anymore after calling -- this procedure. procedure Finalize; |