ghc/rts/hooks/Trace.c

   1 /* -----------------------------------------------------------------------------
   2  * $Id: Trace.c,v 1.2 1998/12/02 13:29:16 simonm Exp $
   3  *
   4  * User-overridable RTS hooks.
   5  *
   6  * ---------------------------------------------------------------------------*/
   7
   8 #include "Rts.h"
   9
  10 void
  11 PreTraceHook (long fd)
  12 {
  13   /* Default is not to print anything, however this might be useful:
  14    *
  15    * const char msg[]="\nTrace On:\n";
  16    * write(fd,msg,sizeof(msg)-1);
  17    */
  18 }
  19
  20 void
  21 PostTraceHook (long fd)
  22 {
  23   /* Default is not to print anything, however this might be useful:
  24    *
  25    * const char msg[]="\nTrace Off.\n";
  26    * write(fd,msg,sizeof(msg)-1);
  27    */
  28 }
  29