projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Simon's hacking on monad-comp; incomplete
[ghc-hetmet.git]
/
includes
/
rts
/
Flags.h
diff --git
a/includes/rts/Flags.h
b/includes/rts/Flags.h
index
75525d8
..
b4e7b64
100644
(file)
--- a/
includes/rts/Flags.h
+++ b/
includes/rts/Flags.h
@@
-148,8
+148,7
@@
struct MISC_FLAGS {
struct PAR_FLAGS {
nat nNodes; /* number of threads to run simultaneously */
rtsBool migrate; /* migrate threads between capabilities */
struct PAR_FLAGS {
nat nNodes; /* number of threads to run simultaneously */
rtsBool migrate; /* migrate threads between capabilities */
- rtsBool wakeupMigrate; /* migrate a thread on wakeup */
- unsigned int maxLocalSparks;
+ unsigned int maxLocalSparks;
rtsBool parGcEnabled; /* enable parallel GC */
unsigned int parGcGen; /* do parallel GC in this generation
* and higher only */
rtsBool parGcEnabled; /* enable parallel GC */
unsigned int parGcGen; /* do parallel GC in this generation
* and higher only */
@@
-220,13
+219,6
@@
extern RTS_FLAGS RtsFlags[];
extern RTS_FLAGS RtsFlags;
#endif
extern RTS_FLAGS RtsFlags;
#endif
-/* Routines that operate-on/to-do-with RTS flags: */
-
-void initRtsFlagsDefaults(void);
-void setupRtsFlags(int *argc, char *argv[], int *rts_argc, char *rts_argv[]);
-void setProgName(char *argv[]);
-
-
/*
* The printf formats are here, so we are less likely to make
* overly-long filenames (with disastrous results). No more than 128
/*
* The printf formats are here, so we are less likely to make
* overly-long filenames (with disastrous results). No more than 128