This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
There's no READ_UINT32.
authorJarkko Hietaniemi <jhi@iki.fi>
Fri, 24 Oct 2014 00:54:33 +0000 (20:54 -0400)
committerJarkko Hietaniemi <jhi@iki.fi>
Sat, 25 Jul 2015 19:53:04 +0000 (15:53 -0400)
(relic of some earlier code?)

hv_func.h

index 708c6c7..b7d68e8 100644 (file)
--- a/hv_func.h
+++ b/hv_func.h
  * are only needed to help derive these 3.
  *
  * U8TO32_LE(x)   Read a little endian unsigned 32-bit int
- * UNALIGNED_SAFE   Defined if READ_UINT32 works on non-word boundaries
+ * UNALIGNED_SAFE   Defined if unaligned access is safe
  * ROTL32(x,r)      Rotate x left by r bits
  */
 
                       +((const U8 *)(d))[0])
 #endif
 
-
-/* Now find best way we can to READ_UINT32 */
 #if (BYTEORDER == 0x1234 || BYTEORDER == 0x12345678) && U32SIZE == 4
   /* CPU endian matches murmurhash algorithm, so read 32-bit word directly */
   #define U8TO32_LE(ptr)   (*((U32*)(ptr)))