Repository : ssh://darcs.haskell.org//srv/darcs/packages/base On branch : master
http://hackage.haskell.org/trac/ghc/changeset/f654e287be7e6a5fce296fc6c98fa16f838636fe >--------------------------------------------------------------- commit f654e287be7e6a5fce296fc6c98fa16f838636fe Author: Paolo Capriotti <[email protected]> Date: Wed Jul 25 12:53:39 2012 +0100 Port more primop rules to PrelRules. >--------------------------------------------------------------- GHC/Base.lhs | 13 ------------- 1 files changed, 0 insertions(+), 13 deletions(-) diff --git a/GHC/Base.lhs b/GHC/Base.lhs index 8114a0e..b720348 100644 --- a/GHC/Base.lhs +++ b/GHC/Base.lhs @@ -714,19 +714,6 @@ iShiftRL# :: Int# -> Int# -> Int# a `iShiftRL#` b | b >=# WORD_SIZE_IN_BITS# = 0# | otherwise = a `uncheckedIShiftRL#` b -#if WORD_SIZE_IN_BITS == 32 -{-# RULES -"narrow32Int#" forall x#. narrow32Int# x# = x# -"narrow32Word#" forall x#. narrow32Word# x# = x# - #-} -#endif - -{-# RULES -"int2Word2Int" forall x#. int2Word# (word2Int# x#) = x# -"word2Int2Word" forall x#. word2Int# (int2Word# x#) = x# - #-} - - -- Rules for C strings (the functions themselves are now in GHC.CString) {-# RULES "unpack" [~1] forall a . unpackCString# a = build (unpackFoldrCString# a) _______________________________________________ Cvs-libraries mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-libraries
