From 91af32964eb22b8fe42551a1fa48c7637563fa55 Mon Sep 17 00:00:00 2001
From: Tristan Gingold
Date: Thu, 8 Jan 2015 03:50:29 +0100
Subject: Canon: do not free old concurrent statement.

---
 src/vhdl/canon.adb | 2 --
 1 file changed, 2 deletions(-)

diff --git a/src/vhdl/canon.adb b/src/vhdl/canon.adb
index c414740..f6d1061 100644
--- a/src/vhdl/canon.adb
+++ b/src/vhdl/canon.adb
@@ -1511,7 +1511,6 @@ package body Canon is
                  (El, Proc, Sub_Chain);
 
                Replace_Stmt (Proc);
-               Free_Iir (El);
                El := Proc;
 
             when Iir_Kind_Concurrent_Selected_Signal_Assignment =>
@@ -1521,7 +1520,6 @@ package body Canon is
                  (El, Proc, Sub_Chain);
 
                Replace_Stmt (Proc);
-               Free_Iir (El);
                El := Proc;
 
             when Iir_Kind_Concurrent_Assertion_Statement =>
-- 
cgit