From e00d31baa0e7190b959cfb03df03b260e402da05 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Wed, 22 Oct 2014 13:15:33 +0200
Subject: Rework for support of generic packages.

---
 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 dcec12c98..ee43e30ef 100644
--- a/sem_assocs.adb
+++ b/sem_assocs.adb
@@ -1162,7 +1162,7 @@ package body Sem_Assocs is
             Set_Parameter_Association_Chain (Res, Null_Iir);
             Set_Type (Res, Get_Return_Type (Func));
             Set_Expr_Staticness (Res, None);
-            Set_Use_Flag (Func, True);
+            Mark_Subprogram_Used (Func);
          when Iir_Kind_Subtype_Declaration
            | Iir_Kind_Type_Declaration =>
             Res := Create_Iir (Iir_Kind_Type_Conversion);
-- 
cgit v1.2.3