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)