From 3ba257c6da4408d2014eedb4c8fc4a97f9110454 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Sun, 12 Jan 2020 15:09:43 +0100
Subject: synth: fix element order for simple aggregates. For #1080
---
src/synth/synth-expr.adb | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
(limited to 'src')
diff --git a/src/synth/synth-expr.adb b/src/synth/synth-expr.adb
index 56f32a0ba..9a5aa23e4 100644
--- a/src/synth/synth-expr.adb
+++ b/src/synth/synth-expr.adb
@@ -858,7 +858,7 @@ package body Synth.Expr is
Val := Synth_Expression_With_Type
(Syn_Inst, Get_Nth_Element (Els, I), El_Typ);
pragma Assert (Is_Static (Val));
- Arr.V (Iir_Index32 (Last - I + 1)) := Val;
+ Arr.V (Iir_Index32 (I + 1)) := Val;
end loop;
return Create_Value_Const_Array (Res_Type, Arr);
--
cgit v1.2.3