diff options
author | Tristan Gingold <tgingold@free.fr> | 2017-04-18 06:42:11 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2017-04-19 20:48:24 +0200 |
commit | 1e3f0221d1e010cadd0d844f05df63edb4534ee8 (patch) | |
tree | a70559f1c935ea84173d18ff713f539750751836 /src/grt/grt-lib.ads | |
parent | 1c4ce754b16f53442da151cb47d3b5a5ecdc5fe0 (diff) | |
download | ghdl-1e3f0221d1e010cadd0d844f05df63edb4534ee8.tar.gz ghdl-1e3f0221d1e010cadd0d844f05df63edb4534ee8.tar.bz2 ghdl-1e3f0221d1e010cadd0d844f05df63edb4534ee8.zip |
textio: use grt.fcvt to write reals.
Diffstat (limited to 'src/grt/grt-lib.ads')
-rw-r--r-- | src/grt/grt-lib.ads | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/src/grt/grt-lib.ads b/src/grt/grt-lib.ads index 97ee669a8..6e01ea9de 100644 --- a/src/grt/grt-lib.ads +++ b/src/grt/grt-lib.ads @@ -94,6 +94,11 @@ package Grt.Lib is function Textio_Read_Real (Str : Std_String_Ptr) return Ghdl_F64; + procedure Textio_Write_Real (Str : Std_String_Ptr; + Len : Std_Integer_Acc; + V : Ghdl_F64; + Ndigits : Std_Integer); + function Ghdl_Get_Resolution_Limit return Std_Time; procedure Ghdl_Control_Simulation @@ -124,6 +129,8 @@ private pragma Export (C, Textio_Read_Real, "std__textio__textio_read_real"); + pragma Export (C, Textio_Write_Real, + "std__textio__textio_write_real"); pragma Export (C, Ghdl_Get_Resolution_Limit, "std__env__get_resolution_limit"); |