Commit e1deb6b0 authored by sewardj's avatar sewardj

[project @ 2000-04-17 14:46:31 by sewardj]

zap call to nameFromOPtr (sigh)
parent deb2d281
/* -----------------------------------------------------------------------------
* $Id: StgCRun.c,v 1.17 2000/04/17 14:42:30 sewardj Exp $
* $Id: StgCRun.c,v 1.18 2000/04/17 14:46:31 sewardj Exp $
*
* (c) The GHC Team, 1998-2000
*
......@@ -71,7 +71,7 @@ extern StgThreadReturnCode StgRun(StgFunPtr f, StgRegTable *basereg)
IF_DEBUG(evaluator,
fprintf(stderr,"Jumping to ");
printPtr((P_)f);
fprintf(stderr," %s\n",nameFromOPtr(f));
fprintf(stderr,"\n");
);
f = (StgFunPtr) (f)();
}
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment