diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2011-12-06 15:12:07 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2011-12-06 16:00:27 +0000 |
| commit | 92e7d6c92fdd14de424524564376d3522f2a40cc (patch) | |
| tree | 5715d44012b452f5020ca14331a1fe50d5fd9600 /rts/Capability.h | |
| parent | 8b75acd3ca25165536f18976c8d80cb62ad613e4 (diff) | |
| download | haskell-92e7d6c92fdd14de424524564376d3522f2a40cc.tar.gz | |
Allow the number of capabilities to be increased at runtime (#3729)
At present the number of capabilities can only be *increased*, not
decreased. The latter presents a few more challenges!
Diffstat (limited to 'rts/Capability.h')
| -rw-r--r-- | rts/Capability.h | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/rts/Capability.h b/rts/Capability.h index 033806b3be..a4655dd36d 100644 --- a/rts/Capability.h +++ b/rts/Capability.h @@ -165,6 +165,10 @@ regTableToCapability (StgRegTable *reg) // void initCapabilities (void); +// Add and initialise more Capabilities +// +Capability * moreCapabilities (nat from, nat to); + // Release a capability. This is called by a Task that is exiting // Haskell to make a foreign call, or in various other cases when we // want to relinquish a Capability that we currently hold. @@ -206,7 +210,7 @@ extern Capability *last_free_capability; // #define SYNC_GC_SEQ 1 #define SYNC_GC_PAR 2 -#define SYNC_FORK 3 +#define SYNC_OTHER 3 extern volatile StgWord pending_sync; // Acquires a capability at a return point. If *cap is non-NULL, then |