From 0e199cbea1070c016d29348cd659b9e6ca688afb Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Tue, 14 Oct 2014 06:19:33 +0200
Subject: Initial support for package header and package instantiation.

---
 sem_assocs.adb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'sem_assocs.adb')

diff --git a/sem_assocs.adb b/sem_assocs.adb
index 2149007ff..dcec12c98 100644
--- a/sem_assocs.adb
+++ b/sem_assocs.adb
@@ -1156,7 +1156,7 @@ package body Sem_Assocs is
          when Iir_Kinds_Function_Declaration =>
             Res := Create_Iir (Iir_Kind_Function_Call);
             Location_Copy (Res, Conv);
-            Set_Implementation (Res, Conv);
+            Set_Implementation (Res, Func);
             Set_Prefix (Res, Conv);
             Set_Base_Name (Res, Res);
             Set_Parameter_Association_Chain (Res, Null_Iir);
-- 
cgit v1.2.3