/* -----------------------------------------------------------------------------
- * $Id: Schedule.c,v 1.13 1999/03/02 20:04:03 sof Exp $
+ * $Id: Schedule.c,v 1.14 1999/03/03 19:05:55 sof Exp $
*
* (c) The GHC Team, 1998-1999
*
#include "Profiling.h"
#include "Sanity.h"
-#ifdef HAVE_WINDOWS_H
-#include <windows.h>
-#endif
-
-#define IS_CHARLIKE_CLOSURE(p) ( stgCast(StgPtr,p) >= stgCast(StgPtr,CHARLIKE_closure) && stgCast(char*,p) <= (stgCast(char*,CHARLIKE_closure) + 255 * sizeof(StgIntCharlikeClosure)))
-#define IS_INTLIKE_CLOSURE(p) ( stgCast(StgPtr,p) >= stgCast(StgPtr,INTLIKE_closure) && stgCast(char*,p) <= (stgCast(char*,INTLIKE_closure) + 32 * sizeof(StgIntCharlikeClosure)))
-
StgTSO *run_queue_hd, *run_queue_tl;
StgTSO *blocked_queue_hd, *blocked_queue_tl;
StgTSO *ccalling_threads;
* code, so we have to push a dummy closure on the top which just
* returns to the next return address on the stack.
*/
- if ( LOOKS_LIKE_GHC_INFO(*sp) ) {
+ if ( LOOKS_LIKE_GHC_INFO((void*)*sp) ) {
*(--sp) = (W_)&dummy_ret_closure;
}