[project @ 1996-01-11 14:06:51 by partain]

[ghc-hetmet.git] / ghc / runtime / io / getCPUTime.lc

diff --git a/ghc/runtime/io/getCPUTime.lc b/ghc/runtime/io/getCPUTime.lc
index 9c82307..0a5d1a5 100644 (file)
--- a/ghc/runtime/io/getCPUTime.lc
+++ b/ghc/runtime/io/getCPUTime.lc
@@ -50,10 +50,11 @@
  * seconds to overflow 31 bits.
  */
 
-StgAddr
-getCPUTime(STG_NO_ARGS)
+StgByteArray
+getCPUTime(cpuStruct)
+StgByteArray cpuStruct;
 {
-    static StgInt cpu[4];
+    StgInt *cpu=(StgInt *)cpuStruct;
 
 #if defined(HAVE_GETRUSAGE) && ! irix_TARGET_OS
     struct rusage t;
@@ -84,7 +85,7 @@ getCPUTime(STG_NO_ARGS)
     return NULL;
 # endif
 #endif
-    return (StgAddr) cpu;
+    return (StgByteArray) cpuStruct;
 }
 
 \end{code}