mysqlnd_portability.h

/* Copyright Abandoned 1996 TCX DataKonsult AB & Monty Program KB & Detron HB
This file is public domain and comes with NO WARRANTY of any kind */

/*
 Parts of the original, which are not applicable to mysqlnd have been removed.

 With small modifications, mostly casting but adding few more macros by
 Andrey Hristov <andrey@php.net> . The additions are in the public domain and
 were added to improve the header file, to get it more consistent.
*/

#ifndefMYSQLND_PORTABILITY_H
#defineMYSQLND_PORTABILITY_H

#ifndef__attribute
#if !defined(__GNUC__)
#define__attribute(A)
#endif
#endif

#ifdef__CYGWIN__
/* We use a Unix API, so pretend it's not Windows */
#undef WIN
#undef WIN32
#undef _WIN
#undef _WIN32
#undef _WIN64
#undef __WIN__
#undef __WIN32__
#endif/* __CYGWIN__ */

#if defined(_WIN32) || defined(_WIN64) || defined(__WIN32__) || defined(WIN32)
# include"ext/mysqlnd/config-win.h"
#endif/* _WIN32... */

#if__STDC_VERSION__<199901L&& !defined(atoll)
/* "inline" is a keyword */
#defineatoll atol
#endif

#include<stdint.h>

#ifSIZEOF_LONG_LONG>4&& !defined(_LONG_LONG)
#define_LONG_LONG 1 /* For AIX string library */
#endif

/* Go around some bugs in different OS and compilers */

#ifdefPHP_WIN32
#ifndefL64
#defineL64(x) x##i64
#endif
#else

#ifndefL64
#defineL64(x) x##LL
#endif
#endif


#defineint1store(T,A) do { *((int8_t*) (T)) = (A); } while(0)
#defineuint1korr(A) (*(((uint8_t*)(A))))

/* Bit values are sent in reverted order of bytes, compared to normal !!! */
#definebit_uint2korr(A) ((uint16_t) (((uint16_t) (((unsigned char*) (A))[1])) +\
 ((uint16_t) (((unsigned char*) (A))[0]) << 8)))
#definebit_uint3korr(A) ((uint32_t) (((uint32_t) (((unsigned char*) (A))[2])) +\
 (((uint32_t) (((unsigned char*) (A))[1])) << 8) +\
 (((uint32_t) (((unsigned char*) (A))[0])) << 16)))
#definebit_uint4korr(A) ((uint32_t) (((uint32_t) (((unsigned char*) (A))[3])) +\
 (((uint32_t) (((unsigned char*) (A))[2])) << 8) +\
 (((uint32_t) (((unsigned char*) (A))[1])) << 16) +\
 (((uint32_t) (((unsigned char*) (A))[0])) << 24)))
#definebit_uint5korr(A) ((uint64_t)(((uint32_t) (((unsigned char*) (A))[4])) +\
 (((uint32_t) (((unsigned char*) (A))[3])) << 8) +\
 (((uint32_t) (((unsigned char*) (A))[2])) << 16) +\
 (((uint32_t) (((unsigned char*) (A))[1])) << 24)) +\
 (((uint64_t) (((unsigned char*) (A))[0])) << 32))
#definebit_uint6korr(A) ((uint64_t)(((uint32_t) (((unsigned char*) (A))[5])) +\
 (((uint32_t) (((unsigned char*) (A))[4])) << 8) +\
 (((uint32_t) (((unsigned char*) (A))[3])) << 16) +\
 (((uint32_t) (((unsigned char*) (A))[2])) << 24)) +\
 (((uint64_t) (((uint32_t) (((unsigned char*) (A))[1])) +\
 (((uint32_t) (((unsigned char*) (A))[0]) << 8)))) <<\
 32))
#definebit_uint7korr(A) ((uint64_t)(((uint32_t) (((unsigned char*) (A))[6])) +\
 (((uint32_t) (((unsigned char*) (A))[5])) << 8) +\
 (((uint32_t) (((unsigned char*) (A))[4])) << 16) +\
 (((uint32_t) (((unsigned char*) (A))[3])) << 24)) +\
 (((uint64_t) (((uint32_t) (((unsigned char*) (A))[2])) +\
 (((uint32_t) (((unsigned char*) (A))[1])) << 8) +\
 (((uint32_t) (((unsigned char*) (A))[0])) << 16))) <<\
 32))
