diff options
| -rw-r--r-- | src/synth/synth-expr.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/synth/synth-expr.adb b/src/synth/synth-expr.adb index 6f5f0a9f9..80f76a1c4 100644 --- a/src/synth/synth-expr.adb +++ b/src/synth/synth-expr.adb @@ -489,7 +489,7 @@ package body Synth.Expr is when Iir_To => return Bit_Extract (Pfx, Uns32 (Idx - Rng.Left)); when Iir_Downto => - return Bit_Extract (Pfx, Uns32 (Rng.Right - Idx)); + return Bit_Extract (Pfx, Uns32 (Rng.Left - Idx)); end case; end Synth_Indexed_Name; |