CMGDK r49-rc2
|
00001 / * C o p y r i g h t ( C ) 2 0 0 0 M y S Q L A B 00002 00003 T h i s p r o g r a m i s f r e e s o f t w a r e ; y o u c a n r e d i s t r i b u t e i t a n d / o r m o d i f y 00004 00005 i t u n d e r t h e t e r m s o f t h e G N U G e n e r a l P u b l i c L i c e n s e a s p u b l i s h e d b y 00006 00007 t h e F r e e S o f t w a r e F o u n d a t i o n ; v e r s i o n 2 o f t h e L i c e n s e . 00008 00009 T h i s p r o g r a m i s d i s t r i b u t e d i n t h e h o p e t h a t i t w i l l b e u s e f u l , 00010 00011 b u t W I T H O U T A N Y W A R R A N T Y ; w i t h o u t e v e n t h e i m p l i e d w a r r a n t y o f 00012 00013 M E R C H A N T A B I L I T Y o r F I T N E S S F O R A P A R T I C U L A R P U R P O S E . S e e t h e 00014 00015 G N U G e n e r a l P u b l i c L i c e n s e f o r m o r e d e t a i l s . 00016 00017 Y o u s h o u l d h a v e r e c e i v e d a c o p y o f t h e G N U G e n e r a l P u b l i c L i c e n s e 00018 00019 a l o n g w i t h t h i s p r o g r a m ; i f n o t , w r i t e t o t h e F r e e S o f t w a r e 00020 00021 F o u n d a t i o n , I n c . , 5 9 T e m p l e P l a c e , S u i t e 3 3 0 , B o s t o n , M A 0 2 1 1 1 - 1 3 0 7 U S A * / 00022 00023 / * 00024 00025 S t o r i n g o f v a l u e s i n h i g h b y t e f i r s t o r d e r . 00026 00027 i n t e g e r k e y s a n d f i l e p o i n t e r s a r e s t o r e d w i t h h i g h b y t e f i r s t t o g e t 00028 00029 b e t t e r c o m p r e s s i o n 00030 00031 * / 00032 00033 / * t h e s e t w o a r e f o r u n i f o r m i t y * / 00034 00035 # d e f i n e m i _ s i n t 1 k o r r ( A ) ( ( i n t 8 ) ( * A ) ) 00036 00037 # d e f i n e m i _ u i n t 1 k o r r ( A ) ( ( u i n t 8 ) ( * A ) ) 00038 00039 # d e f i n e m i _ s i n t 2 k o r r ( A ) ( ( i n t 1 6 ) ( ( ( i n t 1 6 ) ( ( ( c o n s t u c h a r * ) ( A ) ) [ 1 ] ) ) + \ 00040 00041 ( ( i n t 1 6 ) ( ( i n t 1 6 ) ( ( c o n s t c h a r * ) ( A ) ) [ 0 ] ) < < 8 ) ) ) 00042 00043 # d e f i n e m i _ s i n t 3 k o r r ( A ) ( ( i n t 3 2 ) ( ( ( ( ( c o n s t u c h a r * ) ( A ) ) [ 0 ] ) & 1 2 8 ) ? \ 00044 00045 ( ( ( u i n t 3 2 ) 2 5 5 L < < 2 4 ) | \ 00046 00047 ( ( ( u i n t 3 2 ) ( ( c o n s t u c h a r * ) ( A ) ) [ 0 ] ) < < 1 6 ) | \ 00048 00049 ( ( ( u i n t 3 2 ) ( ( c o n s t u c h a r * ) ( A ) ) [ 1 ] ) < < 8 ) | \ 00050 00051 ( ( u i n t 3 2 ) ( ( c o n s t u c h a r * ) ( A ) ) [ 2 ] ) ) : \ 00052 00053 ( ( ( u i n t 3 2 ) ( ( c o n s t u c h a r * ) ( A ) ) [ 0 ] ) < < 1 6 ) | \ 00054 00055 ( ( ( u i n t 3 2 ) ( ( c o n s t u c h a r * ) ( A ) ) [ 1 ] ) < < 8 ) | \ 00056 00057 ( ( u i n t 3 2 ) ( ( c o n s t u c h a r * ) ( A ) ) [ 2 ] ) ) ) 00058 00059 # d e f i n e m i _ s i n t 4 k o r r ( A ) ( ( i n t 3 2 ) ( ( ( i n t 3 2 ) ( ( ( c o n s t u c h a r * ) ( A ) ) [ 3 ] ) ) + \ 00060 00061 ( ( i n t 3 2 ) ( ( ( c o n s t u c h a r * ) ( A ) ) [ 2 ] ) < < 8 ) + \ 00062 00063 ( ( i n t 3 2 ) ( ( ( c o n s t u c h a r * ) ( A ) ) [ 1 ] ) < < 1 6 ) + \ 00064 00065 ( ( i n t 3 2 ) ( ( i n t 1 6 ) ( ( c o n s t c h a r * ) ( A ) ) [ 0 ] ) < < 2 4 ) ) ) 00066 00067 # d e f i n e m i _ s i n t 8 k o r r ( A ) ( ( l o n g l o n g ) m i _ u i n t 8 k o r r ( A ) ) 00068 00069 # d e f i n e m i _ u i n t 2 k o r r ( A ) ( ( u i n t 1 6 ) ( ( ( u i n t 1 6 ) ( ( ( c o n s t u c h a r * ) ( A ) ) [ 1 ] ) ) + \ 00070 00071 ( ( u i n t 1 6 ) ( ( ( c o n s t u c h a r * ) ( A ) ) [ 0 ] ) < < 8 ) ) ) 00072 00073 # d e f i n e m i _ u i n t 3 k o r r ( A ) ( ( u i n t 3 2 ) ( ( ( u i n t 3 2 ) ( ( ( c o n s t u c h a r * ) ( A ) ) [ 2 ] ) ) + \ 00074 00075 ( ( ( u i n t 3 2 ) ( ( ( c o n s t u c h a r * ) ( A ) ) [ 1 ] ) ) < < 8 ) + \ 00076 00077 ( ( ( u i n t 3 2 ) ( ( ( c o n s t u c h a r * ) ( A ) ) [ 0 ] ) ) < < 1 6 ) ) ) 00078 00079 # d e f i n e m i _ u i n t 4 k o r r ( A ) ( ( u i n t 3 2 ) ( ( ( u i n t 3 2 ) ( ( ( c o n s t u c h a r * ) ( A ) ) [ 3 ] ) ) + \ 00080 00081 ( ( ( u i n t 3 2 ) ( ( ( c o n s t u c h a r * ) ( A ) ) [ 2 ] ) ) < < 8 ) + \ 00082 00083 ( ( ( u i n t 3 2 ) ( ( ( c o n s t u c h a r * ) ( A ) ) [ 1 ] ) ) < < 1 6 ) + \ 00084 00085 ( ( ( u i n t 3 2 ) ( ( ( c o n s t u c h a r * ) ( A ) ) [ 0 ] ) ) < < 2 4 ) ) ) 00086 00087 # d e f i n e m i _ u i n t 5 k o r r ( A ) ( ( u l o n g l o n g ) ( ( ( u i n t 3 2 ) ( ( ( c o n s t u c h a r * ) ( A ) ) [ 4 ] ) ) + \ 00088 00089 ( ( ( u i n t 3 2 ) ( ( ( c o n s t u c h a r * ) ( A ) ) [ 3 ] ) ) < < 8 ) + \ 00090 00091 ( ( ( u i n t 3 2 ) ( ( ( c o n s t u c h a r * ) ( A ) ) [ 2 ] ) ) < < 1 6 ) + \ 00092 00093 ( ( ( u i n t 3 2 ) ( ( ( c o n s t u c h a r * ) ( A ) ) [ 1 ] ) ) < < 2 4 ) ) + \ 00094 00095 ( ( ( u l o n g l o n g ) ( ( ( c o n s t u c h a r * ) ( A ) ) [ 0 ] ) ) < < 3 2 ) ) 00096 00097 # d e f i n e m i _ u i n t 6 k o r r ( A ) ( ( u l o n g l o n g ) ( ( ( u i n t 3 2 ) ( ( ( c o n s t u c h a r * ) ( A ) ) [ 5 ] ) ) + \ 00098 00099 ( ( ( u i n t 3 2 ) ( ( ( c o n s t u c h a r * ) ( A ) ) [ 4 ] ) ) < < 8 ) + \ 00100 00101 ( ( ( u i n t 3 2 ) ( ( ( c o n s t u c h a r * ) ( A ) ) [ 3 ] ) ) < < 1 6 ) + \ 00102 00103 ( ( ( u i n t 3 2 ) ( ( ( c o n s t u c h a r * ) ( A ) ) [ 2 ] ) ) < < 2 4 ) ) + \ 00104 00105 ( ( ( u l o n g l o n g ) ( ( ( u i n t 3 2 ) ( ( ( c o n s t u c h a r * ) ( A ) ) [ 1 ] ) ) + \ 00106 00107 ( ( ( u i n t 3 2 ) ( ( ( c o n s t u c h a r * ) ( A ) ) [ 0 ] ) < < 8 ) ) ) ) < < \ 00108 00109 3 2 ) ) 00110 00111 # d e f i n e m i _ u i n t 7 k o r r ( A ) ( ( u l o n g l o n g ) ( ( ( u i n t 3 2 ) ( ( ( c o n s t u c h a r * ) ( A ) ) [ 6 ] ) ) + \ 00112 00113 ( ( ( u i n t 3 2 ) ( ( ( c o n s t u c h a r * ) ( A ) ) [ 5 ] ) ) < < 8 ) + \ 00114 00115 ( ( ( u i n t 3 2 ) ( ( ( c o n s t u c h a r * ) ( A ) ) [ 4 ] ) ) < < 1 6 ) + \ 00116 00117 ( ( ( u i n t 3 2 ) ( ( ( c o n s t u c h a r * ) ( A ) ) [ 3 ] ) ) < < 2 4 ) ) + \ 00118 00119 ( ( ( u l o n g l o n g ) ( ( ( u i n t 3 2 ) ( ( ( c o n s t u c h a r * ) ( A ) ) [ 2 ] ) ) + \ 00120 00121 ( ( ( u i n t 3 2 ) ( ( ( c o n s t u c h a r * ) ( A ) ) [ 1 ] ) ) < < 8 ) + \ 00122 00123 ( ( ( u i n t 3 2 ) ( ( ( c o n s t u c h a r * ) ( A ) ) [ 0 ] ) ) < < 1 6 ) ) ) < < \ 00124 00125 3 2 ) ) 00126 00127 # d e f i n e m i _ u i n t 8 k o r r ( A ) ( ( u l o n g l o n g ) ( ( ( u i n t 3 2 ) ( ( ( c o n s t u c h a r * ) ( A ) ) [ 7 ] ) ) + \ 00128 00129 ( ( ( u i n t 3 2 ) ( ( ( c o n s t u c h a r * ) ( A ) ) [ 6 ] ) ) < < 8 ) + \ 00130 00131 ( ( ( u i n t 3 2 ) ( ( ( c o n s t u c h a r * ) ( A ) ) [ 5 ] ) ) < < 1 6 ) + \ 00132 00133 ( ( ( u i n t 3 2 ) ( ( ( c o n s t u c h a r * ) ( A ) ) [ 4 ] ) ) < < 2 4 ) ) + \ 00134 00135 ( ( ( u l o n g l o n g ) ( ( ( u i n t 3 2 ) ( ( ( c o n s t u c h a r * ) ( A ) ) [ 3 ] ) ) + \ 00136 00137 ( ( ( u i n t 3 2 ) ( ( ( c o n s t u c h a r * ) ( A ) ) [ 2 ] ) ) < < 8 ) + \ 00138 00139 ( ( ( u i n t 3 2 ) ( ( ( c o n s t u c h a r * ) ( A ) ) [ 1 ] ) ) < < 1 6 ) + \ 00140 00141 ( ( ( u i n t 3 2 ) ( ( ( c o n s t u c h a r * ) ( A ) ) [ 0 ] ) ) < < 2 4 ) ) ) < < \ 00142 00143 3 2 ) ) 00144 00145 / * T h i s o n e i s f o r u n i f o r m i t y * / 00146 00147 # d e f i n e m i _ i n t 1 s t o r e ( T , A ) * ( ( u c h a r * ) ( T ) ) = ( u c h a r ) ( A ) 00148 00149 # d e f i n e m i _ i n t 2 s t o r e ( T , A ) { u i n t d e f _ t e m p = ( u i n t ) ( A ) ; \ 00150 00151 ( ( u c h a r * ) ( T ) ) [ 1 ] = ( u c h a r ) ( d e f _ t e m p ) ; \ 00152 00153 ( ( u c h a r * ) ( T ) ) [ 0 ] = ( u c h a r ) ( d e f _ t e m p > > 8 ) ; } 00154 00155 # d e f i n e m i _ i n t 3 s t o r e ( T , A ) { / * l i n t - s a v e - e 7 3 4 * / \ 00156 00157 u l o n g d e f _ t e m p = ( u l o n g ) ( A ) ; \ 00158 00159 ( ( u c h a r * ) ( T ) ) [ 2 ] = ( u c h a r ) ( d e f _ t e m p ) ; \ 00160 00161 ( ( u c h a r * ) ( T ) ) [ 1 ] = ( u c h a r ) ( d e f _ t e m p > > 8 ) ; \ 00162 00163 ( ( u c h a r * ) ( T ) ) [ 0 ] = ( u c h a r ) ( d e f _ t e m p > > 1 6 ) ; \ 00164 00165 / * l i n t - r e s t o r e * / } 00166 00167 # d e f i n e m i _ i n t 4 s t o r e ( T , A ) { u l o n g d e f _ t e m p = ( u l o n g ) ( A ) ; \ 00168 00169 ( ( u c h a r * ) ( T ) ) [ 3 ] = ( u c h a r ) ( d e f _ t e m p ) ; \ 00170 00171 ( ( u c h a r * ) ( T ) ) [ 2 ] = ( u c h a r ) ( d e f _ t e m p > > 8 ) ; \ 00172 00173 ( ( u c h a r * ) ( T ) ) [ 1 ] = ( u c h a r ) ( d e f _ t e m p > > 1 6 ) ; \ 00174 00175 ( ( u c h a r * ) ( T ) ) [ 0 ] = ( u c h a r ) ( d e f _ t e m p > > 2 4 ) ; } 00176 00177 # d e f i n e m i _ i n t 5 s t o r e ( T , A ) { u l o n g d e f _ t e m p = ( u l o n g ) ( A ) , \ 00178 00179 d e f _ t e m p 2 = ( u l o n g ) ( ( A ) > > 3 2 ) ; \ 00180 00181 ( ( u c h a r * ) ( T ) ) [ 4 ] = ( u c h a r ) ( d e f _ t e m p ) ; \ 00182 00183 ( ( u c h a r * ) ( T ) ) [ 3 ] = ( u c h a r ) ( d e f _ t e m p > > 8 ) ; \ 00184 00185 ( ( u c h a r * ) ( T ) ) [ 2 ] = ( u c h a r ) ( d e f _ t e m p > > 1 6 ) ; \ 00186 00187 ( ( u c h a r * ) ( T ) ) [ 1 ] = ( u c h a r ) ( d e f _ t e m p > > 2 4 ) ; \ 00188 00189 ( ( u c h a r * ) ( T ) ) [ 0 ] = ( u c h a r ) ( d e f _ t e m p 2 ) ; } 00190 00191 # d e f i n e m i _ i n t 6 s t o r e ( T , A ) { u l o n g d e f _ t e m p = ( u l o n g ) ( A ) , \ 00192 00193 d e f _ t e m p 2 = ( u l o n g ) ( ( A ) > > 3 2 ) ; \ 00194 00195 ( ( u c h a r * ) ( T ) ) [ 5 ] = ( u c h a r ) ( d e f _ t e m p ) ; \ 00196 00197 ( ( u c h a r * ) ( T ) ) [ 4 ] = ( u c h a r ) ( d e f _ t e m p > > 8 ) ; \ 00198 00199 ( ( u c h a r * ) ( T ) ) [ 3 ] = ( u c h a r ) ( d e f _ t e m p > > 1 6 ) ; \ 00200 00201 ( ( u c h a r * ) ( T ) ) [ 2 ] = ( u c h a r ) ( d e f _ t e m p > > 2 4 ) ; \ 00202 00203 ( ( u c h a r * ) ( T ) ) [ 1 ] = ( u c h a r ) ( d e f _ t e m p 2 ) ; \ 00204 00205 ( ( u c h a r * ) ( T ) ) [ 0 ] = ( u c h a r ) ( d e f _ t e m p 2 > > 8 ) ; } 00206 00207 # d e f i n e m i _ i n t 7 s t o r e ( T , A ) { u l o n g d e f _ t e m p = ( u l o n g ) ( A ) , \ 00208 00209 d e f _ t e m p 2 = ( u l o n g ) ( ( A ) > > 3 2 ) ; \ 00210 00211 ( ( u c h a r * ) ( T ) ) [ 6 ] = ( u c h a r ) ( d e f _ t e m p ) ; \ 00212 00213 ( ( u c h a r * ) ( T ) ) [ 5 ] = ( u c h a r ) ( d e f _ t e m p > > 8 ) ; \ 00214 00215 ( ( u c h a r * ) ( T ) ) [ 4 ] = ( u c h a r ) ( d e f _ t e m p > > 1 6 ) ; \ 00216 00217 ( ( u c h a r * ) ( T ) ) [ 3 ] = ( u c h a r ) ( d e f _ t e m p > > 2 4 ) ; \ 00218 00219 ( ( u c h a r * ) ( T ) ) [ 2 ] = ( u c h a r ) ( d e f _ t e m p 2 ) ; \ 00220 00221 ( ( u c h a r * ) ( T ) ) [ 1 ] = ( u c h a r ) ( d e f _ t e m p 2 > > 8 ) ; \ 00222 00223 ( ( u c h a r * ) ( T ) ) [ 0 ] = ( u c h a r ) ( d e f _ t e m p 2 > > 1 6 ) ; } 00224 00225 # d e f i n e m i _ i n t 8 s t o r e ( T , A ) { u l o n g d e f _ t e m p 3 = ( u l o n g ) ( A ) , \ 00226 00227 d e f _ t e m p 4 = ( u l o n g ) ( ( A ) > > 3 2 ) ; \ 00228 00229 m i _ i n t 4 s t o r e ( ( u c h a r * ) ( T ) + 0 , d e f _ t e m p 4 ) ; \ 00230 00231 m i _ i n t 4 s t o r e ( ( u c h a r * ) ( T ) + 4 , d e f _ t e m p 3 ) ; } 00232 00233 # i f d e f W O R D S _ B I G E N D I A N 00234 00235 # d e f i n e m i _ f l o a t 4 s t o r e ( T , A ) { ( ( u c h a r * ) ( T ) ) [ 0 ] = ( ( u c h a r * ) & A ) [ 0 ] ; \ 00236 00237 ( ( u c h a r * ) ( T ) ) [ 1 ] = ( ( u c h a r * ) & A ) [ 1 ] ; \ 00238 00239 ( ( u c h a r * ) ( T ) ) [ 2 ] = ( ( u c h a r * ) & A ) [ 2 ] ; \ 00240 00241 ( ( u c h a r * ) ( T ) ) [ 3 ] = ( ( u c h a r * ) & A ) [ 3 ] ; } 00242 00243 # d e f i n e m i _ f l o a t 4 g e t ( V , M ) { f l o a t d e f _ t e m p ; \ 00244 00245 ( ( u c h a r * ) & d e f _ t e m p ) [ 0 ] = ( ( c o n s t u c h a r * ) ( M ) ) [ 0 ] ; \ 00246 00247 ( ( u c h a r * ) & d e f _ t e m p ) [ 1 ] = ( ( c o n s t u c h a r * ) ( M ) ) [ 1 ] ; \ 00248 00249 ( ( u c h a r * ) & d e f _ t e m p ) [ 2 ] = ( ( c o n s t u c h a r * ) ( M ) ) [ 2 ] ; \ 00250 00251 ( ( u c h a r * ) & d e f _ t e m p ) [ 3 ] = ( ( c o n s t u c h a r * ) ( M ) ) [ 3 ] ; \ 00252 00253 ( V ) = d e f _ t e m p ; } 00254 00255 # d e f i n e m i _ f l o a t 8 s t o r e ( T , V ) { ( ( u c h a r * ) ( T ) ) [ 0 ] = ( ( c o n s t u c h a r * ) & V ) [ 0 ] ; \ 00256 00257 ( ( u c h a r * ) ( T ) ) [ 1 ] = ( ( c o n s t u c h a r * ) & V ) [ 1 ] ; \ 00258 00259 ( ( u c h a r * ) ( T ) ) [ 2 ] = ( ( c o n s t u c h a r * ) & V ) [ 2 ] ; \ 00260 00261 ( ( u c h a r * ) ( T ) ) [ 3 ] = ( ( c o n s t u c h a r * ) & V ) [ 3 ] ; \ 00262 00263 ( ( u c h a r * ) ( T ) ) [ 4 ] = ( ( c o n s t u c h a r * ) & V ) [ 4 ] ; \ 00264 00265 ( ( u c h a r * ) ( T ) ) [ 5 ] = ( ( c o n s t u c h a r * ) & V ) [ 5 ] ; \ 00266 00267 ( ( u c h a r * ) ( T ) ) [ 6 ] = ( ( c o n s t u c h a r * ) & V ) [ 6 ] ; \ 00268 00269 ( ( u c h a r * ) ( T ) ) [ 7 ] = ( ( c o n s t u c h a r * ) & V ) [ 7 ] ; } 00270 00271 # d e f i n e m i _ f l o a t 8 g e t ( V , M ) { d o u b l e d e f _ t e m p ; \ 00272 00273 ( ( u c h a r * ) & d e f _ t e m p ) [ 0 ] = ( ( c o n s t u c h a r * ) ( M ) ) [ 0 ] ; \ 00274 00275 ( ( u c h a r * ) & d e f _ t e m p ) [ 1 ] = ( ( c o n s t u c h a r * ) ( M ) ) [ 1 ] ; \ 00276 00277 ( ( u c h a r * ) & d e f _ t e m p ) [ 2 ] = ( ( c o n s t u c h a r * ) ( M ) ) [ 2 ] ; \ 00278 00279 ( ( u c h a r * ) & d e f _ t e m p ) [ 3 ] = ( ( c o n s t u c h a r * ) ( M ) ) [ 3 ] ; \ 00280 00281 ( ( u c h a r * ) & d e f _ t e m p ) [ 4 ] = ( ( c o n s t u c h a r * ) ( M ) ) [ 4 ] ; \ 00282 00283 ( ( u c h a r * ) & d e f _ t e m p ) [ 5 ] = ( ( c o n s t u c h a r * ) ( M ) ) [ 5 ] ; \ 00284 00285 ( ( u c h a r * ) & d e f _ t e m p ) [ 6 ] = ( ( c o n s t u c h a r * ) ( M ) ) [ 6 ] ; \ 00286 00287 ( ( u c h a r * ) & d e f _ t e m p ) [ 7 ] = ( ( c o n s t u c h a r * ) ( M ) ) [ 7 ] ; \ 00288 00289 ( V ) = d e f _ t e m p ; } 00290 00291 # e l s e 00292 00293 # d e f i n e m i _ f l o a t 4 s t o r e ( T , A ) { ( ( u c h a r * ) ( T ) ) [ 0 ] = ( ( c o n s t u c h a r * ) & A ) [ 3 ] ; \ 00294 00295 ( ( u c h a r * ) ( T ) ) [ 1 ] = ( ( c o n s t u c h a r * ) & A ) [ 2 ] ; \ 00296 00297 ( ( u c h a r * ) ( T ) ) [ 2 ] = ( ( c o n s t u c h a r * ) & A ) [ 1 ] ; \ 00298 00299 ( ( u c h a r * ) ( T ) ) [ 3 ] = ( ( c o n s t u c h a r * ) & A ) [ 0 ] ; } 00300 00301 # d e f i n e m i _ f l o a t 4 g e t ( V , M ) { f l o a t d e f _ t e m p ; \ 00302 00303 ( ( u c h a r * ) & d e f _ t e m p ) [ 0 ] = ( ( c o n s t u c h a r * ) ( M ) ) [ 3 ] ; \ 00304 00305 ( ( u c h a r * ) & d e f _ t e m p ) [ 1 ] = ( ( c o n s t u c h a r * ) ( M ) ) [ 2 ] ; \ 00306 00307 ( ( u c h a r * ) & d e f _ t e m p ) [ 2 ] = ( ( c o n s t u c h a r * ) ( M ) ) [ 1 ] ; \ 00308 00309 ( ( u c h a r * ) & d e f _ t e m p ) [ 3 ] = ( ( c o n s t u c h a r * ) ( M ) ) [ 0 ] ; \ 00310 00311 ( V ) = d e f _ t e m p ; } 00312 00313 # i f d e f i n e d ( _ _ F L O A T _ W O R D _ O R D E R ) & & ( _ _ F L O A T _ W O R D _ O R D E R = = _ _ B I G _ E N D I A N ) 00314 00315 # d e f i n e m i _ f l o a t 8 s t o r e ( T , V ) { ( ( u c h a r * ) ( T ) ) [ 0 ] = ( ( c o n s t u c h a r * ) & V ) [ 3 ] ; \ 00316 00317 ( ( u c h a r * ) ( T ) ) [ 1 ] = ( ( c o n s t u c h a r * ) & V ) [ 2 ] ; \ 00318 00319 ( ( u c h a r * ) ( T ) ) [ 2 ] = ( ( c o n s t u c h a r * ) & V ) [ 1 ] ; \ 00320 00321 ( ( u c h a r * ) ( T ) ) [ 3 ] = ( ( c o n s t u c h a r * ) & V ) [ 0 ] ; \ 00322 00323 ( ( u c h a r * ) ( T ) ) [ 4 ] = ( ( c o n s t u c h a r * ) & V ) [ 7 ] ; \ 00324 00325 ( ( u c h a r * ) ( T ) ) [ 5 ] = ( ( c o n s t u c h a r * ) & V ) [ 6 ] ; \ 00326 00327 ( ( u c h a r * ) ( T ) ) [ 6 ] = ( ( c o n s t u c h a r * ) & V ) [ 5 ] ; \ 00328 00329 ( ( u c h a r * ) ( T ) ) [ 7 ] = ( ( c o n s t u c h a r * ) & V ) [ 4 ] ; } 00330 00331 # d e f i n e m i _ f l o a t 8 g e t ( V , M ) { d o u b l e d e f _ t e m p ; \ 00332 00333 ( ( u c h a r * ) & d e f _ t e m p ) [ 0 ] = ( ( c o n s t u c h a r * ) ( M ) ) [ 3 ] ; \ 00334 00335 ( ( u c h a r * ) & d e f _ t e m p ) [ 1 ] = ( ( c o n s t u c h a r * ) ( M ) ) [ 2 ] ; \ 00336 00337 ( ( u c h a r * ) & d e f _ t e m p ) [ 2 ] = ( ( c o n s t u c h a r * ) ( M ) ) [ 1 ] ; \ 00338 00339 ( ( u c h a r * ) & d e f _ t e m p ) [ 3 ] = ( ( c o n s t u c h a r * ) ( M ) ) [ 0 ] ; \ 00340 00341 ( ( u c h a r * ) & d e f _ t e m p ) [ 4 ] = ( ( c o n s t u c h a r * ) ( M ) ) [ 7 ] ; \ 00342 00343 ( ( u c h a r * ) & d e f _ t e m p ) [ 5 ] = ( ( c o n s t u c h a r * ) ( M ) ) [ 6 ] ; \ 00344 00345 ( ( u c h a r * ) & d e f _ t e m p ) [ 6 ] = ( ( c o n s t u c h a r * ) ( M ) ) [ 5 ] ; \ 00346 00347 ( ( u c h a r * ) & d e f _ t e m p ) [ 7 ] = ( ( c o n s t u c h a r * ) ( M ) ) [ 4 ] ; \ 00348 00349 ( V ) = d e f _ t e m p ; } 00350 00351 # e l s e 00352 00353 # d e f i n e m i _ f l o a t 8 s t o r e ( T , V ) { ( ( u c h a r * ) ( T ) ) [ 0 ] = ( ( c o n s t u c h a r * ) & V ) [ 7 ] ; \ 00354 00355 ( ( u c h a r * ) ( T ) ) [ 1 ] = ( ( c o n s t u c h a r * ) & V ) [ 6 ] ; \ 00356 00357 ( ( u c h a r * ) ( T ) ) [ 2 ] = ( ( c o n s t u c h a r * ) & V ) [ 5 ] ; \ 00358 00359 ( ( u c h a r * ) ( T ) ) [ 3 ] = ( ( c o n s t u c h a r * ) & V ) [ 4 ] ; \ 00360 00361 ( ( u c h a r * ) ( T ) ) [ 4 ] = ( ( c o n s t u c h a r * ) & V ) [ 3 ] ; \ 00362 00363 ( ( u c h a r * ) ( T ) ) [ 5 ] = ( ( c o n s t u c h a r * ) & V ) [ 2 ] ; \ 00364 00365 ( ( u c h a r * ) ( T ) ) [ 6 ] = ( ( c o n s t u c h a r * ) & V ) [ 1 ] ; \ 00366 00367 ( ( u c h a r * ) ( T ) ) [ 7 ] = ( ( c o n s t u c h a r * ) & V ) [ 0 ] ; } 00368 00369 # d e f i n e m i _ f l o a t 8 g e t ( V , M ) { d o u b l e d e f _ t e m p ; \ 00370 00371 ( ( u c h a r * ) & d e f _ t e m p ) [ 0 ] = ( ( c o n s t u c h a r * ) ( M ) ) [ 7 ] ; \ 00372 00373 ( ( u c h a r * ) & d e f _ t e m p ) [ 1 ] = ( ( c o n s t u c h a r * ) ( M ) ) [ 6 ] ; \ 00374 00375 ( ( u c h a r * ) & d e f _ t e m p ) [ 2 ] = ( ( c o n s t u c h a r * ) ( M ) ) [ 5 ] ; \ 00376 00377 ( ( u c h a r * ) & d e f _ t e m p ) [ 3 ] = ( ( c o n s t u c h a r * ) ( M ) ) [ 4 ] ; \ 00378 00379 ( ( u c h a r * ) & d e f _ t e m p ) [ 4 ] = ( ( c o n s t u c h a r * ) ( M ) ) [ 3 ] ; \ 00380 00381 ( ( u c h a r * ) & d e f _ t e m p ) [ 5 ] = ( ( c o n s t u c h a r * ) ( M ) ) [ 2 ] ; \ 00382 00383 ( ( u c h a r * ) & d e f _ t e m p ) [ 6 ] = ( ( c o n s t u c h a r * ) ( M ) ) [ 1 ] ; \ 00384 00385 ( ( u c h a r * ) & d e f _ t e m p ) [ 7 ] = ( ( c o n s t u c h a r * ) ( M ) ) [ 0 ] ; \ 00386 00387 ( V ) = d e f _ t e m p ; } 00388 00389 # e n d i f / * _ _ F L O A T _ W O R D _ O R D E R * / 00390 00391 # e n d i f / * W O R D S _ B I G E N D I A N * / 00392 00393 / * F i x t o a v o i d w a r n i n g s w h e n s i z e o f ( h a _ r o w s ) = = s i z e o f ( l o n g ) * / 00394 00395 # i f d e f B I G _ T A B L E S 00396 00397 # d e f i n e m i _ r o w s t o r e ( T , A ) m i _ i n t 8 s t o r e ( T , A ) 00398 00399 # d e f i n e m i _ r o w k o r r ( T ) m i _ u i n t 8 k o r r ( T ) 00400 00401 # e l s e 00402 00403 # d e f i n e m i _ r o w s t o r e ( T , A ) { m i _ i n t 4 s t o r e ( T , 0 ) ; \ 00404 00405 m i _ i n t 4 s t o r e ( ( ( u c h a r * ) ( T ) + 4 ) , A ) ; } 00406 00407 # d e f i n e m i _ r o w k o r r ( T ) m i _ u i n t 4 k o r r ( ( c o n s t u c h a r * ) ( T ) + 4 ) 00408 00409 # e n d i f 00410 00411 # i f S I Z E O F _ O F F _ T > 4 00412 00413 # d e f i n e m i _ s i z e s t o r e ( T , A ) m i _ i n t 8 s t o r e ( T , A ) 00414 00415 # d e f i n e m i _ s i z e k o r r ( T ) m i _ u i n t 8 k o r r ( T ) 00416 00417 # e l s e 00418 00419 # d e f i n e m i _ s i z e s t o r e ( T , A ) { i f ( ( A ) = = H A _ O F F S E T _ E R R O R ) \ 00420 00421 b f i l l ( ( c h a r * ) ( T ) , 8 , 2 5 5 ) ; \ 00422 00423 e l s e { m i _ i n t 4 s t o r e ( ( T ) , 0 ) ; \ 00424 00425 m i _ i n t 4 s t o r e ( ( ( T ) + 4 ) , A ) ; } } 00426 00427 # d e f i n e m i _ s i z e k o r r ( T ) m i _ u i n t 4 k o r r ( ( c o n s t u c h a r * ) ( T ) + 4 ) 00428 00429 # e n d i f 00430 00431