diff options
author | Tristan Gingold <tgingold@free.fr> | 2017-10-06 20:52:49 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2017-10-06 20:52:49 +0200 |
commit | 09733cedabdaef6c1adba4473ce4abd863defa89 (patch) | |
tree | d6d936c31f4fa18ed2475937127c25c391cd8c72 /src/name_table.adb | |
parent | f1c1deaa61dc79a1c6c15aafd1b90fb6be9d8b4c (diff) | |
download | ghdl-09733cedabdaef6c1adba4473ce4abd863defa89.tar.gz ghdl-09733cedabdaef6c1adba4473ce4abd863defa89.tar.bz2 ghdl-09733cedabdaef6c1adba4473ce4abd863defa89.zip |
python: add more interfaces.
Diffstat (limited to 'src/name_table.adb')
-rw-r--r-- | src/name_table.adb | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/src/name_table.adb b/src/name_table.adb index 7e5413415..1d1fcbc1c 100644 --- a/src/name_table.adb +++ b/src/name_table.adb @@ -201,6 +201,14 @@ package body Name_Table is return Strings_Table.Table (Name_Entry.Name)'Address; end Get_Address; + function Get_Name_Ptr (Id : Name_Id) return Thin_String_Ptr + is + Name_Entry: Identifier renames Names_Table.Table(Id); + begin + return To_Thin_String_Ptr + (Strings_Table.Table (Name_Entry.Name)'Address); + end Get_Name_Ptr; + function Get_Name_Length (Id : Name_Id) return Natural is pragma Assert (Id < Names_Table.Last); |