#ifndef _BITS_H_
#define _BITS_H_
#define _MAKE_SHIFT(WIDTH, pos) ((WIDTH) - 1 - (pos))
#if (WITH_TARGET_WORD_MSB == 0)
#define _LSB_POS(WIDTH, SHIFT) (WIDTH - 1 - SHIFT)
#else
#define _LSB_POS(WIDTH, SHIFT) (SHIFT)
#endif
#define _BITn(WIDTH, pos) (((natural##WIDTH)(1)) \
<< _MAKE_SHIFT(WIDTH, pos))
#define BIT4(POS) (1 << _MAKE_SHIFT(4, POS))
#define BIT5(POS) (1 << _MAKE_SHIFT(5, POS))
#define BIT8(POS) (1 << _MAKE_SHIFT(8, POS))
#define BIT10(POS) (1 << _MAKE_SHIFT(10, POS))
#define BIT32(POS) _BITn(32, POS)
#define BIT64(POS) _BITn(64, POS)
#if (WITH_TARGET_WORD_BITSIZE == 64)
#define BIT(POS) BIT64(POS)
#else
#define BIT(POS) (((POS) < 32) ? 0 : _BITn(32, (POS)-32))
#endif
#define _MASKn(WIDTH, START, STOP) \
(((((unsigned##WIDTH)0) - 1) \
>> (WIDTH - ((STOP) - (START) + 1))) \
<< (WIDTH - 1 - (STOP)))
#define MASK32(START, STOP) _MASKn(32, START, STOP)
#define MASK64(START, STOP) _MASKn(64, START, STOP)
#define _LSMASKn(WIDTH, FIRST, LAST) _MASKn (WIDTH, \
_LSB_POS (WIDTH, FIRST), \
_LSB_POS (WIDTH, LAST))
#define LSMASK64(FIRST, LAST) _LSMASKn (64, (FIRST), (LAST))
#if (WITH_TARGET_WORD_BITSIZE == 64)
#define MASK(START, STOP) \
(((START) <= (STOP)) \
? _MASKn(64, START, STOP) \
: (_MASKn(64, 0, STOP) \
| _MASKn(64, START, 63)))
#else
#define MASK(START, STOP) \
(((START) <= (STOP)) \
? (((STOP) < 32) \
? 0 \
: _MASKn(32, \
(START) < 32 ? 0 : (START) - 32, \
(STOP)-32)) \
: (_MASKn(32, \
(START) < 32 ? 0 : (START) - 32, \
31) \
| (((STOP) < 32) \
? 0 \
: _MASKn(32, \
0, \
(STOP) - 32))))
#endif
INLINE_BITS\
(unsigned32) MASKED32
(unsigned32 word,
unsigned start,
unsigned stop);
INLINE_BITS\
(unsigned64) MASKED64
(unsigned64 word,
unsigned start,
unsigned stop);
INLINE_BITS\
(unsigned_word) MASKED
(unsigned_word word,
unsigned start,
unsigned stop);
INLINE_BITS\
(unsigned64) LSMASKED64
(unsigned64 word,
int first,
int last);
#define _EXTRACTEDn(WIDTH, WORD, START, STOP) \
((((natural##WIDTH)(WORD)) >> (WIDTH - (STOP) - 1)) \
& _MASKn(WIDTH, WIDTH-1+(START)-(STOP), WIDTH-1))
#define EXTRACTED32(WORD, START, STOP) _EXTRACTEDn(32, WORD, START, STOP)
#define EXTRACTED64(WORD, START, STOP) _EXTRACTEDn(64, WORD, START, STOP)
INLINE_BITS\
(unsigned_word) EXTRACTED
(unsigned_word val,
unsigned start,
unsigned stop);
INLINE_BITS\
(unsigned64) LSEXTRACTED64
(unsigned64 val,
int start,
int stop);
#define _SHUFFLEDn(N, WORD, OLD, NEW) \
((OLD) < (NEW) \
? (((unsigned##N)(WORD) \
>> (((NEW) > (OLD)) ? ((NEW) - (OLD)) : 0)) \
& MASK32((NEW), (NEW))) \
: (((unsigned##N)(WORD) \
<< (((OLD) > (NEW)) ? ((OLD) - (NEW)) : 0)) \
& MASK32((NEW), (NEW))))
#define SHUFFLED32(WORD, OLD, NEW) _SHUFFLEDn(32, WORD, OLD, NEW)
#define SHUFFLED64(WORD, OLD, NEW) _SHUFFLEDn(64, WORD, OLD, NEW)
#define SHUFFLED(WORD, OLD, NEW) _SHUFFLEDn(_word, WORD, OLD, NEW)
#define _INSERTEDn(N, WORD, START, STOP) \
(((natural##N)(WORD) << _MAKE_SHIFT(N, STOP)) & _MASKn(N, START, STOP))
#define INSERTED32(WORD, START, STOP) _INSERTEDn(32, WORD, START, STOP)
#define INSERTED64(WORD, START, STOP) _INSERTEDn(64, WORD, START, STOP)
INLINE_BITS\
(unsigned_word) INSERTED
(unsigned_word val,
unsigned start,
unsigned stop);
#if (WITH_TARGET_WORD_BITSIZE == 64)
#define EXTENDED(X) ((signed64)(signed32)(X))
#else
#define EXTENDED(X) (X)
#endif
#define _ALIGNa(A,X) (((X) + ((A) - 1)) & ~((A) - 1))
#define _FLOORa(A,X) ((X) & ~((A) - 1))
#define ALIGN_8(X) _ALIGNa(8, X)
#define ALIGN_16(X) _ALIGNa(16, X)
#define ALIGN_PAGE(X) _ALIGNa(0x1000, X)
#define FLOOR_PAGE(X) ((X) & ~(0x1000 - 1))
#define BLIT32(V, POS, BIT) \
do { \
if (BIT) \
V |= BIT32(POS); \
else \
V &= ~BIT32(POS); \
} while (0)
#define MBLIT32(V, LO, HI, VAL) \
do { \
(V) = (((V) & ~MASK32((LO), (HI))) \
| INSERTED32(VAL, LO, HI)); \
} while (0)
#define _ROTLn(N, VAL, SHIFT) \
(((VAL) << (SHIFT)) | ((VAL) >> ((N)-(SHIFT))))
INLINE_BITS\
(unsigned32) ROTL32
(unsigned32 val,
long shift);
INLINE_BITS\
(unsigned64) ROTL64
(unsigned64 val,
long shift);
#if (BITS_INLINE & INCLUDE_MODULE)
#include "bits.c"
#endif
#endif