diff options
| -rw-r--r-- | src/synth/synth-context.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/synth/synth-context.adb b/src/synth/synth-context.adb index 93631120b..5f7c7c153 100644 --- a/src/synth/synth-context.adb +++ b/src/synth/synth-context.adb @@ -417,7 +417,7 @@ package body Synth.Context is Off := Off + 1; end; when Type_Discrete => - for I in reverse 0 .. Val.Typ.W - 1 loop + for I in 0 .. Val.Typ.W - 1 loop declare B : constant Uns32 := Uns32 (Shift_Right (To_Uns64 (Val.Scal), Natural (I))) |