X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=rts%2FInterpreter.c;h=3a99d42139d937f9f37429f405f51c4c2fae2778;hp=1a6e9273e0ec33773332c46be2a5fe60624ca121;hb=34cc75e1a62638f2833815746ebce0a9114dc26b;hpb=74e1368d4688ee16f6decdf2cd3ebe27506b26ba

diff --git a/rts/Interpreter.c b/rts/Interpreter.c
index 1a6e927..3a99d42 100644
--- a/rts/Interpreter.c
+++ b/rts/Interpreter.c
@@ -1425,7 +1425,7 @@ run_BCO:
             ffi_call(cif, fn, ret, argptrs);
 
 	    // And restart the thread again, popping the RET_DYN frame.
-	    cap = (Capability *)((void *)((unsigned char*)resumeThread(tok) - FIELD_OFFSET(Capability,r)));
+	    cap = (Capability *)((void *)((unsigned char*)resumeThread(tok) - STG_FIELD_OFFSET(Capability,r)));
 	    LOAD_STACK_POINTERS;
 
             // Re-load the pointer to the BCO from the RET_DYN frame,