From 0c134f79111b97236ab8446d00c35da44bb905ca Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Fri, 6 Jan 2023 07:56:37 +0100
Subject: grt-images.adb: handle very long strings.  Fix #2299

---
 src/grt/grt-images.adb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/grt')

diff --git a/src/grt/grt-images.adb b/src/grt/grt-images.adb
index 828a9943e..d3c3e956a 100644
--- a/src/grt/grt-images.adb
+++ b/src/grt/grt-images.adb
@@ -173,7 +173,7 @@ package body Grt.Images is
    procedure Ghdl_To_String_F64_Digits
      (Res : Std_String_Ptr; Val : Ghdl_F64; Nbr_Digits : Ghdl_I32)
    is
-      Str : String (1 .. 128);
+      Str : String (1 .. 320 + Natural (Nbr_Digits));
       P : Natural;
    begin
       To_String (Str, P, Val, Nbr_Digits);
-- 
cgit v1.2.3