diff options
author | Tristan Gingold <tgingold@free.fr> | 2020-03-28 17:18:13 +0100 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2020-03-28 17:18:13 +0100 |
commit | 5837c03fe6704eff8ba531aafecfd7323ff353c8 (patch) | |
tree | 3710d12f0859237893f759304f04cb51b45a11e9 /src/synth/synth-static_oper.adb | |
parent | 3a9568034967cc9e0b0df02a9c0429b7dce6a305 (diff) | |
download | ghdl-5837c03fe6704eff8ba531aafecfd7323ff353c8.tar.gz ghdl-5837c03fe6704eff8ba531aafecfd7323ff353c8.tar.bz2 ghdl-5837c03fe6704eff8ba531aafecfd7323ff353c8.zip |
synth-static_oper: add more operation.
Diffstat (limited to 'src/synth/synth-static_oper.adb')
-rw-r--r-- | src/synth/synth-static_oper.adb | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/src/synth/synth-static_oper.adb b/src/synth/synth-static_oper.adb index 73db0d9f7..5e22fabeb 100644 --- a/src/synth/synth-static_oper.adb +++ b/src/synth/synth-static_oper.adb @@ -782,6 +782,14 @@ package body Synth.Static_Oper is (Left, Right, Compare_Greater, Expr) = Compare_Equal; return Create_Value_Discrete (Boolean'Pos (Res), Res_Typ); end; + when Iir_Predefined_Ieee_Numeric_Std_Eq_Uns_Nat => + declare + Res : Boolean; + begin + Res := Synth_Compare_Uns_Nat + (Left, Right, Compare_Greater, Expr) = Compare_Equal; + return Create_Value_Discrete (Boolean'Pos (Res), Res_Typ); + end; when Iir_Predefined_Ieee_Numeric_Std_Gt_Uns_Uns => declare |