[project @ 1996-07-25 20:43:49 by partain]

[ghc-hetmet.git] / ghc / includes / Threads.lh

diff --git a/ghc/includes/Threads.lh b/ghc/includes/Threads.lh
index 4b9a722..f0f88a5 100644 (file)
--- a/ghc/includes/Threads.lh
+++ b/ghc/includes/Threads.lh
@@ -133,9 +133,6 @@ extern I_ threadId;
 void ScheduleThreads PROTO((P_ topClosure));
 
 #if defined(GRAN)
-#define OLD_SPARKNAME_MASK        0xffff0000
-#define NEW_SPARKNAME_MASK        0x0000ffff
-
 void ReSchedule PROTO((int what_next)) STG_NORETURN;
 void add_to_spark_queue PROTO((sparkq));
 int set_sparkname PROTO((P_, int));