mirror of
https://github.com/Perl/perl5.git
synced 2026-01-26 08:38:23 +00:00
bbc7f9cd1e
Some header files in the Perl core have guards to keep a recursive #include from compiling them again. This is standard practice in C coding, and I was surprised at how many headers don't have it. These seem to rely on only being included from perl.h, which does have its own guard. Most of the guards use a common naming convention. If the file is named foo.h, the guard is named 'PERL_FOO_H'. Often, though, a trailing underscore is added, 'PERL_FOO_H_', making the convention slightly fuzzy. The 'PERL_' is not added if the file 'foo' already includes 'perl' in its name, Those rules are enough to describe all the guards in the core, except for the outliers in this commit, plus perl.h. There are occasions in various Perl scripts that examine our source that we want to create a pattern that matches the header guard name for a particular file. In spite of the slight fuzziness, that's easy using the above rules, except for the ones in this commit, and perl.h. It would be better for that code to not have to worry about the outliers, and since these are arbitrary names, we can just change them to follow the rules that already apply to most. This commit changes the names of the outliers so that the only file the rules don't apply to is perl.h. Its guard is named H_PERL. That spelling is used in Encode, so it's not so easy to change it seamlessly. I'm willing to live with it continuing to be an outlier for the code I write.
86 lines
3.1 KiB
C
86 lines
3.1 KiB
C
#ifndef PERL_HV_MACRO_H_ /* compile once */
|
|
#define PERL_HV_MACRO_H_
|
|
|
|
#if IVSIZE == 8
|
|
#define CAN64BITHASH
|
|
#endif
|
|
|
|
#ifdef CAN64BITHASH
|
|
#ifndef U64TYPE
|
|
/* This probably isn't going to work, but failing with a compiler error due to
|
|
lack of uint64_t is no worse than failing right now with an #error. */
|
|
#define U64 uint64_t
|
|
#endif
|
|
#endif
|
|
|
|
|
|
/*-----------------------------------------------------------------------------
|
|
* Endianess and util macros
|
|
*
|
|
* The following 3 macros are defined in this section. The other macros defined
|
|
* are only needed to help derive these 3.
|
|
*
|
|
* U8TO16_LE(x) Read a little endian unsigned 16-bit int
|
|
* U8TO32_LE(x) Read a little endian unsigned 32-bit int
|
|
* U8TO64_LE(x) Read a little endian unsigned 64-bit int
|
|
* ROTL32(x,r) Rotate x left by r bits
|
|
* ROTL64(x,r) Rotate x left by r bits
|
|
* ROTR32(x,r) Rotate x right by r bits
|
|
* ROTR64(x,r) Rotate x right by r bits
|
|
*/
|
|
|
|
#ifndef U8TO16_LE
|
|
#define shifted_octet_(type,ptr,idx,shift) (((type)(((const U8*)(ptr))[(idx)]))<<(shift))
|
|
#if defined(USE_UNALIGNED_PTR_DEREF) && (BYTEORDER == 0x1234 || BYTEORDER == 0x12345678)
|
|
#define U8TO16_LE(ptr) (*((const U16*)(ptr)))
|
|
#define U8TO32_LE(ptr) (*((const U32*)(ptr)))
|
|
#define U8TO64_LE(ptr) (*((const U64*)(ptr)))
|
|
#else
|
|
#define U8TO16_LE(ptr) (shifted_octet_(U16,(ptr),0, 0)|\
|
|
shifted_octet_(U16,(ptr),1, 8))
|
|
|
|
#define U8TO32_LE(ptr) (shifted_octet_(U32,(ptr),0, 0)|\
|
|
shifted_octet_(U32,(ptr),1, 8)|\
|
|
shifted_octet_(U32,(ptr),2,16)|\
|
|
shifted_octet_(U32,(ptr),3,24))
|
|
|
|
#define U8TO64_LE(ptr) (shifted_octet_(U64,(ptr),0, 0)|\
|
|
shifted_octet_(U64,(ptr),1, 8)|\
|
|
shifted_octet_(U64,(ptr),2,16)|\
|
|
shifted_octet_(U64,(ptr),3,24)|\
|
|
shifted_octet_(U64,(ptr),4,32)|\
|
|
shifted_octet_(U64,(ptr),5,40)|\
|
|
shifted_octet_(U64,(ptr),6,48)|\
|
|
shifted_octet_(U64,(ptr),7,56))
|
|
#endif
|
|
#endif
|
|
|
|
/* Find best way to ROTL32/ROTL64 */
|
|
#if defined(_MSC_VER)
|
|
#include <stdlib.h> /* Microsoft put _rotl declaration in here */
|
|
#define ROTL32(x,r) _rotl(x,r)
|
|
#define ROTR32(x,r) _rotr(x,r)
|
|
#define ROTL64(x,r) _rotl64(x,r)
|
|
#define ROTR64(x,r) _rotr64(x,r)
|
|
#else
|
|
/* gcc recognises this code and generates a rotate instruction for CPUs with one */
|
|
#define ROTL32(x,r) (((U32)(x) << (r)) | ((U32)(x) >> (32 - (r))))
|
|
#define ROTR32(x,r) (((U32)(x) << (32 - (r))) | ((U32)(x) >> (r)))
|
|
#define ROTL64(x,r) ( ( (U64)(x) << (r) ) | ( (U64)(x) >> ( 64 - (r) ) ) )
|
|
#define ROTR64(x,r) ( ( (U64)(x) << ( 64 - (r) ) ) | ( (U64)(x) >> (r) ) )
|
|
#endif
|
|
|
|
|
|
#ifdef UV_IS_QUAD
|
|
#define ROTL_UV(x,r) ROTL64(x,r)
|
|
#define ROTR_UV(x,r) ROTL64(x,r)
|
|
#else
|
|
#define ROTL_UV(x,r) ROTL32(x,r)
|
|
#define ROTR_UV(x,r) ROTR32(x,r)
|
|
#endif
|
|
#if IVSIZE == 8
|
|
#define CAN64BITHASH
|
|
#endif
|
|
|
|
#endif
|