diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-04-19 11:20:37 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-04-19 11:20:37 +0000 |
| commit | a5c57919c9a1f33f50e0270008702e16d2ee3e0b (patch) | |
| tree | 001cae41bc6d48d186eb86e9b465413fa5ec6128 /perl.h | |
| parent | b162af07ec759e1ba6b84569e4963bc5c289d75f (diff) | |
| download | perl-a5c57919c9a1f33f50e0270008702e16d2ee3e0b.tar.gz | |
Simplify PERL_DEBUG_PAD_ZERO so it continues to expand to
valid C code
p4raw-id: //depot/perl@24249
Diffstat (limited to 'perl.h')
| -rw-r--r-- | perl.h | 4 |
1 files changed, 3 insertions, 1 deletions
@@ -3611,7 +3611,9 @@ struct perl_debug_pad { }; #define PERL_DEBUG_PAD(i) &(PL_debug_pad.pad[i]) -#define PERL_DEBUG_PAD_ZERO(i) (SvPVX(PERL_DEBUG_PAD(i))[0] = 0, SvCUR_set(PERL_DEBUG_PAD(i), 0), PERL_DEBUG_PAD(i)) +#define PERL_DEBUG_PAD_ZERO(i) (SvPVX(PERL_DEBUG_PAD(i))[0] = 0, \ + (((XPV*) SvANY(PERL_DEBUG_PAD(i)))->xpv_cur = 0), \ + PERL_DEBUG_PAD(i)) /* Enable variables which are pointers to functions */ typedef void (CPERLscope(*peep_t))(pTHX_ OP* o); |