diff options
author | Tristan Gingold <tgingold@free.fr> | 2019-06-01 21:44:05 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2019-06-02 17:44:47 +0200 |
commit | fff5baf66a4e17d1913ee6e6bc807a049fc0af1f (patch) | |
tree | 4264c2e201ea9696dd53225a07c1d8a975e95b4b /src/grt/grt-vstrings.ads | |
parent | 2318615ede87be1f27e8d776d5fc30b814d8e505 (diff) | |
download | ghdl-fff5baf66a4e17d1913ee6e6bc807a049fc0af1f.tar.gz ghdl-fff5baf66a4e17d1913ee6e6bc807a049fc0af1f.tar.bz2 ghdl-fff5baf66a4e17d1913ee6e6bc807a049fc0af1f.zip |
grt: extract grt-vstrings_io from grt-vstrings.
Diffstat (limited to 'src/grt/grt-vstrings.ads')
-rw-r--r-- | src/grt/grt-vstrings.ads | 9 |
1 files changed, 3 insertions, 6 deletions
diff --git a/src/grt/grt-vstrings.ads b/src/grt/grt-vstrings.ads index 7914397a2..02d0504db 100644 --- a/src/grt/grt-vstrings.ads +++ b/src/grt/grt-vstrings.ads @@ -22,7 +22,7 @@ -- covered by the GNU General Public License. This exception does not -- however invalidate any other reasons why the executable file might be -- covered by the GNU Public License. -with Grt.Stdio; use Grt.Stdio; + with Grt.Types; use Grt.Types; with System; use System; @@ -54,8 +54,8 @@ package Grt.Vstrings is -- It is an error if LEN is greater than the current length. procedure Truncate (Vstr : in out Vstring; Len : Natural); - -- Display VSTR. - procedure Put (Stream : FILEs; Vstr : Vstring); + -- Return the address of the first character of VSTR. + function Get_Address (Vstr : Vstring) return Address; -- Get VSTR as a C String. The NUL character must have been added. function Get_C_String (Vstr : Vstring) return Ghdl_C_String; @@ -77,9 +77,6 @@ package Grt.Vstrings is -- Return the address of the first character of RSTR. function Get_Address (Rstr : Rstring) return Address; - -- Display RSTR. - procedure Put (Stream : FILEs; Rstr : Rstring); - -- Copy RSTR to STR, and return length of the string to LEN. procedure Copy (Rstr : Rstring; Str : in out String; Len : out Natural); |