From 93d20154f161dc2c2ecf504ab3ef84a898e2f4e3 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Tue, 9 May 2017 21:24:47 +0200
Subject: Fix build error for ghdlsynth.

For #344
---
 src/vhdl/simulate/execution.adb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src')

diff --git a/src/vhdl/simulate/execution.adb b/src/vhdl/simulate/execution.adb
index 61630f389..a10b18a13 100644
--- a/src/vhdl/simulate/execution.adb
+++ b/src/vhdl/simulate/execution.adb
@@ -1349,7 +1349,7 @@ package body Execution is
          when Iir_Predefined_Real_To_String_Digits =>
             Eval_Right;
             declare
-               Str : Grt.Vstrings.String_Real_Digits;
+               Str : Grt.Vstrings.String_Real_Format;
                Last : Natural;
             begin
                Grt.Vstrings.To_String
-- 
cgit v1.2.3