diff options
| author | Tristan Gingold <tgingold@free.fr> | 2017-11-18 08:42:12 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2017-11-18 08:42:12 +0100 |
| commit | d2c059cef84ee053813a9ade503e31598a9ad607 (patch) | |
| tree | eadd1ed748d1f4a2febc1e75c286305ba2a1f445 | |
| parent | fb0e868156e57666b42407e44dfb40a8507478fb (diff) | |
| download | ghdl-d2c059cef84ee053813a9ade503e31598a9ad607.tar.gz ghdl-d2c059cef84ee053813a9ade503e31598a9ad607.tar.bz2 ghdl-d2c059cef84ee053813a9ade503e31598a9ad607.zip | |
canon: handle unaffected in waveform expression.
| -rw-r--r-- | src/vhdl/canon.adb | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/src/vhdl/canon.adb b/src/vhdl/canon.adb index 15295b439..2657bff1e 100644 --- a/src/vhdl/canon.adb +++ b/src/vhdl/canon.adb @@ -863,6 +863,11 @@ package body Canon is is We : Iir_Waveform_Element; begin + if Get_Kind (Waveform) = Iir_Kind_Unaffected_Waveform then + pragma Assert (Get_Chain (Waveform) = Null_Iir); + return; + end if; + We := Waveform; while We /= Null_Iir loop Canon_Expression (Get_We_Value (We)); |