diff options
author | Tristan Gingold <tgingold@free.fr> | 2017-09-26 20:49:24 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2017-09-26 20:49:24 +0200 |
commit | 39f80aecbff4af324432a3575de91e4562aad4f9 (patch) | |
tree | 2b4f211ef2aca93c9266514b096e00c488243c64 /src/name_table.ads | |
parent | 685526e22ad509c82bc43e72b1780e000b0430b1 (diff) | |
download | ghdl-39f80aecbff4af324432a3575de91e4562aad4f9.tar.gz ghdl-39f80aecbff4af324432a3575de91e4562aad4f9.tar.bz2 ghdl-39f80aecbff4af324432a3575de91e4562aad4f9.zip |
name_table, ieee-vital_timing: reduce use of global variables.
Diffstat (limited to 'src/name_table.ads')
-rw-r--r-- | src/name_table.ads | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/src/name_table.ads b/src/name_table.ads index 000b98b2a..2eb5f06b9 100644 --- a/src/name_table.ads +++ b/src/name_table.ads @@ -39,7 +39,7 @@ package Name_Table is -- backslashes are simplified. function Get_Identifier (Str: String) return Name_Id; - -- Get the string associed to a name. + -- Get the string associed to a name. The first bound is 1. -- If the name is a character, then single quote are added. function Image (Id: Name_Id) return String; @@ -71,7 +71,9 @@ package Name_Table is -- 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 return Name_Id; + function Get_Identifier_No_Create (Str : String) return Name_Id; + function Get_Identifier_No_Create_With_Len + (Str : Fat_String_Acc; Len : Natural) return Name_Id; -- Get and set the info field associated with each identifier. -- Used to store interpretations of the name. |