From: Simon Marlow <simonmar@microsoft.com>
Date: Mon, 5 Mar 2007 14:45:50 +0000 (+0000)
Subject: forkProcess: startTimer() in the child, because the timer will be reset
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=f70052e9dd0492e2e73e96b54ae97c5ee6bf24a3;p=ghc-hetmet.git

forkProcess: startTimer() in the child, because the timer will be reset
---

diff --git a/rts/Schedule.c b/rts/Schedule.c
index b405759..e328b5b 100644
--- a/rts/Schedule.c
+++ b/rts/Schedule.c
@@ -2195,6 +2195,10 @@ forkProcess(HsStablePtr *entry
 	cap->returning_tasks_tl = NULL;
 #endif
 
+        // On Unix, all timers are reset in the child, so we need to start
+        // the timer again.
+        startTimer();
+
 	cap = rts_evalStableIO(cap, entry, NULL);  // run the action
 	rts_checkSchedStatus("forkProcess",cap);