ghc/runtime/hooks/TraceHooks.lc

   1 \begin{code}
   2 #include "rtsdefs.h"
   3
   4 void
   5 PreTraceHook (StgInt fd)
   6 {
   7 /* By default, a trace msg doesn't have a header (nor a footer) */
   8 #if 0
   9     const char msg[]="Trace On:\n";
  10     write(fd,msg,sizeof(msg)-1);
  11 #endif
  12 }
  13
  14 void
  15 PostTraceHook (StgInt fd)
  16 {
  17 #if 0
  18     const char msg[]="\nTrace Off.\n";
  19     write(fd,msg,sizeof(msg)-1);
  20 #endif
  21 }
  22 \end{code}