Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : master
http://hackage.haskell.org/trac/ghc/changeset/af7e12f72cfdaa5a0b76461d38303bb057244234 >--------------------------------------------------------------- commit af7e12f72cfdaa5a0b76461d38303bb057244234 Author: David Terei <[email protected]> Date: Tue Nov 22 11:27:25 2011 -0800 Formatting fixes >--------------------------------------------------------------- compiler/cmm/PprC.hs | 32 ++++++++++++++++---------------- 1 files changed, 16 insertions(+), 16 deletions(-) diff --git a/compiler/cmm/PprC.hs b/compiler/cmm/PprC.hs index 6c18ee6..a2ffd18 100644 --- a/compiler/cmm/PprC.hs +++ b/compiler/cmm/PprC.hs @@ -601,26 +601,26 @@ pprMachOp_for_C mop = case mop of ++ " should have been handled earlier!") signedOp :: MachOp -> Bool -- Argument type(s) are signed ints -signedOp (MO_S_Quot _) = True -signedOp (MO_S_Rem _) = True -signedOp (MO_S_Neg _) = True -signedOp (MO_S_Ge _) = True -signedOp (MO_S_Le _) = True -signedOp (MO_S_Gt _) = True -signedOp (MO_S_Lt _) = True -signedOp (MO_S_Shr _) = True +signedOp (MO_S_Quot _) = True +signedOp (MO_S_Rem _) = True +signedOp (MO_S_Neg _) = True +signedOp (MO_S_Ge _) = True +signedOp (MO_S_Le _) = True +signedOp (MO_S_Gt _) = True +signedOp (MO_S_Lt _) = True +signedOp (MO_S_Shr _) = True signedOp (MO_SS_Conv _ _) = True signedOp (MO_SF_Conv _ _) = True -signedOp _ = False +signedOp _ = False floatComparison :: MachOp -> Bool -- comparison between float args -floatComparison (MO_F_Eq _) = True -floatComparison (MO_F_Ne _) = True -floatComparison (MO_F_Ge _) = True -floatComparison (MO_F_Le _) = True -floatComparison (MO_F_Gt _) = True -floatComparison (MO_F_Lt _) = True -floatComparison _ = False +floatComparison (MO_F_Eq _) = True +floatComparison (MO_F_Ne _) = True +floatComparison (MO_F_Ge _) = True +floatComparison (MO_F_Le _) = True +floatComparison (MO_F_Gt _) = True +floatComparison (MO_F_Lt _) = True +floatComparison _ = False -- --------------------------------------------------------------------- -- tend to be implemented by foreign calls _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
