MP_INT rmp_tmp2;
MP_INT rmp_result1;
MP_INT rmp_result2;
+ StgWord rRet; // holds the return code of the thread
#if defined(SMP) || defined(PAR)
StgSparkPool rSparks; /* per-task spark pool */
#endif
- // If this flag is set, we are running Haskell code. Used to detect
- // uses of 'foreign import unsafe' that should be 'safe'.
} StgRegTable;
#if IN_STG_CODE
#ifdef SMP
#error BaseReg must be in a register for SMP
#endif
-#define BaseReg (&((struct Capability_)MainCapability).r)
+#define BaseReg (&((struct PartCapability_ *)MainCapability)->r)
#endif
#if defined(REG_Sp) && !defined(NO_GLOBAL_REG_DECLS)