diff options
| author | Nicholas Clark <nick@ccl4.org> | 2006-02-25 16:50:15 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2006-02-25 16:50:15 +0000 |
| commit | 08002bbf0bcb501d646b0a428a1fc2e25bbe4256 (patch) | |
| tree | f0063fb2f391fa038551d20da60427d937431be5 /gv.h | |
| parent | 169d2d72355cfee106217aa142a9e61dc32e53d9 (diff) | |
| download | perl-08002bbf0bcb501d646b0a428a1fc2e25bbe4256.tar.gz | |
Use xpv_len rather than xpv_cur in GVs to store GvASSIGN_GENERATION.
Assert that GVs do not access SvCUR or SvLEN.
p4raw-id: //depot/perl@27328
Diffstat (limited to 'gv.h')
| -rw-r--r-- | gv.h | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -63,10 +63,10 @@ struct gp { # define GvNAMELEN(gv) (GvXPVGV(gv)->xgv_namelen) #endif -#define GvASSIGN_GENERATION(gv) (0 + ((XPV*) SvANY(gv))->xpv_cur) +#define GvASSIGN_GENERATION(gv) (0 + ((XPV*) SvANY(gv))->xpv_len) #define GvASSIGN_GENERATION_set(gv,val) \ STMT_START { assert(SvTYPE(gv) == SVt_PVGV); \ - (((XPV*) SvANY(gv))->xpv_cur = (val)); } STMT_END + (((XPV*) SvANY(gv))->xpv_len = (val)); } STMT_END /* =head1 GV Functions |