From: wolfgang <unknown>
Date: Wed, 30 Mar 2005 16:45:58 +0000 (+0000)
Subject: [project @ 2005-03-30 16:45:58 by wolfgang]
X-Git-Tag: Initial_conversion_from_CVS_complete~846
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=9d6c826bf78641d0e07a4c9fd93d6172fdb4afc1;p=ghc-hetmet.git

[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).
---

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;				\