X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;ds=sidebyside;f=ghc%2Fincludes%2FThreads.lh;h=f0f88a5474c0b5d17117db48a805dc1c493aed3e;hb=5eb1c77c795f92ed0f4c8023847e9d4be1a4fd0d;hp=4b9a72201e5d519b8269a9c72fd2896a3b69debd;hpb=a7e6cdbfc4f27c2e0ab9c12ebe6431c246c74c6d;p=ghc-hetmet.git

diff --git a/ghc/includes/Threads.lh b/ghc/includes/Threads.lh
index 4b9a722..f0f88a5 100644
--- 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));