diff options
author | Tristan Gingold <tgingold@free.fr> | 2019-06-01 09:08:59 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2019-06-01 11:10:09 +0200 |
commit | 2c98c1cfeb1cab4688520a76e9c99f25735c28b3 (patch) | |
tree | 1ab70afe408fdab539051bcac233d610149e5384 /src/grt/grt-avhpi.adb | |
parent | 5b315ffc640c085c89508bd9bff9f88147ebe04e (diff) | |
download | ghdl-2c98c1cfeb1cab4688520a76e9c99f25735c28b3.tar.gz ghdl-2c98c1cfeb1cab4688520a76e9c99f25735c28b3.tar.bz2 ghdl-2c98c1cfeb1cab4688520a76e9c99f25735c28b3.zip |
grt: extract grt.to_strings from grt.images
Diffstat (limited to 'src/grt/grt-avhpi.adb')
-rw-r--r-- | src/grt/grt-avhpi.adb | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/grt/grt-avhpi.adb b/src/grt/grt-avhpi.adb index 1a6239f1a..374dcc3a6 100644 --- a/src/grt/grt-avhpi.adb +++ b/src/grt/grt-avhpi.adb @@ -25,6 +25,7 @@ with Grt.Errors; use Grt.Errors; with Grt.Vstrings; use Grt.Vstrings; with Grt.Rtis_Utils; use Grt.Rtis_Utils; +with Grt.To_Strings; package body Grt.Avhpi is procedure Get_Root_Inst (Res : out VhpiHandleT) is @@ -743,7 +744,7 @@ package body Grt.Avhpi is end if; case Iter_Type.Kind is when Ghdl_Rtik_Type_I32 => - To_String (Buf, Buf_Len, Vptr.I32); + Grt.To_Strings.To_String (Buf, Buf_Len, Vptr.I32); Add (Buf (Buf_Len .. Buf'Last)); -- when Ghdl_Rtik_Type_E8 => -- Disp_Enum_Value |