diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2014-09-18 00:24:25 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2014-09-18 18:20:50 -0700 |
| commit | 4a8cd1baba77cafb21681f12b12c120bdd458938 (patch) | |
| tree | 65a27cc4715d4f3d0de30c7ba00b586b87dd8b5d /gv.h | |
| parent | 845392291027b157a962eea4a4c2a97f67b995ce (diff) | |
| download | perl-4a8cd1baba77cafb21681f12b12c120bdd458938.tar.gz | |
gv.h: Add a gp_flags field
This is for flags that have to be shared with all GVs that have the
same GP pointer.
Diffstat (limited to 'gv.h')
| -rw-r--r-- | gv.h | 3 |
1 files changed, 3 insertions, 0 deletions
@@ -19,6 +19,7 @@ struct gp { CV * gp_form; /* format value */ GV * gp_egv; /* effective gv, if *glob */ line_t gp_line; /* line first declared at (for -w) */ + U32 gp_flags; HEK * gp_file_hek; /* file first declared in (for -w) */ }; @@ -139,6 +140,8 @@ Return the CV from the GV. #define GvCVGEN(gv) (GvGP(gv)->gp_cvgen) #define GvCVu(gv) (GvGP(gv)->gp_cvgen ? NULL : GvGP(gv)->gp_cv) +#define GvGPFLAGS(gv) (GvGP(gv)->gp_flags) + #define GvLINE(gv) (GvGP(gv)->gp_line) #define GvFILE_HEK(gv) (GvGP(gv)->gp_file_hek) #define GvFILEx(gv) HEK_KEY(GvFILE_HEK(gv)) |