Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : master
http://hackage.haskell.org/trac/ghc/changeset/c111209c9c402b712bca1ee69a43786b65f722ce >--------------------------------------------------------------- commit c111209c9c402b712bca1ee69a43786b65f722ce Author: Simon Peyton Jones <[email protected]> Date: Sat Jul 14 13:13:24 2012 +0100 Comments only >--------------------------------------------------------------- compiler/prelude/PrelRules.lhs | 5 +++++ 1 files changed, 5 insertions(+), 0 deletions(-) diff --git a/compiler/prelude/PrelRules.lhs b/compiler/prelude/PrelRules.lhs index dab34fc..7aeb920 100644 --- a/compiler/prelude/PrelRules.lhs +++ b/compiler/prelude/PrelRules.lhs @@ -779,7 +779,11 @@ match_inline _ (Type _ : e : _) match_inline _ _ = Nothing +------------------------------------------------- -- Integer rules +-- smallInteger (79::Int#) = 79::Integer +-- wordToInteger (79::Word#) = 79::Integer +-- Similarly Int64, Word64 match_IntToInteger :: Id -> IdUnfoldingFun @@ -833,6 +837,7 @@ match_Word64ToInteger id id_unf [xl] panic "match_Word64ToInteger: Id has the wrong type" match_Word64ToInteger _ _ _ = Nothing +------------------------------------------------- match_Integer_convert :: Num a => (a -> Expr CoreBndr) -> Id _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
