diff options
author | Tristan Gingold <tgingold@free.fr> | 2017-04-18 06:05:30 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2017-04-19 20:48:24 +0200 |
commit | 1c4ce754b16f53442da151cb47d3b5a5ecdc5fe0 (patch) | |
tree | fa9a687793b418f6be7c8483c2576d12419fd45b /src/ghdldrv | |
parent | 464259ae4be27dcf43f3273e2217cb226bebdc71 (diff) | |
download | ghdl-1c4ce754b16f53442da151cb47d3b5a5ecdc5fe0.tar.gz ghdl-1c4ce754b16f53442da151cb47d3b5a5ecdc5fe0.tar.bz2 ghdl-1c4ce754b16f53442da151cb47d3b5a5ecdc5fe0.zip |
textio: use grt.fcvt to read real numbers.
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 c9183433f..6e2351343 100644 --- a/src/ghdldrv/ghdlrun.adb +++ b/src/ghdldrv/ghdlrun.adb @@ -187,6 +187,8 @@ package body Ghdlrun is begin if Name = "untruncated_text_read" then 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 = "control_simulation" then Def (Ortho, Grt.Lib.Ghdl_Control_Simulation'Address); elsif Name = "get_resolution_limit" then |