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.adb | |
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.adb')
-rw-r--r-- | src/name_table.adb | 21 |
1 files changed, 0 insertions, 21 deletions
diff --git a/src/name_table.adb b/src/name_table.adb index 707d05b82..cb3ddf5b4 100644 --- a/src/name_table.adb +++ b/src/name_table.adb @@ -179,21 +179,6 @@ package body Name_Table is end if; end Image; - procedure Image (Id : Name_Id) - is - Name_Entry : Identifier renames Names_Table.Table (Id); - begin - if Is_Character (Id) then - Nam_Buffer (1) := Get_Character (Id); - Nam_Length := 1; - else - Nam_Length := Get_Name_Length (Id); - Nam_Buffer (1 .. Nam_Length) := String - (Strings_Table.Table - (Name_Entry.Name .. Name_Entry.Name + Str_Idx (Nam_Length) - 1)); - end if; - end Image; - -- Get the address of the first character of ID. -- The string is NUL-terminated (this is done by get_identifier). function Get_Address (Id : Name_Id) return System.Address @@ -332,12 +317,6 @@ package body Name_Table is return Res; end Get_Identifier_With_Len; - function Get_Identifier return Name_Id is - begin - return Get_Identifier_With_Len - (To_Thin_String_Ptr (Nam_Buffer'Address), Nam_Length); - end Get_Identifier; - function Get_Identifier_No_Create_With_Len (Str : Thin_String_Ptr; Len : Natural) return Name_Id is |