diff options
author | Tristan Gingold <tgingold@free.fr> | 2017-10-02 20:45:43 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2017-10-02 20:49:37 +0200 |
commit | 255fb07204db93a302305795c2220901cf7a883e (patch) | |
tree | 095d97ded9e57a481fb8ab93ab69b5caee3bf999 /src/name_table.adb | |
parent | d97fd3b7db69c4268bf49b5b82fa00656020375a (diff) | |
download | ghdl-255fb07204db93a302305795c2220901cf7a883e.tar.gz ghdl-255fb07204db93a302305795c2220901cf7a883e.tar.bz2 ghdl-255fb07204db93a302305795c2220901cf7a883e.zip |
Add subprograms in Files_Map and Name_Table for interfacing.
Renames Fat_String_Acc to Thin_String_Ptr.
Diffstat (limited to 'src/name_table.adb')
-rw-r--r-- | src/name_table.adb | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/src/name_table.adb b/src/name_table.adb index 3332f755b..7e5413415 100644 --- a/src/name_table.adb +++ b/src/name_table.adb @@ -79,7 +79,7 @@ package body Name_Table is -- Allocate place in the strings_table, and store the name_buffer into it. -- Also append a NUL. - function Store (Str : Fat_String_Acc; Len : Natural) return Natural + function Store (Str : Thin_String_Ptr; Len : Natural) return Natural is Res: Natural; begin @@ -146,7 +146,7 @@ package body Name_Table is -- Compute the hash value of a string. In case of algorithm change, check -- the performance using Disp_Stats. - function Compute_Hash (Str : Fat_String_Acc; Len : Natural) + function Compute_Hash (Str : Thin_String_Ptr; Len : Natural) return Hash_Value_Type is use Interfaces; @@ -239,7 +239,7 @@ package body Name_Table is -- Compare ID with Str / Len. Length of ID must be equal to Len. function Compare_Name_Buffer_With_Name - (Id : Name_Id; Str : Fat_String_Acc; Len : Natural) return Boolean + (Id : Name_Id; Str : Thin_String_Ptr; Len : Natural) return Boolean is Ne: Identifier renames Names_Table.Table (Id); begin @@ -280,7 +280,7 @@ package body Name_Table is end Expand; -- Get or create an entry in the name table. - function Get_Identifier_With_Len (Str : Fat_String_Acc; Len : Natural) + function Get_Identifier_With_Len (Str : Thin_String_Ptr; Len : Natural) return Name_Id is Hash_Value : Hash_Value_Type; @@ -324,11 +324,11 @@ package body Name_Table is function Get_Identifier return Name_Id is begin return Get_Identifier_With_Len - (To_Fat_String_Acc (Nam_Buffer'Address), Nam_Length); + (To_Thin_String_Ptr (Nam_Buffer'Address), Nam_Length); end Get_Identifier; function Get_Identifier_No_Create_With_Len - (Str : Fat_String_Acc; Len : Natural) return Name_Id + (Str : Thin_String_Ptr; Len : Natural) return Name_Id is Hash_Value : Hash_Value_Type; Hash_Index : Hash_Value_Type; @@ -353,14 +353,14 @@ package body Name_Table is function Get_Identifier_No_Create (Str : String) return Name_Id is begin return Get_Identifier_No_Create_With_Len - (To_Fat_String_Acc (Str'Address), Str'Length); + (To_Thin_String_Ptr (Str'Address), Str'Length); end Get_Identifier_No_Create; -- Get or create an entry in the name table. function Get_Identifier (Str : String) return Name_Id is begin return Get_Identifier_With_Len - (To_Fat_String_Acc (Str'Address), Str'Length); + (To_Thin_String_Ptr (Str'Address), Str'Length); end Get_Identifier; function Get_Identifier (Char : Character) return Name_Id is |