diff options
author | Tristan Gingold <tgingold@free.fr> | 2019-06-01 21:51:39 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2019-06-02 17:44:47 +0200 |
commit | dfbbed7c92715eb8ac4ac634076c29148e56a872 (patch) | |
tree | adeffb4de1e6578ca173ce082b8e09dcc00159a9 /src/grt/grt-vstrings.ads | |
parent | 86967acd4b60325b3ac53aaac11268c396e74fa3 (diff) | |
download | ghdl-dfbbed7c92715eb8ac4ac634076c29148e56a872.tar.gz ghdl-dfbbed7c92715eb8ac4ac634076c29148e56a872.tar.bz2 ghdl-dfbbed7c92715eb8ac4ac634076c29148e56a872.zip |
grt-vstrings: refactor.
Diffstat (limited to 'src/grt/grt-vstrings.ads')
-rw-r--r-- | src/grt/grt-vstrings.ads | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/src/grt/grt-vstrings.ads b/src/grt/grt-vstrings.ads index 02d0504db..375f294a6 100644 --- a/src/grt/grt-vstrings.ads +++ b/src/grt/grt-vstrings.ads @@ -81,18 +81,15 @@ package Grt.Vstrings is procedure Copy (Rstr : Rstring; Str : in out String; Len : out Natural); private - subtype Fat_String is String (Positive); - type Fat_String_Acc is access Fat_String; - type Vstring is record - Str : Fat_String_Acc := null; + Str : Ghdl_C_String := null; Max : Natural := 0; Len : Natural := 0; end record; type Rstring is record -- String whose bounds is (1 .. Max). - Str : Fat_String_Acc := null; + Str : Ghdl_C_String := null; -- Last index in STR. Max : Natural := 0; |