[project @ 1998-08-14 10:50:30 by sof]

[ghc-hetmet.git] / ghc / runtime / hooks / TraceHooks.lc

diff --git a/ghc/runtime/hooks/TraceHooks.lc b/ghc/runtime/hooks/TraceHooks.lc
index 67b7ea3..fc0e60e 100644 (file)
--- a/ghc/runtime/hooks/TraceHooks.lc
+++ b/ghc/runtime/hooks/TraceHooks.lc
@@ -2,14 +2,21 @@
 #include "rtsdefs.h"
 
 void
-PreTraceHook (FILE *where)
+PreTraceHook (StgInt fd)
 {
-    fprintf(where, "Trace On:\n");
+/* By default, a trace msg doesn't have a header (nor a footer) */
+#if 0
+    const char msg[]="Trace On:\n";
+    write(fd,msg,sizeof(msg)-1);
+#endif
 }
 
 void
-PostTraceHook (FILE *where)
+PostTraceHook (StgInt fd)
 {
-    fprintf(where, "\nTrace Off.\n");
+#if 0
+    const char msg[]="\nTrace Off.\n";
+    write(fd,msg,sizeof(msg)-1);
+#endif
 }
 \end{code}