diff options
| author | Tristan Gingold <tgingold@free.fr> | 2013-12-27 04:17:27 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2013-12-27 04:17:27 +0100 |
| commit | ef39d5386d82a6ed51c5a15572f86c393cd899ac (patch) | |
| tree | 931d065b25c9ea4790f8c132d2de83082a708dc2 | |
| parent | 17c16866ddb7ef4de6b31003e0364a67ee4852dc (diff) | |
| download | ghdl-ef39d5386d82a6ed51c5a15572f86c393cd899ac.tar.gz ghdl-ef39d5386d82a6ed51c5a15572f86c393cd899ac.tar.bz2 ghdl-ef39d5386d82a6ed51c5a15572f86c393cd899ac.zip | |
sem_assocs: add missing set_base_name on formal.
| -rw-r--r-- | sem_assocs.adb | 1 |
1 files changed, 1 insertions, 0 deletions
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; |