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 /embed.fnc | |
| 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 'embed.fnc')
| -rw-r--r-- | embed.fnc | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -1897,7 +1897,8 @@ sR |const char *|get_num |NN const char *patptr|NN I32 *lenptr ns |bool |need_utf8 |NN const char *pat|NN const char *patend ns |char |first_symbol |NN const char *pat|NN const char *patend sR |char * |sv_exp_grow |NN SV *sv|STRLEN needed -snR |char * |bytes_to_uni |NN const U8 *start|STRLEN len|NN char *dest +snR |char * |bytes_to_uni |NN const U8 *start|STRLEN len|NN char *dest \ + |const bool needs_swap #endif #if defined(PERL_IN_PP_CTL_C) |