diff options
author | Nicholas Clark <nick@ccl4.org> | 2013-05-07 17:39:42 +0200 |
---|---|---|
committer | Nicholas Clark <nick@ccl4.org> | 2013-05-20 21:19:44 +0200 |
commit | 3a88beaa68dbb5bad93145daa0c829e0aeb40adb (patch) | |
tree | e88eb77f378f70b75005cdd6bca49727761cfe42 /proto.h | |
parent | aaec8192358ffb8080ad85754ea9aeca93b06c8b (diff) | |
download | perl-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.h | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -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); |