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/ghdldrv | |
| 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/ghdldrv')
| -rw-r--r-- | src/ghdldrv/ghdlrun.adb | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/ghdldrv/ghdlrun.adb b/src/ghdldrv/ghdlrun.adb index 6e2351343..55165fac4 100644 --- a/src/ghdldrv/ghdlrun.adb +++ b/src/ghdldrv/ghdlrun.adb @@ -189,6 +189,8 @@ package body Ghdlrun is Def (Ortho, Grt.Files.Ghdl_Untruncated_Text_Read'Address); elsif Name = "textio_read_real" then Def (Ortho, Grt.Lib.Textio_Read_Real'Address); + elsif Name = "textio_write_real" then + Def (Ortho, Grt.Lib.Textio_Write_Real'Address); elsif Name = "control_simulation" then Def (Ortho, Grt.Lib.Ghdl_Control_Simulation'Address); elsif Name = "get_resolution_limit" then |