X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FUpdates.h;h=bf4f89dd2a4f584d69b43cf305b2c62eb75dcb9e;hb=d305c6b68e06368c2a8d89900a2123388fc39ae1;hp=843be841318af5b89982759134abb45e56e52979;hpb=dd56e9ab4544e83d27532a8d9058140bfe81825c;p=ghc-hetmet.git

diff --git a/rts/Updates.h b/rts/Updates.h
index 843be84..bf4f89d 100644
--- a/rts/Updates.h
+++ b/rts/Updates.h
@@ -9,6 +9,10 @@
 #ifndef UPDATES_H
 #define UPDATES_H
 
+#ifndef CMINUSMINUS
+BEGIN_RTS_PRIVATE
+#endif
+
 /* -----------------------------------------------------------------------------
    Updates
 
@@ -187,7 +191,7 @@ no_slop:
     StgInd_indirectee(p1) = p2;					\
     prim %write_barrier() [];					\
     bd = Bdescr(p1);						\
-    if (bdescr_gen_no(bd) != 0 :: CInt) {			\
+    if (bdescr_gen_no(bd) != 0 :: bits16) {			\
       recordMutableCap(p1, TO_W_(bdescr_gen_no(bd)), R1);  	\
       SET_INFO(p1, stg_IND_OLDGEN_info);			\
       LDV_RECORD_CREATE(p1);					\
@@ -225,4 +229,9 @@ no_slop:
     }								\
   }
 #endif /* CMINUSMINUS */
+
+#ifndef CMINUSMINUS
+END_RTS_PRIVATE
+#endif
+
 #endif /* UPDATES_H */