From 2e1fadbd8c9fe7a3eebba9e54bb5a116caca78ea Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Mon, 11 Dec 2017 18:33:14 +0100
Subject: simul: fix 'value for physical types.

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

(limited to 'src')

diff --git a/src/vhdl/simulate/simul-execution.adb b/src/vhdl/simulate/simul-execution.adb
index c4c5a54f4..b7888608b 100644
--- a/src/vhdl/simulate/simul-execution.adb
+++ b/src/vhdl/simulate/simul-execution.adb
@@ -2802,7 +2802,7 @@ package body Simul.Execution is
                if Unit = Null_Iir then
                   Error_Msg_Exec ("incorrect unit name", Expr);
                end if;
-               Mult := Ghdl_I64 (Get_Value (Get_Physical_Unit (Unit)));
+               Mult := Ghdl_I64 (Get_Value (Get_Physical_Literal (Unit)));
 
                Str_Bnd.Dim_1.Length := Lit_End;
                if Is_Real then
-- 
cgit v1.2.3