summaryrefslogtreecommitdiff
path: root/proto.h
diff options
context:
space:
mode:
authorNicholas Clark <nick@ccl4.org>2013-05-07 17:39:42 +0200
committerNicholas Clark <nick@ccl4.org>2013-05-20 21:19:44 +0200
commit3a88beaa68dbb5bad93145daa0c829e0aeb40adb (patch)
treee88eb77f378f70b75005cdd6bca49727761cfe42 /proto.h
parentaaec8192358ffb8080ad85754ea9aeca93b06c8b (diff)
downloadperl-3a88beaa68dbb5bad93145daa0c829e0aeb40adb.tar.gz
When endian-swapping in pack, simply copy the bytes in reverse order.
This should restore support for big endian Crays. It doesn't support mixed-endian systems.
Diffstat (limited to 'proto.h')
-rw-r--r--proto.h2
1 files changed, 1 insertions, 1 deletions
diff --git a/proto.h b/proto.h
index 5bf4d39521..22d081cb48 100644
--- a/proto.h
+++ b/proto.h
@@ -6249,7 +6249,7 @@ STATIC SV* S_method_common(pTHX_ SV* meth, U32* hashp)
#endif
#if defined(PERL_IN_PP_PACK_C)
-STATIC char * S_bytes_to_uni(const U8 *start, STRLEN len, char *dest)
+STATIC char * S_bytes_to_uni(const U8 *start, STRLEN len, char *dest, const bool needs_swap)
__attribute__warn_unused_result__
__attribute__nonnull__(1)
__attribute__nonnull__(3);