diff options
Diffstat (limited to 'src/synth/synth-expr.adb')
| -rw-r--r-- | src/synth/synth-expr.adb | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/synth/synth-expr.adb b/src/synth/synth-expr.adb index 1c085b1c8..d534b5d87 100644 --- a/src/synth/synth-expr.adb +++ b/src/synth/synth-expr.adb @@ -1534,6 +1534,7 @@ package body Synth.Expr is N := Build_Extract (Build_Context, Get_Net (Res), Res.Typ.Rec.E (Idx + 1).Off, Get_Type_Width (Res_Typ)); + Set_Location (N, Expr); return Create_Value_Net (N, Res_Typ); end if; end; |