Select Code to Download

SV *
Perl_newSVsv(pTHX_ register SV *const old)
...
    sv_setsv_flags(sv, old, SV_GMAGIC | SV_NOSTEAL);
    return sv;
}

c:\test\perl-5.13.6>findstr SVTYPEMASK *.h
sv.h:#define SVTYPEMASK 0xff
sv.h:#define SvTYPE(sv) ((svtype)((sv)->sv_flags & SVTYPEMASK))
sv.h:#define SvIS_FREED(sv)     ((sv)->sv_flags == SVTYPEMASK)