diff options
| author | John Ericson <git@JohnEricson.me> | 2019-06-03 22:56:17 -0400 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2019-06-09 18:47:59 -0400 |
| commit | 5023adceeb59e9a2b57cda2e69cd2a6152a13ead (patch) | |
| tree | 89ea909006ca0df652555f670db2c9f88ddf4964 | |
| parent | 1c7bb03db5956e8c56260ba0bbc8271afe073a01 (diff) | |
| download | haskell-5023adceeb59e9a2b57cda2e69cd2a6152a13ead.tar.gz | |
Remove CPP ensuring word size is 32 or 64 bits around Addr# <-> int# primops
It shouldn't be needed these days, and those primops are "highly
deprecated" anyways.
This fits with my plans because it removes one bit of target-dependence
of the builtin primops, and this is the hardest part of GHC to make
multi-target.
CC @carter
| -rw-r--r-- | compiler/prelude/primops.txt.pp | 2 |
1 files changed, 0 insertions, 2 deletions
diff --git a/compiler/prelude/primops.txt.pp b/compiler/prelude/primops.txt.pp index 5b5dd9dc8d..ef8a459100 100644 --- a/compiler/prelude/primops.txt.pp +++ b/compiler/prelude/primops.txt.pp @@ -2175,7 +2175,6 @@ primop AddrSubOp "minusAddr#" GenPrimOp Addr# -> Addr# -> Int# primop AddrRemOp "remAddr#" GenPrimOp Addr# -> Int# -> Int# {Return the remainder when the {\tt Addr\#} arg, treated like an {\tt Int\#}, is divided by the {\tt Int\#} arg.} -#if (WORD_SIZE_IN_BITS == 32 || WORD_SIZE_IN_BITS == 64) primop Addr2IntOp "addr2Int#" GenPrimOp Addr# -> Int# {Coerce directly from address to int.} with code_size = 0 @@ -2184,7 +2183,6 @@ primop Int2AddrOp "int2Addr#" GenPrimOp Int# -> Addr# {Coerce directly from int to address.} with code_size = 0 deprecated_msg = { This operation is strongly deprecated. } -#endif primop AddrGtOp "gtAddr#" Compare Addr# -> Addr# -> Int# primop AddrGeOp "geAddr#" Compare Addr# -> Addr# -> Int# |