diff options
author | Steffen Mueller <smueller@cpan.org> | 2014-05-28 14:11:40 +0200 |
---|---|---|
committer | Steffen Mueller <smueller@cpan.org> | 2014-05-28 14:12:00 +0200 |
commit | 8094bfa4f855814f96eaa8eaeabb82394961dda9 (patch) | |
tree | 3c75fd57b4b3800853c3bc5b3e8005de400be279 /pp.h | |
parent | c21644471caf57f81699480b56af86541046db78 (diff) | |
download | perl-8094bfa4f855814f96eaa8eaeabb82394961dda9.tar.gz |
Fix EXTEND changes under STRESS_REALLOC
As part of aad79b331c21c962b6e0ce7b8027aa625d7445ec, -DSTRESS_REALLOC was broken.
This should alleviate that.
Diffstat (limited to 'pp.h')
-rw-r--r-- | pp.h | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -274,11 +274,11 @@ Does not use C<TARG>. See also C<XPUSHu>, C<mPUSHu> and C<PUSHu>. # define EXTEND(p,n) STMT_START { \ sp = stack_grow(sp,p,(SSize_t) (n)); \ PERL_UNUSED_VAR(sp); \ - } } STMT_END + } STMT_END /* Same thing, but update mark register too. */ # define MEXTEND(p,n) STMT_START { \ const int markoff = mark - PL_stack_base; \ - sp = stack_grow(sp,p,(SSize_t) (n))); \ + sp = stack_grow(sp,p,(SSize_t) (n)); \ mark = PL_stack_base + markoff; \ PERL_UNUSED_VAR(sp); \ } STMT_END |