diff options
| author | Tristan Gingold | 2015-01-08 03:50:29 +0100 |
|---|---|---|
| committer | Tristan Gingold | 2015-01-08 03:50:29 +0100 |
| commit | 91af32964eb22b8fe42551a1fa48c7637563fa55 (patch) | |
| tree | cfdd87923c30f42f356ef6f5883347afb23e3e0f | |
| parent | abd8db973bcd5c562015df0e007870c001be364c (diff) | |
| download | ghdl-91af32964eb22b8fe42551a1fa48c7637563fa55.tar.gz ghdl-91af32964eb22b8fe42551a1fa48c7637563fa55.tar.bz2 ghdl-91af32964eb22b8fe42551a1fa48c7637563fa55.zip | |
Canon: do not free old concurrent statement.
| -rw-r--r-- | src/vhdl/canon.adb | 2 |
1 files changed, 0 insertions, 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 => |