From e8db7dfc689d4aa25a5ce7227d60ba6d9779f490 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Tue, 8 Oct 2019 19:15:40 +0200
Subject: synth-context: fix encoding of discrete in aggregate

---
 src/synth/synth-context.adb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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)))
-- 
cgit v1.2.3