diff options
| author | Tristan Gingold <tgingold@free.fr> | 2020-01-12 15:09:43 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2020-01-12 15:09:43 +0100 |
| commit | 3ba257c6da4408d2014eedb4c8fc4a97f9110454 (patch) | |
| tree | 3d496ccf6e8c9d044c92ec12003027778bd1c5ae /src/synth | |
| parent | f34371c33b486df225d29c3cc4902dc5adbcbc06 (diff) | |
| download | ghdl-3ba257c6da4408d2014eedb4c8fc4a97f9110454.tar.gz ghdl-3ba257c6da4408d2014eedb4c8fc4a97f9110454.tar.bz2 ghdl-3ba257c6da4408d2014eedb4c8fc4a97f9110454.zip | |
synth: fix element order for simple aggregates. For #1080
Diffstat (limited to 'src/synth')
| -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 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); |