diff options
| author | sof <unknown> | 1997-11-24 21:16:23 +0000 |
|---|---|---|
| committer | sof <unknown> | 1997-11-24 21:16:23 +0000 |
| commit | c9e503087d995b5b0404560f63a3f2e0cb33e218 (patch) | |
| tree | 4938d90c2ab38f1dae4cde63d05f2d71f22653c5 /ghc/includes/Threads.lh | |
| parent | 71ece49334f1f2a4eac3f6c6f49ebf138fadf044 (diff) | |
| download | haskell-c9e503087d995b5b0404560f63a3f2e0cb33e218.tar.gz | |
[project @ 1997-11-24 21:16:23 by sof]
Only expose sparksIgnored and sparksCreated vars for GUM/GranSim
Diffstat (limited to 'ghc/includes/Threads.lh')
| -rw-r--r-- | ghc/includes/Threads.lh | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/ghc/includes/Threads.lh b/ghc/includes/Threads.lh index 48e10efd92..a8d2e8d638 100644 --- a/ghc/includes/Threads.lh +++ b/ghc/includes/Threads.lh @@ -82,7 +82,9 @@ extern I_ SparkLimit[SPARK_POOLS]; extern P_ RunnableThreadsHd, RunnableThreadsTl; extern P_ WaitingThreadsHd, WaitingThreadsTl; -extern I_ sparksIgnored; +#if defined(PAR) +extern I_ sparksIgnored, sparksCreated; +#endif IF_RTS(extern void AwaitEvent(I_);) |