From 95bbe2124734f4687e37455d6efb7935a0ee97a3 Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Tue, 17 Oct 2017 18:20:19 +0200 Subject: sem_assocs: fix location on by_individual artificial association. --- src/vhdl/sem_assocs.adb | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'src') 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; -- cgit v1.2.3