#definebit_uint8korr(A) ((uint64_t)(((uint32_t) (((unsigned char*) (A))[7])) +\
 (((uint32_t) (((unsigned char*) (A))[6])) << 8) +\
 (((uint32_t) (((unsigned char*) (A))[5])) << 16) +\
 (((uint32_t) (((unsigned char*) (A))[4])) << 24)) +\
 (((uint64_t) (((uint32_t) (((unsigned char*) (A))[3])) +\
 (((uint32_t) (((unsigned char*) (A))[2])) << 8) +\
 (((uint32_t) (((unsigned char*) (A))[1])) << 16) +\
 (((uint32_t) (((unsigned char*) (A))[0])) << 24))) <<\
 32))


/*
** Define-funktions for reading and storing in machine independent format
** (low byte first)
*/

/* Optimized store functions for Intel x86, non-valid for WIN64. __i386__ is GCC */
#if defined(__i386__) && !defined(_WIN64)
#definesint2korr(A) (*((int16_t *) (A)))
#definesint3korr(A) ((int32_t) ((((zend_uchar) (A)[2]) & 128) ? \
 (((uint32_t) 255L << 24) | \
 (((uint32_t) (zend_uchar) (A)[2]) << 16) |\
 (((uint32_t) (zend_uchar) (A)[1]) << 8) | \
 ((uint32_t) (zend_uchar) (A)[0])) : \
 (((uint32_t) (zend_uchar) (A)[2]) << 16) |\
 (((uint32_t) (zend_uchar) (A)[1]) << 8) | \
 ((uint32_t) (zend_uchar) (A)[0])))
#definesint4korr(A) (*((zend_long *) (A)))

#defineuint2korr(A) (*((uint16_t *) (A)))
#defineuint3korr(A) (uint32_t) (((uint32_t) ((zend_uchar) (A)[0])) +\
 (((uint32_t) ((zend_uchar) (A)[1])) << 8) +\
 (((uint32_t) ((zend_uchar) (A)[2])) << 16))
#defineuint4korr(A) (*((zend_ulong *) (A)))



#defineuint8korr(A) (*((uint64_t *) (A)))
#definesint8korr(A) (*((int64_t *) (A)))
#defineint2store(T,A) *((uint16_t*) (T))= (uint16_t) (A)
#defineint3store(T,A) { \
 *(T)= (zend_uchar) ((A));\
 *(T+1)=(zend_uchar) (((uint32_t) (A) >> 8));\
 *(T+2)=(zend_uchar) (((A) >> 16)); }
#defineint4store(T,A) *((zend_long *) (T))= (zend_long) (A)
#defineint5store(T,A) { \
 *((zend_uchar *)(T))= (zend_uchar)((A));\
 *(((zend_uchar *)(T))+1)=(zend_uchar) (((A) >> 8));\
 *(((zend_uchar *)(T))+2)=(zend_uchar) (((A) >> 16));\
 *(((zend_uchar *)(T))+3)=(zend_uchar) (((A) >> 24)); \
 *(((zend_uchar *)(T))+4)=(zend_uchar) (((A) >> 32)); }

#defineint8store(T,A) *((uint64_t *) (T))= (uint64_t) (A)

typedefunion {
doublev;
zend_longm[2];
} float8get_union;
#definefloat8get(V,M) { ((float8get_union *)&(V))->m[0] = *((zend_long*) (M)); \
 ((float8get_union *)&(V))->m[1] = *(((zend_long*) (M))+1); }
#definefloat8store(T,V) { *((zend_long *) (T)) = ((float8get_union *)&(V))->m[0]; \
 *(((zend_long *) (T))+1) = ((float8get_union *)&(V))->m[1]; }
#definefloat4get(V,M) { *((float *) &(V)) = *((float*) (M)); }
/* From Andrey Hristov based on float8get */
#definefloatget(V,M) memcpy((char*) &(V),(char*) (M),sizeof(float))
#endif/* __i386__ */


