diff options
author | Tristan Gingold <tgingold@free.fr> | 2020-06-25 18:57:50 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2020-06-26 08:50:22 +0200 |
commit | 83e5a06fb247abdef006caff022931bc13027190 (patch) | |
tree | 420a8da99c4464c6caf8b52c3366f8caa11bcbd7 /src/vhdl | |
parent | 366c04ab365cad2544fd39d3ce72e0f1c9ae1d29 (diff) | |
download | ghdl-83e5a06fb247abdef006caff022931bc13027190.tar.gz ghdl-83e5a06fb247abdef006caff022931bc13027190.tar.bz2 ghdl-83e5a06fb247abdef006caff022931bc13027190.zip |
vhdl: improve print of default binding indication. For #1379
Diffstat (limited to 'src/vhdl')
-rw-r--r-- | src/vhdl/vhdl-sem_specs.adb | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/vhdl/vhdl-sem_specs.adb b/src/vhdl/vhdl-sem_specs.adb index f3fb7bf30..aca55ac6a 100644 --- a/src/vhdl/vhdl-sem_specs.adb +++ b/src/vhdl/vhdl-sem_specs.adb @@ -1761,7 +1761,7 @@ package body Vhdl.Sem_Specs is -- Create a name for the entity. As this is a default binding -- indication, the design unit does *NOT* depend on the entity, so the -- reference is a forward reference. - Entity_Name := Build_Simple_Name (Entity, Parent); + Entity_Name := Build_Simple_Name (Entity, Entity); Set_Is_Forward_Ref (Entity_Name, True); Set_Entity_Name (Aspect, Entity_Name); @@ -1883,7 +1883,7 @@ package body Vhdl.Sem_Specs is end if; Assoc := Create_Iir (Iir_Kind_Association_Element_By_Expression); Location_Copy (Assoc, Parent); - Name := Build_Simple_Name (Comp_El, Parent); + Name := Build_Simple_Name (Comp_El, Comp_El); Set_Type (Name, Get_Type (Comp_El)); Set_Actual (Assoc, Name); if Kind = Map_Port and then not Error then @@ -1896,7 +1896,7 @@ package body Vhdl.Sem_Specs is -- Create the formal name. This is a forward reference as the -- current design unit does not depend on the entity. - Name := Build_Simple_Name (Ent_El, Parent); + Name := Build_Simple_Name (Ent_El, Ent_El); Set_Is_Forward_Ref (Name, True); Set_Formal (Assoc, Name); |