diff options
| -rw-r--r-- | src/synth/synth-expr.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/synth/synth-expr.adb b/src/synth/synth-expr.adb index 5d5b57215..c8062e707 100644 --- a/src/synth/synth-expr.adb +++ b/src/synth/synth-expr.adb @@ -164,8 +164,8 @@ package body Synth.Expr is for I in 0 .. Val.Typ.W - 1 loop declare B : constant Uns32 := - Uns32 (Shift_Right (To_Uns64 (Val.Scal), Natural (I))) - and 1; + Uns32 (Shift_Right (To_Uns64 (Val.Scal), Natural (I)) + and 1); Idx : constant Digit_Index := Digit_Index (Off / 32); Pos : constant Natural := Natural (Off mod 32); begin |