view release on metacpan or  search on metacpan

Helper.xs  view on Meta::CPAN

BOOT:
{
    MY_CXT_INIT;
    /* If any of the fields in the my_cxt_t struct need
       to be initialised, do it here.
     */
}

SV*
sweep()
PPCODE:
{
  PTR_TBL_t* tbl = sweep_root();
  AV* av = newAV();
  {
    SV* sva;
    I32 visited = 0;
    for (sva = PL_sv_arenaroot; sva; sva = (SV*)SvANY(sva)) {
      register const SV * const svend = &sva[SvREFCNT(sva)];
      SV* svi;
      for (svi = sva + 1; svi < svend; ++svi) {