diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2012-08-07 09:46:35 +0100 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2012-08-07 15:50:38 +0100 |
| commit | 69cda9ef2a54753ee43dda0c3d0ecec21bde8b85 (patch) | |
| tree | b659327226ca3540633f4d29bcb901f40677529f /compiler/cmm | |
| parent | babe3c60ba7334c4124e6fa841f630204b2e5ba0 (diff) | |
| download | haskell-69cda9ef2a54753ee43dda0c3d0ecec21bde8b85.tar.gz | |
maybeInvertComparison: remove floating-point comparisons
See comments.
Diffstat (limited to 'compiler/cmm')
| -rw-r--r-- | compiler/cmm/CmmMachOp.hs | 6 |
1 files changed, 0 insertions, 6 deletions
diff --git a/compiler/cmm/CmmMachOp.hs b/compiler/cmm/CmmMachOp.hs index 5073517be9..f42626f638 100644 --- a/compiler/cmm/CmmMachOp.hs +++ b/compiler/cmm/CmmMachOp.hs @@ -274,12 +274,6 @@ maybeInvertComparison op MO_S_Gt r -> Just (MO_S_Le r) MO_S_Le r -> Just (MO_S_Gt r) MO_S_Ge r -> Just (MO_S_Lt r) - MO_F_Eq r -> Just (MO_F_Ne r) - MO_F_Ne r -> Just (MO_F_Eq r) - MO_F_Ge r -> Just (MO_F_Le r) - MO_F_Le r -> Just (MO_F_Ge r) - MO_F_Gt r -> Just (MO_F_Lt r) - MO_F_Lt r -> Just (MO_F_Gt r) _other -> Nothing -- ---------------------------------------------------------------------------- |