diff options
| author | Larry Wall <larry@netlabs.com> | 1994-03-18 00:00:00 +0000 |
|---|---|---|
| committer | Larry Wall <larry@netlabs.com> | 1994-03-18 00:00:00 +0000 |
| commit | 8990e3071044a96302560bbdb5706f3e74cf1bef (patch) | |
| tree | 6cf4a58108544204591f25bd2d4f1801d49334b4 /cv.h | |
| parent | ed6116ce9b9d13712ea252ee248b0400653db7f9 (diff) | |
| download | perl-8990e3071044a96302560bbdb5706f3e74cf1bef.tar.gz | |
perl 5.0 alpha 6
[editor's note: cleaned up from the September '94 InfoMagic CD, just
like the last commit]
Diffstat (limited to 'cv.h')
| -rw-r--r-- | cv.h | 2 |
1 files changed, 2 insertions, 0 deletions
@@ -22,6 +22,7 @@ struct xpvcv { OP * xcv_root; I32 (*xcv_usersub)(); I32 xcv_userindex; + GV * xcv_gv; GV * xcv_filegv; long xcv_depth; /* >= 2 indicates recursive call */ AV * xcv_padlist; @@ -33,6 +34,7 @@ struct xpvcv { #define CvROOT(sv) ((XPVCV*)SvANY(sv))->xcv_root #define CvUSERSUB(sv) ((XPVCV*)SvANY(sv))->xcv_usersub #define CvUSERINDEX(sv) ((XPVCV*)SvANY(sv))->xcv_userindex +#define CvGV(sv) ((XPVCV*)SvANY(sv))->xcv_gv #define CvFILEGV(sv) ((XPVCV*)SvANY(sv))->xcv_filegv #define CvDEPTH(sv) ((XPVCV*)SvANY(sv))->xcv_depth #define CvPADLIST(sv) ((XPVCV*)SvANY(sv))->xcv_padlist |