vpi: use a variable buffer for vpi_get_value.

vstrings: add Reset and Get_C_String.

Close #98

1 files changed, 10 insertions, 0 deletions

diff --git a/src/grt/grt-vstrings.adb b/src/grt/grt-vstrings.adb
index 30c58ab41..d5d14c856 100644
--- a/src/grt/grt-vstrings.adb
+++ b/src/grt/grt-vstrings.adb
@@ -47,6 +47,11 @@ package body Grt.Vstrings is
                Len => 0);
    end Free;
 
+   procedure Reset (Vstr : in out Vstring) is
+   begin
+      Vstr.Len := 0;
+   end Reset;
+
    procedure Grow (Vstr : in out Vstring; Sum : Natural)
    is
       Nlen : constant Natural := Vstr.Len + Sum;
@@ -118,6 +123,11 @@ package body Grt.Vstrings is
       end if;
    end Put;
 
+   function Get_C_String (Vstr : Vstring) return Ghdl_C_String is
+   begin
+      return To_Ghdl_C_String (Vstr.Str.all'Address);
+   end Get_C_String;
+
    procedure Free (Rstr : in out Rstring) is
    begin
       Free (Rstr.Str);