/* ----------------------------------------------------------------------------
- * $Id: RtsAPI.c,v 1.33 2002/02/15 07:40:10 sof Exp $
+ * $Id: RtsAPI.c,v 1.34 2002/04/13 05:28:04 sof Exp $
*
* (c) The GHC Team, 1998-2001
*
#if defined(THREADED_RTS)
#define WAIT_MAIN_THREAD(tso,ret) waitThread_(tso,ret,rtsFalse)
+#define WAIT_EXT_THREAD(tso,ret) waitThread_(tso,ret,rtsTrue)
#else
#define WAIT_MAIN_THREAD(tso,ret) waitThread(tso,ret)
+#define WAIT_EXT_THREAD(tso,ret) waitThread(tso,ret)
#endif
#if defined(RTS_SUPPORTS_THREADS)
tso = createGenThread(RtsFlags.GcFlags.initialStkSize, p);
releaseAllocLock();
scheduleExtThread(tso);
- return waitThread(tso, ret);
+ return WAIT_EXT_THREAD(tso, ret);
}
SchedulerStatus
tso = createGenThread(stack_size, p);
releaseAllocLock();
scheduleExtThread(tso);
- return waitThread(tso, ret);
+ return WAIT_EXT_THREAD(tso, ret);
}
/*
tso = createStrictIOThread(RtsFlags.GcFlags.initialStkSize, p);
releaseAllocLock();
scheduleExtThread(tso);
- return waitThread(tso, ret);
+ return WAIT_EXT_THREAD(tso, ret);
}
/*
tso = createStrictIOThread(RtsFlags.GcFlags.initialStkSize, p);
releaseAllocLock();
scheduleExtThread(tso);
- stat = waitThread(tso, &r);
+ stat = WAIT_EXT_THREAD(tso, &r);
if (stat == Success) {
ASSERT(r != NULL);
tso = createIOThread(stack_size, p);
releaseAllocLock();
scheduleExtThread(tso);
- return waitThread(tso, ret);
+ return WAIT_EXT_THREAD(tso, ret);
}
/* Convenience function for decoding the returned status. */