[project @ 2004-09-09 11:38:09 by stolz]

[ghc-hetmet.git] / ghc / rts / Schedule.h

diff --git a/ghc/rts/Schedule.h b/ghc/rts/Schedule.h
index 588ddc5..8924a62 100644 (file)
--- a/ghc/rts/Schedule.h
+++ b/ghc/rts/Schedule.h
@@ -158,7 +158,6 @@ extern nat         RTS_VAR(rts_n_waiting_tasks);
 
 StgBool rtsSupportsBoundThreads(void);
 StgBool isThreadBound(StgTSO *tso);
-StgInt forkProcess(HsStablePtr *entry);
 
 extern SchedulerStatus rts_mainLazyIO(HaskellObj p, /*out*/HaskellObj *ret);
 
@@ -315,7 +314,8 @@ startSchedulerTaskIfNecessary(void);
 #endif
 
 #ifdef DEBUG
-extern void sched_belch(char *s, ...);
+extern void sched_belch(char *s, ...)
+   GNU_ATTRIBUTE(format (printf, 1, 2));
 #endif
 
 #endif /* __SCHEDULE_H__ */