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/ghdlrun.adb | |
| 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/ghdlrun.adb')
| -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 |