[project @ 2004-02-15 13:29:44 by krasimir]

[ghc-hetmet.git] / ghc / compiler / parser / hschooks.c

diff --git a/ghc/compiler/parser/hschooks.c b/ghc/compiler/parser/hschooks.c
index 345c0b5..17c11fa 100644 (file)
--- a/ghc/compiler/parser/hschooks.c
+++ b/ghc/compiler/parser/hschooks.c
@@ -58,23 +58,7 @@ setHeapSize( HsInt size )
 }
 
 void
-PreTraceHook (long fd)
-{
-    const char msg[]="\n";
-    write(fd,msg,sizeof(msg)-1);
-}
-
-void
-PostTraceHook (long fd)
-{
-#if 0
-    const char msg[]="\n";
-    write(fd,msg,sizeof(msg)-1);
-#endif
-}
-
-void
-OutOfHeapHook (unsigned long request_size/* always zero these days */, 
+OutOfHeapHook (unsigned long request_size/* always zero these days */,
               unsigned long heap_size)
     /* both in bytes */
 {