From 464259ae4be27dcf43f3273e2217cb226bebdc71 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Tue, 18 Apr 2017 05:05:20 +0200
Subject: Rewrite to_string(real, digits) using grt.fcvt

---
 src/grt/grt-images.adb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/grt/grt-images.adb')

diff --git a/src/grt/grt-images.adb b/src/grt/grt-images.adb
index 8e15d103a..b9ba82928 100644
--- a/src/grt/grt-images.adb
+++ b/src/grt/grt-images.adb
@@ -176,7 +176,7 @@ package body Grt.Images is
    procedure Ghdl_To_String_F64_Digits
      (Res : Std_String_Ptr; Val : Ghdl_F64; Nbr_Digits : Ghdl_I32)
    is
-      Str : String_Real_Digits;
+      Str : String (1 .. 128);
       P : Natural;
    begin
       To_String (Str, P, Val, Nbr_Digits);
-- 
cgit v1.2.3