From 1cf3b7f84f2b1646425f3b9e31237bf7e1ec667f Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Wed, 6 Sep 2017 05:34:01 +0200
Subject: Also fix for next/exit statement.

Part of #407
---
 src/vhdl/canon.adb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/vhdl')

diff --git a/src/vhdl/canon.adb b/src/vhdl/canon.adb
index 39f83e712..96f8e02c7 100644
--- a/src/vhdl/canon.adb
+++ b/src/vhdl/canon.adb
@@ -375,7 +375,7 @@ package body Canon is
               | Iir_Kind_Exit_Statement =>
                --  LRM08 11.3
                --  See assertion_statement case.
-               Canon_Extract_Sensitivity
+               Canon_Extract_Sensitivity_If_Not_Null
                  (Get_Condition (Stmt), List);
             when Iir_Kind_Return_Statement =>
                --  LRM08 11.3
-- 
cgit v1.2.3