diff options
| -rw-r--r-- | src/synth/synth-expr.adb | 1 | ||||
| -rw-r--r-- | src/synth/synth-insts.adb | 1 |
2 files changed, 2 insertions, 0 deletions
diff --git a/src/synth/synth-expr.adb b/src/synth/synth-expr.adb index 8c051fd00..e4e12f6e5 100644 --- a/src/synth/synth-expr.adb +++ b/src/synth/synth-expr.adb @@ -960,6 +960,7 @@ package body Synth.Expr is Voff := Dyn_Index_To_Offset (Bnd, Idx_Val, Name); Voff := Build_Memidx (Get_Build (Syn_Inst), Voff, W, Bnd.Len, Width (Clog2 (Uns64 (W * Bnd.Len)))); + Set_Location (Voff, Name); Off := 0; end if; end Synth_Indexed_Name; diff --git a/src/synth/synth-insts.adb b/src/synth/synth-insts.adb index 2f6842eb4..055d9b015 100644 --- a/src/synth/synth-insts.adb +++ b/src/synth/synth-insts.adb @@ -877,6 +877,7 @@ package body Synth.Insts is Set_Instance_Module (Syn_Inst, Inst.M); Self_Inst := Get_Self_Instance (Inst.M); + Set_Location (Self_Inst, Entity); -- Create wires for inputs and outputs. Inter := Get_Port_Chain (Entity); |