vhdl-evaluation: free temporary node

1 files changed, 3 insertions, 2 deletions

diff --git a/src/vhdl/vhdl-evaluation.adb b/src/vhdl/vhdl-evaluation.adb
index e20952634..53c82abf9 100644
--- a/src/vhdl/vhdl-evaluation.adb
+++ b/src/vhdl/vhdl-evaluation.adb
@@ -3279,15 +3279,16 @@ package body Vhdl.Evaluation is
    is
       Selected_El : constant Iir := Get_Named_Entity (Expr);
       El_Pos : constant Iir_Index32 := Get_Element_Position (Selected_El);
+      Expr_Prefix : constant Iir := Get_Prefix (Expr);
       Prefix : Iir;
       Cur_Pos : Iir_Index32;
       Assoc : Iir;
       Assoc_Expr : Iir;
       Res : Iir;
    begin
-      Prefix := Get_Prefix (Expr);
-      Prefix := Eval_Static_Expr (Prefix);
+      Prefix := Eval_Static_Expr (Expr_Prefix);
       if Is_Overflow_Literal (Prefix) then
+         Free_Eval_Static_Expr (Prefix, Expr_Prefix);
          return Build_Overflow (Expr, Get_Type (Expr));
       end if;