diff options
| author | Tristan Gingold <tgingold@free.fr> | 2023-03-25 16:48:37 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2023-03-26 16:53:55 +0200 |
| commit | c432c23196e6be7603ef9f1bafeca094104d35b9 (patch) | |
| tree | c8667be16215221c90a12a54f1a5626ab03b20bb /src | |
| parent | 3babcf9c0e830ed9249b813e55fc7d10bbf8affc (diff) | |
| download | ghdl-c432c23196e6be7603ef9f1bafeca094104d35b9.tar.gz ghdl-c432c23196e6be7603ef9f1bafeca094104d35b9.tar.bz2 ghdl-c432c23196e6be7603ef9f1bafeca094104d35b9.zip | |
finish_sem_name_1: free unused node
Diffstat (limited to 'src')
| -rw-r--r-- | src/vhdl/vhdl-sem_names.adb | 1 |
1 files changed, 1 insertions, 0 deletions
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); |