X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FUpdates.h;h=bf4f89dd2a4f584d69b43cf305b2c62eb75dcb9e;hb=085d9de94b86e1559de064528d6480ee27de9091;hp=3b374094761794edd5a01cffa60747258ab7ef57;hpb=7d7c187b4a12f1bb350e85cdb0115e19537cc704;p=ghc-hetmet.git

diff --git a/rts/Updates.h b/rts/Updates.h
index 3b37409..bf4f89d 100644
--- a/rts/Updates.h
+++ b/rts/Updates.h
@@ -9,7 +9,9 @@
 #ifndef UPDATES_H
 #define UPDATES_H
 
-#pragma GCC visibility push(hidden)
+#ifndef CMINUSMINUS
+BEGIN_RTS_PRIVATE
+#endif
 
 /* -----------------------------------------------------------------------------
    Updates
@@ -189,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);					\
@@ -228,6 +230,8 @@ no_slop:
   }
 #endif /* CMINUSMINUS */
 
-#pragma GCC visibility pop
+#ifndef CMINUSMINUS
+END_RTS_PRIVATE
+#endif
 
 #endif /* UPDATES_H */