Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Port more primop rules to PrelRules.

  • Loading branch information...
commit f654e287be7e6a5fce296fc6c98fa16f838636fe 1 parent 25de47e
@pcapriotti pcapriotti authored
Showing with 0 additions and 13 deletions.
  1. +0 −13 GHC/Base.lhs
View
13 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)
Please sign in to comment.
Something went wrong with that request. Please try again.