diff options
author | Tristan Gingold <tgingold@free.fr> | 2022-11-30 21:26:43 +0100 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2022-11-30 21:26:43 +0100 |
commit | 844089aa1ab3fa52a0dc363bdd9cd48e3082655a (patch) | |
tree | 469e6bd1c9f8afa3e35e1f8ff46866c13fa1e48a /src/vhdl/vhdl-sem_inst.adb | |
parent | d74e7a232bb4778ac2da6fbb27735bafe4ca9f81 (diff) | |
download | ghdl-844089aa1ab3fa52a0dc363bdd9cd48e3082655a.tar.gz ghdl-844089aa1ab3fa52a0dc363bdd9cd48e3082655a.tar.bz2 ghdl-844089aa1ab3fa52a0dc363bdd9cd48e3082655a.zip |
vhdl: fix use clause of a package with interface subprograms.
Fix #2250
Diffstat (limited to 'src/vhdl/vhdl-sem_inst.adb')
-rw-r--r-- | src/vhdl/vhdl-sem_inst.adb | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/vhdl/vhdl-sem_inst.adb b/src/vhdl/vhdl-sem_inst.adb index d8f2728ab..4c250d2f4 100644 --- a/src/vhdl/vhdl-sem_inst.adb +++ b/src/vhdl/vhdl-sem_inst.adb @@ -1026,6 +1026,9 @@ package body Vhdl.Sem_Inst is Get_Named_Entity (Get_Actual (Assoc)); begin Set_Instance (Get_Origin (Assoc_Formal), Actual_Subprg); + -- Also set the associated subprogram to the interface + -- subprogram, so that it can referenced through its name. + Set_Associated_Subprogram (Assoc_Formal, Actual_Subprg); end; end if; when others => |