diff options
author | Tristan Gingold <tgingold@free.fr> | 2017-09-06 05:31:29 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2017-09-06 05:31:29 +0200 |
commit | 9ed2199d83ebf4beaca2d6381c9f552165b8ba5f (patch) | |
tree | f82c0cb215f972172419cdf4bf410537a317fb89 /src | |
parent | 69e6e7e0040509b28f2ecaad754ee4bec93e53e5 (diff) | |
download | ghdl-9ed2199d83ebf4beaca2d6381c9f552165b8ba5f.tar.gz ghdl-9ed2199d83ebf4beaca2d6381c9f552165b8ba5f.tar.bz2 ghdl-9ed2199d83ebf4beaca2d6381c9f552165b8ba5f.zip |
Also fix crash for assert statement
For #407
Diffstat (limited to 'src')
-rw-r--r-- | src/vhdl/canon.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/vhdl/canon.adb b/src/vhdl/canon.adb index d2c3cc8c3..39f83e712 100644 --- a/src/vhdl/canon.adb +++ b/src/vhdl/canon.adb @@ -360,9 +360,9 @@ package body Canon is -- resulting sets. Canon_Extract_Sensitivity (Get_Assertion_Condition (Stmt), List); - Canon_Extract_Sensitivity + Canon_Extract_Sensitivity_If_Not_Null (Get_Severity_Expression (Stmt), List); - Canon_Extract_Sensitivity + Canon_Extract_Sensitivity_If_Not_Null (Get_Report_Expression (Stmt), List); when Iir_Kind_Report_Statement => -- LRM08 11.3 |