From 87d802b905589544f8a96c760a33e89aafd53b0a Mon Sep 17 00:00:00 2001
From: keithw <unknown>
Date: Thu, 7 Mar 2002 17:53:05 +0000
Subject: [PATCH] [project @ 2002-03-07 17:53:05 by keithw] Resurrect
 GC_SEL_MAJOR_ctr, GC_SEL_MINOR_ctr, GC_SEL_ABANDONED_ctr
 (untested).

---
 ghc/rts/GC.c |    9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/ghc/rts/GC.c b/ghc/rts/GC.c
index 92a4514..11f7911 100644
--- a/ghc/rts/GC.c
+++ b/ghc/rts/GC.c
@@ -1,5 +1,5 @@
 /* -----------------------------------------------------------------------------
- * $Id: GC.c,v 1.130 2002/02/18 13:26:12 sof Exp $
+ * $Id: GC.c,v 1.131 2002/03/07 17:53:05 keithw Exp $
  *
  * (c) The GHC Team 1998-1999
  *
@@ -1670,6 +1670,7 @@ loop:
 
 	  // perform the selection! 
 	  q = selectee->payload[offset];
+          if (major_gc==rtsTrue) {TICK_GC_SEL_MAJOR();} else {TICK_GC_SEL_MINOR();}
 
 	  /* if we're already in to-space, there's no need to continue
 	   * with the evacuation, just update the source address with
@@ -1723,8 +1724,10 @@ loop:
 		  thunk_selector_depth--;
 		  goto selector_loop;
 	      }
-	  }
-	  // otherwise, fall through... 
+	  } else {
+              TICK_GC_SEL_ABANDONED();
+              // and fall through...
+          }
 #         endif
 
       case AP_UPD:
-- 
1.7.10.4