From: sof <unknown>
Date: Wed, 3 Mar 1999 19:05:55 +0000 (+0000)
Subject: [project @ 1999-03-03 19:05:55 by sof]
X-Git-Tag: Approximately_9120_patches~6432
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=bbb6ab9815b0478fda5658602d55e6c59b6e89f9;p=ghc-hetmet.git

[project @ 1999-03-03 19:05:55 by sof]
remove unused include + macros
---

diff --git a/ghc/rts/Schedule.c b/ghc/rts/Schedule.c
index 8b65761..449ad24 100644
--- a/ghc/rts/Schedule.c
+++ b/ghc/rts/Schedule.c
@@ -1,5 +1,5 @@
 /* -----------------------------------------------------------------------------
- * $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;
     }