diff options
| author | Tristan Gingold <tgingold@free.fr> | 2019-10-08 18:49:57 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2019-10-08 18:49:57 +0200 |
| commit | 561b15d8066fcaa2147b7e95d9e2bcc7044c7f36 (patch) | |
| tree | e92acc7eb394ed98bef1f5058726216b9ecc2280 /src/synth/synth-context.adb | |
| parent | 7119ed0eee11707dcfc6ab023fdf1f72783b35bd (diff) | |
| download | ghdl-561b15d8066fcaa2147b7e95d9e2bcc7044c7f36.tar.gz ghdl-561b15d8066fcaa2147b7e95d9e2bcc7044c7f36.tar.bz2 ghdl-561b15d8066fcaa2147b7e95d9e2bcc7044c7f36.zip | |
synth: fix incorrect order for concat.
Diffstat (limited to 'src/synth/synth-context.adb')
| -rw-r--r-- | src/synth/synth-context.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/synth/synth-context.adb b/src/synth/synth-context.adb index a806c7591..93631120b 100644 --- a/src/synth/synth-context.adb +++ b/src/synth/synth-context.adb @@ -550,7 +550,7 @@ package body Synth.Context is C : Concat_Type; Res : Net; begin - for I in Val.Arr.V'Range loop + for I in reverse Val.Arr.V'Range loop Append (C, Get_Net (Val.Arr.V (I))); end loop; Build (Build_Context, C, Res); |