/* If we haven't defined sint2korr, which is because the platform is not x86 or it's WIN64 */
#ifndefsint2korr
#definesint2korr(A) (int16_t) (((int16_t) ((zend_uchar) (A)[0])) +\
 ((int16_t) ((int16_t) (A)[1]) << 8))
#definesint3korr(A) ((int32_t) ((((zend_uchar) (A)[2]) & 128) ? \
 (((uint32_t) 255L << 24) | \
 (((uint32_t) (zend_uchar) (A)[2]) << 16) |\
 (((uint32_t) (zend_uchar) (A)[1]) << 8) | \
 ((uint32_t) (zend_uchar) (A)[0])) : \
 (((uint32_t) (zend_uchar) (A)[2]) << 16) |\
 (((uint32_t) (zend_uchar) (A)[1]) << 8) | \
 ((uint32_t) (zend_uchar) (A)[0])))
#definesint4korr(A) (int32_t) (((uint32_t) ((A)[0])) +\
 (((uint32_t) ((A)[1]) << 8)) +\
 (((uint32_t) ((A)[2]) << 16)) +\
 (((uint32_t) ((A)[3]) << 24)))

#definesint8korr(A) (int64_t) uint8korr(A)
#defineuint2korr(A) (uint16_t) (((uint16_t) ((zend_uchar) (A)[0])) +\
 ((uint16_t) ((zend_uchar) (A)[1]) << 8))
#defineuint3korr(A) (uint32_t) (((uint32_t) ((zend_uchar) (A)[0])) +\
 (((uint32_t) ((zend_uchar) (A)[1])) << 8) +\
 (((uint32_t) ((zend_uchar) (A)[2])) << 16))
#defineuint4korr(A) (uint32_t) (((uint32_t) ((zend_uchar) (A)[0])) +\
 (((uint32_t) ((zend_uchar) (A)[1])) << 8) +\
 (((uint32_t) ((zend_uchar) (A)[2])) << 16) +\
 (((uint32_t) ((zend_uchar) (A)[3])) << 24))

#defineuint8korr(A) ((uint64_t)(((uint32_t) ((zend_uchar) (A)[0])) +\
 (((uint32_t) ((zend_uchar) (A)[1])) << 8) +\
 (((uint32_t) ((zend_uchar) (A)[2])) << 16) +\
 (((uint32_t) ((zend_uchar) (A)[3])) << 24)) +\
 (((uint64_t) (((uint32_t) ((zend_uchar) (A)[4])) +\
 (((uint32_t) ((zend_uchar) (A)[5])) << 8) +\
 (((uint32_t) ((zend_uchar) (A)[6])) << 16) +\
 (((uint32_t) ((zend_uchar) (A)[7])) << 24))) << 32))


#defineint2store(T,A) do { uint32_t def_temp= (uint32_t) (A) ;\
 *((zend_uchar*) (T)) = (zend_uchar)(def_temp); \
 *((zend_uchar*) (T+1)) = (zend_uchar)((def_temp >> 8)); } while (0)
#defineint3store(T,A) do { /*lint -save -e734 */\
*(((char*)(T))) = (char) ((A));\
*(((char*)(T))+1) = (char) (((A) >> 8));\
*(((char*)(T))+2) = (char) (((A) >> 16)); \
/*lint -restore */} while (0)
#defineint4store(T,A) do { \
 *(((char *)(T))) = (char) ((A));\
 *(((char *)(T))+1) = (char) (((A) >> 8));\
 *(((char *)(T))+2) = (char) (((A) >> 16));\
 *(((char *)(T))+3) = (char) (((A) >> 24)); } while (0)
#defineint5store(T,A) do { \
 *(((char *)(T))) = (char)((A));\
 *(((char *)(T))+1) = (char)(((A) >> 8));\
 *(((char *)(T))+2) = (char)(((A) >> 16));\
 *(((char *)(T))+3) = (char)(((A) >> 24)); \
 *(((char *)(T))+4) = sizeof(A) == 4 ? 0 : (char)(((A) >> 32)); } while (0)
#defineint8store(T,A) { uint32_t def_temp= (uint32_t) (A), def_temp2= sizeof(A) == 4 ? 0 : (uint32_t) ((A) >> 32); \
 int4store((T),def_temp); \
 int4store((T+4),def_temp2); \
 }
