summaryrefslogtreecommitdiff
path: root/ghc/rts/Task.c
diff options
context:
space:
mode:
authorsimonmar <unknown>2005-11-03 16:20:38 +0000
committersimonmar <unknown>2005-11-03 16:20:38 +0000
commit46a18311f08f3e788e2161bde31f45af41867902 (patch)
tree32fb40d9888249085ea8d882c0ab98d122cf691c /ghc/rts/Task.c
parenta9302861b53fc0bbe66adde14f65bb0d2b7ddfe1 (diff)
downloadhaskell-46a18311f08f3e788e2161bde31f45af41867902.tar.gz
[project @ 2005-11-03 16:20:38 by simonmar]
use getThreadCPUTime, not getProcessTimes
Diffstat (limited to 'ghc/rts/Task.c')
-rw-r--r--ghc/rts/Task.c6
1 files changed, 4 insertions, 2 deletions
diff --git a/ghc/rts/Task.c b/ghc/rts/Task.c
index b8bf1c4c8b..44bbb95471 100644
--- a/ghc/rts/Task.c
+++ b/ghc/rts/Task.c
@@ -97,7 +97,8 @@ newTask (void)
#endif
#if defined(THREADED_RTS)
- getProcessTimes(&currentUserTime, &currentElapsedTime);
+ currentUserTime = getThreadCPUTime();
+ currentElapsedTime = getProcessElapsedTime();
task->mut_time = 0.0;
task->mut_etime = 0.0;
task->gc_time = 0.0;
@@ -194,7 +195,8 @@ taskStop (Task *task)
ASSERT(task->id == id);
ASSERT(myTask() == task);
- getProcessTimes(&currentUserTime, &currentElapsedTime);
+ currentUserTime = getThreadCPUTime();
+ currentElapsedTime = getProcessElapsedTime();
// XXX this is wrong; we want elapsed GC time since the
// Task started.