X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=includes%2FSchedAPI.h;h=b11437bda20123a1a821d03cf4de887b936d33bc;hb=1b61c2db6a8d6627577bcd7876474a0c5bd1eedb;hp=8dff6ea63db55837524fbe0bfb0fcd8d45078a25;hpb=0065d5ab628975892cea1ec7303f968c3338cbe1;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);