diff options
Diffstat (limited to 'src/synth/synth-expr.adb')
| -rw-r--r-- | src/synth/synth-expr.adb | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/src/synth/synth-expr.adb b/src/synth/synth-expr.adb index b848265a6..f3722595f 100644 --- a/src/synth/synth-expr.adb +++ b/src/synth/synth-expr.adb @@ -161,9 +161,8 @@ package body Synth.Expr is N := Get_Net (Val); if Wn > W then - Res := Build_Trunc (Build_Context, Id_Utrunc, N, W); - Set_Location (Res, Loc); - return Res; + return Build2_Trunc (Build_Context, Id_Utrunc, N, W, + Get_Location (Loc)); elsif Wn < W then if Val.Typ.Drange.Is_Signed then Res := Build_Extend (Build_Context, Id_Sextend, N, W); |