diff options
author | Tristan Gingold <tgingold@free.fr> | 2022-07-20 19:30:39 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2022-07-20 19:30:39 +0200 |
commit | 158b4c6fd957b77dfcc01e7a89cca5b8bad277d8 (patch) | |
tree | 41cc89f03ef61ee9905199861259c38a95d4959a /src/utils_io.adb | |
parent | b11ff2745c951f5beaa8e0eb06dd367a9341f18d (diff) | |
download | ghdl-158b4c6fd957b77dfcc01e7a89cca5b8bad277d8.tar.gz ghdl-158b4c6fd957b77dfcc01e7a89cca5b8bad277d8.tar.bz2 ghdl-158b4c6fd957b77dfcc01e7a89cca5b8bad277d8.zip |
elab-vhdl_debug: disp fp64 values
Diffstat (limited to 'src/utils_io.adb')
-rw-r--r-- | src/utils_io.adb | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/src/utils_io.adb b/src/utils_io.adb index 78b9a9d7b..1b5f0ff71 100644 --- a/src/utils_io.adb +++ b/src/utils_io.adb @@ -49,6 +49,11 @@ package body Utils_IO is Put_Trim (Int64'Image (V)); end Put_Int64; + procedure Put_Fp64 (V : Fp64) is + begin + Put_Trim (Fp64'Image (V)); + end Put_Fp64; + Hex_Map : constant array (0 .. 15) of Character := "0123456789ABCDEF"; procedure Put_Addr (V : System.Address) |