diff options
| author | Tristan Gingold <tgingold@free.fr> | 2021-07-22 08:00:54 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2021-07-22 18:16:15 +0200 |
| commit | 5cf12a3592174e04aee7edde83a545e111aef25f (patch) | |
| tree | 500a52c4f16400d7527ef46cd65b25c7bd03084a | |
| parent | b9a15f3a547fab22205844c55abb5216d1352aa3 (diff) | |
| download | ghdl-5cf12a3592174e04aee7edde83a545e111aef25f.tar.gz ghdl-5cf12a3592174e04aee7edde83a545e111aef25f.tar.bz2 ghdl-5cf12a3592174e04aee7edde83a545e111aef25f.zip | |
vhdl-utils(free_recursive): only free the name (not the entity)
Fix #1820
| -rw-r--r-- | src/vhdl/vhdl-utils.adb | 2 |
1 files changed, 1 insertions, 1 deletions
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); |