/* -----------------------------------------------------------------------------
- * $Id: StgCRun.c,v 1.43 2004/08/13 13:57:08 simonmar Exp $
*
* (c) The GHC Team, 1998-2003
*
{
while (f) {
if (RtsFlags[0].DebugFlags.interpreter) {
- fprintf(stderr,"Jumping to ");
+ debugBelch("Jumping to ");
printPtr((P_)f); fflush(stdout);
- fprintf(stderr,"\n");
+ debugBelch("\n");
}
f = (StgFunPtr) (f)();
}