In perl.git, the branch blead has been updated
<http://perl5.git.perl.org/perl.git/commitdiff/b01a1eea00c654eb434a66b36b1c03579536c4e4?hp=938039404b03b2d310c7f1c1b4e38c24ef441679>
- Log -----------------------------------------------------------------
commit b01a1eea00c654eb434a66b36b1c03579536c4e4
Author: Reini Urban <rur...@cpanel.net>
Date: Fri Mar 13 16:34:38 2015 +0100
xs_boot_epilog (Xp): change ax from U32 to I32
we need to match the declaration of ax
-----------------------------------------------------------------------
Summary of changes:
embed.fnc | 2 +-
perl.c | 2 +-
proto.h | 2 +-
3 files changed, 3 insertions(+), 3 deletions(-)
diff --git a/embed.fnc b/embed.fnc
index 9171ec6..f596b1a 100644
--- a/embed.fnc
+++ b/embed.fnc
@@ -2745,7 +2745,7 @@ so |void |xs_version_bootcheck|U32 items|U32
ax|NN const char *xs_p \
#endif
Xpon |I32 |xs_handshake |const U32 key|NN void * v_my_perl\
|NN const char * file| ...
-Xp |void |xs_boot_epilog |const U32 ax
+Xp |void |xs_boot_epilog |const I32 ax
#ifndef HAS_STRLCAT
Apnod |Size_t |my_strlcat |NULLOK char *dst|NULLOK const char *src|Size_t
size
#endif
diff --git a/perl.c b/perl.c
index 3cdae04..1af5e29 100644
--- a/perl.c
+++ b/perl.c
@@ -5066,7 +5066,7 @@ read_e_script(pTHX_ int idx, SV *buf_sv, int maxlen)
/* removes boilerplate code at the end of each boot_Module xsub */
void
-Perl_xs_boot_epilog(pTHX_ const U32 ax)
+Perl_xs_boot_epilog(pTHX_ const I32 ax)
{
if (PL_unitcheckav)
call_list(PL_scopestack_ix, PL_unitcheckav);
diff --git a/proto.h b/proto.h
index b7acae9..5c0a61b 100644
--- a/proto.h
+++ b/proto.h
@@ -5252,7 +5252,7 @@ PERL_CALLCONV void Perl_write_to_stderr(pTHX_ SV*
msv)
#define PERL_ARGS_ASSERT_WRITE_TO_STDERR \
assert(msv)
-PERL_CALLCONV void Perl_xs_boot_epilog(pTHX_ const U32 ax);
+PERL_CALLCONV void Perl_xs_boot_epilog(pTHX_ const I32 ax);
PERL_CALLCONV I32 Perl_xs_handshake(const U32 key, void * v_my_perl,
const char * file, ...)
__attribute__nonnull__(2)
__attribute__nonnull__(3);
--
Perl5 Master Repository
