From: keithw <unknown>
Date: Thu, 7 Mar 2002 17:53:05 +0000 (+0000)
Subject: [project @ 2002-03-07 17:53:05 by keithw]
X-Git-Tag: Approx_11550_changesets_converted~2297
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=87d802b905589544f8a96c760a33e89aafd53b0a;p=ghc-hetmet.git

[project @ 2002-03-07 17:53:05 by keithw]
Resurrect GC_SEL_MAJOR_ctr, GC_SEL_MINOR_ctr, GC_SEL_ABANDONED_ctr
(untested).
---

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: