aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorTristan Gingold <tgingold@free.fr>2017-10-17 18:20:19 +0200
committerTristan Gingold <tgingold@free.fr>2017-10-17 18:20:19 +0200
commit95bbe2124734f4687e37455d6efb7935a0ee97a3 (patch)
treec2d8f10b1098a27a28ab40715330738fa2667afb
parentad31459335819257375191bf8d7059c621032e09 (diff)
downloadghdl-95bbe2124734f4687e37455d6efb7935a0ee97a3.tar.gz
ghdl-95bbe2124734f4687e37455d6efb7935a0ee97a3.tar.bz2
ghdl-95bbe2124734f4687e37455d6efb7935a0ee97a3.zip
sem_assocs: fix location on by_individual artificial association.
-rw-r--r--src/vhdl/sem_assocs.adb4
1 files changed, 3 insertions, 1 deletions
diff --git a/src/vhdl/sem_assocs.adb b/src/vhdl/sem_assocs.adb
index 483aafd58..ce22c5d27 100644
--- a/src/vhdl/sem_assocs.adb
+++ b/src/vhdl/sem_assocs.adb
@@ -1161,7 +1161,9 @@ package body Sem_Assocs is
Location_Copy (Iassoc, Assoc);
Set_Choice_Staticness (Iassoc, Locally);
pragma Assert (Cur_Iface /= Null_Iir);
- Set_Formal (Iassoc, Build_Simple_Name (Cur_Iface, Iassoc));
+ Set_Formal
+ (Iassoc,
+ Build_Simple_Name (Cur_Iface, Get_Location (Formal)));
-- Insert IASSOC.
if Prev_Assoc = Null_Iir then
Assoc_Chain := Iassoc;