This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
https://perl5.git.perl.org / perl5.git / commit
? search:
summary | shortlog | log | commit | commitdiff | tree
(parent: eae2205) | patch
tweak pp_wrap() and xs_wrap()
authorDavid Mitchell <davem@iabyn.com>
Sat, 18 Feb 2023 08:55:47 +0000 (08:55 +0000)
committerDavid Mitchell <davem@iabyn.com>
Wed, 16 Aug 2023 16:17:00 +0000 (17:17 +0100)
commit35f3543b3a60c9b9d47bc5adad937feaba1d0c3b
tree743d5629b04de36abc35d7be5396ce591002c7e9tree | snapshot
parenteae22059a5c2197c7ed07a8a08b23bbc100b8aeacommit | diff
tweak pp_wrap() and xs_wrap()

After bumping up the reference counts of the returned values,
reset si_stack_nonrc_base earlier, so that if perl dies while
decrementing the original args, all reference counts will be properly
accounted for.

Also in xs_wrap(), only bother doing

    PL_markstack_ptr[0]  += nargs;

in the branch where nargs > 0.
pp_hot.c diff | blob | blame | history
Unnamed repository; edit this file 'description' to name the repository.