X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=includes%2FCmm.h;h=d58eebc424015603667ef6fced915491286f3685;hb=a43af120cd6317d6b8269ff7811c60ed23ac10c2;hp=e494b601023b5d4b672e5ab30413090c02721693;hpb=73566e25d75588185b0581722406da5c48965c51;p=ghc-hetmet.git

diff --git a/includes/Cmm.h b/includes/Cmm.h
index e494b60..d58eebc 100644
--- a/includes/Cmm.h
+++ b/includes/Cmm.h
@@ -328,6 +328,7 @@
   if (bdescr_link(CurrentNursery) == NULL || CInt[alloc_blocks] >= CInt[alloc_blocks_lim]) {		\
 	R9  = liveness;					\
         R10 = reentry;					\
+        HpAlloc = 0;					\
         jump stg_gc_gen_hp;				\
    }
 
@@ -512,8 +513,6 @@
    Misc junk
    -------------------------------------------------------------------------- */
 
-#define TICK_MILLISECS   (1000/TICK_FREQUENCY)   /* ms per tick */
-
 #define NO_TREC        stg_NO_TREC_closure
 #define END_TSO_QUEUE  stg_END_TSO_QUEUE_closure