diff options
| author | Nicholas Clark <nick@ccl4.org> | 2006-12-13 08:35:43 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2006-12-13 08:35:43 +0000 |
| commit | cecf5685359d1599cf3a31ed49f95b583ac5f0da (patch) | |
| tree | fb6fd87a6a2fee32cfe6034666d2314daacef5dc /op.h | |
| parent | 670f3923755f0c152f1bbc2d0a205d2d07284748 (diff) | |
| download | perl-cecf5685359d1599cf3a31ed49f95b583ac5f0da.tar.gz | |
Eliminate PVBM. Store fast Boyer-Moore tables in PVGV.
Add the placeholder for new type, temporarily named BIND, for binding
and aliasing in 6 on 5.
p4raw-id: //depot/perl@29544
Diffstat (limited to 'op.h')
| -rw-r--r-- | op.h | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -460,7 +460,8 @@ struct loop { #ifdef USE_ITHREADS # define cGVOPx_gv(o) ((GV*)PAD_SVl(cPADOPx(o)->op_padix)) -# define IS_PADGV(v) (v && SvTYPE(v) == SVt_PVGV && GvIN_PAD(v)) +# define IS_PADGV(v) (v && SvTYPE(v) == SVt_PVGV && isGV_with_GP(v) \ + && GvIN_PAD(v)) # define IS_PADCONST(v) (v && SvREADONLY(v)) # define cSVOPx_sv(v) (cSVOPx(v)->op_sv \ ? cSVOPx(v)->op_sv : PAD_SVl((v)->op_targ)) |