diff options
| author | Tristan Gingold <tgingold@free.fr> | 2017-04-18 05:05:20 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2017-04-19 20:48:24 +0200 |
| commit | 464259ae4be27dcf43f3273e2217cb226bebdc71 (patch) | |
| tree | d1d02c5892a516e5144f888b2e9264e34f399da7 /src/grt/grt-images.adb | |
| parent | 99c6e3e3b91e60e9f79195e5c36e217ff2196e50 (diff) | |
| download | ghdl-464259ae4be27dcf43f3273e2217cb226bebdc71.tar.gz ghdl-464259ae4be27dcf43f3273e2217cb226bebdc71.tar.bz2 ghdl-464259ae4be27dcf43f3273e2217cb226bebdc71.zip | |
Rewrite to_string(real, digits) using grt.fcvt
Diffstat (limited to 'src/grt/grt-images.adb')
| -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 8e15d103a..b9ba82928 100644 --- a/src/grt/grt-images.adb +++ b/src/grt/grt-images.adb @@ -176,7 +176,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_Real_Digits; + Str : String (1 .. 128); P : Natural; begin To_String (Str, P, Val, Nbr_Digits); |