diff options
| author | Ömer Sinan Ağacan <omeragacan@gmail.com> | 2018-04-11 10:50:11 +0300 |
|---|---|---|
| committer | Ömer Sinan Ağacan <omeragacan@gmail.com> | 2018-04-11 10:50:11 +0300 |
| commit | ed57a347e428570f639094c705e2b5dcf4c55b03 (patch) | |
| tree | e18152ad1d256813e63b591292059bbfaf3878fe /rts/Schedule.c | |
| parent | a323f2127bdcfa3893e40cbc1849cf62eccdd801 (diff) | |
| download | haskell-ed57a347e428570f639094c705e2b5dcf4c55b03.tar.gz | |
Schedule.c: remove unused code
Diffstat (limited to 'rts/Schedule.c')
| -rw-r--r-- | rts/Schedule.c | 13 |
1 files changed, 0 insertions, 13 deletions
diff --git a/rts/Schedule.c b/rts/Schedule.c index 33b7815a1f..27ef6a62e4 100644 --- a/rts/Schedule.c +++ b/rts/Schedule.c @@ -180,9 +180,6 @@ schedule (Capability *initialCapability, Task *task) StgThreadReturnCode ret; uint32_t prev_what_next; bool ready_to_gc; -#if defined(THREADED_RTS) - bool first = true; -#endif cap = initialCapability; @@ -292,16 +289,6 @@ schedule (Capability *initialCapability, Task *task) // as a result of a console event having been delivered. #if defined(THREADED_RTS) - if (first) - { - // XXX: ToDo - // // don't yield the first time, we want a chance to run this - // // thread for a bit, even if there are others banging at the - // // door. - // first = false; - // ASSERT_FULL_CAPABILITY_INVARIANTS(cap,task); - } - scheduleYield(&cap,task); if (emptyRunQueue(cap)) continue; // look for work again |