This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
make pp_leavesublv use S_leavesub_adjust_stacks()
authorDavid Mitchell <davem@iabyn.com>
Wed, 16 Dec 2015 12:30:01 +0000 (12:30 +0000)
committerDavid Mitchell <davem@iabyn.com>
Wed, 3 Feb 2016 09:18:34 +0000 (09:18 +0000)
commit799da9d7a389d2e825fba9c63b2f6876513385c7
tree2b77332b832f7cf6a5ceec8e0a97936aadf2a5ed
parentd8bdd59a731e612643be6a230102949e419f17db
make pp_leavesublv use S_leavesub_adjust_stacks()

Currently S_leavesub_adjust_stacks() is just used by pp_leavesub.
Rename it to Perl_leave_adjust_stacks(), extend its functionality
slightly, then make pp_leavesublv() use it too.

This means that lvalue sub exit gains the benefit of FREETMPS being done,
and (where mortal copying needs doing) the optimised copying code.
It also means there is now one less version of the "process args on scope
exit" code.

pp_leavesublv() still does a scan of its return args looking for things to
croak() on, but leaves everything else to leave_adjust_stacks().

leave_adjust_stacks() is intended shortly to be used in place of
S_leave_common() too, thus unifying all args-on-scope-exit code.

The changes to leave_adjust_stacks() in this commit (apart from the
renaming and doc changes) are:
* a new arg to indicate what condition to use to decide whether to
  pass or copy the arg;
* a new branch to mortalise and ref count bump an arg
embed.fnc
embed.h
pp_ctl.c
pp_hot.c
proto.h