Commit bbb6ab98 authored by sof's avatar sof
Browse files

[project @ 1999-03-03 19:05:55 by sof]

remove unused include + macros
parent 9bebeb69
/* -----------------------------------------------------------------------------
* $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
*
......@@ -26,13 +26,6 @@
#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;
......@@ -194,7 +187,7 @@ void deleteThread(StgTSO *tso)
* 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;
}
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment