diff options
Diffstat (limited to 'compiler/nativeGen/X86/Cond.hs')
| -rw-r--r-- | compiler/nativeGen/X86/Cond.hs | 52 |
1 files changed, 52 insertions, 0 deletions
diff --git a/compiler/nativeGen/X86/Cond.hs b/compiler/nativeGen/X86/Cond.hs new file mode 100644 index 0000000000..60e40b9654 --- /dev/null +++ b/compiler/nativeGen/X86/Cond.hs @@ -0,0 +1,52 @@ + +module X86.Cond ( + Cond(..), + condUnsigned, + condToSigned, + condToUnsigned +) + +where + +data Cond + = ALWAYS -- What's really used? ToDo + | EQQ + | GE + | GEU + | GTT + | GU + | LE + | LEU + | LTT + | LU + | NE + | NEG + | POS + | CARRY + | OFLO + | PARITY + | NOTPARITY + + +condUnsigned :: Cond -> Bool +condUnsigned GU = True +condUnsigned LU = True +condUnsigned GEU = True +condUnsigned LEU = True +condUnsigned _ = False + + +condToSigned :: Cond -> Cond +condToSigned GU = GTT +condToSigned LU = LTT +condToSigned GEU = GE +condToSigned LEU = LE +condToSigned x = x + + +condToUnsigned :: Cond -> Cond +condToUnsigned GTT = GU +condToUnsigned LTT = LU +condToUnsigned GE = GEU +condToUnsigned LE = LEU +condToUnsigned x = x |