diff options
Diffstat (limited to 'src/vhdl/vhdl-sem_names.adb')
| -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); |