From c432c23196e6be7603ef9f1bafeca094104d35b9 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Sat, 25 Mar 2023 16:48:37 +0100
Subject: finish_sem_name_1: free unused node

---
 src/vhdl/vhdl-sem_names.adb | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/vhdl/vhdl-sem_names.adb b/src/vhdl/vhdl-sem_names.adb
index 8a742767a..f6ab9f394 100644
--- a/src/vhdl/vhdl-sem_names.adb
+++ b/src/vhdl/vhdl-sem_names.adb
@@ -2002,6 +2002,7 @@ package body Vhdl.Sem_Names is
                Prefix := Finish_Sem_Name_1 (Get_Prefix (Name_Prefix), Prefix);
                Set_Prefix (Res, Prefix);
                --  But free it.
+               Free_Iir (Name_Prefix);
                Free_Parenthesis_Name (Name, Res);
             else
                pragma Assert (Get_Parameter (Res) = Null_Iir);
-- 
cgit v1.2.3