diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1999-11-10 18:19:12 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-11-10 18:19:12 +0000 |
| commit | 743e66e61aecff1c9998bd0ff719a1d679b03e9f (patch) | |
| tree | e70207873d461047cae03cf85b7336f6080cc504 /op.h | |
| parent | 7e363e51b620b0068542ae9460f4c9c09bf7914e (diff) | |
| download | perl-743e66e61aecff1c9998bd0ff719a1d679b03e9f.tar.gz | |
more cleanups for change#4539
p4raw-link: @4539 on //depot/perl: 350de78d9c02710bb008e9ca922c78ba251ec366
p4raw-id: //depot/perl@4544
Diffstat (limited to 'op.h')
| -rw-r--r-- | op.h | 2 |
1 files changed, 2 insertions, 0 deletions
@@ -311,6 +311,7 @@ struct loop { # define cGVOP_set(v) (PL_curpad[cPADOP->op_padix] = (SV*)(v)) # define cGVOPo_set(v) (PL_curpad[cPADOPo->op_padix] = (SV*)(v)) # define kGVOP_set(v) (PL_curpad[kPADOP->op_padix] = (SV*)(v)) +# define IS_PADGV(v) (v && SvTYPE(v) == SVt_PVGV && GvIN_PAD(v)) #else # define cGVOPx(o) ((GV*)cSVOPx(o)->op_sv) # define cGVOP ((GV*)cSVOP->op_sv) @@ -319,6 +320,7 @@ struct loop { # define cGVOP_set(v) (cPADOP->op_sv = (SV*)(v)) # define cGVOPo_set(v) (cPADOPo->op_sv = (SV*)(v)) # define kGVOP_set(v) (kPADOP->op_sv = (SV*)(v)) +# define IS_PADGV(v) FALSE #endif #define Nullop Null(OP*) |