From 54b28e858d32e4afa079ab3af086e99ad54becf6 Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Sat, 14 Feb 2015 07:07:38 +0100 Subject: str_table: pack elements to reduce size. --- src/str_table.ads | 7 +++++++ 1 file changed, 7 insertions(+) (limited to 'src/str_table.ads') diff --git a/src/str_table.ads b/src/str_table.ads index 7be26560e..17103673b 100644 --- a/src/str_table.ads +++ b/src/str_table.ads @@ -15,6 +15,7 @@ -- along with GHDL; see the file COPYING. If not, write to the Free -- Software Foundation, 59 Temple Place - Suite 330, Boston, MA -- 02111-1307, USA. +with System; with Types; use Types; package Str_Table is @@ -50,6 +51,12 @@ package Str_Table is -- Utility function: get the LEN elements as a string. function String_String8 (Id : String8_Id; Len : Nat32) return String; + -- Utility function: get the address of string8 ID. Note that as soon + -- as a character is appended (using Append_String8) or a string8 is + -- resized (using Resize_String8), an address previously returned is not + -- valid anymore. + function String8_Address (Id : String8_Id) return System.Address; + -- Free all the memory and reinitialize the package. procedure Initialize; end Str_Table; -- cgit v1.2.3