view release on metacpan or  search on metacpan

Gladiator.xs  view on Meta::CPAN

#include "ppport.h"


MODULE = Devel::Gladiator		PACKAGE = Devel::Gladiator



SV*
walk_arena()
PPCODE:
{
  SV* sva;
  I32 visited = 0;
  AV* av = newAV();
  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) {
      if (SvTYPE(svi) != SVTYPEMASK
          && SvREFCNT(svi)