diff options
author | David Mitchell <davem@iabyn.com> | 2015-12-16 14:52:22 +0000 |
---|---|---|
committer | David Mitchell <davem@iabyn.com> | 2016-02-03 09:18:34 +0000 |
commit | e02ce34b5a3c7daaf3131c6aea9a98f7dbbba1b5 (patch) | |
tree | 80fbfa076ae8ddbcc3fba3177d9ef0f7826f5616 /proto.h | |
parent | 799da9d7a389d2e825fba9c63b2f6876513385c7 (diff) | |
download | perl-e02ce34b5a3c7daaf3131c6aea9a98f7dbbba1b5.tar.gz |
make pp_return() use leave_adjust_stacks()
It was using S_leave_common(), but that's shortly to be removed. It also
required adding an extra arg to leave_adjust_stacks() to indicate where to
shift the return args to. This will also be needed for when we replace the
remaining uses of S_leave_common() with leave_adjust_stacks().
Diffstat (limited to 'proto.h')
-rw-r--r-- | proto.h | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -1610,9 +1610,9 @@ PERL_CALLCONV I32 Perl_keyword(pTHX_ const char *name, I32 len, bool all_keyword PERL_CALLCONV int Perl_keyword_plugin_standard(pTHX_ char* keyword_ptr, STRLEN keyword_len, OP** op_ptr); #define PERL_ARGS_ASSERT_KEYWORD_PLUGIN_STANDARD \ assert(keyword_ptr); assert(op_ptr) -PERL_CALLCONV void Perl_leave_adjust_stacks(pTHX_ SV **base_sp, I32 gimme, int filter); +PERL_CALLCONV void Perl_leave_adjust_stacks(pTHX_ SV **from_sp, SV **to_sp, I32 gimme, int filter); #define PERL_ARGS_ASSERT_LEAVE_ADJUST_STACKS \ - assert(base_sp) + assert(from_sp); assert(to_sp) PERL_CALLCONV void Perl_leave_scope(pTHX_ I32 base); PERL_CALLCONV bool Perl_lex_bufutf8(pTHX); PERL_CALLCONV void Perl_lex_discard_to(pTHX_ char* ptr); |