diff options
| author | Tristan Gingold <tgingold@free.fr> | 2017-12-11 18:33:14 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2017-12-11 18:33:14 +0100 |
| commit | 2e1fadbd8c9fe7a3eebba9e54bb5a116caca78ea (patch) | |
| tree | 68ddbcc18f904bfbc494bad56765ce2e684d95aa /src/vhdl/simulate | |
| parent | 5c8f0eb66888e0b35de3c4ec59ec4cc11061b23d (diff) | |
| download | ghdl-2e1fadbd8c9fe7a3eebba9e54bb5a116caca78ea.tar.gz ghdl-2e1fadbd8c9fe7a3eebba9e54bb5a116caca78ea.tar.bz2 ghdl-2e1fadbd8c9fe7a3eebba9e54bb5a116caca78ea.zip | |
simul: fix 'value for physical types.
Diffstat (limited to 'src/vhdl/simulate')
| -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 |