projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
More notes
[ghc-hetmet.git]
/
includes
/
Regs.h
diff --git
a/includes/Regs.h
b/includes/Regs.h
index
bd7cb53
..
6524c8f
100644
(file)
--- a/
includes/Regs.h
+++ b/
includes/Regs.h
@@
-22,7
+22,13
@@
#ifndef REGS_H
#define REGS_H
#ifndef REGS_H
#define REGS_H
+#if defined(HAVE_FRAMEWORK_GMP)
+#include <GMP/gmp.h>
+#elif defined(HAVE_LIB_GMP)
+#include <gmp.h>
+#else
#include "gmp.h" // Needs MP_INT definition
#include "gmp.h" // Needs MP_INT definition
+#endif
/*
* Spark pools: used to store pending sparks
/*
* Spark pools: used to store pending sparks
@@
-117,9
+123,7
@@
typedef struct StgRegTable_ {
MP_INT rmp_result1;
MP_INT rmp_result2;
StgWord rRet; // holds the return code of the thread
MP_INT rmp_result1;
MP_INT rmp_result2;
StgWord rRet; // holds the return code of the thread
-#if defined(THREADED_RTS) || defined(PAR)
StgSparkPool rSparks; /* per-task spark pool */
StgSparkPool rSparks; /* per-task spark pool */
-#endif
} StgRegTable;
#if IN_STG_CODE
} StgRegTable;
#if IN_STG_CODE
@@
-335,7
+339,7
@@
struct PartCapability_ {
/* No such thing as a MainCapability under THREADED_RTS - each thread must have
* its own Capability.
*/
/* 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
extern W_ MainCapability[];
#endif
@@
-351,7
+355,7
@@
extern W_ MainCapability[];
GLOBAL_REG_DECL(StgRegTable *,BaseReg,REG_Base)
#define ASSIGN_BaseReg(e) (BaseReg = (e))
#else
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)
#error BaseReg must be in a register for THREADED_RTS
#endif
#define BaseReg (&((struct PartCapability_ *)MainCapability)->r)