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 /embed.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 'embed.h')
| -rw-r--r-- | embed.h | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -299,7 +299,7 @@ #define is_utf8_xidcont(a) Perl_is_utf8_xidcont(aTHX_ a) #define is_utf8_xidfirst(a) Perl_is_utf8_xidfirst(aTHX_ a) #define isinfnan Perl_isinfnan -#define leave_adjust_stacks(a,b,c) Perl_leave_adjust_stacks(aTHX_ a,b,c) +#define leave_adjust_stacks(a,b,c,d) Perl_leave_adjust_stacks(aTHX_ a,b,c,d) #define leave_scope(a) Perl_leave_scope(aTHX_ a) #define lex_bufutf8() Perl_lex_bufutf8(aTHX) #define lex_discard_to(a) Perl_lex_discard_to(aTHX_ a) |