From 13a202b6ee9b1b9972a2671a5f1f901f3143df1d Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Thu, 23 Mar 2023 07:55:49 +0100
Subject: ghdlcomp: free unused node

---
 src/ghdldrv/ghdlcomp.adb | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/ghdldrv/ghdlcomp.adb b/src/ghdldrv/ghdlcomp.adb
index cf7b8148c..d5d77360e 100644
--- a/src/ghdldrv/ghdlcomp.adb
+++ b/src/ghdldrv/ghdlcomp.adb
@@ -234,6 +234,7 @@ package body Ghdlcomp is
          Libraries.Add_Design_Unit_Into_Library (Design);
          Design := Next_Design;
       end loop;
+      Free_Iir (Res);
    end Compile_Load_Vhdl_File;
 
    function Compile_Analyze_File (File : String) return Iir
-- 
cgit v1.2.3