diff options
| author | Tristan Gingold <tgingold@free.fr> | 2019-10-08 19:15:40 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2019-10-08 19:15:40 +0200 |
| commit | e8db7dfc689d4aa25a5ce7227d60ba6d9779f490 (patch) | |
| tree | 1745bbb218f767782c95e3596b25876198a8934c /src/synth | |
| parent | 8a0a30827ce0c9394c4d122028ebb65a35304895 (diff) | |
| download | ghdl-e8db7dfc689d4aa25a5ce7227d60ba6d9779f490.tar.gz ghdl-e8db7dfc689d4aa25a5ce7227d60ba6d9779f490.tar.bz2 ghdl-e8db7dfc689d4aa25a5ce7227d60ba6d9779f490.zip | |
synth-context: fix encoding of discrete in aggregate
Diffstat (limited to 'src/synth')
| -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 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))) |