[project @ 2005-11-03 11:05:38 by simonmar]

[ghc-hetmet.git] / ghc / rts / Task.h

diff --git a/ghc/rts/Task.h b/ghc/rts/Task.h
index 0af2345..27af674 100644 (file)
--- a/ghc/rts/Task.h
+++ b/ghc/rts/Task.h
@@ -9,6 +9,8 @@
 #ifndef TASK_H
 #define TASK_H
 
+#include "GetTime.h"
+
 /* 
    Definition of a Task
    --------------------
@@ -132,12 +134,12 @@ typedef struct Task_ {
     // really want separate stats for each call in a nested chain of
     // foreign->haskell->foreign->haskell calls, but we'll get a
     // separate Task for each of the haskell calls.
-    long       elapsedtimestart;
-    long       muttimestart;
-    long       mut_time;
-    long       mut_etime;
-    long       gc_time;
-    long       gc_etime;
+    Ticks       elapsedtimestart;
+    Ticks       muttimestart;
+    Ticks       mut_time;
+    Ticks       mut_etime;
+    Ticks       gc_time;
+    Ticks       gc_etime;
 
     // Links tasks onto various lists. (ToDo: do we need double
     // linking now?)