-%
-% (c) The GRASP/AQUA Project, Glasgow University, 1995
-%
-\subsection[getCPUTime.lc]{getCPUTime Runtime Support}
-
-\begin{code}
+/*
+ * (c) The GRASP/AQUA Project, Glasgow University, 1994-1998
+ *
+ * $Id: getCPUTime.c,v 1.1 1998/04/10 10:54:34 simonm Exp $
+ *
+ * getCPUTime Runtime Support
+ */
#ifndef _AIX
#define NON_POSIX_SOURCE /*needed for solaris2 only?*/
#define _INCLUDE_HPUX_SOURCE
#endif
-#include "rtsdefs.h"
+#include "Rts.h"
#ifdef HAVE_SYS_TYPES_H
#include <sys/types.h>
#endif
StgInt
-clockTicks ()
+clockTicks (void)
{
return (
#if defined(CLK_TCK)
return NULL;
# endif
#endif
- return (StgByteArray) cpuStruct;
+ return (StgByteArray)cpuStruct;
}
-
-\end{code}
-