diff options
| author | Matt Turner <mattst88@gmail.com> | 2019-11-03 16:13:48 -0800 |
|---|---|---|
| committer | Tony Cook <tony@develop-help.com> | 2019-11-04 03:02:59 +0100 |
| commit | 2e38307183b4040022d31197d9622455f3848966 (patch) | |
| tree | c2fafabd2dae011abeb4987ab66635c717e0dc53 | |
| parent | c4b6b96d53556cbfabec85cb5114d0113c5766c8 (diff) | |
| download | perl-2e38307183b4040022d31197d9622455f3848966.tar.gz | |
Fix copy-and-paste mistake in U8TO64_LE
Fixes: https://github.com/Perl/perl5/issues/17244
Fixes: https://github.com/Perl/perl5/issues/17247
Fixes: https://rt.cpan.org/Ticket/Display.html?id=130890
| -rw-r--r-- | hv_macro.h | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/hv_macro.h b/hv_macro.h index 02c0baad08..b96057eab8 100644 --- a/hv_macro.h +++ b/hv_macro.h @@ -25,7 +25,7 @@ #define U8TO16_LE(ptr) ((U32)(ptr)[1]|(U32)(ptr)[0]<<8) #define U8TO32_LE(ptr) ((U32)(ptr)[3]|(U32)(ptr)[2]<<8|(U32)(ptr)[1]<<16|(U32)(ptr)[0]<<24) #define U8TO64_LE(ptr) ((U64)(ptr)[7]|(U64)(ptr)[6]<<8|(U64)(ptr)[5]<<16|(U64)(ptr)[4]<<24|\ - (U64)(ptr)[3]<<32|(U64)(ptr)[4]<<40|\ + (U64)(ptr)[3]<<32|(U64)(ptr)[2]<<40|\ (U64)(ptr)[1]<<48|(U64)(ptr)[0]<<56) #elif (BYTEORDER == 0x4321 || BYTEORDER == 0x87654321) #define U8TO16_LE(ptr) ((U32)(ptr)[0]|(U32)(ptr)[1]<<8) |