From ef39d5386d82a6ed51c5a15572f86c393cd899ac Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Fri, 27 Dec 2013 04:17:27 +0100
Subject: sem_assocs: add missing set_base_name on formal.

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

(limited to 'sem_assocs.adb')

diff --git a/sem_assocs.adb b/sem_assocs.adb
index b3fc42c6d..3ee7126fc 100644
--- a/sem_assocs.adb
+++ b/sem_assocs.adb
@@ -1015,6 +1015,7 @@ package body Sem_Assocs is
                Formal_Type := Get_Type (Inter);
                Set_Named_Entity (Formal, Inter);
                Set_Type (Formal, Formal_Type);
+               Set_Base_Name (Formal, Inter);
                --Xrefs.Xref_Name (Formal);
                return Whole;
             end if;
-- 
cgit v1.2.3