- W_ __mut_once_list; \
- __mut_once_list = generation(bdescr_gen_no(bd)) + \
- OFFSET_generation_mut_once_list; \
- StgMutClosure_mut_link(p1) = W_[__mut_once_list]; \
- W_[__mut_once_list] = p1; \
+ foreign "C" recordMutableGen(p1 "ptr", \
+ generation(TO_W_(bdescr_gen_no(bd))) "ptr"); \