diff options
| author | Ian Lynagh <igloo@earth.li> | 2009-04-26 11:42:15 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2009-04-26 11:42:15 +0000 |
| commit | 34cc75e1a62638f2833815746ebce0a9114dc26b (patch) | |
| tree | ef21e8fd7af1356beea9cce7d6efb8a65374e24c /rts/Interpreter.c | |
| parent | 74e1368d4688ee16f6decdf2cd3ebe27506b26ba (diff) | |
| download | haskell-34cc75e1a62638f2833815746ebce0a9114dc26b.tar.gz | |
GHC new build system megapatch
Diffstat (limited to 'rts/Interpreter.c')
| -rw-r--r-- | rts/Interpreter.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/rts/Interpreter.c b/rts/Interpreter.c index 1a6e9273e0..3a99d42139 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, |