[project @ 1996-01-08 20:28:12 by partain]

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

diff --git a/ghc/runtime/hooks/TraceHooks.lc b/ghc/runtime/hooks/TraceHooks.lc
new file mode 100644 (file)
index 0000000..a64f9cf
--- /dev/null
+++ b/ghc/runtime/hooks/TraceHooks.lc
@@ -0,0 +1,17 @@
+\begin{code}
+#include "rtsdefs.h"
+
+void
+PreTraceHook (where)
+  FILE *where;
+{
+    fprintf(where, "Trace On:\n");
+}
+
+void
+PostTraceHook (where)
+  FILE *where;
+{
+    fprintf(where, "\nTrace Off.\n");
+}
+\end{code}