diff options
| author | Nicholas Clark <nick@ccl4.org> | 2008-01-20 21:50:31 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2008-01-20 21:50:31 +0000 |
| commit | bafb2adc256d4363e483e0aed4b43fdcf2c57a9b (patch) | |
| tree | ec956c6724ff74555a0770b1fabb55b6a0a374db /cop.h | |
| parent | 8e6639977ceec4416fe89fd83cf666f06787f259 (diff) | |
| download | perl-bafb2adc256d4363e483e0aed4b43fdcf2c57a9b.tar.gz | |
In struct block_sub and block_format, access the members hasargs and
lval via macros CxHASARGS() and CxLVAL(), which will allow the storage
location to be changed.
p4raw-id: //depot/perl@33017
Diffstat (limited to 'cop.h')
| -rw-r--r-- | cop.h | 4 |
1 files changed, 3 insertions, 1 deletions
@@ -364,7 +364,7 @@ struct block_format { CopFILE((COP*)CvSTART((CV*)cx->blk_sub.cv)), \ CopLINE((COP*)CvSTART((CV*)cx->blk_sub.cv))); \ \ - if (cx->blk_sub.hasargs) { \ + if (CxHASARGS(cx)) { \ POP_SAVEARRAY(); \ /* abandon @_ if it got reified */ \ if (AvREAL(cx->blk_sub.argarray)) { \ @@ -488,6 +488,8 @@ struct block_loop { cx->blk_loop.itersave = NULL; #endif #define CxLABEL(c) (0 + (c)->blk_oldcop->cop_label) +#define CxHASARGS(c) (0 + (c)->blk_sub.hasargs) +#define CxLVAL(c) (0 + (c)->blk_sub.lval) #ifdef USE_ITHREADS # define PUSHLOOP_OP_NEXT /* No need to do anything. */ |