diff options
| -rw-r--r-- | src/grt/grt-images.adb | 2 |
1 files changed, 1 insertions, 1 deletions
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); |