diff options
author | Father Chrysostomos <sprout@cpan.org> | 2012-08-17 16:52:50 -0700 |
---|---|---|
committer | Father Chrysostomos <sprout@cpan.org> | 2012-08-17 18:15:43 -0700 |
commit | 501ba3026277333479fde2f8462a44127ed55fa9 (patch) | |
tree | 38ab9c1a72d8f854658be92a0c3929a70afd567c /cv.h | |
parent | 40429ee3823684b44041b4036cd3ba2322094f97 (diff) | |
download | perl-501ba3026277333479fde2f8462a44127ed55fa9.tar.gz |
sv.h: Don’t repeat _XPV_HEAD
Diffstat (limited to 'cv.h')
-rw-r--r-- | cv.h | 6 |
1 files changed, 1 insertions, 5 deletions
@@ -66,11 +66,7 @@ S_CvDEPTHp(const CV * const sv) { return SvTYPE(sv) == SVt_PVCV ? &((XPVCV*)SvANY(sv))->xcv_depth -#if defined(_MSC_VER) && _MSC_VER < 1300 - : &((XPVCV*)SvANY(sv))->xpvcuru_fmdepth; -#else - : &((XPVCV*)SvANY(sv))->xpv_cur_u.xpvcuru_fmdepth; -#endif + : &((XPVCV*)SvANY(sv))->xpv_fmdepth; } #if defined(__GNUC__) && !defined(PERL_GCC_BRACE_GROUPS_FORBIDDEN) # define CvDEPTH(sv) (*({const CV *const _cvdepth = (const CV *)sv; \ |