dropbear: src/headers/tomcrypt

annotate src/headers/tomcrypt_macros.h @ 390:d8e44bef7917 libtomcrypt-dropbear

Replace // with /* */

author	Matt Johnston <matt@ucc.asn.au>
date	Thu, 11 Jan 2007 04:28:09 +0000
parents	d5faf4814ddb
children

rev	line source
280 59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1 /* fix for MSVC ...evil! */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2 #ifdef _MSC_VER
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3 #define CONST64(n) n ## ui64
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4 typedef unsigned __int64 ulong64;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5 #else
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6 #define CONST64(n) n ## ULL
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7 typedef unsigned long long ulong64;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8 #endif
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	9
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	10 /* this is the "32-bit at least" data type
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	11 * Re-define it to suit your platform but it must be at least 32-bits
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	12 */
380 d5faf4814ddb Update to LibTomCrypt 1.16 Matt Johnston <matt@ucc.asn.au> parents: 280 diff changeset	13 #if defined(__x86_64__) \|\| (defined(__sparc__) && defined(__arch64__))
280 59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	14 typedef unsigned ulong32;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	15 #else
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	16 typedef unsigned long ulong32;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	17 #endif
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	18
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	19 /* ---- HELPER MACROS ---- */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	20 #ifdef ENDIAN_NEUTRAL
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	21
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	22 #define STORE32L(x, y) \
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	23 { (y)[3] = (unsigned char)(((x)>>24)&255); (y)[2] = (unsigned char)(((x)>>16)&255); \
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	24 (y)[1] = (unsigned char)(((x)>>8)&255); (y)[0] = (unsigned char)((x)&255); }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	25
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	26 #define LOAD32L(x, y) \
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	27 { x = ((unsigned long)((y)[3] & 255)<<24) \| \
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	28 ((unsigned long)((y)[2] & 255)<<16) \| \
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	29 ((unsigned long)((y)[1] & 255)<<8) \| \
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	30 ((unsigned long)((y)[0] & 255)); }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	31
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	32 #define STORE64L(x, y) \
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	33 { (y)[7] = (unsigned char)(((x)>>56)&255); (y)[6] = (unsigned char)(((x)>>48)&255); \
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	34 (y)[5] = (unsigned char)(((x)>>40)&255); (y)[4] = (unsigned char)(((x)>>32)&255); \
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	35 (y)[3] = (unsigned char)(((x)>>24)&255); (y)[2] = (unsigned char)(((x)>>16)&255); \
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	36 (y)[1] = (unsigned char)(((x)>>8)&255); (y)[0] = (unsigned char)((x)&255); }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	37
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	38 #define LOAD64L(x, y) \
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	39 { x = (((ulong64)((y)[7] & 255))<<56)\|(((ulong64)((y)[6] & 255))<<48)\| \
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	40 (((ulong64)((y)[5] & 255))<<40)\|(((ulong64)((y)[4] & 255))<<32)\| \
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	41 (((ulong64)((y)[3] & 255))<<24)\|(((ulong64)((y)[2] & 255))<<16)\| \
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	42 (((ulong64)((y)[1] & 255))<<8)\|(((ulong64)((y)[0] & 255))); }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	43
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	44 #define STORE32H(x, y) \
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	45 { (y)[0] = (unsigned char)(((x)>>24)&255); (y)[1] = (unsigned char)(((x)>>16)&255); \
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	46 (y)[2] = (unsigned char)(((x)>>8)&255); (y)[3] = (unsigned char)((x)&255); }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	47
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	48 #define LOAD32H(x, y) \
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	49 { x = ((unsigned long)((y)[0] & 255)<<24) \| \
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	50 ((unsigned long)((y)[1] & 255)<<16) \| \
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	51 ((unsigned long)((y)[2] & 255)<<8) \| \
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	52 ((unsigned long)((y)[3] & 255)); }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	53
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	54 #define STORE64H(x, y) \
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	55 { (y)[0] = (unsigned char)(((x)>>56)&255); (y)[1] = (unsigned char)(((x)>>48)&255); \
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	56 (y)[2] = (unsigned char)(((x)>>40)&255); (y)[3] = (unsigned char)(((x)>>32)&255); \
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	57 (y)[4] = (unsigned char)(((x)>>24)&255); (y)[5] = (unsigned char)(((x)>>16)&255); \
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	58 (y)[6] = (unsigned char)(((x)>>8)&255); (y)[7] = (unsigned char)((x)&255); }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	59
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	60 #define LOAD64H(x, y) \
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	61 { x = (((ulong64)((y)[0] & 255))<<56)\|(((ulong64)((y)[1] & 255))<<48) \| \
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	62 (((ulong64)((y)[2] & 255))<<40)\|(((ulong64)((y)[3] & 255))<<32) \| \
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	63 (((ulong64)((y)[4] & 255))<<24)\|(((ulong64)((y)[5] & 255))<<16) \| \
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	64 (((ulong64)((y)[6] & 255))<<8)\|(((ulong64)((y)[7] & 255))); }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	65
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	66 #endif /* ENDIAN_NEUTRAL */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	67
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	68 #ifdef ENDIAN_LITTLE
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	69
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	70 #if !defined(LTC_NO_BSWAP) && (defined(INTEL_CC) \|\| (defined(__GNUC__) && (defined(__DJGPP__) \|\| defined(__CYGWIN__) \|\| defined(__MINGW32__) \|\| defined(__i386__) \|\| defined(__x86_64__))))
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	71
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	72 #define STORE32H(x, y) \
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	73 asm __volatile__ ( \
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	74 "bswapl %0 \n\t" \
380 d5faf4814ddb Update to LibTomCrypt 1.16 Matt Johnston <matt@ucc.asn.au> parents: 280 diff changeset	75 "movl %0,(%1)\n\t" \
280 59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	76 "bswapl %0 \n\t" \
380 d5faf4814ddb Update to LibTomCrypt 1.16 Matt Johnston <matt@ucc.asn.au> parents: 280 diff changeset	77 ::"r"(x), "r"(y));
280 59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	78
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	79 #define LOAD32H(x, y) \
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	80 asm __volatile__ ( \
380 d5faf4814ddb Update to LibTomCrypt 1.16 Matt Johnston <matt@ucc.asn.au> parents: 280 diff changeset	81 "movl (%1),%0\n\t" \
280 59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	82 "bswapl %0\n\t" \
380 d5faf4814ddb Update to LibTomCrypt 1.16 Matt Johnston <matt@ucc.asn.au> parents: 280 diff changeset	83 :"=r"(x): "r"(y));
280 59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	84
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	85 #else
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	86
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	87 #define STORE32H(x, y) \
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	88 { (y)[0] = (unsigned char)(((x)>>24)&255); (y)[1] = (unsigned char)(((x)>>16)&255); \
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	89 (y)[2] = (unsigned char)(((x)>>8)&255); (y)[3] = (unsigned char)((x)&255); }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	90
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	91 #define LOAD32H(x, y) \
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	92 { x = ((unsigned long)((y)[0] & 255)<<24) \| \
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	93 ((unsigned long)((y)[1] & 255)<<16) \| \
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	94 ((unsigned long)((y)[2] & 255)<<8) \| \
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	95 ((unsigned long)((y)[3] & 255)); }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	96
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	97 #endif
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	98
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	99
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	100 /* x86_64 processor */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	101 #if !defined(LTC_NO_BSWAP) && (defined(__GNUC__) && defined(__x86_64__))
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	102
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	103 #define STORE64H(x, y) \
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	104 asm __volatile__ ( \
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	105 "bswapq %0 \n\t" \
380 d5faf4814ddb Update to LibTomCrypt 1.16 Matt Johnston <matt@ucc.asn.au> parents: 280 diff changeset	106 "movq %0,(%1)\n\t" \
280 59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	107 "bswapq %0 \n\t" \
380 d5faf4814ddb Update to LibTomCrypt 1.16 Matt Johnston <matt@ucc.asn.au> parents: 280 diff changeset	108 ::"r"(x), "r"(y));
280 59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	109
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	110 #define LOAD64H(x, y) \
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	111 asm __volatile__ ( \
380 d5faf4814ddb Update to LibTomCrypt 1.16 Matt Johnston <matt@ucc.asn.au> parents: 280 diff changeset	112 "movq (%1),%0\n\t" \
280 59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	113 "bswapq %0\n\t" \
380 d5faf4814ddb Update to LibTomCrypt 1.16 Matt Johnston <matt@ucc.asn.au> parents: 280 diff changeset	114 :"=r"(x): "r"(y));
280 59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	115
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	116 #else
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	117
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	118 #define STORE64H(x, y) \
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	119 { (y)[0] = (unsigned char)(((x)>>56)&255); (y)[1] = (unsigned char)(((x)>>48)&255); \
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	120 (y)[2] = (unsigned char)(((x)>>40)&255); (y)[3] = (unsigned char)(((x)>>32)&255); \
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	121 (y)[4] = (unsigned char)(((x)>>24)&255); (y)[5] = (unsigned char)(((x)>>16)&255); \
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	122 (y)[6] = (unsigned char)(((x)>>8)&255); (y)[7] = (unsigned char)((x)&255); }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	123
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	124 #define LOAD64H(x, y) \
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	125 { x = (((ulong64)((y)[0] & 255))<<56)\|(((ulong64)((y)[1] & 255))<<48) \| \
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	126 (((ulong64)((y)[2] & 255))<<40)\|(((ulong64)((y)[3] & 255))<<32) \| \
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	127 (((ulong64)((y)[4] & 255))<<24)\|(((ulong64)((y)[5] & 255))<<16) \| \
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	128 (((ulong64)((y)[6] & 255))<<8)\|(((ulong64)((y)[7] & 255))); }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	129
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	130 #endif
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	131
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	132 #ifdef ENDIAN_32BITWORD
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	133
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	134 #define STORE32L(x, y) \
380 d5faf4814ddb Update to LibTomCrypt 1.16 Matt Johnston <matt@ucc.asn.au> parents: 280 diff changeset	135 { ulong32 __t = (x); XMEMCPY(y, &__t, 4); }
280 59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	136
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	137 #define LOAD32L(x, y) \
380 d5faf4814ddb Update to LibTomCrypt 1.16 Matt Johnston <matt@ucc.asn.au> parents: 280 diff changeset	138 XMEMCPY(&(x), y, 4);
280 59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	139
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	140 #define STORE64L(x, y) \
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	141 { (y)[7] = (unsigned char)(((x)>>56)&255); (y)[6] = (unsigned char)(((x)>>48)&255); \
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	142 (y)[5] = (unsigned char)(((x)>>40)&255); (y)[4] = (unsigned char)(((x)>>32)&255); \
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	143 (y)[3] = (unsigned char)(((x)>>24)&255); (y)[2] = (unsigned char)(((x)>>16)&255); \
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	144 (y)[1] = (unsigned char)(((x)>>8)&255); (y)[0] = (unsigned char)((x)&255); }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	145
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	146 #define LOAD64L(x, y) \
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	147 { x = (((ulong64)((y)[7] & 255))<<56)\|(((ulong64)((y)[6] & 255))<<48)\| \
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	148 (((ulong64)((y)[5] & 255))<<40)\|(((ulong64)((y)[4] & 255))<<32)\| \
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	149 (((ulong64)((y)[3] & 255))<<24)\|(((ulong64)((y)[2] & 255))<<16)\| \
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	150 (((ulong64)((y)[1] & 255))<<8)\|(((ulong64)((y)[0] & 255))); }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	151
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	152 #else /* 64-bit words then */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	153
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	154 #define STORE32L(x, y) \
380 d5faf4814ddb Update to LibTomCrypt 1.16 Matt Johnston <matt@ucc.asn.au> parents: 280 diff changeset	155 { ulong32 __t = (x); XMEMCPY(y, &__t, 4); }
280 59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	156
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	157 #define LOAD32L(x, y) \
380 d5faf4814ddb Update to LibTomCrypt 1.16 Matt Johnston <matt@ucc.asn.au> parents: 280 diff changeset	158 { XMEMCPY(&(x), y, 4); x &= 0xFFFFFFFF; }
280 59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	159
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	160 #define STORE64L(x, y) \
380 d5faf4814ddb Update to LibTomCrypt 1.16 Matt Johnston <matt@ucc.asn.au> parents: 280 diff changeset	161 { ulong64 __t = (x); XMEMCPY(y, &__t, 8); }
280 59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	162
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	163 #define LOAD64L(x, y) \
380 d5faf4814ddb Update to LibTomCrypt 1.16 Matt Johnston <matt@ucc.asn.au> parents: 280 diff changeset	164 { XMEMCPY(&(x), y, 8); }
280 59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	165
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	166 #endif /* ENDIAN_64BITWORD */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	167
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	168 #endif /* ENDIAN_LITTLE */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	169
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	170 #ifdef ENDIAN_BIG
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	171 #define STORE32L(x, y) \
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	172 { (y)[3] = (unsigned char)(((x)>>24)&255); (y)[2] = (unsigned char)(((x)>>16)&255); \
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	173 (y)[1] = (unsigned char)(((x)>>8)&255); (y)[0] = (unsigned char)((x)&255); }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	174
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	175 #define LOAD32L(x, y) \
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	176 { x = ((unsigned long)((y)[3] & 255)<<24) \| \
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	177 ((unsigned long)((y)[2] & 255)<<16) \| \
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	178 ((unsigned long)((y)[1] & 255)<<8) \| \
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	179 ((unsigned long)((y)[0] & 255)); }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	180
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	181 #define STORE64L(x, y) \
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	182 { (y)[7] = (unsigned char)(((x)>>56)&255); (y)[6] = (unsigned char)(((x)>>48)&255); \
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	183 (y)[5] = (unsigned char)(((x)>>40)&255); (y)[4] = (unsigned char)(((x)>>32)&255); \
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	184 (y)[3] = (unsigned char)(((x)>>24)&255); (y)[2] = (unsigned char)(((x)>>16)&255); \
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	185 (y)[1] = (unsigned char)(((x)>>8)&255); (y)[0] = (unsigned char)((x)&255); }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	186
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	187 #define LOAD64L(x, y) \
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	188 { x = (((ulong64)((y)[7] & 255))<<56)\|(((ulong64)((y)[6] & 255))<<48) \| \
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	189 (((ulong64)((y)[5] & 255))<<40)\|(((ulong64)((y)[4] & 255))<<32) \| \
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	190 (((ulong64)((y)[3] & 255))<<24)\|(((ulong64)((y)[2] & 255))<<16) \| \
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	191 (((ulong64)((y)[1] & 255))<<8)\|(((ulong64)((y)[0] & 255))); }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	192
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	193 #ifdef ENDIAN_32BITWORD
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	194
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	195 #define STORE32H(x, y) \
380 d5faf4814ddb Update to LibTomCrypt 1.16 Matt Johnston <matt@ucc.asn.au> parents: 280 diff changeset	196 { ulong32 __t = (x); XMEMCPY(y, &__t, 4); }
280 59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	197
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	198 #define LOAD32H(x, y) \
380 d5faf4814ddb Update to LibTomCrypt 1.16 Matt Johnston <matt@ucc.asn.au> parents: 280 diff changeset	199 XMEMCPY(&(x), y, 4);
280 59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	200
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	201 #define STORE64H(x, y) \
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	202 { (y)[0] = (unsigned char)(((x)>>56)&255); (y)[1] = (unsigned char)(((x)>>48)&255); \
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	203 (y)[2] = (unsigned char)(((x)>>40)&255); (y)[3] = (unsigned char)(((x)>>32)&255); \
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	204 (y)[4] = (unsigned char)(((x)>>24)&255); (y)[5] = (unsigned char)(((x)>>16)&255); \
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	205 (y)[6] = (unsigned char)(((x)>>8)&255); (y)[7] = (unsigned char)((x)&255); }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	206
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	207 #define LOAD64H(x, y) \
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	208 { x = (((ulong64)((y)[0] & 255))<<56)\|(((ulong64)((y)[1] & 255))<<48)\| \
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	209 (((ulong64)((y)[2] & 255))<<40)\|(((ulong64)((y)[3] & 255))<<32)\| \
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	210 (((ulong64)((y)[4] & 255))<<24)\|(((ulong64)((y)[5] & 255))<<16)\| \
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	211 (((ulong64)((y)[6] & 255))<<8)\| (((ulong64)((y)[7] & 255))); }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	212
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	213 #else /* 64-bit words then */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	214
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	215 #define STORE32H(x, y) \
380 d5faf4814ddb Update to LibTomCrypt 1.16 Matt Johnston <matt@ucc.asn.au> parents: 280 diff changeset	216 { ulong32 __t = (x); XMEMCPY(y, &__t, 4); }
280 59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	217
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	218 #define LOAD32H(x, y) \
380 d5faf4814ddb Update to LibTomCrypt 1.16 Matt Johnston <matt@ucc.asn.au> parents: 280 diff changeset	219 { XMEMCPY(&(x), y, 4); x &= 0xFFFFFFFF; }
280 59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	220
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	221 #define STORE64H(x, y) \
380 d5faf4814ddb Update to LibTomCrypt 1.16 Matt Johnston <matt@ucc.asn.au> parents: 280 diff changeset	222 { ulong64 __t = (x); XMEMCPY(y, &__t, 8); }
280 59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	223
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	224 #define LOAD64H(x, y) \
380 d5faf4814ddb Update to LibTomCrypt 1.16 Matt Johnston <matt@ucc.asn.au> parents: 280 diff changeset	225 { XMEMCPY(&(x), y, 8); }
280 59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	226
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	227 #endif /* ENDIAN_64BITWORD */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	228 #endif /* ENDIAN_BIG */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	229
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	230 #define BSWAP(x) ( ((x>>24)&0x000000FFUL) \| ((x<<24)&0xFF000000UL) \| \
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	231 ((x>>8)&0x0000FF00UL) \| ((x<<8)&0x00FF0000UL) )
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	232
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	233
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	234 /* 32-bit Rotates */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	235 #if defined(_MSC_VER)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	236
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	237 /* instrinsic rotate */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	238 #include <stdlib.h>
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	239 #pragma intrinsic(_lrotr,_lrotl)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	240 #define ROR(x,n) _lrotr(x,n)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	241 #define ROL(x,n) _lrotl(x,n)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	242 #define RORc(x,n) _lrotr(x,n)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	243 #define ROLc(x,n) _lrotl(x,n)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	244
380 d5faf4814ddb Update to LibTomCrypt 1.16 Matt Johnston <matt@ucc.asn.au> parents: 280 diff changeset	245 #elif !defined(__STRICT_ANSI__) && defined(__GNUC__) && (defined(__i386__) \|\| defined(__x86_64__)) && !defined(INTEL_CC) && !defined(LTC_NO_ASM)
280 59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	246
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	247 static inline unsigned ROL(unsigned word, int i)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	248 {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	249 asm ("roll %%cl,%0"
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	250 :"=r" (word)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	251 :"0" (word),"c" (i));
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	252 return word;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	253 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	254
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	255 static inline unsigned ROR(unsigned word, int i)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	256 {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	257 asm ("rorl %%cl,%0"
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	258 :"=r" (word)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	259 :"0" (word),"c" (i));
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	260 return word;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	261 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	262
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	263 #ifndef LTC_NO_ROLC
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	264
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	265 static inline unsigned ROLc(unsigned word, const int i)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	266 {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	267 asm ("roll %2,%0"
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	268 :"=r" (word)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	269 :"0" (word),"I" (i));
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	270 return word;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	271 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	272
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	273 static inline unsigned RORc(unsigned word, const int i)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	274 {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	275 asm ("rorl %2,%0"
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	276 :"=r" (word)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	277 :"0" (word),"I" (i));
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	278 return word;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	279 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	280
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	281 #else
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	282
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	283 #define ROLc ROL
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	284 #define RORc ROR
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	285
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	286 #endif
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	287
380 d5faf4814ddb Update to LibTomCrypt 1.16 Matt Johnston <matt@ucc.asn.au> parents: 280 diff changeset	288 #elif !defined(__STRICT_ANSI__) && defined(LTC_PPC32)
d5faf4814ddb Update to LibTomCrypt 1.16 Matt Johnston <matt@ucc.asn.au> parents: 280 diff changeset	289
d5faf4814ddb Update to LibTomCrypt 1.16 Matt Johnston <matt@ucc.asn.au> parents: 280 diff changeset	290 static inline unsigned ROL(unsigned word, int i)
d5faf4814ddb Update to LibTomCrypt 1.16 Matt Johnston <matt@ucc.asn.au> parents: 280 diff changeset	291 {
d5faf4814ddb Update to LibTomCrypt 1.16 Matt Johnston <matt@ucc.asn.au> parents: 280 diff changeset	292 asm ("rotlw %0,%0,%2"
d5faf4814ddb Update to LibTomCrypt 1.16 Matt Johnston <matt@ucc.asn.au> parents: 280 diff changeset	293 :"=r" (word)
d5faf4814ddb Update to LibTomCrypt 1.16 Matt Johnston <matt@ucc.asn.au> parents: 280 diff changeset	294 :"0" (word),"r" (i));
d5faf4814ddb Update to LibTomCrypt 1.16 Matt Johnston <matt@ucc.asn.au> parents: 280 diff changeset	295 return word;
d5faf4814ddb Update to LibTomCrypt 1.16 Matt Johnston <matt@ucc.asn.au> parents: 280 diff changeset	296 }
d5faf4814ddb Update to LibTomCrypt 1.16 Matt Johnston <matt@ucc.asn.au> parents: 280 diff changeset	297
d5faf4814ddb Update to LibTomCrypt 1.16 Matt Johnston <matt@ucc.asn.au> parents: 280 diff changeset	298 static inline unsigned ROR(unsigned word, int i)
d5faf4814ddb Update to LibTomCrypt 1.16 Matt Johnston <matt@ucc.asn.au> parents: 280 diff changeset	299 {
d5faf4814ddb Update to LibTomCrypt 1.16 Matt Johnston <matt@ucc.asn.au> parents: 280 diff changeset	300 asm ("rotlw %0,%0,%2"
d5faf4814ddb Update to LibTomCrypt 1.16 Matt Johnston <matt@ucc.asn.au> parents: 280 diff changeset	301 :"=r" (word)
d5faf4814ddb Update to LibTomCrypt 1.16 Matt Johnston <matt@ucc.asn.au> parents: 280 diff changeset	302 :"0" (word),"r" (32-i));
d5faf4814ddb Update to LibTomCrypt 1.16 Matt Johnston <matt@ucc.asn.au> parents: 280 diff changeset	303 return word;
d5faf4814ddb Update to LibTomCrypt 1.16 Matt Johnston <matt@ucc.asn.au> parents: 280 diff changeset	304 }
d5faf4814ddb Update to LibTomCrypt 1.16 Matt Johnston <matt@ucc.asn.au> parents: 280 diff changeset	305
d5faf4814ddb Update to LibTomCrypt 1.16 Matt Johnston <matt@ucc.asn.au> parents: 280 diff changeset	306 #ifndef LTC_NO_ROLC
d5faf4814ddb Update to LibTomCrypt 1.16 Matt Johnston <matt@ucc.asn.au> parents: 280 diff changeset	307
d5faf4814ddb Update to LibTomCrypt 1.16 Matt Johnston <matt@ucc.asn.au> parents: 280 diff changeset	308 static inline unsigned ROLc(unsigned word, const int i)
d5faf4814ddb Update to LibTomCrypt 1.16 Matt Johnston <matt@ucc.asn.au> parents: 280 diff changeset	309 {
d5faf4814ddb Update to LibTomCrypt 1.16 Matt Johnston <matt@ucc.asn.au> parents: 280 diff changeset	310 asm ("rotlwi %0,%0,%2"
d5faf4814ddb Update to LibTomCrypt 1.16 Matt Johnston <matt@ucc.asn.au> parents: 280 diff changeset	311 :"=r" (word)
d5faf4814ddb Update to LibTomCrypt 1.16 Matt Johnston <matt@ucc.asn.au> parents: 280 diff changeset	312 :"0" (word),"I" (i));
d5faf4814ddb Update to LibTomCrypt 1.16 Matt Johnston <matt@ucc.asn.au> parents: 280 diff changeset	313 return word;
d5faf4814ddb Update to LibTomCrypt 1.16 Matt Johnston <matt@ucc.asn.au> parents: 280 diff changeset	314 }
d5faf4814ddb Update to LibTomCrypt 1.16 Matt Johnston <matt@ucc.asn.au> parents: 280 diff changeset	315
d5faf4814ddb Update to LibTomCrypt 1.16 Matt Johnston <matt@ucc.asn.au> parents: 280 diff changeset	316 static inline unsigned RORc(unsigned word, const int i)
d5faf4814ddb Update to LibTomCrypt 1.16 Matt Johnston <matt@ucc.asn.au> parents: 280 diff changeset	317 {
d5faf4814ddb Update to LibTomCrypt 1.16 Matt Johnston <matt@ucc.asn.au> parents: 280 diff changeset	318 asm ("rotrwi %0,%0,%2"
d5faf4814ddb Update to LibTomCrypt 1.16 Matt Johnston <matt@ucc.asn.au> parents: 280 diff changeset	319 :"=r" (word)
d5faf4814ddb Update to LibTomCrypt 1.16 Matt Johnston <matt@ucc.asn.au> parents: 280 diff changeset	320 :"0" (word),"I" (i));
d5faf4814ddb Update to LibTomCrypt 1.16 Matt Johnston <matt@ucc.asn.au> parents: 280 diff changeset	321 return word;
d5faf4814ddb Update to LibTomCrypt 1.16 Matt Johnston <matt@ucc.asn.au> parents: 280 diff changeset	322 }
d5faf4814ddb Update to LibTomCrypt 1.16 Matt Johnston <matt@ucc.asn.au> parents: 280 diff changeset	323
d5faf4814ddb Update to LibTomCrypt 1.16 Matt Johnston <matt@ucc.asn.au> parents: 280 diff changeset	324 #else
d5faf4814ddb Update to LibTomCrypt 1.16 Matt Johnston <matt@ucc.asn.au> parents: 280 diff changeset	325
d5faf4814ddb Update to LibTomCrypt 1.16 Matt Johnston <matt@ucc.asn.au> parents: 280 diff changeset	326 #define ROLc ROL
d5faf4814ddb Update to LibTomCrypt 1.16 Matt Johnston <matt@ucc.asn.au> parents: 280 diff changeset	327 #define RORc ROR
d5faf4814ddb Update to LibTomCrypt 1.16 Matt Johnston <matt@ucc.asn.au> parents: 280 diff changeset	328
d5faf4814ddb Update to LibTomCrypt 1.16 Matt Johnston <matt@ucc.asn.au> parents: 280 diff changeset	329 #endif
d5faf4814ddb Update to LibTomCrypt 1.16 Matt Johnston <matt@ucc.asn.au> parents: 280 diff changeset	330
d5faf4814ddb Update to LibTomCrypt 1.16 Matt Johnston <matt@ucc.asn.au> parents: 280 diff changeset	331
280 59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	332 #else
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	333
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	334 /* rotates the hard way */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	335 #define ROL(x, y) ( (((unsigned long)(x)<<(unsigned long)((y)&31)) \| (((unsigned long)(x)&0xFFFFFFFFUL)>>(unsigned long)(32-((y)&31)))) & 0xFFFFFFFFUL)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	336 #define ROR(x, y) ( ((((unsigned long)(x)&0xFFFFFFFFUL)>>(unsigned long)((y)&31)) \| ((unsigned long)(x)<<(unsigned long)(32-((y)&31)))) & 0xFFFFFFFFUL)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	337 #define ROLc(x, y) ( (((unsigned long)(x)<<(unsigned long)((y)&31)) \| (((unsigned long)(x)&0xFFFFFFFFUL)>>(unsigned long)(32-((y)&31)))) & 0xFFFFFFFFUL)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	338 #define RORc(x, y) ( ((((unsigned long)(x)&0xFFFFFFFFUL)>>(unsigned long)((y)&31)) \| ((unsigned long)(x)<<(unsigned long)(32-((y)&31)))) & 0xFFFFFFFFUL)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	339
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	340 #endif
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	341
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	342
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	343 /* 64-bit Rotates */
380 d5faf4814ddb Update to LibTomCrypt 1.16 Matt Johnston <matt@ucc.asn.au> parents: 280 diff changeset	344 #if !defined(__STRICT_ANSI__) && defined(__GNUC__) && defined(__x86_64__) && !defined(LTC_NO_ASM)
280 59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	345
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	346 static inline unsigned long ROL64(unsigned long word, int i)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	347 {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	348 asm("rolq %%cl,%0"
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	349 :"=r" (word)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	350 :"0" (word),"c" (i));
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	351 return word;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	352 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	353
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	354 static inline unsigned long ROR64(unsigned long word, int i)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	355 {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	356 asm("rorq %%cl,%0"
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	357 :"=r" (word)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	358 :"0" (word),"c" (i));
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	359 return word;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	360 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	361
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	362 #ifndef LTC_NO_ROLC
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	363
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	364 static inline unsigned long ROL64c(unsigned long word, const int i)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	365 {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	366 asm("rolq %2,%0"
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	367 :"=r" (word)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	368 :"0" (word),"J" (i));
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	369 return word;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	370 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	371
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	372 static inline unsigned long ROR64c(unsigned long word, const int i)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	373 {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	374 asm("rorq %2,%0"
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	375 :"=r" (word)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	376 :"0" (word),"J" (i));
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	377 return word;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	378 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	379
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	380 #else /* LTC_NO_ROLC */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	381
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	382 #define ROL64c ROL64
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	383 #define ROR64c ROR64
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	384
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	385 #endif
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	386
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	387 #else /* Not x86_64 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	388
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	389 #define ROL64(x, y) \
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	390 ( (((x)<<((ulong64)(y)&63)) \| \
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	391 (((x)&CONST64(0xFFFFFFFFFFFFFFFF))>>((ulong64)64-((y)&63)))) & CONST64(0xFFFFFFFFFFFFFFFF))
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	392
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	393 #define ROR64(x, y) \
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	394 ( ((((x)&CONST64(0xFFFFFFFFFFFFFFFF))>>((ulong64)(y)&CONST64(63))) \| \
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	395 ((x)<<((ulong64)(64-((y)&CONST64(63)))))) & CONST64(0xFFFFFFFFFFFFFFFF))
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	396
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	397 #define ROL64c(x, y) \
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	398 ( (((x)<<((ulong64)(y)&63)) \| \
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	399 (((x)&CONST64(0xFFFFFFFFFFFFFFFF))>>((ulong64)64-((y)&63)))) & CONST64(0xFFFFFFFFFFFFFFFF))
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	400
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	401 #define ROR64c(x, y) \
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	402 ( ((((x)&CONST64(0xFFFFFFFFFFFFFFFF))>>((ulong64)(y)&CONST64(63))) \| \
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	403 ((x)<<((ulong64)(64-((y)&CONST64(63)))))) & CONST64(0xFFFFFFFFFFFFFFFF))
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	404
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	405 #endif
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	406
380 d5faf4814ddb Update to LibTomCrypt 1.16 Matt Johnston <matt@ucc.asn.au> parents: 280 diff changeset	407 #ifndef MAX
d5faf4814ddb Update to LibTomCrypt 1.16 Matt Johnston <matt@ucc.asn.au> parents: 280 diff changeset	408 #define MAX(x, y) ( ((x)>(y))?(x):(y) )
d5faf4814ddb Update to LibTomCrypt 1.16 Matt Johnston <matt@ucc.asn.au> parents: 280 diff changeset	409 #endif
d5faf4814ddb Update to LibTomCrypt 1.16 Matt Johnston <matt@ucc.asn.au> parents: 280 diff changeset	410
d5faf4814ddb Update to LibTomCrypt 1.16 Matt Johnston <matt@ucc.asn.au> parents: 280 diff changeset	411 #ifndef MIN
d5faf4814ddb Update to LibTomCrypt 1.16 Matt Johnston <matt@ucc.asn.au> parents: 280 diff changeset	412 #define MIN(x, y) ( ((x)<(y))?(x):(y) )
d5faf4814ddb Update to LibTomCrypt 1.16 Matt Johnston <matt@ucc.asn.au> parents: 280 diff changeset	413 #endif
280 59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	414
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	415 /* extract a byte portably */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	416 #ifdef _MSC_VER
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	417 #define byte(x, n) ((unsigned char)((x) >> (8 * (n))))
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	418 #else
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	419 #define byte(x, n) (((x) >> (8 * (n))) & 255)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	420 #endif
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	421
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	422 /* $Source: /cvs/libtom/libtomcrypt/src/headers/tomcrypt_macros.h,v $ */
380 d5faf4814ddb Update to LibTomCrypt 1.16 Matt Johnston <matt@ucc.asn.au> parents: 280 diff changeset	423 /* $Revision: 1.15 $ */
d5faf4814ddb Update to LibTomCrypt 1.16 Matt Johnston <matt@ucc.asn.au> parents: 280 diff changeset	424 /* $Date: 2006/11/29 23:43:57 $ */

Mercurial > dropbear

annotate src/headers/tomcrypt_macros.h @ 390:d8e44bef7917 libtomcrypt-dropbear