diff options
Diffstat (limited to 'src/grt/grt-vcd.adb')
| -rw-r--r-- | src/grt/grt-vcd.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/grt/grt-vcd.adb b/src/grt/grt-vcd.adb index e6495c5aa..4f8c9ca9c 100644 --- a/src/grt/grt-vcd.adb +++ b/src/grt/grt-vcd.adb @@ -682,7 +682,7 @@ package body Grt.Vcd is -- conversions, [...] -- Note: the code always uses the 'e' format, with a full precision. - Grt.Fcvt.To_String (Str, Len, Interfaces.IEEE_Float_64 (V)); + Grt.Fcvt.Format_Image (Str, Len, Interfaces.IEEE_Float_64 (V)); Vcd_Put (Str (1 .. Len)); end Vcd_Put_Float64; |