diff options
Diffstat (limited to 'src/synth/synth-stmts.adb')
-rw-r--r-- | src/synth/synth-stmts.adb | 1 |
1 files changed, 1 insertions, 0 deletions
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; |