Adding trivial entry counter.
* Copyright (c) 1994-1998.
*
* $RCSfile: Evaluator.c,v $
- * $Revision: 1.48 $
- * $Date: 2000/04/14 15:18:06 $
+ * $Revision: 1.49 $
+ * $Date: 2000/04/25 17:47:42 $
* ---------------------------------------------------------------------------*/
#include "Rts.h"
enterLoop:
+ numEnters++;
+
#ifdef DEBUG
assert(gSp == tSp);
assert(gSu == tSu);
}
#endif /* FLOATS_AS_DOUBLES */
-
#endif /* INTERPRETER */
/* -----------------------------------------------------------------------------
- * $Id: Evaluator.h,v 1.6 1999/11/08 15:30:37 sewardj Exp $
+ * $Id: Evaluator.h,v 1.7 2000/04/25 17:47:43 andy Exp $
*
* (c) The GHC Team, 1998-1999
*
extern void PushPtr ( StgPtr );
extern StgPtr PopPtr ( void );
+
+extern int numEnters;