diff options
| author | Simon Marlow <simonmar@microsoft.com> | 2008-02-07 14:38:05 +0000 |
|---|---|---|
| committer | Simon Marlow <simonmar@microsoft.com> | 2008-02-07 14:38:05 +0000 |
| commit | a411ca6bf32a14cc656c2c981c5cf6e37cfd3d64 (patch) | |
| tree | fd76354ebdb95d77d413d8727b40bda36c26df9c /compiler/nativeGen/MachCodeGen.hs | |
| parent | d51f42f602bf9a6d1b356c41228a534c88723f65 (diff) | |
| download | haskell-a411ca6bf32a14cc656c2c981c5cf6e37cfd3d64.tar.gz | |
remove a bogus assertion
Diffstat (limited to 'compiler/nativeGen/MachCodeGen.hs')
| -rw-r--r-- | compiler/nativeGen/MachCodeGen.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/compiler/nativeGen/MachCodeGen.hs b/compiler/nativeGen/MachCodeGen.hs index 10f665545d..e479d50a35 100644 --- a/compiler/nativeGen/MachCodeGen.hs +++ b/compiler/nativeGen/MachCodeGen.hs @@ -1046,8 +1046,7 @@ getRegister (CmmMachOp mop [x]) -- unary MachOps getRegister e@(CmmMachOp mop [x, y]) -- dyadic MachOps - = ASSERT2(cmmExprRep x /= I8, pprExpr e) - case mop of + = case mop of MO_Eq F32 -> condFltReg EQQ x y MO_Ne F32 -> condFltReg NE x y MO_S_Gt F32 -> condFltReg GTT x y |