diff options
| author | Tristan Gingold <tgingold@free.fr> | 2020-04-20 07:49:03 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2020-04-20 12:19:48 +0200 |
| commit | cb72a1834f160d95d026b7e466886fd95fd82146 (patch) | |
| tree | 87cd0fff5a8ce03b05b8e6a0a0129b60de90fe61 /src/synth/synth-oper.adb | |
| parent | b6d42a577f4ee5f2084a165b0cdf66cadcc878a1 (diff) | |
| download | ghdl-cb72a1834f160d95d026b7e466886fd95fd82146.tar.gz ghdl-cb72a1834f160d95d026b7e466886fd95fd82146.tar.bz2 ghdl-cb72a1834f160d95d026b7e466886fd95fd82146.zip | |
types: introduce Direction_Type, which replaces Iir_Direction.
Global renaming.
Diffstat (limited to 'src/synth/synth-oper.adb')
| -rw-r--r-- | src/synth/synth-oper.adb | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/src/synth/synth-oper.adb b/src/synth/synth-oper.adb index 758ca6b06..2ee88c328 100644 --- a/src/synth/synth-oper.adb +++ b/src/synth/synth-oper.adb @@ -128,7 +128,7 @@ package body Synth.Oper is begin Res := Prev.Typ; - if Res.Vbound.Dir = Iir_Downto + if Res.Vbound.Dir = Dir_Downto and then Res.Vbound.Right = 0 then -- Normalized range @@ -156,16 +156,16 @@ package body Synth.Oper is -- Special case. Res.Right := Res.Left; case Index_Bounds.Dir is - when Iir_To => + when Dir_To => Res.Left := Res.Right + 1; - when Iir_Downto => + when Dir_Downto => Res.Left := Res.Right - 1; end case; else case Index_Bounds.Dir is - when Iir_To => + when Dir_To => Res.Right := Res.Left + Int32 (Len - 1); - when Iir_Downto => + when Dir_Downto => Res.Right := Res.Left - Int32 (Len - 1); end case; end if; |