diff options
author | Jarkko Hietaniemi <jhi@iki.fi> | 2002-03-18 14:39:15 +0000 |
---|---|---|
committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-03-18 14:39:15 +0000 |
commit | 48c6b404cfbd1c2c7ca26e9a9abd0c281bc5836f (patch) | |
tree | dfa745a711f2bb8d0dce658945d73bdd69c3819a /perl.h | |
parent | 44513350cdc313b5a0c1fcf32a9a2db7a735db03 (diff) | |
download | perl-48c6b404cfbd1c2c7ca26e9a9abd0c281bc5836f.tar.gz |
Make regex DEBUGGING faster.
p4raw-id: //depot/perl@15297
Diffstat (limited to 'perl.h')
-rw-r--r-- | perl.h | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -3183,7 +3183,7 @@ struct perl_debug_pad { }; #define PERL_DEBUG_PAD(i) &(PL_debug_pad.pad[i]) -#define PERL_DEBUG_PAD_ZERO(i) (sv_setpvn(PERL_DEBUG_PAD(i), "", 0), PERL_DEBUG_PAD(i)) +#define PERL_DEBUG_PAD_ZERO(i) (SvPVX(PERL_DEBUG_PAD(i))[0] = 0, SvCUR(PERL_DEBUG_PAD(i)) = 0, PERL_DEBUG_PAD(i)) /* Enable variables which are pointers to functions */ typedef void (CPERLscope(*peep_t))(pTHX_ OP* o); |