From ce1a3417380dd75e5b93bd5d13c58658780e12e5 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Thu, 7 Apr 2005 21:27:10 +0000
Subject: [PATCH] [project @ 2005-04-07 21:27:10 by simonmar] Fix compiling
 for way p

---
 ghc/rts/Schedule.c |    8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/ghc/rts/Schedule.c b/ghc/rts/Schedule.c
index bfac574..6e4d955 100644
--- a/ghc/rts/Schedule.c
+++ b/ghc/rts/Schedule.c
@@ -289,7 +289,7 @@ static rtsBool scheduleHandleYield( StgTSO *t, nat prev_what_next );
 static void scheduleHandleThreadBlocked( StgTSO *t );
 static rtsBool scheduleHandleThreadFinished( StgMainThread *mainThread, 
 					     Capability *cap, StgTSO *t );
-static rtsBool scheduleDoHeapProfile(void);
+static rtsBool scheduleDoHeapProfile(rtsBool ready_to_gc);
 static void scheduleDoGC(Capability *cap);
 
 static void unblockThread(StgTSO *tso);
@@ -757,7 +757,7 @@ run_thread:
       barf("schedule: invalid thread return code %d", (int)ret);
     }
 
-    if (scheduleDoHeapProfile()) { ready_to_gc = rtsFalse; }
+    if (scheduleDoHeapProfile(ready_to_gc)) { ready_to_gc = rtsFalse; }
     if (ready_to_gc) { scheduleDoGC(cap); }
   } /* end of while() */
 
@@ -1839,7 +1839,7 @@ scheduleHandleThreadFinished( StgMainThread *mainThread
  * -------------------------------------------------------------------------- */
 
 static rtsBool
-scheduleDoHeapProfile(void)
+scheduleDoHeapProfile( rtsBool ready_to_gc STG_UNUSED )
 {
 #if defined(PROFILING)
     // When we have +RTS -i0 and we're heap profiling, do a census at
@@ -1862,7 +1862,7 @@ scheduleDoHeapProfile(void)
  * -------------------------------------------------------------------------- */
 
 static void
-scheduleDoGC( Capability *cap )
+scheduleDoGC( Capability *cap STG_UNUSED )
 {
     StgTSO *t;
 #ifdef SMP
-- 
1.7.10.4