Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : ghc-7.4
http://hackage.haskell.org/trac/ghc/changeset/34bf08a7a073c151c75da8feeee732ffcad80be2 >--------------------------------------------------------------- commit 34bf08a7a073c151c75da8feeee732ffcad80be2 Author: Ian Lynagh <[email protected]> Date: Sat Jan 7 22:36:00 2012 +0000 Add comments on which integer rules are missing >--------------------------------------------------------------- compiler/prelude/PrelRules.lhs | 19 ++++++++++++++++--- 1 files changed, 16 insertions(+), 3 deletions(-) diff --git a/compiler/prelude/PrelRules.lhs b/compiler/prelude/PrelRules.lhs index 40ee5b0..21ba258 100644 --- a/compiler/prelude/PrelRules.lhs +++ b/compiler/prelude/PrelRules.lhs @@ -621,11 +621,17 @@ builtinRules builtinIntegerRules :: [CoreRule] builtinIntegerRules = - [rule_convert "integerToWord" integerToWordName mkWordLitWord, + [-- TODO: smallInteger rule + -- TODO: wordToInteger rule + rule_convert "integerToWord" integerToWordName mkWordLitWord, rule_convert "integerToInt" integerToIntName mkIntLitInt, + -- TODO: integerToWord64 rule + -- TODO: word64ToInteger rule + -- TODO: integerToInt64 rule + -- TODO: int64ToInteger rule rule_binop "plusInteger" plusIntegerName (+), - rule_binop "timesInteger" timesIntegerName (*), rule_binop "minusInteger" minusIntegerName (-), + rule_binop "timesInteger" timesIntegerName (*), rule_unop "negateInteger" negateIntegerName negate, rule_binop_Bool "eqInteger" eqIntegerName (==), rule_binop_Bool "neqInteger" neqIntegerName (/=), @@ -636,8 +642,15 @@ builtinIntegerRules = rule_binop_Bool "ltInteger" ltIntegerName (<), rule_binop_Bool "geInteger" geIntegerName (>=), rule_binop_Ordering "compareInteger" compareIntegerName compare, - rule_divop "quotRemInteger" quotRemIntegerName quotRem, rule_divop "divModInteger" divModIntegerName divMod, + rule_divop "quotRemInteger" quotRemIntegerName quotRem, + -- TODO: quotInteger rule + -- TODO: remInteger rule + -- TODO: encodeFloatInteger rule + -- TODO: floatFromInteger rule + -- TODO: encodeDoubleInteger rule + -- TODO: decodeDoubleInteger rule + -- TODO: doubleFromInteger rule rule_binop "gcdInteger" gcdIntegerName gcd, rule_binop "lcmInteger" lcmIntegerName lcm, rule_binop "andInteger" andIntegerName (.&.), _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
