diff options
Diffstat (limited to 'rts')
| -rw-r--r-- | rts/RtsMain.c | 2 | ||||
| -rw-r--r-- | rts/Schedule.h | 2 | ||||
| -rw-r--r-- | rts/Sparks.h | 2 | ||||
| -rw-r--r-- | rts/Threads.c | 2 |
4 files changed, 1 insertions, 7 deletions
diff --git a/rts/RtsMain.c b/rts/RtsMain.c index 154eafa0e0..48df8e9db7 100644 --- a/rts/RtsMain.c +++ b/rts/RtsMain.c @@ -54,8 +54,6 @@ int hs_main ( int argc, char *argv[], // program args // to mainIO_closure representing the computation of the overall program; // then enter the scheduler with this thread and off we go; // - // the same for GranSim (we have only one instance of this code) - // // in a parallel setup, where we have many instances of this code // running on different PEs, we should do this only for the main PE // (IAmMainThread is set in startupHaskell) diff --git a/rts/Schedule.h b/rts/Schedule.h index d61be04bb7..eb5135b365 100644 --- a/rts/Schedule.h +++ b/rts/Schedule.h @@ -96,8 +96,6 @@ extern volatile StgWord recent_activity; /* Thread queues. * Locks required : sched_mutex - * - * In GranSim we have one run/blocked_queue per PE. */ extern StgTSO *blackhole_queue; #if !defined(THREADED_RTS) diff --git a/rts/Sparks.h b/rts/Sparks.h index e381dd540f..98ee3c872d 100644 --- a/rts/Sparks.h +++ b/rts/Sparks.h @@ -2,7 +2,7 @@ * * (c) The GHC Team, 2000-2009 * - * Sparking support for GRAN, PAR and THREADED_RTS versions of the RTS. + * Sparking support for PAR and THREADED_RTS versions of the RTS. * * ---------------------------------------------------------------------------*/ diff --git a/rts/Threads.c b/rts/Threads.c index 99f2be7304..ce297bd34e 100644 --- a/rts/Threads.c +++ b/rts/Threads.c @@ -53,8 +53,6 @@ static StgThreadID next_thread_id = 1; createGenThread() and createIOThread() (in SchedAPI.h) are convenient packaged versions of this function. - - currently pri (priority) is only used in a GRAN setup -- HWL ------------------------------------------------------------------------ */ StgTSO * createThread(Capability *cap, W_ size) |