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-aggr.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-aggr.adb')
| -rw-r--r-- | src/synth/synth-aggr.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/synth/synth-aggr.adb b/src/synth/synth-aggr.adb index b0f627bd2..ad8b5ea05 100644 --- a/src/synth/synth-aggr.adb +++ b/src/synth/synth-aggr.adb @@ -43,14 +43,14 @@ package body Synth.Aggr is Right : constant Int64 := Int64 (Bounds.Right); begin case Bounds.Dir is - when Iir_To => + when Dir_To => if Index >= Left and then Index <= Right then -- to Off := Uns32 (Index - Left); Err_P := False; return; end if; - when Iir_Downto => + when Dir_Downto => if Index <= Left and then Index >= Right then -- downto Off := Uns32 (Left - Index); |