From: andy <unknown>
Date: Tue, 25 Apr 2000 17:47:43 +0000 (+0000)
Subject: [project @ 2000-04-25 17:47:42 by andy]
X-Git-Tag: Approximately_9120_patches~4612
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=2878ae561adc49685cf0ac7cf43bb4e6b3f2eddb;p=ghc-hetmet.git

[project @ 2000-04-25 17:47:42 by andy]
Adding trivial entry counter.
---

diff --git a/ghc/rts/Evaluator.c b/ghc/rts/Evaluator.c
index ac0c986..a51c1aa 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 a6e46f7..6c680e1 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;