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 /gv.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 'gv.h')
| -rw-r--r-- | gv.h | 5 |
1 files changed, 3 insertions, 2 deletions
@@ -19,7 +19,7 @@ struct gp { U32 gp_cvgen; /* generational validity of cached gv_cv */ U32 gp_flags; /* XXX unused */ line_t gp_line; /* line first declared at (for -w) */ - GV * gp_filegv; /* file first declared in (for -w) */ + char * gp_file; /* file first declared in (for -w) */ }; #if defined(CRIPPLED_CC) && (defined(iAPX286) || defined(M_I286) || defined(I80286)) @@ -70,7 +70,8 @@ HV *GvHVn(); #define GvGPFLAGS(gv) (GvGP(gv)->gp_flags) #define GvLINE(gv) (GvGP(gv)->gp_line) -#define GvFILEGV(gv) (GvGP(gv)->gp_filegv) +#define GvFILE(gv) (GvGP(gv)->gp_file) +#define GvFILEGV(gv) (gv_fetchfile(GvGP(gv)->gp_file)) #define GvEGV(gv) (GvGP(gv)->gp_egv) #define GvENAME(gv) GvNAME(GvEGV(gv) ? GvEGV(gv) : gv) |