X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FSchedule.c;h=8db125da743d0f802f3ab2d3b1c6f3ef385c175e;hb=90490258815d898ec35c072bc459e690870a9c4b;hp=66a13883f0c780561dff118e547e159a0285dd9a;hpb=2007d2138cf17efe6a1701510dbafdfc30e8926c;p=ghc-hetmet.git

diff --git a/rts/Schedule.c b/rts/Schedule.c
index 66a1388..8db125d 100644
--- a/rts/Schedule.c
+++ b/rts/Schedule.c
@@ -1533,10 +1533,14 @@ forkProcess(HsStablePtr *entry
     ACQUIRE_LOCK(&cap->lock);
     ACQUIRE_LOCK(&cap->running_task->lock);
 
+    stopTimer(); // See #4074
+
     pid = fork();
     
     if (pid) { // parent
 	
+        startTimer(); // #4074
+
         RELEASE_LOCK(&sched_mutex);
         RELEASE_LOCK(&cap->lock);
         RELEASE_LOCK(&cap->running_task->lock);