diff options
| author | Dave Mitchell <davem@fdisolutions.com> | 2002-09-26 00:40:23 +0100 |
|---|---|---|
| committer | hv <hv@crypt.org> | 2002-10-02 12:55:29 +0000 |
| commit | dd2155a49b710f23bc6d72169e5b1d71d8b3aa03 (patch) | |
| tree | 7fd660a6b57a1893830c91b566975bbe7e085966 /op.h | |
| parent | 78c9d76351ef2d0f7047846bbf29e303753d3fda (diff) | |
| download | perl-dd2155a49b710f23bc6d72169e5b1d71d8b3aa03.tar.gz | |
move all pad-related code to its own src file
Message-ID: <20020925234023.A20044@fdgroup.com>
p4raw-id: //depot/perl@17953
Diffstat (limited to 'op.h')
| -rw-r--r-- | op.h | 15 |
1 files changed, 3 insertions, 12 deletions
@@ -23,15 +23,6 @@ * which may or may not check number of children). */ -#if PTRSIZE == 4 -typedef U32TYPE PADOFFSET; -#else -# if PTRSIZE == 8 -typedef U64TYPE PADOFFSET; -# endif -#endif -#define NOT_IN_PAD ((PADOFFSET) -1) - #ifdef DEBUGGING_OPS #define OPCODE opcode #else @@ -387,13 +378,13 @@ struct loop { #ifdef USE_ITHREADS -# define cGVOPx_gv(o) ((GV*)PL_curpad[cPADOPx(o)->op_padix]) +# 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_PADCONST(v) (v && SvREADONLY(v)) # define cSVOPx_sv(v) (cSVOPx(v)->op_sv \ - ? cSVOPx(v)->op_sv : PL_curpad[(v)->op_targ]) + ? cSVOPx(v)->op_sv : PAD_SVl((v)->op_targ)) # define cSVOPx_svp(v) (cSVOPx(v)->op_sv \ - ? &cSVOPx(v)->op_sv : &PL_curpad[(v)->op_targ]) + ? &cSVOPx(v)->op_sv : &PAD_SVl((v)->op_targ)) #else # define cGVOPx_gv(o) ((GV*)cSVOPx(o)->op_sv) # define IS_PADGV(v) FALSE |