X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FUpdates.h;h=bf4f89dd2a4f584d69b43cf305b2c62eb75dcb9e;hb=22f78dd456cdf6d6c123556e3f715d008ecd86cd;hp=988fb6059fad04eeb0283a7609357bdae4810eb8;hpb=9a9803e8dc80ba41bd3e2d31228e64fa6b61060e;p=ghc-hetmet.git diff --git a/rts/Updates.h b/rts/Updates.h index 988fb60..bf4f89d 100644 --- a/rts/Updates.h +++ b/rts/Updates.h @@ -191,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); \