1 /* -----------------------------------------------------------------------------
2 * $Id: Trace.c,v 1.4 1999/08/26 08:24:16 panne Exp $
4 * User-overridable RTS hooks.
6 * ---------------------------------------------------------------------------*/
11 PreTraceHook (long fd STG_UNUSED)
13 /* Default is not to print anything, however this might be useful:
15 * const char msg[]="\nTrace On:\n";
16 * write(fd,msg,sizeof(msg)-1);
21 PostTraceHook (long fd STG_UNUSED)
23 /* Default is not to print anything, however this might be useful:
25 * const char msg[]="\nTrace Off.\n";
26 * write(fd,msg,sizeof(msg)-1);