diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2011-12-06 11:38:07 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2011-12-06 15:19:18 +0000 |
| commit | 8b75acd3ca25165536f18976c8d80cb62ad613e4 (patch) | |
| tree | ccb87f6f5df2af15ca2ca8f65e5163b1f34886b8 /rts/Stable.h | |
| parent | 657773c8e59917fda05ee08065ec566aebb50a5f (diff) | |
| download | haskell-8b75acd3ca25165536f18976c8d80cb62ad613e4.tar.gz | |
Make forkProcess work with +RTS -N
Consider this experimental for the time being. There are a lot of
things that could go wrong, but I've verified that at least it works
on the test cases we have.
I also did some API cleanups while I was here. Previously we had:
Capability * rts_eval (Capability *cap, HaskellObj p, /*out*/HaskellObj *ret);
but this API is particularly error-prone: if you forget to discard the
Capability * you passed in and use the return value instead, then
you're in for subtle bugs with +RTS -N later on. So I changed all
these functions to this form:
void rts_eval (/* inout */ Capability **cap,
/* in */ HaskellObj p,
/* out */ HaskellObj *ret)
It's much harder to use this version incorrectly, because you have to
pass the Capability in by reference.
Diffstat (limited to 'rts/Stable.h')
| -rw-r--r-- | rts/Stable.h | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/rts/Stable.h b/rts/Stable.h index d7b7f8bb1e..bec932af97 100644 --- a/rts/Stable.h +++ b/rts/Stable.h @@ -33,6 +33,11 @@ void updateStablePtrTable ( rtsBool full ); void stablePtrPreGC ( void ); void stablePtrPostGC ( void ); +#ifdef THREADED_RTS +// needed by Schedule.c:forkProcess() +extern Mutex stable_mutex; +#endif + #include "EndPrivate.h" #endif /* STABLE_H */ |