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-rtis_utils.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-rtis_utils.adb')
| -rw-r--r-- | src/grt/grt-rtis_utils.adb | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/src/grt/grt-rtis_utils.adb b/src/grt/grt-rtis_utils.adb index 8f30aba43..0b7e43e2b 100644 --- a/src/grt/grt-rtis_utils.adb +++ b/src/grt/grt-rtis_utils.adb @@ -24,6 +24,7 @@ -- covered by the GNU Public License. with Grt.Errors; use Grt.Errors; +with Grt.To_Strings; use Grt.To_Strings; package body Grt.Rtis_Utils is @@ -301,11 +302,10 @@ package body Grt.Rtis_Utils is end case; end Range_Pos_To_Val; - procedure Pos_To_Vstring - (Vstr : in out Vstring; - Rti : Ghdl_Rti_Access; - Rng : Ghdl_Range_Ptr; - Pos : Ghdl_Index_Type) + procedure Pos_To_Vstring (Vstr : in out Vstring; + Rti : Ghdl_Rti_Access; + Rng : Ghdl_Range_Ptr; + Pos : Ghdl_Index_Type) is V : Value_Union; begin |