diff options
author | Tristan Gingold <tgingold@free.fr> | 2021-08-22 22:14:44 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2021-08-23 07:24:03 +0200 |
commit | a20bce35a9ee05e8e2a4599e510d08fe2fd9ebc5 (patch) | |
tree | dec9edf5c3410fa2efbdb7849e62b0b66a11764d /src/vhdl/vhdl-sem.adb | |
parent | bbdff59e4e68e89033843f9344814c957b0b6250 (diff) | |
download | ghdl-a20bce35a9ee05e8e2a4599e510d08fe2fd9ebc5.tar.gz ghdl-a20bce35a9ee05e8e2a4599e510d08fe2fd9ebc5.tar.bz2 ghdl-a20bce35a9ee05e8e2a4599e510d08fe2fd9ebc5.zip |
Rework inertial associations.
Fix #1625
Fix #1672
Diffstat (limited to 'src/vhdl/vhdl-sem.adb')
-rw-r--r-- | src/vhdl/vhdl-sem.adb | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/src/vhdl/vhdl-sem.adb b/src/vhdl/vhdl-sem.adb index 142a7706b..d223935d3 100644 --- a/src/vhdl/vhdl-sem.adb +++ b/src/vhdl/vhdl-sem.adb @@ -618,9 +618,11 @@ package body Vhdl.Sem is if Get_Expr_Staticness (Actual) < Globally then if Flags.Vhdl_Std >= Vhdl_08 then -- LRM08 6.5.6.3 Port clauses - Actual := Sem_Insert_Anonymous_Signal (Formal, Actual); - Set_Actual (Assoc, Actual); - Set_Collapse_Signal_Flag (Assoc, True); + if False then + Actual := Sem_Insert_Anonymous_Signal (Formal, Actual); + Set_Actual (Assoc, Actual); + Set_Collapse_Signal_Flag (Assoc, True); + end if; else Error_Msg_Sem (+Actual, "actual expression must be globally static"); |