From 5726f0eccf874b872ce0729aab42f587d915a3f5 Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Mon, 10 Oct 2022 18:20:02 +0200 Subject: vhdl-canon: avoid a crash on optionnal condition. Fix #2212 --- src/vhdl/vhdl-canon.adb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/vhdl/vhdl-canon.adb b/src/vhdl/vhdl-canon.adb index 1cad2b147..b07fb7d7c 100644 --- a/src/vhdl/vhdl-canon.adb +++ b/src/vhdl/vhdl-canon.adb @@ -499,7 +499,7 @@ package body Vhdl.Canon is (Get_Target (Stmt), List, True); Ce := Get_Conditional_Expression_Chain (Stmt); while Ce /= Null_Iir loop - Canon_Extract_Sensitivity_Expression + Canon_Extract_Sensitivity_If_Not_Null (Get_Condition (Ce), List, False); Canon_Extract_Sensitivity_Expression (Get_Expression (Ce), List, False); -- cgit v1.2.3