grt-vstrings: do not depend on grt.errors

1 files changed, 4 insertions, 3 deletions

diff --git a/src/grt/grt-vstrings.adb b/src/grt/grt-vstrings.adb
index fe1dc8040..31af49209 100644
--- a/src/grt/grt-vstrings.adb
+++ b/src/grt/grt-vstrings.adb
@@ -23,7 +23,6 @@
 --  however invalidate any other reasons why the executable file might be
 --  covered by the GNU Public License.
 
-with Grt.Errors; use Grt.Errors;
 with Grt.C; use Grt.C;
 
 package body Grt.Vstrings is
@@ -60,7 +59,8 @@ package body Grt.Vstrings is
       Vstr.Str := To_Ghdl_C_String
         (Realloc (To_Address (Vstr.Str), size_t (Nmax)));
       if Vstr.Str = null then
-         Internal_Error ("grt.vstrings.grow: memory exhausted");
+         --  Memory exhausted.
+         raise Storage_Error;
       end if;
       Vstr.Max := Nmax;
    end Grow;
@@ -97,7 +97,8 @@ package body Grt.Vstrings is
    procedure Truncate (Vstr : in out Vstring; Len : Natural) is
    begin
       if Len > Vstr.Len then
-         Internal_Error ("grt.vstrings.truncate: bad len");
+         --  Incorrect length.
+         raise Constraint_Error;
       end if;
       Vstr.Len := Len;
    end Truncate;