diff --git a/tests/T229.hs b/tests/T229.hs index 9f4fd88594d6472bf568711e5ce99ce2657c6907..17148493f80d33f7f5434bf9b63c776d6ddede4b 100644 --- a/tests/T229.hs +++ b/tests/T229.hs @@ -1,5 +1,7 @@ {-# LANGUAGE CPP #-} +#include "MachDeps.h" + import Data.Array.MArray import Data.Array.IO import Data.Word @@ -7,7 +9,7 @@ import Data.Word main :: IO () main = do -- This should fail due to integer overflow -#if WORD_SIZE == 8 +#if WORD_SIZE_IN_BITS == 64 m <- newArray_ (0,2^62-1) :: IO (IOUArray Int Word32) -- allocates 0 bytes readArray m 17 >>= print -- Read some random location in address space #else