X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FAdjustor.c;h=841c6603be05e35d426a175dbf8489414f16ab30;hb=ab89dc190a9004d2ec9547c7e64eab8853ab9837;hp=e2815d0d04e64c5631f23ade76b99a18b165d763;hpb=16a5bb82bce0388962a5d64682072439b5fa8795;p=ghc-hetmet.git

diff --git a/rts/Adjustor.c b/rts/Adjustor.c
index e2815d0..841c660 100644
--- a/rts/Adjustor.c
+++ b/rts/Adjustor.c
@@ -417,11 +417,6 @@ createAdjustor(int cconv, StgStablePtr hptr,
   38: .quad 0  # aligned on 8-byte boundary
     */
 
-    /* we assume the small code model (gcc -mcmmodel=small) where
-     * all symbols are <2^32, so hence wptr should fit into 32 bits.
-     */
-    ASSERT(((long)wptr >> 32) == 0);
-
     {  
 	int i = 0;
 	char *c;
@@ -1029,7 +1024,7 @@ freeHaskellFunctionPtr(void* ptr)
  } else {
     freeStablePtr(*((StgStablePtr*)((unsigned char*)ptr + 0x02)));
  }
-#elif defined(x86_HOST_ARCH) && defined(darwin_HOST_OS)
+#elif defined(i386_HOST_ARCH) && defined(darwin_HOST_OS)
 if ( *(unsigned char*)ptr != 0xe8 ) {
    errorBelch("freeHaskellFunctionPtr: not for me, guv! %p\n", ptr);
    return;