diff options
Diffstat (limited to 'src/vhdl/simulate/simul-execution.adb')
| -rw-r--r-- | src/vhdl/simulate/simul-execution.adb | 2 |
1 files changed, 1 insertions, 1 deletions
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 |