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-stmts.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-stmts.adb')
-rw-r--r-- | src/synth/synth-stmts.adb | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/src/synth/synth-stmts.adb b/src/synth/synth-stmts.adb index b41a9ba69..efece924c 100644 --- a/src/synth/synth-stmts.adb +++ b/src/synth/synth-stmts.adb @@ -1119,9 +1119,9 @@ package body Synth.Stmts is Synth_Discrete_Range (C.Inst, Get_Choice_Range (Choice), Bnd); case Bnd.Dir is - when Iir_To => + when Dir_To => Is_In := Sel >= Bnd.Left and Sel <= Bnd.Right; - when Iir_Downto => + when Dir_Downto => Is_In := Sel <= Bnd.Left and Sel >= Bnd.Right; end case; if Is_In then @@ -1970,9 +1970,9 @@ package body Synth.Stmts is function In_Range (Rng : Discrete_Range_Type; V : Int64) return Boolean is begin case Rng.Dir is - when Iir_To => + when Dir_To => return V >= Rng.Left and then V <= Rng.Right; - when Iir_Downto => + when Dir_Downto => return V <= Rng.Left and then V >= Rng.Right; end case; end In_Range; @@ -1983,9 +1983,9 @@ package body Synth.Stmts is begin T := Read_Discrete (V); case Rng.Dir is - when Iir_To => + when Dir_To => T := T + 1; - when Iir_Downto => + when Dir_Downto => T := T - 1; end case; Write_Discrete (V, T); |