diff options
| author | Tristan Gingold <tgingold@free.fr> | 2023-01-06 07:56:37 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2023-01-06 07:56:56 +0100 |
| commit | 0c134f79111b97236ab8446d00c35da44bb905ca (patch) | |
| tree | ff30ca9a8bf13b8e9a67597665615f2b357b8d7f /src/grt | |
| parent | 0b09211a0964509d0e022e0c6b7b65ae9d83ac39 (diff) | |
| download | ghdl-0c134f79111b97236ab8446d00c35da44bb905ca.tar.gz ghdl-0c134f79111b97236ab8446d00c35da44bb905ca.tar.bz2 ghdl-0c134f79111b97236ab8446d00c35da44bb905ca.zip | |
grt-images.adb: handle very long strings. Fix #2299
Diffstat (limited to 'src/grt')
| -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); |