New issue
Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.
By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.
Already on GitHub? Sign in to your account
[PATCH 6/11] xs_boot_epilog (Xp): change ax from U32 to I32 #14585
Comments
From @rurbanThis is a bug report for perl from rurban@cpanel.net, API change xs_boot_epilog (Xp): change ax from U32 to I32 Flags: Site configuration information for perl 5.21.9: Configured by rurban at Sun Feb 22 17:14:55 CET 2015. Summary of my perl5 (revision 5 version 21 subversion 9) configuration: Locally applied patches: @INC for perl 5.21.9: Environment for perl 5.21.9: |
From @rurban0001-xs_boot_epilog-Xp-change-ax-from-U32-to-I32.patchFrom 2b65960f7acdd1885d1b46c488305a20fb52c2f1 Mon Sep 17 00:00:00 2001
From: Reini Urban <rurban@cpanel.net>
Date: Fri, 13 Mar 2015 16:34:38 +0100
Subject: [PATCH] xs_boot_epilog (Xp): change ax from U32 to I32
we need to match the declaration of ax
---
embed.fnc | 2 +-
perl.c | 2 +-
proto.h | 2 +-
3 files changed, 3 insertions(+), 3 deletions(-)
diff --git embed.fnc embed.fnc
index 79ed330..2138bc6 100644
--- embed.fnc
+++ embed.fnc
@@ -2743,7 +2743,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 perl.c perl.c
index 76ba1b4..eebe150 100644
--- perl.c
+++ perl.c
@@ -5059,7 +5059,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 proto.h proto.h
index aa43b95..bb78314 100644
--- proto.h
+++ proto.h
@@ -5247,7 +5247,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);
--
2.1.4
|
The RT System itself - Status changed from 'new' to 'open' |
@tonycoz - Status changed from 'open' to 'resolved' |
Migrated from rt.perl.org#124066 (status was 'resolved')
Searchable as RT124066$
The text was updated successfully, but these errors were encountered: