aboutsummaryrefslogtreecommitdiffstats
path: root/src
diff options
context:
space:
mode:
authorTristan Gingold <tgingold@free.fr>2016-10-21 20:53:00 +0200
committerTristan Gingold <tgingold@free.fr>2016-11-01 13:11:42 +0100
commitfc966517eff655b9bc8f854e3f3e077d8e9df9f6 (patch)
treec29e89b2ec890f5dc18eff3a0d08bc8878f637bf /src
parentd5f2c69f322973e62d4bd61cd659317397efd4bc (diff)
downloadghdl-fc966517eff655b9bc8f854e3f3e077d8e9df9f6.tar.gz
ghdl-fc966517eff655b9bc8f854e3f3e077d8e9df9f6.tar.bz2
ghdl-fc966517eff655b9bc8f854e3f3e077d8e9df9f6.zip
Fix a crash for a simple 'unaffected'.
Diffstat (limited to 'src')
-rw-r--r--src/vhdl/parse.adb5
1 files changed, 4 insertions, 1 deletions
diff --git a/src/vhdl/parse.adb b/src/vhdl/parse.adb
index 7d4598a4a..fc9dae4db 100644
--- a/src/vhdl/parse.adb
+++ b/src/vhdl/parse.adb
@@ -5542,7 +5542,10 @@ package body Parse is
Parse_Options (Res);
Wf := Parse_Conditional_Waveforms;
- if Get_Kind (Wf) = Iir_Kind_Conditional_Waveform then
+ -- WF can be Null_Iir if the waveform is simply 'unaffected'.
+ if Wf /= Null_Iir
+ and then Get_Kind (Wf) = Iir_Kind_Conditional_Waveform
+ then
N_Res :=
Create_Iir (Iir_Kind_Concurrent_Conditional_Signal_Assignment);
if Get_Guard (Res) /= Null_Iir then