diff options
| author | Tristan Gingold <tgingold@free.fr> | 2021-01-17 15:57:15 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2021-01-17 15:57:15 +0100 |
| commit | 7d78ba4e3c6f792f0251354b6cac0a93e88dcb91 (patch) | |
| tree | 6648207cc0f3eef0a7c2863ae7c5aa878bb77fd2 | |
| parent | af933dcff3b4001afca6e02ace086927223bb9e7 (diff) | |
| download | ghdl-7d78ba4e3c6f792f0251354b6cac0a93e88dcb91.tar.gz ghdl-7d78ba4e3c6f792f0251354b6cac0a93e88dcb91.tar.bz2 ghdl-7d78ba4e3c6f792f0251354b6cac0a93e88dcb91.zip | |
synth-stmts: add location on formal attribute cells
| -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; |