From cde6aede1c8851fa0b64e548c5b9a391c1d6af8a Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Sat, 28 Jun 2014 03:47:31 +0200
Subject: Resolve expression in variable assignment when target is an
 aggregate.

---
 sem_names.adb | 13 ++++++++++---
 1 file changed, 10 insertions(+), 3 deletions(-)

(limited to 'sem_names.adb')

diff --git a/sem_names.adb b/sem_names.adb
index 45ce37779..48f4d28a8 100644
--- a/sem_names.adb
+++ b/sem_names.adb
@@ -87,6 +87,16 @@ package body Sem_Names is
       return Res;
    end Create_Overload_List;
 
+   procedure Free_Overload_List (N : in out Iir_Overload_List)
+   is
+      List : Iir_List;
+   begin
+      List := Get_Overload_List (N);
+      Destroy_Iir_List (List);
+      Free_Iir (N);
+      N := Null_Iir;
+   end Free_Overload_List;
+
    function Simplify_Overload_List (List : Iir_List) return Iir
    is
       Res : Iir;
@@ -144,9 +154,6 @@ package body Sem_Names is
       return Simplify_Overload_List (Res_List);
    end Create_List_Of_Types;
 
-   --  Add new interpretation DECL to RES.
-   --  Create an overload_list if necessary.
-   --  Before the first call, RES should be set to NULL_IIR.
    procedure Add_Result (Res : in out Iir; Decl : Iir)
    is
       Nres : Iir;
-- 
cgit v1.2.3