X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=includes%2FSchedAPI.h;fp=includes%2FSchedAPI.h;h=b11437bda20123a1a821d03cf4de887b936d33bc;hb=dd56e9ab4544e83d27532a8d9058140bfe81825c;hp=8dff6ea63db55837524fbe0bfb0fcd8d45078a25;hpb=cfe2fd2a36f43c1f998bb5e7c0cec15480ed3f96;p=ghc-hetmet.git

diff --git a/includes/SchedAPI.h b/includes/SchedAPI.h
index 8dff6ea..b11437b 100644
--- a/includes/SchedAPI.h
+++ b/includes/SchedAPI.h
@@ -10,19 +10,10 @@
 #ifndef SCHEDAPI_H
 #define SCHEDAPI_H
 
-#if defined(GRAN)
-/* Dummy def for NO_PRI if not in GranSim */
-#define NO_PRI  0
-#endif
-
 /* 
  * Creating threads
  */
-#if defined(GRAN)
-StgTSO *createThread (Capability *cap, nat stack_size, StgInt pri);
-#else
 StgTSO *createThread (Capability *cap, nat stack_size);
-#endif
 
 Capability *scheduleWaitThread (StgTSO *tso, /*out*/HaskellObj* ret,
 				Capability *cap);