diff options
| author | Tristan Gingold <tgingold@free.fr> | 2017-02-15 07:00:15 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2017-02-15 08:44:02 +0100 |
| commit | 59b6bb2d77a9ecf08fbb4dee1a670388c3ccd32f (patch) | |
| tree | 3b2ccfadcc6536fe2df533c7f848268af27f1258 /src/synth | |
| parent | de9c5ceb7923a896b888656fdd1f1cd238b830e0 (diff) | |
| download | ghdl-59b6bb2d77a9ecf08fbb4dee1a670388c3ccd32f.tar.gz ghdl-59b6bb2d77a9ecf08fbb4dee1a670388c3ccd32f.tar.bz2 ghdl-59b6bb2d77a9ecf08fbb4dee1a670388c3ccd32f.zip | |
synth: Fix handling of iir_downto in synth_indexed_name.
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 6f5f0a9f9..80f76a1c4 100644 --- a/src/synth/synth-expr.adb +++ b/src/synth/synth-expr.adb @@ -489,7 +489,7 @@ package body Synth.Expr is when Iir_To => return Bit_Extract (Pfx, Uns32 (Idx - Rng.Left)); when Iir_Downto => - return Bit_Extract (Pfx, Uns32 (Rng.Right - Idx)); + return Bit_Extract (Pfx, Uns32 (Rng.Left - Idx)); end case; end Synth_Indexed_Name; |