diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2012-08-05 00:48:00 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2012-08-05 13:18:58 -0700 |
| commit | bb02a38febc60a289c616282d720015be97842a4 (patch) | |
| tree | c4815a82ac0e870532c5d44f70f4a6fb04c9c0bd /ext | |
| parent | dea823b3f7c22fea989211dbe1bed7a34d49e39a (diff) | |
| download | perl-bb02a38febc60a289c616282d720015be97842a4.tar.gz | |
Add a depth field to formats
Instead of lengthening the struct, we can reuse SvCUR, which is cur-
rently unused.
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/B/B.xs | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/ext/B/B.xs b/ext/B/B.xs index 9c9133b9ff..2c3d7f8b94 100644 --- a/ext/B/B.xs +++ b/ext/B/B.xs @@ -1449,7 +1449,6 @@ MODULE = B PACKAGE = B::IV #define PVCV_stash_ix sv_SVp | offsetof(struct xpvcv, xcv_stash) #define PVCV_gv_ix sv_SVp | offsetof(struct xpvcv, xcv_gv) #define PVCV_file_ix sv_char_pp | offsetof(struct xpvcv, xcv_file) -#define PVCV_depth_ix sv_I32p | offsetof(struct xpvcv, xcv_depth) #define PVCV_padlist_ix sv_SVp | offsetof(struct xpvcv, xcv_padlist) #define PVCV_outside_ix sv_SVp | offsetof(struct xpvcv, xcv_outside) #define PVCV_outside_seq_ix sv_U32p | offsetof(struct xpvcv, xcv_outside_seq) @@ -1505,7 +1504,6 @@ IVX(sv) B::CV::STASH = PVCV_stash_ix B::CV::GV = PVCV_gv_ix B::CV::FILE = PVCV_file_ix - B::CV::DEPTH = PVCV_depth_ix B::CV::PADLIST = PVCV_padlist_ix B::CV::OUTSIDE = PVCV_outside_ix B::CV::OUTSIDE_SEQ = PVCV_outside_seq_ix @@ -1984,6 +1982,10 @@ CvSTART(cv) PUSHs(make_op_object(aTHX_ CvISXSUB(cv) ? NULL : ix ? CvROOT(cv) : CvSTART(cv))); +I32 +CvDEPTH(cv) + B::CV cv + void CvXSUB(cv) B::CV cv |