From 2878ae561adc49685cf0ac7cf43bb4e6b3f2eddb Mon Sep 17 00:00:00 2001
From: andy <unknown>
Date: Tue, 25 Apr 2000 17:47:43 +0000
Subject: [PATCH] [project @ 2000-04-25 17:47:42 by andy] Adding trivial entry
counter.
---
ghc/rts/Evaluator.c | 7 ++++---
ghc/rts/Evaluator.h | 4 +++-
2 files changed, 7 insertions(+), 4 deletions(-)
diff --git a/ghc/rts/Evaluator.c b/ghc/rts/Evaluator.c
index ac0c986b3d91..a51c1aadea6d 100644
--- a/ghc/rts/Evaluator.c
+++ b/ghc/rts/Evaluator.c
@@ -5,8 +5,8 @@
* 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"
@@ -491,6 +491,8 @@ StgThreadReturnCode enter( Capability* cap, StgClosure* obj0 )
enterLoop:
+ numEnters++;
+
#ifdef DEBUG
assert(gSp == tSp);
assert(gSu == tSu);
@@ -3518,5 +3520,4 @@ void B__decodeFloat (B* man, I_* exp, StgFloat flt)
}
#endif /* FLOATS_AS_DOUBLES */
-
#endif /* INTERPRETER */
diff --git a/ghc/rts/Evaluator.h b/ghc/rts/Evaluator.h
index a6e46f73ce92..6c680e1cb344 100644
--- a/ghc/rts/Evaluator.h
+++ b/ghc/rts/Evaluator.h
@@ -1,5 +1,5 @@
/* -----------------------------------------------------------------------------
- * $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
*
@@ -51,3 +51,5 @@ extern void PushTaggedDouble ( StgDouble );
extern void PushPtr ( StgPtr );
extern StgPtr PopPtr ( void );
+
+extern int numEnters;
--
GitLab