[commit: ghc] master: primops: Drop support for WORD_SIZE_IN_BITS < 32 (2908899)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/290889927244c79479c4347dfa6c851a134dd6e0/ghc

>---------------------------------------------------------------

commit 290889927244c79479c4347dfa6c851a134dd6e0
Author: Ben Gamari <bgamari.foss at gmail.com>
Date:   Wed Aug 15 16:49:26 2018 +0200

    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


>---------------------------------------------------------------

290889927244c79479c4347dfa6c851a134dd6e0
 compiler/prelude/primops.txt.pp | 27 ---------------------------
 1 file changed, 27 deletions(-)

diff --git a/compiler/prelude/primops.txt.pp b/compiler/prelude/primops.txt.pp
index 2cb3b0d..a658c51 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#"