From 5cf12a3592174e04aee7edde83a545e111aef25f Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Thu, 22 Jul 2021 08:00:54 +0200
Subject: vhdl-utils(free_recursive): only free the name (not the entity)

Fix #1820
---
 src/vhdl/vhdl-utils.adb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src')

diff --git a/src/vhdl/vhdl-utils.adb b/src/vhdl/vhdl-utils.adb
index 2a60e82e7..dde3aad0c 100644
--- a/src/vhdl/vhdl-utils.adb
+++ b/src/vhdl/vhdl-utils.adb
@@ -946,7 +946,7 @@ package body Vhdl.Utils is
             Free_Recursive_Flist (Get_Index_List (N));
             Free_Recursive (Get_Base_Type (N));
          when Iir_Kind_Entity_Aspect_Entity =>
-            Free_Recursive (Get_Entity (N));
+            Free_Recursive (Get_Entity_Name (N));
             Free_Recursive (Get_Architecture (N));
          when others =>
             Error_Kind ("free_recursive", Node);
-- 
cgit v1.2.3