X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=includes%2FRegs.h;h=0bfde5b0c8aa07bb8a49c042e39de95b6a1b54bf;hb=090663ac597eaa54ae854572b862cf4d386270b1;hp=2c9546d02c7d3f20a7a6519a16019b5228f60459;hpb=6bf790bab31b9bb8791e2adc46c8ff511392419f;p=ghc-hetmet.git diff --git a/includes/Regs.h b/includes/Regs.h index 2c9546d..0bfde5b 100644 --- a/includes/Regs.h +++ b/includes/Regs.h @@ -22,7 +22,11 @@ #ifndef REGS_H #define REGS_H +#if defined(HAVE_FRAMEWORK_GMP) +#include +#else #include "gmp.h" // Needs MP_INT definition +#endif /* * Spark pools: used to store pending sparks @@ -333,7 +337,7 @@ struct PartCapability_ { /* No such thing as a MainCapability under THREADED_RTS - each thread must have * its own Capability. */ -#if IN_STG_CODE && !defined(THREADED_RTS) +#if IN_STG_CODE && !(defined(THREADED_RTS) && !defined(NOSMP)) extern W_ MainCapability[]; #endif @@ -349,7 +353,7 @@ extern W_ MainCapability[]; GLOBAL_REG_DECL(StgRegTable *,BaseReg,REG_Base) #define ASSIGN_BaseReg(e) (BaseReg = (e)) #else -#ifdef THREADED_RTS +#if defined(THREADED_RTS) && !defined(NOSMP) #error BaseReg must be in a register for THREADED_RTS #endif #define BaseReg (&((struct PartCapability_ *)MainCapability)->r)