[commit: ghc] master: Schedule.c: remove unused code (ed57a34)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/ed57a347e428570f639094c705e2b5dcf4c55b03/ghc

>---------------------------------------------------------------

commit ed57a347e428570f639094c705e2b5dcf4c55b03
Author: Ömer Sinan Ağacan <omeragacan at gmail.com>
Date:   Wed Apr 11 10:50:11 2018 +0300

    Schedule.c: remove unused code


>---------------------------------------------------------------

ed57a347e428570f639094c705e2b5dcf4c55b03
 rts/Schedule.c | 13 -------------
 1 file changed, 13 deletions(-)

diff --git a/rts/Schedule.c b/rts/Schedule.c
index 33b7815..27ef6a6 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