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-objtypes.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-objtypes.adb')
-rw-r--r-- | src/synth/synth-objtypes.adb | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/src/synth/synth-objtypes.adb b/src/synth/synth-objtypes.adb index cd199d724..8c9867a28 100644 --- a/src/synth/synth-objtypes.adb +++ b/src/synth/synth-objtypes.adb @@ -124,10 +124,10 @@ package body Synth.Objtypes is W : Width; begin case Rng.Dir is - when Iir_To => + when Dir_To => Lo := Rng.Left; Hi := Rng.Right; - when Iir_Downto => + when Dir_Downto => Lo := Rng.Right; Hi := Rng.Left; end case; @@ -250,7 +250,7 @@ package body Synth.Objtypes is function Create_Vec_Type_By_Length (Len : Width; El : Type_Acc) return Type_Acc is begin - return Create_Vector_Type ((Dir => Iir_Downto, + return Create_Vector_Type ((Dir => Dir_Downto, Left => Int32 (Len) - 1, Right => 0, Len => Len), @@ -370,9 +370,9 @@ package body Synth.Objtypes is Len : Int64; begin case Rng.Dir is - when Iir_To => + when Dir_To => Len := Rng.Right - Rng.Left + 1; - when Iir_Downto => + when Dir_Downto => Len := Rng.Left - Rng.Right + 1; end case; if Len < 0 then |