From ecbbdef6b884f4375aad600595f71b9a82e64c37 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Sun, 26 Mar 2023 20:07:07 +0200
Subject: translate_entity_init_ports: free a temporary node

---
 src/vhdl/translate/trans-chap1.adb | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'src/vhdl')

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;
 
-- 
cgit v1.2.3