From c2bb3d90014046dad616ac051e4938d0337184e9 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Fri, 17 Apr 2020 18:07:31 +0200
Subject: grt-vpi: potential fix for win32 regression detected by #1228

---
 src/grt/grt-vpi.ads | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'src/grt')

diff --git a/src/grt/grt-vpi.ads b/src/grt/grt-vpi.ads
index 42d762518..578ed23af 100644
--- a/src/grt/grt-vpi.ads
+++ b/src/grt/grt-vpi.ads
@@ -155,7 +155,8 @@ package Grt.Vpi is
             Scalar : Integer;
          when vpiIntVal =>
             Integer_m : Integer;
-            --when vpiRealVal=>     null; -- what is the equivalent to double?
+         when vpiRealVal=>
+            Real_M : Ghdl_F64;
             --when vpiTimeVal=>     mTime:     p_vpi_time;
             --when vpiVectorVal=>   mVector:   p_vpi_vecval;
             --when vpiStrengthVal=> mStrength: p_vpi_strengthval;
-- 
cgit v1.2.3