- // Grab the fun, but remember to add in the tag. The GC doesn't
- // guarantee to retain the tag on the pointer, so we have to do
- // it manually, because the function entry code assumes it.
- W_ ret_fun;
- ret_fun = Sp;
- R1 = StgRetFun_fun(ret_fun) | TO_W_(StgRetFun_tag(ret_fun));