1 | #ifndef MYISAMPACK_INCLUDED |
2 | #define MYISAMPACK_INCLUDED |
3 | |
4 | /* Copyright (c) 2000, 2013, Oracle and/or its affiliates. All rights reserved. |
5 | |
6 | This program is free software; you can redistribute it and/or modify |
7 | it under the terms of the GNU General Public License, version 2.0, |
8 | as published by the Free Software Foundation. |
9 | |
10 | This program is also distributed with certain software (including |
11 | but not limited to OpenSSL) that is licensed under separate terms, |
12 | as designated in a particular file or component or in included license |
13 | documentation. The authors of MySQL hereby grant you an additional |
14 | permission to link the program and your derivative works with the |
15 | separately licensed software that they have included with MySQL. |
16 | |
17 | This program is distributed in the hope that it will be useful, |
18 | but WITHOUT ANY WARRANTY; without even the implied warranty of |
19 | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
20 | GNU General Public License, version 2.0, for more details. |
21 | |
22 | You should have received a copy of the GNU General Public License |
23 | along with this program; if not, write to the Free Software |
24 | Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA */ |
25 | |
26 | /* |
27 | Storing of values in high byte first order. |
28 | |
29 | integer keys and file pointers are stored with high byte first to get |
30 | better compression |
31 | */ |
32 | |
33 | /* these two are for uniformity */ |
34 | #define mi_sint1korr(A) ((int8)(*A)) |
35 | #define mi_uint1korr(A) ((uint8)(*A)) |
36 | |
37 | #define mi_sint2korr(A) ((int16) (((int16) (((uchar*) (A))[1])) +\ |
38 | ((int16) ((int16) ((char*) (A))[0]) << 8))) |
39 | #define mi_sint3korr(A) ((int32) (((((uchar*) (A))[0]) & 128) ? \ |
40 | (((uint32) 255L << 24) | \ |
41 | (((uint32) ((uchar*) (A))[0]) << 16) |\ |
42 | (((uint32) ((uchar*) (A))[1]) << 8) | \ |
43 | ((uint32) ((uchar*) (A))[2])) : \ |
44 | (((uint32) ((uchar*) (A))[0]) << 16) |\ |
45 | (((uint32) ((uchar*) (A))[1]) << 8) | \ |
46 | ((uint32) ((uchar*) (A))[2]))) |
47 | #define mi_sint4korr(A) ((int32) (((int32) (((uchar*) (A))[3])) +\ |
48 | ((int32) (((uchar*) (A))[2]) << 8) +\ |
49 | ((int32) (((uchar*) (A))[1]) << 16) +\ |
50 | ((int32) ((int16) ((char*) (A))[0]) << 24))) |
51 | #define mi_sint8korr(A) ((longlong) mi_uint8korr(A)) |
52 | #define mi_uint2korr(A) ((uint16) (((uint16) (((uchar*) (A))[1])) +\ |
53 | ((uint16) (((uchar*) (A))[0]) << 8))) |
54 | #define mi_uint3korr(A) ((uint32) (((uint32) (((uchar*) (A))[2])) +\ |
55 | (((uint32) (((uchar*) (A))[1])) << 8) +\ |
56 | (((uint32) (((uchar*) (A))[0])) << 16))) |
57 | #define mi_uint4korr(A) ((uint32) (((uint32) (((uchar*) (A))[3])) +\ |
58 | (((uint32) (((uchar*) (A))[2])) << 8) +\ |
59 | (((uint32) (((uchar*) (A))[1])) << 16) +\ |
60 | (((uint32) (((uchar*) (A))[0])) << 24))) |
61 | #define mi_uint5korr(A) ((ulonglong)(((uint32) (((uchar*) (A))[4])) +\ |
62 | (((uint32) (((uchar*) (A))[3])) << 8) +\ |
63 | (((uint32) (((uchar*) (A))[2])) << 16) +\ |
64 | (((uint32) (((uchar*) (A))[1])) << 24)) +\ |
65 | (((ulonglong) (((uchar*) (A))[0])) << 32)) |
66 | #define mi_uint6korr(A) ((ulonglong)(((uint32) (((uchar*) (A))[5])) +\ |
67 | (((uint32) (((uchar*) (A))[4])) << 8) +\ |
68 | (((uint32) (((uchar*) (A))[3])) << 16) +\ |
69 | (((uint32) (((uchar*) (A))[2])) << 24)) +\ |
70 | (((ulonglong) (((uint32) (((uchar*) (A))[1])) +\ |
71 | (((uint32) (((uchar*) (A))[0]) << 8)))) <<\ |
72 | 32)) |
73 | #define mi_uint7korr(A) ((ulonglong)(((uint32) (((uchar*) (A))[6])) +\ |
74 | (((uint32) (((uchar*) (A))[5])) << 8) +\ |
75 | (((uint32) (((uchar*) (A))[4])) << 16) +\ |
76 | (((uint32) (((uchar*) (A))[3])) << 24)) +\ |
77 | (((ulonglong) (((uint32) (((uchar*) (A))[2])) +\ |
78 | (((uint32) (((uchar*) (A))[1])) << 8) +\ |
79 | (((uint32) (((uchar*) (A))[0])) << 16))) <<\ |
80 | 32)) |
81 | #define mi_uint8korr(A) ((ulonglong)(((uint32) (((uchar*) (A))[7])) +\ |
82 | (((uint32) (((uchar*) (A))[6])) << 8) +\ |
83 | (((uint32) (((uchar*) (A))[5])) << 16) +\ |
84 | (((uint32) (((uchar*) (A))[4])) << 24)) +\ |
85 | (((ulonglong) (((uint32) (((uchar*) (A))[3])) +\ |
86 | (((uint32) (((uchar*) (A))[2])) << 8) +\ |
87 | (((uint32) (((uchar*) (A))[1])) << 16) +\ |
88 | (((uint32) (((uchar*) (A))[0])) << 24))) <<\ |
89 | 32)) |
90 | |
91 | /* This one is for uniformity */ |
92 | #define mi_int1store(T,A) *((uchar*)(T))= (uchar) (A) |
93 | |
94 | #define mi_int2store(T,A) { uint def_temp= (uint) (A) ;\ |
95 | ((uchar*) (T))[1]= (uchar) (def_temp);\ |
96 | ((uchar*) (T))[0]= (uchar) (def_temp >> 8); } |
97 | #define mi_int3store(T,A) { /*lint -save -e734 */\ |
98 | ulong def_temp= (ulong) (A);\ |
99 | ((uchar*) (T))[2]= (uchar) (def_temp);\ |
100 | ((uchar*) (T))[1]= (uchar) (def_temp >> 8);\ |
101 | ((uchar*) (T))[0]= (uchar) (def_temp >> 16);\ |
102 | /*lint -restore */} |
103 | #define mi_int4store(T,A) { ulong def_temp= (ulong) (A);\ |
104 | ((uchar*) (T))[3]= (uchar) (def_temp);\ |
105 | ((uchar*) (T))[2]= (uchar) (def_temp >> 8);\ |
106 | ((uchar*) (T))[1]= (uchar) (def_temp >> 16);\ |
107 | ((uchar*) (T))[0]= (uchar) (def_temp >> 24); } |
108 | #define mi_int5store(T,A) { ulong def_temp= (ulong) (A),\ |
109 | def_temp2= (ulong) ((A) >> 32);\ |
110 | ((uchar*) (T))[4]= (uchar) (def_temp);\ |
111 | ((uchar*) (T))[3]= (uchar) (def_temp >> 8);\ |
112 | ((uchar*) (T))[2]= (uchar) (def_temp >> 16);\ |
113 | ((uchar*) (T))[1]= (uchar) (def_temp >> 24);\ |
114 | ((uchar*) (T))[0]= (uchar) (def_temp2); } |
115 | #define mi_int6store(T,A) { ulong def_temp= (ulong) (A),\ |
116 | def_temp2= (ulong) ((A) >> 32);\ |
117 | ((uchar*) (T))[5]= (uchar) (def_temp);\ |
118 | ((uchar*) (T))[4]= (uchar) (def_temp >> 8);\ |
119 | ((uchar*) (T))[3]= (uchar) (def_temp >> 16);\ |
120 | ((uchar*) (T))[2]= (uchar) (def_temp >> 24);\ |
121 | ((uchar*) (T))[1]= (uchar) (def_temp2);\ |
122 | ((uchar*) (T))[0]= (uchar) (def_temp2 >> 8); } |
123 | #define mi_int7store(T,A) { ulong def_temp= (ulong) (A),\ |
124 | def_temp2= (ulong) ((A) >> 32);\ |
125 | ((uchar*) (T))[6]= (uchar) (def_temp);\ |
126 | ((uchar*) (T))[5]= (uchar) (def_temp >> 8);\ |
127 | ((uchar*) (T))[4]= (uchar) (def_temp >> 16);\ |
128 | ((uchar*) (T))[3]= (uchar) (def_temp >> 24);\ |
129 | ((uchar*) (T))[2]= (uchar) (def_temp2);\ |
130 | ((uchar*) (T))[1]= (uchar) (def_temp2 >> 8);\ |
131 | ((uchar*) (T))[0]= (uchar) (def_temp2 >> 16); } |
132 | #define mi_int8store(T,A) { ulong def_temp3= (ulong) (A),\ |
133 | def_temp4= (ulong) ((A) >> 32);\ |
134 | mi_int4store((uchar*) (T) + 0, def_temp4);\ |
135 | mi_int4store((uchar*) (T) + 4, def_temp3); } |
136 | |
137 | #ifdef WORDS_BIGENDIAN |
138 | |
139 | #define mi_float4store(T,A) { ((uchar*) (T))[0]= ((uchar*) &A)[0];\ |
140 | ((uchar*) (T))[1]= ((uchar*) &A)[1];\ |
141 | ((uchar*) (T))[2]= ((uchar*) &A)[2];\ |
142 | ((uchar*) (T))[3]= ((uchar*) &A)[3]; } |
143 | |
144 | #define mi_float4get(V,M) { float def_temp;\ |
145 | ((uchar*) &def_temp)[0]= ((uchar*) (M))[0];\ |
146 | ((uchar*) &def_temp)[1]= ((uchar*) (M))[1];\ |
147 | ((uchar*) &def_temp)[2]= ((uchar*) (M))[2];\ |
148 | ((uchar*) &def_temp)[3]= ((uchar*) (M))[3];\ |
149 | (V)= def_temp; } |
150 | |
151 | #define mi_float8store(T,V) { ((uchar*) (T))[0]= ((uchar*) &V)[0];\ |
152 | ((uchar*) (T))[1]= ((uchar*) &V)[1];\ |
153 | ((uchar*) (T))[2]= ((uchar*) &V)[2];\ |
154 | ((uchar*) (T))[3]= ((uchar*) &V)[3];\ |
155 | ((uchar*) (T))[4]= ((uchar*) &V)[4];\ |
156 | ((uchar*) (T))[5]= ((uchar*) &V)[5];\ |
157 | ((uchar*) (T))[6]= ((uchar*) &V)[6];\ |
158 | ((uchar*) (T))[7]= ((uchar*) &V)[7]; } |
159 | |
160 | #define mi_float8get(V,M) { double def_temp;\ |
161 | ((uchar*) &def_temp)[0]= ((uchar*) (M))[0];\ |
162 | ((uchar*) &def_temp)[1]= ((uchar*) (M))[1];\ |
163 | ((uchar*) &def_temp)[2]= ((uchar*) (M))[2];\ |
164 | ((uchar*) &def_temp)[3]= ((uchar*) (M))[3];\ |
165 | ((uchar*) &def_temp)[4]= ((uchar*) (M))[4];\ |
166 | ((uchar*) &def_temp)[5]= ((uchar*) (M))[5];\ |
167 | ((uchar*) &def_temp)[6]= ((uchar*) (M))[6];\ |
168 | ((uchar*) &def_temp)[7]= ((uchar*) (M))[7]; \ |
169 | (V)= def_temp; } |
170 | #else |
171 | |
172 | #define mi_float4store(T,A) { ((uchar*) (T))[0]= ((uchar*) &A)[3];\ |
173 | ((uchar*) (T))[1]= ((uchar*) &A)[2];\ |
174 | ((uchar*) (T))[2]= ((uchar*) &A)[1];\ |
175 | ((uchar*) (T))[3]= ((uchar*) &A)[0]; } |
176 | |
177 | #define mi_float4get(V,M) { float def_temp;\ |
178 | ((uchar*) &def_temp)[0]= ((uchar*) (M))[3];\ |
179 | ((uchar*) &def_temp)[1]= ((uchar*) (M))[2];\ |
180 | ((uchar*) &def_temp)[2]= ((uchar*) (M))[1];\ |
181 | ((uchar*) &def_temp)[3]= ((uchar*) (M))[0];\ |
182 | (V)= def_temp; } |
183 | |
184 | #if defined(__FLOAT_WORD_ORDER) && (__FLOAT_WORD_ORDER == __BIG_ENDIAN) |
185 | #define mi_float8store(T,V) { ((uchar*) (T))[0]= ((uchar*) &V)[3];\ |
186 | ((uchar*) (T))[1]= ((uchar*) &V)[2];\ |
187 | ((uchar*) (T))[2]= ((uchar*) &V)[1];\ |
188 | ((uchar*) (T))[3]= ((uchar*) &V)[0];\ |
189 | ((uchar*) (T))[4]= ((uchar*) &V)[7];\ |
190 | ((uchar*) (T))[5]= ((uchar*) &V)[6];\ |
191 | ((uchar*) (T))[6]= ((uchar*) &V)[5];\ |
192 | ((uchar*) (T))[7]= ((uchar*) &V)[4];} |
193 | |
194 | #define mi_float8get(V,M) { double def_temp;\ |
195 | ((uchar*) &def_temp)[0]= ((uchar*) (M))[3];\ |
196 | ((uchar*) &def_temp)[1]= ((uchar*) (M))[2];\ |
197 | ((uchar*) &def_temp)[2]= ((uchar*) (M))[1];\ |
198 | ((uchar*) &def_temp)[3]= ((uchar*) (M))[0];\ |
199 | ((uchar*) &def_temp)[4]= ((uchar*) (M))[7];\ |
200 | ((uchar*) &def_temp)[5]= ((uchar*) (M))[6];\ |
201 | ((uchar*) &def_temp)[6]= ((uchar*) (M))[5];\ |
202 | ((uchar*) &def_temp)[7]= ((uchar*) (M))[4];\ |
203 | (V)= def_temp; } |
204 | |
205 | #else |
206 | #define mi_float8store(T,V) { ((uchar*) (T))[0]= ((uchar*) &V)[7];\ |
207 | ((uchar*) (T))[1]= ((uchar*) &V)[6];\ |
208 | ((uchar*) (T))[2]= ((uchar*) &V)[5];\ |
209 | ((uchar*) (T))[3]= ((uchar*) &V)[4];\ |
210 | ((uchar*) (T))[4]= ((uchar*) &V)[3];\ |
211 | ((uchar*) (T))[5]= ((uchar*) &V)[2];\ |
212 | ((uchar*) (T))[6]= ((uchar*) &V)[1];\ |
213 | ((uchar*) (T))[7]= ((uchar*) &V)[0];} |
214 | |
215 | #define mi_float8get(V,M) { double def_temp;\ |
216 | ((uchar*) &def_temp)[0]= ((uchar*) (M))[7];\ |
217 | ((uchar*) &def_temp)[1]= ((uchar*) (M))[6];\ |
218 | ((uchar*) &def_temp)[2]= ((uchar*) (M))[5];\ |
219 | ((uchar*) &def_temp)[3]= ((uchar*) (M))[4];\ |
220 | ((uchar*) &def_temp)[4]= ((uchar*) (M))[3];\ |
221 | ((uchar*) &def_temp)[5]= ((uchar*) (M))[2];\ |
222 | ((uchar*) &def_temp)[6]= ((uchar*) (M))[1];\ |
223 | ((uchar*) &def_temp)[7]= ((uchar*) (M))[0];\ |
224 | (V)= def_temp; } |
225 | #endif /* __FLOAT_WORD_ORDER */ |
226 | #endif /* WORDS_BIGENDIAN */ |
227 | |
228 | #define mi_rowstore(T,A) mi_int8store(T, A) |
229 | #define mi_rowkorr(T) mi_uint8korr(T) |
230 | |
231 | #if SIZEOF_OFF_T > 4 |
232 | #define mi_sizestore(T,A) mi_int8store(T, A) |
233 | #define mi_sizekorr(T) mi_uint8korr(T) |
234 | #else |
235 | #define mi_sizestore(T,A) { if ((A) == HA_OFFSET_ERROR)\ |
236 | memset((T), 255, 8);\ |
237 | else { mi_int4store((T), 0);\ |
238 | mi_int4store(((T) + 4), A); }} |
239 | #define mi_sizekorr(T) mi_uint4korr((uchar*) (T) + 4) |
240 | #endif |
241 | #endif /* MYISAMPACK_INCLUDED */ |
242 | |