diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1999-10-29 06:08:50 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-10-29 06:08:50 +0000 |
| commit | b195d4879f55e1610299cb9b1b55356940c2a577 (patch) | |
| tree | c435f5d7ca63bfb78dd0ef72f8ff83d41f3479f1 /cv.h | |
| parent | 7934575e193741c310ddb7f01d6d07c9981c3d29 (diff) | |
| download | perl-b195d4879f55e1610299cb9b1b55356940c2a577.tar.gz | |
more cleanup: avoid unused knowledge of "file GV" notion in CV and GV
p4raw-id: //depot/perl@4485
Diffstat (limited to 'cv.h')
| -rw-r--r-- | cv.h | 7 |
1 files changed, 4 insertions, 3 deletions
@@ -24,8 +24,10 @@ struct xpvcv { void (*xcv_xsub) (pTHXo_ CV*); ANY xcv_xsubany; GV * xcv_gv; - GV * xcv_filegv; - long xcv_depth; /* >= 2 indicates recursive call */ +#if defined(PERL_BINCOMPAT_5005) + GV * xcv_filegv; /* XXX unused (and deprecated) */ +#endif + long xcv_depth; /* >= 2 indicates recursive call */ AV * xcv_padlist; CV * xcv_outside; #ifdef USE_THREADS @@ -43,7 +45,6 @@ struct xpvcv { #define CvXSUB(sv) ((XPVCV*)SvANY(sv))->xcv_xsub #define CvXSUBANY(sv) ((XPVCV*)SvANY(sv))->xcv_xsubany #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 #define CvOUTSIDE(sv) ((XPVCV*)SvANY(sv))->xcv_outside |