diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1999-04-03 23:14:34 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-04-03 23:14:34 +0000 |
| commit | 677b06e3672f6584546f6a391abaf54a138910e8 (patch) | |
| tree | 4f1bd1da5fb48e8b34995120a60559df6d3f2716 /pp.h | |
| parent | 67caa1fef1ac64bae9d7c9deecbf100088307e6f (diff) | |
| download | perl-677b06e3672f6584546f6a391abaf54a138910e8.tar.gz | |
grow PL_tmps_stack more efficiently; make it more amenable to
STRESS_REALLOC testing
p4raw-id: //depot/perl@3215
Diffstat (limited to 'pp.h')
| -rw-r--r-- | pp.h | 14 |
1 files changed, 7 insertions, 7 deletions
@@ -155,18 +155,18 @@ #define SWITCHSTACK(f,t) \ STMT_START { \ - AvFILLp(f) = sp - PL_stack_base; \ + AvFILLp(f) = sp - PL_stack_base; \ PL_stack_base = AvARRAY(t); \ - PL_stack_max = PL_stack_base + AvMAX(t); \ + PL_stack_max = PL_stack_base + AvMAX(t); \ sp = PL_stack_sp = PL_stack_base + AvFILLp(t); \ - PL_curstack = t; \ + PL_curstack = t; \ } STMT_END #define EXTEND_MORTAL(n) \ - STMT_START { \ - if (PL_tmps_ix + (n) >= PL_tmps_max) \ - Renew(PL_tmps_stack, PL_tmps_max = PL_tmps_ix + (n) + 1, SV*); \ - } STMT_END + STMT_START { \ + if (PL_tmps_ix + (n) >= PL_tmps_max) \ + tmps_grow(n); \ + } STMT_END #define AMGf_noright 1 #define AMGf_noleft 2 |