Commit 85fa980f authored by Ian Lynagh's avatar Ian Lynagh
Browse files

Whitespace only

parent 17f89fd1
...@@ -623,42 +623,42 @@ builtinIntegerRules :: [CoreRule] ...@@ -623,42 +623,42 @@ builtinIntegerRules :: [CoreRule]
builtinIntegerRules = builtinIntegerRules =
[-- TODO: smallInteger rule [-- TODO: smallInteger rule
-- TODO: wordToInteger rule -- TODO: wordToInteger rule
rule_convert "integerToWord" integerToWordName mkWordLitWord, rule_convert "integerToWord" integerToWordName mkWordLitWord,
rule_convert "integerToInt" integerToIntName mkIntLitInt, rule_convert "integerToInt" integerToIntName mkIntLitInt,
rule_convert "integerToWord64" integerToWord64Name mkWord64LitWord64, rule_convert "integerToWord64" integerToWord64Name mkWord64LitWord64,
-- TODO: word64ToInteger rule -- TODO: word64ToInteger rule
rule_convert "integerToInt64" integerToInt64Name mkInt64LitInt64, rule_convert "integerToInt64" integerToInt64Name mkInt64LitInt64,
-- TODO: int64ToInteger rule -- TODO: int64ToInteger rule
rule_binop "plusInteger" plusIntegerName (+), rule_binop "plusInteger" plusIntegerName (+),
rule_binop "minusInteger" minusIntegerName (-), rule_binop "minusInteger" minusIntegerName (-),
rule_binop "timesInteger" timesIntegerName (*), rule_binop "timesInteger" timesIntegerName (*),
rule_unop "negateInteger" negateIntegerName negate, rule_unop "negateInteger" negateIntegerName negate,
rule_binop_Bool "eqInteger" eqIntegerName (==), rule_binop_Bool "eqInteger" eqIntegerName (==),
rule_binop_Bool "neqInteger" neqIntegerName (/=), rule_binop_Bool "neqInteger" neqIntegerName (/=),
rule_unop "absInteger" absIntegerName abs, rule_unop "absInteger" absIntegerName abs,
rule_unop "signumInteger" signumIntegerName signum, rule_unop "signumInteger" signumIntegerName signum,
rule_binop_Bool "leInteger" leIntegerName (<=), rule_binop_Bool "leInteger" leIntegerName (<=),
rule_binop_Bool "gtInteger" gtIntegerName (>), rule_binop_Bool "gtInteger" gtIntegerName (>),
rule_binop_Bool "ltInteger" ltIntegerName (<), rule_binop_Bool "ltInteger" ltIntegerName (<),
rule_binop_Bool "geInteger" geIntegerName (>=), rule_binop_Bool "geInteger" geIntegerName (>=),
rule_binop_Ordering "compareInteger" compareIntegerName compare, rule_binop_Ordering "compareInteger" compareIntegerName compare,
rule_divop_both "divModInteger" divModIntegerName divMod, rule_divop_both "divModInteger" divModIntegerName divMod,
rule_divop_both "quotRemInteger" quotRemIntegerName quotRem, rule_divop_both "quotRemInteger" quotRemIntegerName quotRem,
rule_divop_one "quotInteger" quotIntegerName quot, rule_divop_one "quotInteger" quotIntegerName quot,
rule_divop_one "remInteger" remIntegerName rem, rule_divop_one "remInteger" remIntegerName rem,
rule_encodeFloat "encodeFloatInteger" encodeFloatIntegerName mkFloatLitFloat, rule_encodeFloat "encodeFloatInteger" encodeFloatIntegerName mkFloatLitFloat,
rule_convert "floatFromInteger" floatFromIntegerName mkFloatLitFloat, rule_convert "floatFromInteger" floatFromIntegerName mkFloatLitFloat,
rule_encodeFloat "encodeDoubleInteger" encodeDoubleIntegerName mkDoubleLitDouble, rule_encodeFloat "encodeDoubleInteger" encodeDoubleIntegerName mkDoubleLitDouble,
-- TODO: decodeDoubleInteger rule -- TODO: decodeDoubleInteger rule
rule_convert "doubleFromInteger" doubleFromIntegerName mkDoubleLitDouble, rule_convert "doubleFromInteger" doubleFromIntegerName mkDoubleLitDouble,
rule_binop "gcdInteger" gcdIntegerName gcd, rule_binop "gcdInteger" gcdIntegerName gcd,
rule_binop "lcmInteger" lcmIntegerName lcm, rule_binop "lcmInteger" lcmIntegerName lcm,
rule_binop "andInteger" andIntegerName (.&.), rule_binop "andInteger" andIntegerName (.&.),
rule_binop "orInteger" orIntegerName (.|.), rule_binop "orInteger" orIntegerName (.|.),
rule_binop "xorInteger" xorIntegerName xor, rule_binop "xorInteger" xorIntegerName xor,
rule_unop "complementInteger" complementIntegerName complement, rule_unop "complementInteger" complementIntegerName complement,
rule_Int_binop "shiftLInteger" shiftLIntegerName shiftL, rule_Int_binop "shiftLInteger" shiftLIntegerName shiftL,
rule_Int_binop "shiftRInteger" shiftRIntegerName shiftR] rule_Int_binop "shiftRInteger" shiftRIntegerName shiftR]
where rule_convert str name convert where rule_convert str name convert
= BuiltinRule { ru_name = fsLit str, ru_fn = name, ru_nargs = 1, = BuiltinRule { ru_name = fsLit str, ru_fn = name, ru_nargs = 1,
ru_try = match_Integer_convert convert } ru_try = match_Integer_convert convert }
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment