From f0857455d654fd3a3b9de1bbca52c7bd6fcb5033 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Thu, 16 Feb 2017 17:12:39 +0100
Subject: synth: reverse bit order for indexed names.

---
 src/synth/synth-expr.adb | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src')

diff --git a/src/synth/synth-expr.adb b/src/synth/synth-expr.adb
index 80f76a1c4..b44024367 100644
--- a/src/synth/synth-expr.adb
+++ b/src/synth/synth-expr.adb
@@ -487,9 +487,9 @@ package body Synth.Expr is
 
       case Rng.Dir is
          when Iir_To =>
-            return Bit_Extract (Pfx, Uns32 (Idx - Rng.Left));
+            return Bit_Extract (Pfx, Uns32 (Rng.Right - Idx));
          when Iir_Downto =>
-            return Bit_Extract (Pfx, Uns32 (Rng.Left - Idx));
+            return Bit_Extract (Pfx, Uns32 (Idx - Rng.Right));
       end case;
    end Synth_Indexed_Name;
 
-- 
cgit v1.2.3