[project @ 1998-12-02 13:17:09 by simonm]

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

diff --git a/ghc/runtime/hooks/TraceHooks.lc b/ghc/runtime/hooks/TraceHooks.lc
deleted file mode 100644 (file)
index fc0e60e..0000000
--- a/ghc/runtime/hooks/TraceHooks.lc
+++ /dev/null
@@ -1,22 +0,0 @@
-\begin{code}
-#include "rtsdefs.h"
-
-void
-PreTraceHook (StgInt fd)
-{
-/* 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 (StgInt fd)
-{
-#if 0
-    const char msg[]="\nTrace Off.\n";
-    write(fd,msg,sizeof(msg)-1);
-#endif
-}
-\end{code}