diff options
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); |