From 7d78ba4e3c6f792f0251354b6cac0a93e88dcb91 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Sun, 17 Jan 2021 15:57:15 +0100
Subject: synth-stmts: add location on formal attribute cells

---
 src/synth/synth-stmts.adb | 1 +
 1 file changed, 1 insertion(+)

(limited to 'src/synth')

diff --git a/src/synth/synth-stmts.adb b/src/synth/synth-stmts.adb
index d58730df0..c51a3d38d 100644
--- a/src/synth/synth-stmts.adb
+++ b/src/synth/synth-stmts.adb
@@ -3670,6 +3670,7 @@ package body Synth.Stmts is
          pragma Assert (Base.Typ = Typ);
 
          N := Build_Formal_Input (Get_Build (Syn_Inst), Id, Typ.W);
+         Set_Location (N, Val);
          Add_Conc_Assign (Base.Val.W, N, 0, Val);
       end;
    end Synth_Attribute_Formal;
-- 
cgit v1.2.3