From: simonmar <unknown>
Date: Mon, 7 Nov 2005 10:20:43 +0000 (+0000)
Subject: [project @ 2005-11-07 10:20:43 by simonmar]
X-Git-Tag: Initial_conversion_from_CVS_complete~64
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=7aad3eb9db1071a0c644e28b4d046b5cd241a32b;hp=080a6a8a80f9d718482681e83d22ecf79a0a5688;p=ghc-hetmet.git

[project @ 2005-11-07 10:20:43 by simonmar]
Fix non-threaded build.
---

diff --git a/ghc/rts/Schedule.c b/ghc/rts/Schedule.c
index 5f186b2..93a64d8 100644
--- a/ghc/rts/Schedule.c
+++ b/ghc/rts/Schedule.c
@@ -2059,8 +2059,10 @@ forkProcess(HsStablePtr *entry
 	}
 	RELEASE_LOCK(&sched_mutex);
 
+#if defined(THREADED_RTS)
 	// wipe our spare workers list.
 	cap->spare_workers = NULL;
+#endif
 
 	cap = rts_evalStableIO(cap, entry, NULL);  // run the action
 	rts_checkSchedStatus("forkProcess",cap);