textio: use grt.fcvt to read real numbers.

2 files changed, 14 insertions, 0 deletions

diff --git a/src/grt/grt-lib.adb b/src/grt/grt-lib.adb
index 95a4a0948..3c16392be 100644
--- a/src/grt/grt-lib.adb
+++ b/src/grt/grt-lib.adb
@@ -24,6 +24,7 @@
 --  covered by the GNU Public License.
 with Grt.Errors; use Grt.Errors;
 with Grt.Options;
+with Grt.Fcvt;
 
 package body Grt.Lib is
    --procedure Memcpy (Dst : Address; Src : Address; Size : Size_T);
@@ -271,6 +272,14 @@ package body Grt.Lib is
       end if;
    end Ghdl_Real_Exp;
 
+   function Textio_Read_Real (Str : Std_String_Ptr) return Ghdl_F64
+   is
+      subtype Str1 is String (1 .. Natural (Str.Bounds.Dim_1.Length));
+   begin
+      return Ghdl_F64 (Grt.Fcvt.From_String
+                         (Str1 (Str.Base (0 .. Str.Bounds.Dim_1.Length))));
+   end Textio_Read_Real;
+
    function Ghdl_Get_Resolution_Limit return Std_Time is
    begin
       return 1;
diff --git a/src/grt/grt-lib.ads b/src/grt/grt-lib.ads
index 2ee918ba2..97ee669a8 100644
--- a/src/grt/grt-lib.ads
+++ b/src/grt/grt-lib.ads
@@ -92,6 +92,8 @@ package Grt.Lib is
                                                      False  --  -
                                                     );
 
+   function Textio_Read_Real (Str : Std_String_Ptr) return Ghdl_F64;
+
    function Ghdl_Get_Resolution_Limit return Std_Time;
 
    procedure Ghdl_Control_Simulation
@@ -120,6 +122,9 @@ private
    pragma Export (C, Ghdl_Std_Ulogic_To_Boolean_Array,
                   "__ghdl_std_ulogic_to_boolean_array");
 
+   pragma Export (C, Textio_Read_Real,
+                  "std__textio__textio_read_real");
+
    pragma Export (C, Ghdl_Get_Resolution_Limit,
                   "std__env__get_resolution_limit");
    pragma Export (Ada, Ghdl_Control_Simulation,