mirror of https://github.com/MariaDB/server
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
238 lines
14 KiB
238 lines
14 KiB
/* Copyright (C) 2000 MySQL AB
|
|
|
|
This program is free software; you can redistribute it and/or modify
|
|
it under the terms of the GNU General Public License as published by
|
|
the Free Software Foundation; version 2 of the License.
|
|
|
|
This program is distributed in the hope that it will be useful,
|
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
GNU General Public License for more details.
|
|
|
|
You should have received a copy of the GNU General Public License
|
|
along with this program; if not, write to the Free Software
|
|
Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA */
|
|
|
|
/*
|
|
Storing of values in high byte first order.
|
|
|
|
integer keys and file pointers are stored with high byte first to get
|
|
better compression
|
|
*/
|
|
|
|
/* these two are for uniformity */
|
|
#define mi_sint1korr(A) ((int8)(*A))
|
|
#define mi_uint1korr(A) ((uint8)(*A))
|
|
|
|
#define mi_sint2korr(A) ((int16) (((int16) (((uchar*) (A))[1])) +\
|
|
((int16) ((int16) ((char*) (A))[0]) << 8)))
|
|
#define mi_sint3korr(A) ((int32) (((((uchar*) (A))[0]) & 128) ? \
|
|
(((uint32) 255L << 24) | \
|
|
(((uint32) ((uchar*) (A))[0]) << 16) |\
|
|
(((uint32) ((uchar*) (A))[1]) << 8) | \
|
|
((uint32) ((uchar*) (A))[2])) : \
|
|
(((uint32) ((uchar*) (A))[0]) << 16) |\
|
|
(((uint32) ((uchar*) (A))[1]) << 8) | \
|
|
((uint32) ((uchar*) (A))[2])))
|
|
#define mi_sint4korr(A) ((int32) (((int32) (((uchar*) (A))[3])) +\
|
|
((int32) (((uchar*) (A))[2]) << 8) +\
|
|
((int32) (((uchar*) (A))[1]) << 16) +\
|
|
((int32) ((int16) ((char*) (A))[0]) << 24)))
|
|
#define mi_sint8korr(A) ((longlong) mi_uint8korr(A))
|
|
#define mi_uint2korr(A) ((uint16) (((uint16) (((uchar*) (A))[1])) +\
|
|
((uint16) (((uchar*) (A))[0]) << 8)))
|
|
#define mi_uint3korr(A) ((uint32) (((uint32) (((uchar*) (A))[2])) +\
|
|
(((uint32) (((uchar*) (A))[1])) << 8) +\
|
|
(((uint32) (((uchar*) (A))[0])) << 16)))
|
|
#define mi_uint4korr(A) ((uint32) (((uint32) (((uchar*) (A))[3])) +\
|
|
(((uint32) (((uchar*) (A))[2])) << 8) +\
|
|
(((uint32) (((uchar*) (A))[1])) << 16) +\
|
|
(((uint32) (((uchar*) (A))[0])) << 24)))
|
|
#define mi_uint5korr(A) ((ulonglong)(((uint32) (((uchar*) (A))[4])) +\
|
|
(((uint32) (((uchar*) (A))[3])) << 8) +\
|
|
(((uint32) (((uchar*) (A))[2])) << 16) +\
|
|
(((uint32) (((uchar*) (A))[1])) << 24)) +\
|
|
(((ulonglong) (((uchar*) (A))[0])) << 32))
|
|
#define mi_uint6korr(A) ((ulonglong)(((uint32) (((uchar*) (A))[5])) +\
|
|
(((uint32) (((uchar*) (A))[4])) << 8) +\
|
|
(((uint32) (((uchar*) (A))[3])) << 16) +\
|
|
(((uint32) (((uchar*) (A))[2])) << 24)) +\
|
|
(((ulonglong) (((uint32) (((uchar*) (A))[1])) +\
|
|
(((uint32) (((uchar*) (A))[0]) << 8)))) <<\
|
|
32))
|
|
#define mi_uint7korr(A) ((ulonglong)(((uint32) (((uchar*) (A))[6])) +\
|
|
(((uint32) (((uchar*) (A))[5])) << 8) +\
|
|
(((uint32) (((uchar*) (A))[4])) << 16) +\
|
|
(((uint32) (((uchar*) (A))[3])) << 24)) +\
|
|
(((ulonglong) (((uint32) (((uchar*) (A))[2])) +\
|
|
(((uint32) (((uchar*) (A))[1])) << 8) +\
|
|
(((uint32) (((uchar*) (A))[0])) << 16))) <<\
|
|
32))
|
|
#define mi_uint8korr(A) ((ulonglong)(((uint32) (((uchar*) (A))[7])) +\
|
|
(((uint32) (((uchar*) (A))[6])) << 8) +\
|
|
(((uint32) (((uchar*) (A))[5])) << 16) +\
|
|
(((uint32) (((uchar*) (A))[4])) << 24)) +\
|
|
(((ulonglong) (((uint32) (((uchar*) (A))[3])) +\
|
|
(((uint32) (((uchar*) (A))[2])) << 8) +\
|
|
(((uint32) (((uchar*) (A))[1])) << 16) +\
|
|
(((uint32) (((uchar*) (A))[0])) << 24))) <<\
|
|
32))
|
|
|
|
/* This one is for uniformity */
|
|
#define mi_int1store(T,A) *((uchar*)(T))= (uchar) (A)
|
|
|
|
#define mi_int2store(T,A) { uint def_temp= (uint) (A) ;\
|
|
((uchar*) (T))[1]= (uchar) (def_temp);\
|
|
((uchar*) (T))[0]= (uchar) (def_temp >> 8); }
|
|
#define mi_int3store(T,A) { /*lint -save -e734 */\
|
|
ulong def_temp= (ulong) (A);\
|
|
((uchar*) (T))[2]= (uchar) (def_temp);\
|
|
((uchar*) (T))[1]= (uchar) (def_temp >> 8);\
|
|
((uchar*) (T))[0]= (uchar) (def_temp >> 16);\
|
|
/*lint -restore */}
|
|
#define mi_int4store(T,A) { ulong def_temp= (ulong) (A);\
|
|
((uchar*) (T))[3]= (uchar) (def_temp);\
|
|
((uchar*) (T))[2]= (uchar) (def_temp >> 8);\
|
|
((uchar*) (T))[1]= (uchar) (def_temp >> 16);\
|
|
((uchar*) (T))[0]= (uchar) (def_temp >> 24); }
|
|
#define mi_int5store(T,A) { ulong def_temp= (ulong) (A),\
|
|
def_temp2= (ulong) ((A) >> 32);\
|
|
((uchar*) (T))[4]= (uchar) (def_temp);\
|
|
((uchar*) (T))[3]= (uchar) (def_temp >> 8);\
|
|
((uchar*) (T))[2]= (uchar) (def_temp >> 16);\
|
|
((uchar*) (T))[1]= (uchar) (def_temp >> 24);\
|
|
((uchar*) (T))[0]= (uchar) (def_temp2); }
|
|
#define mi_int6store(T,A) { ulong def_temp= (ulong) (A),\
|
|
def_temp2= (ulong) ((A) >> 32);\
|
|
((uchar*) (T))[5]= (uchar) (def_temp);\
|
|
((uchar*) (T))[4]= (uchar) (def_temp >> 8);\
|
|
((uchar*) (T))[3]= (uchar) (def_temp >> 16);\
|
|
((uchar*) (T))[2]= (uchar) (def_temp >> 24);\
|
|
((uchar*) (T))[1]= (uchar) (def_temp2);\
|
|
((uchar*) (T))[0]= (uchar) (def_temp2 >> 8); }
|
|
#define mi_int7store(T,A) { ulong def_temp= (ulong) (A),\
|
|
def_temp2= (ulong) ((A) >> 32);\
|
|
((uchar*) (T))[6]= (uchar) (def_temp);\
|
|
((uchar*) (T))[5]= (uchar) (def_temp >> 8);\
|
|
((uchar*) (T))[4]= (uchar) (def_temp >> 16);\
|
|
((uchar*) (T))[3]= (uchar) (def_temp >> 24);\
|
|
((uchar*) (T))[2]= (uchar) (def_temp2);\
|
|
((uchar*) (T))[1]= (uchar) (def_temp2 >> 8);\
|
|
((uchar*) (T))[0]= (uchar) (def_temp2 >> 16); }
|
|
#define mi_int8store(T,A) { ulong def_temp3= (ulong) (A),\
|
|
def_temp4= (ulong) ((A) >> 32);\
|
|
mi_int4store((uchar*) (T) + 0, def_temp4);\
|
|
mi_int4store((uchar*) (T) + 4, def_temp3); }
|
|
|
|
#ifdef WORDS_BIGENDIAN
|
|
|
|
#define mi_float4store(T,A) { ((uchar*) (T))[0]= ((uchar*) &A)[0];\
|
|
((uchar*) (T))[1]= ((uchar*) &A)[1];\
|
|
((uchar*) (T))[2]= ((uchar*) &A)[2];\
|
|
((uchar*) (T))[3]= ((uchar*) &A)[3]; }
|
|
|
|
#define mi_float4get(V,M) { float def_temp;\
|
|
((uchar*) &def_temp)[0]= ((uchar*) (M))[0];\
|
|
((uchar*) &def_temp)[1]= ((uchar*) (M))[1];\
|
|
((uchar*) &def_temp)[2]= ((uchar*) (M))[2];\
|
|
((uchar*) &def_temp)[3]= ((uchar*) (M))[3];\
|
|
(V)= def_temp; }
|
|
|
|
#define mi_float8store(T,V) { ((uchar*) (T))[0]= ((uchar*) &V)[0];\
|
|
((uchar*) (T))[1]= ((uchar*) &V)[1];\
|
|
((uchar*) (T))[2]= ((uchar*) &V)[2];\
|
|
((uchar*) (T))[3]= ((uchar*) &V)[3];\
|
|
((uchar*) (T))[4]= ((uchar*) &V)[4];\
|
|
((uchar*) (T))[5]= ((uchar*) &V)[5];\
|
|
((uchar*) (T))[6]= ((uchar*) &V)[6];\
|
|
((uchar*) (T))[7]= ((uchar*) &V)[7]; }
|
|
|
|
#define mi_float8get(V,M) { double def_temp;\
|
|
((uchar*) &def_temp)[0]= ((uchar*) (M))[0];\
|
|
((uchar*) &def_temp)[1]= ((uchar*) (M))[1];\
|
|
((uchar*) &def_temp)[2]= ((uchar*) (M))[2];\
|
|
((uchar*) &def_temp)[3]= ((uchar*) (M))[3];\
|
|
((uchar*) &def_temp)[4]= ((uchar*) (M))[4];\
|
|
((uchar*) &def_temp)[5]= ((uchar*) (M))[5];\
|
|
((uchar*) &def_temp)[6]= ((uchar*) (M))[6];\
|
|
((uchar*) &def_temp)[7]= ((uchar*) (M))[7]; \
|
|
(V)= def_temp; }
|
|
#else
|
|
|
|
#define mi_float4store(T,A) { ((uchar*) (T))[0]= ((uchar*) &A)[3];\
|
|
((uchar*) (T))[1]= ((uchar*) &A)[2];\
|
|
((uchar*) (T))[2]= ((uchar*) &A)[1];\
|
|
((uchar*) (T))[3]= ((uchar*) &A)[0]; }
|
|
|
|
#define mi_float4get(V,M) { float def_temp;\
|
|
((uchar*) &def_temp)[0]= ((uchar*) (M))[3];\
|
|
((uchar*) &def_temp)[1]= ((uchar*) (M))[2];\
|
|
((uchar*) &def_temp)[2]= ((uchar*) (M))[1];\
|
|
((uchar*) &def_temp)[3]= ((uchar*) (M))[0];\
|
|
(V)= def_temp; }
|
|
|
|
#if defined(__FLOAT_WORD_ORDER) && (__FLOAT_WORD_ORDER == __BIG_ENDIAN)
|
|
#define mi_float8store(T,V) { ((uchar*) (T))[0]= ((uchar*) &V)[3];\
|
|
((uchar*) (T))[1]= ((uchar*) &V)[2];\
|
|
((uchar*) (T))[2]= ((uchar*) &V)[1];\
|
|
((uchar*) (T))[3]= ((uchar*) &V)[0];\
|
|
((uchar*) (T))[4]= ((uchar*) &V)[7];\
|
|
((uchar*) (T))[5]= ((uchar*) &V)[6];\
|
|
((uchar*) (T))[6]= ((uchar*) &V)[5];\
|
|
((uchar*) (T))[7]= ((uchar*) &V)[4];}
|
|
|
|
#define mi_float8get(V,M) { double def_temp;\
|
|
((uchar*) &def_temp)[0]= ((uchar*) (M))[3];\
|
|
((uchar*) &def_temp)[1]= ((uchar*) (M))[2];\
|
|
((uchar*) &def_temp)[2]= ((uchar*) (M))[1];\
|
|
((uchar*) &def_temp)[3]= ((uchar*) (M))[0];\
|
|
((uchar*) &def_temp)[4]= ((uchar*) (M))[7];\
|
|
((uchar*) &def_temp)[5]= ((uchar*) (M))[6];\
|
|
((uchar*) &def_temp)[6]= ((uchar*) (M))[5];\
|
|
((uchar*) &def_temp)[7]= ((uchar*) (M))[4];\
|
|
(V)= def_temp; }
|
|
|
|
#else
|
|
#define mi_float8store(T,V) { ((uchar*) (T))[0]= ((uchar*) &V)[7];\
|
|
((uchar*) (T))[1]= ((uchar*) &V)[6];\
|
|
((uchar*) (T))[2]= ((uchar*) &V)[5];\
|
|
((uchar*) (T))[3]= ((uchar*) &V)[4];\
|
|
((uchar*) (T))[4]= ((uchar*) &V)[3];\
|
|
((uchar*) (T))[5]= ((uchar*) &V)[2];\
|
|
((uchar*) (T))[6]= ((uchar*) &V)[1];\
|
|
((uchar*) (T))[7]= ((uchar*) &V)[0];}
|
|
|
|
#define mi_float8get(V,M) { double def_temp;\
|
|
((uchar*) &def_temp)[0]= ((uchar*) (M))[7];\
|
|
((uchar*) &def_temp)[1]= ((uchar*) (M))[6];\
|
|
((uchar*) &def_temp)[2]= ((uchar*) (M))[5];\
|
|
((uchar*) &def_temp)[3]= ((uchar*) (M))[4];\
|
|
((uchar*) &def_temp)[4]= ((uchar*) (M))[3];\
|
|
((uchar*) &def_temp)[5]= ((uchar*) (M))[2];\
|
|
((uchar*) &def_temp)[6]= ((uchar*) (M))[1];\
|
|
((uchar*) &def_temp)[7]= ((uchar*) (M))[0];\
|
|
(V)= def_temp; }
|
|
#endif /* __FLOAT_WORD_ORDER */
|
|
#endif /* WORDS_BIGENDIAN */
|
|
|
|
/* Fix to avoid warnings when sizeof(ha_rows) == sizeof(long) */
|
|
|
|
#ifdef BIG_TABLES
|
|
#define mi_rowstore(T,A) mi_int8store(T, A)
|
|
#define mi_rowkorr(T) mi_uint8korr(T)
|
|
#else
|
|
#define mi_rowstore(T,A) { mi_int4store(T, 0);\
|
|
mi_int4store(((uchar*) (T) + 4), A); }
|
|
#define mi_rowkorr(T) mi_uint4korr((uchar*) (T) + 4)
|
|
#endif
|
|
|
|
#if SIZEOF_OFF_T > 4
|
|
#define mi_sizestore(T,A) mi_int8store(T, A)
|
|
#define mi_sizekorr(T) mi_uint8korr(T)
|
|
#else
|
|
#define mi_sizestore(T,A) { if ((A) == HA_OFFSET_ERROR)\
|
|
bfill((char*) (T), 8, 255);\
|
|
else { mi_int4store((T), 0);\
|
|
mi_int4store(((T) + 4), A); }}
|
|
#define mi_sizekorr(T) mi_uint4korr((uchar*) (T) + 4)
|
|
#endif
|