A little more CPP removal

1 files changed, 6 insertions, 0 deletions

diff --git a/compiler/utils/Platform.hs b/compiler/utils/Platform.hs
index e99d70600f..2d38971fed 100644
--- a/compiler/utils/Platform.hs
+++ b/compiler/utils/Platform.hs
@@ -42,6 +42,9 @@ data Arch
         | ArchARM
           { armISA    :: ArmISA
           , armISAExt :: [ArmISAExt] }
+        | ArchAlpha
+        | ArchMipseb
+        | ArchMipsel
         deriving (Read, Show, Eq)
 
 
@@ -83,6 +86,9 @@ target32Bit p = case platformArch p of
                 ArchPPC_64  -> False
                 ArchSPARC   -> True
                 ArchARM _ _ -> True
+                ArchMipseb  -> True
+                ArchMipsel  -> True
+                ArchAlpha   -> False
 
 
 -- | This predicates tells us whether the OS supports ELF-like shared libraries.