From 0c99e40a08a7b1517ece3b23601f1d9ea24813e5 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Wed, 22 Jan 2014 03:41:41 +0100
Subject: Fix ticket 8: ch_13_fg_13_26.vhd failure with ghdl_gcc.

(Set location of configuration specification on default binding).
---
 sem_specs.adb | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'sem_specs.adb')

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;
-- 
cgit v1.2.3