From 9d6c826bf78641d0e07a4c9fd93d6172fdb4afc1 Mon Sep 17 00:00:00 2001
From: wolfgang <unknown>
Date: Wed, 30 Mar 2005 16:45:58 +0000
Subject: [PATCH] [project @ 2005-03-30 16:45:58 by wolfgang] Track size
 change of alloc_blocks and alloc_blocks_lim.

(They are of type nat, which used to be the same size as W_, but now is
the same size as CInt).
---
 ghc/includes/Cmm.h |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ghc/includes/Cmm.h b/ghc/includes/Cmm.h
index 21c8257..ff36196 100644
--- a/ghc/includes/Cmm.h
+++ b/ghc/includes/Cmm.h
@@ -318,7 +318,7 @@
    TICK_ALLOC_HEAP_NOCTR(alloc);
 
 #define MAYBE_GC(liveness,reentry)			\
-   if (W_[alloc_blocks] >= W_[alloc_blocks_lim]) {	\
+   if (CInt[alloc_blocks] >= CInt[alloc_blocks_lim]) {	\
 	R9  = liveness;					\
         R10 = reentry;					\
         jump stg_gc_gen_hp;				\
-- 
1.7.10.4