diff options
| author | Tristan Gingold <tgingold@free.fr> | 2014-01-22 03:41:41 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2014-01-22 03:41:41 +0100 |
| commit | 0c99e40a08a7b1517ece3b23601f1d9ea24813e5 (patch) | |
| tree | 72c0326218b65f071c126b2361319772cc466a07 /sem_specs.adb | |
| parent | dc7353c95fcd28574dd995cb45144e764c44b924 (diff) | |
| download | ghdl-0c99e40a08a7b1517ece3b23601f1d9ea24813e5.tar.gz ghdl-0c99e40a08a7b1517ece3b23601f1d9ea24813e5.tar.bz2 ghdl-0c99e40a08a7b1517ece3b23601f1d9ea24813e5.zip | |
Fix ticket 8: ch_13_fg_13_26.vhd failure with ghdl_gcc.
(Set location of configuration specification on default binding).
Diffstat (limited to 'sem_specs.adb')
| -rw-r--r-- | sem_specs.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/sem_specs.adb b/sem_specs.adb index 047cf95f1..64599613b 100644 --- a/sem_specs.adb +++ b/sem_specs.adb @@ -1472,7 +1472,7 @@ package body Sem_Specs is Comp_El := Find_Name_In_Chain (Comp_Chain, Get_Identifier (Ent_El)); if Comp_El = Null_Iir then Assoc := Create_Iir (Iir_Kind_Association_Element_Open); - Location_Copy (Assoc, Comp); + Location_Copy (Assoc, Parent); else if not Are_Nodes_Compatible (Comp_El, Ent_El) then Error_Msg_Sem @@ -1490,7 +1490,7 @@ package body Sem_Specs is Error := True; end if; Assoc := Create_Iir (Iir_Kind_Association_Element_By_Expression); - Location_Copy (Assoc, Comp_El); + Location_Copy (Assoc, Parent); Set_Whole_Association_Flag (Assoc, True); Set_Actual (Assoc, Comp_El); Found := Found + 1; |