diff options
| author | Tristan Gingold | 2015-01-12 19:03:12 +0100 |
|---|---|---|
| committer | Tristan Gingold | 2015-01-12 19:03:12 +0100 |
| commit | f6227b6be67383fd0e6d8fd6c273509515ac3bc0 (patch) | |
| tree | b0365ad6cd2d961d46df6749c88208be79011083 /src/vhdl | |
| parent | 9e5342c2299a14c39d04974d6a7a098fd01173fe (diff) | |
| download | ghdl-f6227b6be67383fd0e6d8fd6c273509515ac3bc0.tar.gz ghdl-f6227b6be67383fd0e6d8fd6c273509515ac3bc0.tar.bz2 ghdl-f6227b6be67383fd0e6d8fd6c273509515ac3bc0.zip | |
sem: fix Can_Collapse_Signals regression.
Diffstat (limited to 'src/vhdl')
| -rw-r--r-- | src/vhdl/sem.adb | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/src/vhdl/sem.adb b/src/vhdl/sem.adb index 28cef78..1380568 100644 --- a/src/vhdl/sem.adb +++ b/src/vhdl/sem.adb @@ -337,7 +337,11 @@ package body Sem is -- If the formal can have sources and is guarded, but the actual is -- not guarded (or has not the same kind of guard), signals cannot -- be collapsed. - if Get_Signal_Kind (Formal_Base) /= Get_Signal_Kind (Actual_Base) then + if (Get_Guarded_Signal_Flag (Formal_Base) + /= Get_Guarded_Signal_Flag (Actual_Base)) + or else (Get_Signal_Kind (Formal_Base) + /= Get_Signal_Kind (Actual_Base)) + then return False; end if; |