summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorBen Gamari <bgamari.foss@gmail.com>2018-08-15 16:49:26 +0200
committerKrzysztof Gogolewski <krz.gogolewski@gmail.com>2018-08-15 16:49:26 +0200
commit290889927244c79479c4347dfa6c851a134dd6e0 (patch)
treeae213e805054026c06f50b92584f27c4ee538bf7
parent32008a9d0e09f0cc8899aa871d9a6b63fcc28a1a (diff)
downloadhaskell-290889927244c79479c4347dfa6c851a134dd6e0.tar.gz
primops: Drop support for WORD_SIZE_IN_BITS < 32
Summary: Fixes #15486. Test Plan: Validate Reviewers: monoidal Reviewed By: monoidal Subscribers: rwbarton, carter GHC Trac Issues: #15486 Differential Revision: https://phabricator.haskell.org/D5050
-rw-r--r--compiler/prelude/primops.txt.pp27
1 files changed, 0 insertions, 27 deletions
diff --git a/compiler/prelude/primops.txt.pp b/compiler/prelude/primops.txt.pp
index 2cb3b0d730..a658c515df 100644
--- a/compiler/prelude/primops.txt.pp
+++ b/compiler/prelude/primops.txt.pp
@@ -142,13 +142,8 @@ section "The word size story."
-- Define synonyms for indexing ops.
-#if WORD_SIZE_IN_BITS < 32
-#define INT32 Int32#
-#define WORD32 Word32#
-#else
#define INT32 Int#
#define WORD32 Word#
-#endif
#if WORD_SIZE_IN_BITS < 64
#define INT64 Int64#
@@ -480,28 +475,6 @@ primop Narrow16WordOp "narrow16Word#" Monadic Word# -> Word#
primop Narrow32WordOp "narrow32Word#" Monadic Word# -> Word#
-#if WORD_SIZE_IN_BITS < 32
-------------------------------------------------------------------------
-section "Int32#"
- {Operations on 32-bit integers ({\tt Int32\#}). This type is only used
- if plain {\tt Int\#} has less than 32 bits. In any case, the operations
- are not primops; they are implemented (if needed) as ccalls instead.}
-------------------------------------------------------------------------
-
-primtype Int32#
-
-------------------------------------------------------------------------
-section "Word32#"
- {Operations on 32-bit unsigned words. This type is only used
- if plain {\tt Word\#} has less than 32 bits. In any case, the operations
- are not primops; they are implemented (if needed) as ccalls instead.}
-------------------------------------------------------------------------
-
-primtype Word32#
-
-#endif
-
-
#if WORD_SIZE_IN_BITS < 64
------------------------------------------------------------------------
section "Int64#"