diff options
| author | Brian Padalino <bpadalino@gmail.com> | 2021-09-22 11:38:59 -0400 |
|---|---|---|
| committer | tgingold <tgingold@users.noreply.github.com> | 2021-09-22 20:03:00 +0200 |
| commit | 111007296f1553540a78f59d20197faba29d43c9 (patch) | |
| tree | 86cf06f7bf91128e7b41e4caeb3824bc514f2e17 /src/vhdl/translate/trans-chap7.adb | |
| parent | b4b25fe5e5d77ba712552acc5edae7c64832d1ca (diff) | |
| download | ghdl-111007296f1553540a78f59d20197faba29d43c9.tar.gz ghdl-111007296f1553540a78f59d20197faba29d43c9.tar.bz2 ghdl-111007296f1553540a78f59d20197faba29d43c9.zip | |
Add explicit ?>= and ?> functions for translation.
Instead of swapping L/R arguments to try to create ?>= and ?>,
create a function for each which performs the not operation of ?<
and ?<= as defined by the LRM.
Diffstat (limited to 'src/vhdl/translate/trans-chap7.adb')
| -rw-r--r-- | src/vhdl/translate/trans-chap7.adb | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/vhdl/translate/trans-chap7.adb b/src/vhdl/translate/trans-chap7.adb index 55f849c59..8b34b87f9 100644 --- a/src/vhdl/translate/trans-chap7.adb +++ b/src/vhdl/translate/trans-chap7.adb @@ -2693,12 +2693,12 @@ package body Trans.Chap7 is Left_Tree, Right_Tree, Res_Otype); when Iir_Predefined_Std_Ulogic_Match_Greater => return Translate_Std_Ulogic_Match - (Ghdl_Std_Ulogic_Match_Lt, - Right_Tree, Left_Tree, Res_Otype); + (Ghdl_Std_Ulogic_Match_Gt, + Left_Tree, Right_Tree, Res_Otype); when Iir_Predefined_Std_Ulogic_Match_Greater_Equal => return Translate_Std_Ulogic_Match - (Ghdl_Std_Ulogic_Match_Le, - Right_Tree, Left_Tree, Res_Otype); + (Ghdl_Std_Ulogic_Match_Ge, + Left_Tree, Right_Tree, Res_Otype); when Iir_Predefined_Bit_Array_Match_Equality => return New_Compare_Op |