From f7e455245d9d12f69e2bb8eb67a84c1961cc20f3 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Mon, 13 Feb 2017 21:26:39 +0100
Subject: synth-expr.adb: fix Synth_Indexed_Name.

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

diff --git a/src/synth/synth-expr.adb b/src/synth/synth-expr.adb
index 009af9cf7..6f5f0a9f9 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 (Rng.Right - Idx));
-         when Iir_Downto =>
             return Bit_Extract (Pfx, Uns32 (Idx - Rng.Left));
+         when Iir_Downto =>
+            return Bit_Extract (Pfx, Uns32 (Rng.Right - Idx));
       end case;
    end Synth_Indexed_Name;
 
-- 
cgit v1.2.3