From e02ce34b5a3c7daaf3131c6aea9a98f7dbbba1b5 Mon Sep 17 00:00:00 2001 From: David Mitchell Date: Wed, 16 Dec 2015 14:52:22 +0000 Subject: 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(). --- proto.h | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'proto.h') 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); -- cgit v1.2.1