X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FSchedule.c;h=43c9b2a02441498369622a371ee0d784f1cde555;hb=b64c79adfe3b06c3a1633b5bedde0a507e30247e;hp=7c1d9fb24ceac5f06853e9ce9825cfc28020136b;hpb=bfe90953c7700efb3b62a7c63a823608add077b8;p=ghc-hetmet.git

diff --git a/rts/Schedule.c b/rts/Schedule.c
index 7c1d9fb..43c9b2a 100644
--- a/rts/Schedule.c
+++ b/rts/Schedule.c
@@ -709,7 +709,7 @@ schedulePushWork(Capability *cap USED_IF_THREADS,
     Capability *free_caps[n_capabilities], *cap0;
     nat i, n_free_caps;
 
-    // migration can be turned off with +RTS -qg
+    // migration can be turned off with +RTS -qm
     if (!RtsFlags.ParFlags.migrate) return;
 
     // Check whether we have more threads on our run queue, or sparks
@@ -779,7 +779,6 @@ schedulePushWork(Capability *cap USED_IF_THREADS,
 		    setTSOLink(cap, prev, t);
 		    prev = t;
 		} else {
-		    debugTrace(DEBUG_sched, "pushing thread %lu to capability %d", (unsigned long)t->id, free_caps[i]->no);
 		    appendToRunQueue(free_caps[i],t);
 
             traceEventMigrateThread (cap, t, free_caps[i]->no);