objectformat: one word after mtable in object layout

[mate.git] / Mate / NativeSizes.hs

diff --git a/Mate/NativeSizes.hs b/Mate/NativeSizes.hs
index 07c437191261f2b6790a90b06975407fd80ed9b9..57e5a0a3d01abf158a9ac8eabb7a778f49042c23 100644 (file)
--- a/Mate/NativeSizes.hs
+++ b/Mate/NativeSizes.hs
@@ -1,11 +1,17 @@
+{-# LANGUAGE CPP #-}
 module Mate.NativeSizes where
 
 import Data.Word
 
-ptrSize, longSize :: NativeWord
-#ifdef i386_HOST_ARCH
+ptrSize, longSize :: Num a => a
+#if defined(ARCH_X86)
 ptrSize = 4
 longSize = 8
 
+type NativeWord = Word32
+#else
+-- HACK, for ghc-mod ...
+ptrSize = undefined
+longSize = undefined
 type NativeWord = Word32
 #endif