1 files changed, 4 insertions, 0 deletions
diff --git a/src/vhdl/translate/trans-chap1.adb b/src/vhdl/translate/trans-chap1.adb
index c3d727295..f48695d95 100644
--- a/src/vhdl/translate/trans-chap1.adb
+++ b/src/vhdl/translate/trans-chap1.adb
@@ -109,6 +109,10 @@ package body Trans.Chap1 is
          El := Get_Chain (El);
       end loop;
 
+      if Default /= Null_Iir then
+         Free_Iir (Default);
+      end if;
+
       Pop_Local_Factory;
    end Translate_Entity_Init_Ports;