[project @ 1998-04-10 10:54:14 by simonm]

[ghc-hetmet.git] / ghc / lib / std / cbits / showTime.c

diff --git a/ghc/lib/std/cbits/showTime.lc b/ghc/lib/std/cbits/showTime.c
similarity index 83%
rename from ghc/lib/std/cbits/showTime.lc
rename to ghc/lib/std/cbits/showTime.c
index 08adcd5..3e2bfd7 100644 (file)
--- a/ghc/lib/std/cbits/showTime.lc
+++ b/ghc/lib/std/cbits/showTime.c
@@ -1,11 +1,12 @@
-%
-% (c) The GRASP/AQUA Project, Glasgow University, 1995
-%
-\subsection[showTime.lc]{ClockTime.showsPrec Runtime Support}
+/* 
+ * (c) The GRASP/AQUA Project, Glasgow University, 1994-1998
+ *
+ * $Id: showTime.c,v 1.1 1998/04/10 10:54:53 simonm Exp $
+ *
+ * ClockTime.showsPrec Runtime Support
+ */
 
-\begin{code}
-
-#include "rtsdefs.h"
+#include "Rts.h"
 #include "stgio.h"
 
 #if TIME_WITH_SYS_TIME
@@ -48,4 +49,3 @@ showTime(I_ size, StgByteArray d, StgByteArray buf)
        return (StgAddr)buf;
     return (StgAddr)strcpy(buf, "ClockTime.show{LibTime}: internal error");
 }
-\end{code}