#ifdefWORDS_BIGENDIAN
#definefloat4get(V,M) do { float def_temp;\
 ((char*) &def_temp)[0] = (M)[3];\
 ((char*) &def_temp)[1] = (M)[2];\
 ((char*) &def_temp)[2] = (M)[1];\
 ((char*) &def_temp)[3] = (M)[0];\
 (V)=def_temp; } while (0)
#definefloat8store(T,V) do { \
 *(((char *)(T))) = (char) ((char *) &(V))[7];\
 *(((char *)(T))+1) = (char) ((char *) &(V))[6];\
 *(((char *)(T))+2) = (char) ((char *) &(V))[5];\
 *(((char *)(T))+3) = (char) ((char *) &(V))[4];\
 *(((char *)(T))+4) = (char) ((char *) &(V))[3];\
 *(((char *)(T))+5) = (char) ((char *) &(V))[2];\
 *(((char *)(T))+6) = (char) ((char *) &(V))[1];\
 *(((char *)(T))+7) = (char) ((char *) &(V))[0]; } while (0)

#definefloat8get(V,M) do { double def_temp;\
 ((char*) &def_temp)[0] = (M)[7];\
 ((char*) &def_temp)[1] = (M)[6];\
 ((char*) &def_temp)[2] = (M)[5];\
 ((char*) &def_temp)[3] = (M)[4];\
 ((char*) &def_temp)[4] = (M)[3];\
 ((char*) &def_temp)[5] = (M)[2];\
 ((char*) &def_temp)[6] = (M)[1];\
 ((char*) &def_temp)[7] = (M)[0];\
 (V) = def_temp; \
 } while (0)
#else
#definefloat4get(V,M) memcpy((char*) &(V),(char*) (M),sizeof(float))

#if defined(__FLOAT_WORD_ORDER) && (__FLOAT_WORD_ORDER==__BIG_ENDIAN)
#definefloat8store(T,V) do { \
 *(((char *)(T)))= ((char *) &(V))[4];\
 *(((char *)(T))+1)=(char) ((char *) &(V))[5];\
 *(((char *)(T))+2)=(char) ((char *) &(V))[6];\
 *(((char *)(T))+3)=(char) ((char *) &(V))[7];\
 *(((char *)(T))+4)=(char) ((char *) &(V))[0];\
 *(((char *)(T))+5)=(char) ((char *) &(V))[1];\
 *(((char *)(T))+6)=(char) ((char *) &(V))[2];\
 *(((char *)(T))+7)=(char) ((char *) &(V))[3];} while (0)
#definefloat8get(V,M) do { double def_temp;\
 ((char*) &def_temp)[0]=(M)[4];\
 ((char*) &def_temp)[1]=(M)[5];\
 ((char*) &def_temp)[2]=(M)[6];\
 ((char*) &def_temp)[3]=(M)[7];\
 ((char*) &def_temp)[4]=(M)[0];\
 ((char*) &def_temp)[5]=(M)[1];\
 ((char*) &def_temp)[6]=(M)[2];\
 ((char*) &def_temp)[7]=(M)[3];\
 (V) = def_temp; } while (0)
#endif/* __FLOAT_WORD_ORDER */

#endif/* WORDS_BIGENDIAN */

#endif/* sint2korr */
/* To here if the platform is not x86 or it's WIN64 */


/* Define-funktions for reading and storing in machine format from/to
 short/long to/from some place in memory V should be a (not
 register) variable, M is a pointer to byte */

#ifndeffloat8get

#ifdefWORDS_BIGENDIAN
#definefloat8get(V,M) memcpy((char*) &(V),(char*) (M), sizeof(double))
#definefloat8store(T,V) memcpy((char*) (T),(char*) &(V), sizeof(double))
#else
#definefloat8get(V,M) memcpy((char*) &(V),(char*) (M),sizeof(double))
#definefloat8store(T,V) memcpy((char*) (T),(char*) &(V),sizeof(double))
#endif/* WORDS_BIGENDIAN */

#endif/* float8get */

#endif/* MYSQLND_PORTABILITY_H */