summaryrefslogtreecommitdiff
path: root/proto.h
diff options
context:
space:
mode:
authorDavid Mitchell <davem@iabyn.com>2015-12-16 14:52:22 +0000
committerDavid Mitchell <davem@iabyn.com>2016-02-03 09:18:34 +0000
commite02ce34b5a3c7daaf3131c6aea9a98f7dbbba1b5 (patch)
tree80fbfa076ae8ddbcc3fba3177d9ef0f7826f5616 /proto.h
parent799da9d7a389d2e825fba9c63b2f6876513385c7 (diff)
downloadperl-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.h4
1 files changed, 2 insertions, 2 deletions
diff --git a/proto.h b/proto.h
index 9578a67b33..faa033578c 100644
--- a/proto.h
+++ b/proto.h
@@ -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);