From 2e38307183b4040022d31197d9622455f3848966 Mon Sep 17 00:00:00 2001 From: Matt Turner Date: Sun, 3 Nov 2019 16:13:48 -0800 Subject: 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 --- hv_macro.h | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'hv_macro.h') 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) -- cgit v1.2.1