diff options
| author | Nicholas Clark <nick@ccl4.org> | 2006-02-25 17:16:24 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2006-02-25 17:16:24 +0000 |
| commit | 5526b5b35ef97d80c7bc2904d09cdc868f6a3c5a (patch) | |
| tree | f473f91949b65df2fa11e0c0447b9d5d55f1bb43 /gv.h | |
| parent | 6818a3573a254af22852a6102b2d70b346bae901 (diff) | |
| download | perl-5526b5b35ef97d80c7bc2904d09cdc868f6a3c5a.tar.gz | |
GvFLAGS can be overlaid with SvCUR.
p4raw-id: //depot/perl@27330
Diffstat (limited to 'gv.h')
| -rw-r--r-- | gv.h | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -36,7 +36,7 @@ struct gp { (*({GV *const yaah = (GV *) gv; \ assert(SvTYPE(yaah) == SVt_PVGV || SvTYPE(yaah) == SVt_PVLV); \ assert(isGV_with_GP(yaah)); \ - &(GvXPVGV(yaah)->xgv_flags);})) + &(GvXPVGV(yaah)->xpv_cur);})) # define GvSTASH(gv) \ (*({ GV *_gv = (GV *) gv; \ assert(isGV_with_GP(_gv)); \ @@ -57,7 +57,7 @@ struct gp { })) #else # define GvGP(gv) ((gv)->sv_u.svu_gp) -# define GvFLAGS(gv) (GvXPVGV(gv)->xgv_flags) +# define GvFLAGS(gv) (GvXPVGV(gv)->xpv_cur) # define GvSTASH(gv) (GvXPVGV(gv)->xnv_u.xgv_stash) # define GvNAME(gv) (GvXPVGV(gv)->xgv_name) # define GvNAMELEN(gv) (GvXPVGV(gv)->xgv_namelen) |