24
24
#define mi_sint1korr(A) ((int8_t)(*A))
25
25
#define mi_uint1korr(A) ((uint8_t)(*A))
27
#define mi_sint2korr(A) ((int16_t) (((int16_t) (((uchar*) (A))[1])) +\
28
((int16_t) ((int16_t) ((char*) (A))[0]) << 8)))
29
#define mi_sint3korr(A) ((int32_t) (((((uchar*) (A))[0]) & 128) ? \
27
#define mi_sint2korr(A) ((int16_t) (((int16_t) (((const unsigned char*) (A))[1])) +\
28
((int16_t) ((int16_t) ((const char*) (A))[0]) << 8)))
29
#define mi_sint3korr(A) ((int32_t) (((((const unsigned char*) (A))[0]) & 128) ? \
30
30
(((uint32_t) 255L << 24) | \
31
(((uint32_t) ((uchar*) (A))[0]) << 16) |\
32
(((uint32_t) ((uchar*) (A))[1]) << 8) | \
33
((uint32_t) ((uchar*) (A))[2])) : \
34
(((uint32_t) ((uchar*) (A))[0]) << 16) |\
35
(((uint32_t) ((uchar*) (A))[1]) << 8) | \
36
((uint32_t) ((uchar*) (A))[2])))
37
#define mi_sint4korr(A) ((int32_t) (((int32_t) (((uchar*) (A))[3])) +\
38
((int32_t) (((uchar*) (A))[2]) << 8) +\
39
((int32_t) (((uchar*) (A))[1]) << 16) +\
40
((int32_t) ((int16_t) ((char*) (A))[0]) << 24)))
31
(((uint32_t) ((const unsigned char*) (A))[0]) << 16) |\
32
(((uint32_t) ((const unsigned char*) (A))[1]) << 8) | \
33
((uint32_t) ((const unsigned char*) (A))[2])) : \
34
(((uint32_t) ((const unsigned char*) (A))[0]) << 16) |\
35
(((uint32_t) ((const unsigned char*) (A))[1]) << 8) | \
36
((uint32_t) ((const unsigned char*) (A))[2])))
37
#define mi_sint4korr(A) ((int32_t) (((int32_t) (((const unsigned char*) (A))[3])) +\
38
((int32_t) (((const unsigned char*) (A))[2]) << 8) +\
39
((int32_t) (((const unsigned char*) (A))[1]) << 16) +\
40
((int32_t) ((int16_t) ((const char*) (A))[0]) << 24)))
41
41
#define mi_sint8korr(A) ((int64_t) mi_uint8korr(A))
42
#define mi_uint2korr(A) ((uint16_t) (((uint16_t) (((uchar*) (A))[1])) +\
43
((uint16_t) (((uchar*) (A))[0]) << 8)))
44
#define mi_uint3korr(A) ((uint32_t) (((uint32_t) (((uchar*) (A))[2])) +\
45
(((uint32_t) (((uchar*) (A))[1])) << 8) +\
46
(((uint32_t) (((uchar*) (A))[0])) << 16)))
47
#define mi_uint4korr(A) ((uint32_t) (((uint32_t) (((uchar*) (A))[3])) +\
48
(((uint32_t) (((uchar*) (A))[2])) << 8) +\
49
(((uint32_t) (((uchar*) (A))[1])) << 16) +\
50
(((uint32_t) (((uchar*) (A))[0])) << 24)))
51
#define mi_uint5korr(A) ((uint64_t)(((uint32_t) (((uchar*) (A))[4])) +\
52
(((uint32_t) (((uchar*) (A))[3])) << 8) +\
53
(((uint32_t) (((uchar*) (A))[2])) << 16) +\
54
(((uint32_t) (((uchar*) (A))[1])) << 24)) +\
55
(((uint64_t) (((uchar*) (A))[0])) << 32))
56
#define mi_uint6korr(A) ((uint64_t)(((uint32_t) (((uchar*) (A))[5])) +\
57
(((uint32_t) (((uchar*) (A))[4])) << 8) +\
58
(((uint32_t) (((uchar*) (A))[3])) << 16) +\
59
(((uint32_t) (((uchar*) (A))[2])) << 24)) +\
60
(((uint64_t) (((uint32_t) (((uchar*) (A))[1])) +\
61
(((uint32_t) (((uchar*) (A))[0]) << 8)))) <<\
63
#define mi_uint7korr(A) ((uint64_t)(((uint32_t) (((uchar*) (A))[6])) +\
64
(((uint32_t) (((uchar*) (A))[5])) << 8) +\
65
(((uint32_t) (((uchar*) (A))[4])) << 16) +\
66
(((uint32_t) (((uchar*) (A))[3])) << 24)) +\
67
(((uint64_t) (((uint32_t) (((uchar*) (A))[2])) +\
68
(((uint32_t) (((uchar*) (A))[1])) << 8) +\
69
(((uint32_t) (((uchar*) (A))[0])) << 16))) <<\
71
#define mi_uint8korr(A) ((uint64_t)(((uint32_t) (((uchar*) (A))[7])) +\
72
(((uint32_t) (((uchar*) (A))[6])) << 8) +\
73
(((uint32_t) (((uchar*) (A))[5])) << 16) +\
74
(((uint32_t) (((uchar*) (A))[4])) << 24)) +\
75
(((uint64_t) (((uint32_t) (((uchar*) (A))[3])) +\
76
(((uint32_t) (((uchar*) (A))[2])) << 8) +\
77
(((uint32_t) (((uchar*) (A))[1])) << 16) +\
78
(((uint32_t) (((uchar*) (A))[0])) << 24))) <<\
42
#define mi_uint2korr(A) ((uint16_t) (((uint16_t) (((const unsigned char*) (A))[1])) +\
43
((uint16_t) (((const unsigned char*) (A))[0]) << 8)))
44
#define mi_uint3korr(A) ((uint32_t) (((uint32_t) (((const unsigned char*) (A))[2])) +\
45
(((uint32_t) (((const unsigned char*) (A))[1])) << 8) +\
46
(((uint32_t) (((const unsigned char*) (A))[0])) << 16)))
47
#define mi_uint4korr(A) ((uint32_t) (((uint32_t) (((const unsigned char*) (A))[3])) +\
48
(((uint32_t) (((const unsigned char*) (A))[2])) << 8) +\
49
(((uint32_t) (((const unsigned char*) (A))[1])) << 16) +\
50
(((uint32_t) (((const unsigned char*) (A))[0])) << 24)))
51
#define mi_uint5korr(A) ((uint64_t)(((uint32_t) (((const unsigned char*) (A))[4])) +\
52
(((uint32_t) (((const unsigned char*) (A))[3])) << 8) +\
53
(((uint32_t) (((const unsigned char*) (A))[2])) << 16) +\
54
(((uint32_t) (((const unsigned char*) (A))[1])) << 24)) +\
55
(((uint64_t) (((const unsigned char*) (A))[0])) << 32))
56
#define mi_uint6korr(A) ((uint64_t)(((uint32_t) (((const unsigned char*) (A))[5])) +\
57
(((uint32_t) (((const unsigned char*) (A))[4])) << 8) +\
58
(((uint32_t) (((const unsigned char*) (A))[3])) << 16) +\
59
(((uint32_t) (((const unsigned char*) (A))[2])) << 24)) +\
60
(((uint64_t) (((uint32_t) (((const unsigned char*) (A))[1])) +\
61
(((uint32_t) (((const unsigned char*) (A))[0]) << 8)))) <<\
63
#define mi_uint7korr(A) ((uint64_t)(((uint32_t) (((const unsigned char*) (A))[6])) +\
64
(((uint32_t) (((const unsigned char*) (A))[5])) << 8) +\
65
(((uint32_t) (((const unsigned char*) (A))[4])) << 16) +\
66
(((uint32_t) (((const unsigned char*) (A))[3])) << 24)) +\
67
(((uint64_t) (((uint32_t) (((const unsigned char*) (A))[2])) +\
68
(((uint32_t) (((const unsigned char*) (A))[1])) << 8) +\
69
(((uint32_t) (((const unsigned char*) (A))[0])) << 16))) <<\
71
#define mi_uint8korr(A) ((uint64_t)(((uint32_t) (((const unsigned char*) (A))[7])) +\
72
(((uint32_t) (((const unsigned char*) (A))[6])) << 8) +\
73
(((uint32_t) (((const unsigned char*) (A))[5])) << 16) +\
74
(((uint32_t) (((const unsigned char*) (A))[4])) << 24)) +\
75
(((uint64_t) (((uint32_t) (((const unsigned char*) (A))[3])) +\
76
(((uint32_t) (((const unsigned char*) (A))[2])) << 8) +\
77
(((uint32_t) (((const unsigned char*) (A))[1])) << 16) +\
78
(((uint32_t) (((const unsigned char*) (A))[0])) << 24))) <<\
81
81
/* This one is for uniformity */
82
#define mi_int1store(T,A) *((uchar*)(T))= (uchar) (A)
82
#define mi_int1store(T,A) *((unsigned char*)(T))= (unsigned char) (A)
84
#define mi_int2store(T,A) { uint def_temp= (uint) (A) ;\
85
((uchar*) (T))[1]= (uchar) (def_temp);\
86
((uchar*) (T))[0]= (uchar) (def_temp >> 8); }
84
#define mi_int2store(T,A) { uint32_t def_temp= (uint32_t) (A) ;\
85
((unsigned char*) (T))[1]= (unsigned char) (def_temp);\
86
((unsigned char*) (T))[0]= (unsigned char) (def_temp >> 8); }
87
87
#define mi_int3store(T,A) { /*lint -save -e734 */\
88
ulong def_temp= (ulong) (A);\
89
((uchar*) (T))[2]= (uchar) (def_temp);\
90
((uchar*) (T))[1]= (uchar) (def_temp >> 8);\
91
((uchar*) (T))[0]= (uchar) (def_temp >> 16);\
88
uint32_t def_temp= (uint32_t) (A);\
89
((unsigned char*) (T))[2]= (unsigned char) (def_temp);\
90
((unsigned char*) (T))[1]= (unsigned char) (def_temp >> 8);\
91
((unsigned char*) (T))[0]= (unsigned char) (def_temp >> 16);\
92
92
/*lint -restore */}
93
#define mi_int4store(T,A) { ulong def_temp= (ulong) (A);\
94
((uchar*) (T))[3]= (uchar) (def_temp);\
95
((uchar*) (T))[2]= (uchar) (def_temp >> 8);\
96
((uchar*) (T))[1]= (uchar) (def_temp >> 16);\
97
((uchar*) (T))[0]= (uchar) (def_temp >> 24); }
98
#define mi_int5store(T,A) { ulong def_temp= (ulong) (A),\
99
def_temp2= (ulong) ((A) >> 32);\
100
((uchar*) (T))[4]= (uchar) (def_temp);\
101
((uchar*) (T))[3]= (uchar) (def_temp >> 8);\
102
((uchar*) (T))[2]= (uchar) (def_temp >> 16);\
103
((uchar*) (T))[1]= (uchar) (def_temp >> 24);\
104
((uchar*) (T))[0]= (uchar) (def_temp2); }
105
#define mi_int6store(T,A) { ulong def_temp= (ulong) (A),\
106
def_temp2= (ulong) ((A) >> 32);\
107
((uchar*) (T))[5]= (uchar) (def_temp);\
108
((uchar*) (T))[4]= (uchar) (def_temp >> 8);\
109
((uchar*) (T))[3]= (uchar) (def_temp >> 16);\
110
((uchar*) (T))[2]= (uchar) (def_temp >> 24);\
111
((uchar*) (T))[1]= (uchar) (def_temp2);\
112
((uchar*) (T))[0]= (uchar) (def_temp2 >> 8); }
113
#define mi_int7store(T,A) { ulong def_temp= (ulong) (A),\
114
def_temp2= (ulong) ((A) >> 32);\
115
((uchar*) (T))[6]= (uchar) (def_temp);\
116
((uchar*) (T))[5]= (uchar) (def_temp >> 8);\
117
((uchar*) (T))[4]= (uchar) (def_temp >> 16);\
118
((uchar*) (T))[3]= (uchar) (def_temp >> 24);\
119
((uchar*) (T))[2]= (uchar) (def_temp2);\
120
((uchar*) (T))[1]= (uchar) (def_temp2 >> 8);\
121
((uchar*) (T))[0]= (uchar) (def_temp2 >> 16); }
122
#define mi_int8store(T,A) { ulong def_temp3= (ulong) (A),\
123
def_temp4= (ulong) ((A) >> 32);\
124
mi_int4store((uchar*) (T) + 0, def_temp4);\
125
mi_int4store((uchar*) (T) + 4, def_temp3); }
93
#define mi_int4store(T,A) { uint32_t def_temp= (uint32_t) (A);\
94
((unsigned char*) (T))[3]= (unsigned char) (def_temp);\
95
((unsigned char*) (T))[2]= (unsigned char) (def_temp >> 8);\
96
((unsigned char*) (T))[1]= (unsigned char) (def_temp >> 16);\
97
((unsigned char*) (T))[0]= (unsigned char) (def_temp >> 24); }
98
#define mi_int5store(T,A) { uint32_t def_temp= (uint32_t) (A),\
99
def_temp2= (uint32_t) ((A) >> 32);\
100
((unsigned char*) (T))[4]= (unsigned char) (def_temp);\
101
((unsigned char*) (T))[3]= (unsigned char) (def_temp >> 8);\
102
((unsigned char*) (T))[2]= (unsigned char) (def_temp >> 16);\
103
((unsigned char*) (T))[1]= (unsigned char) (def_temp >> 24);\
104
((unsigned char*) (T))[0]= (unsigned char) (def_temp2); }
105
#define mi_int6store(T,A) { uint32_t def_temp= (uint32_t) (A),\
106
def_temp2= (uint32_t) ((A) >> 32);\
107
((unsigned char*) (T))[5]= (unsigned char) (def_temp);\
108
((unsigned char*) (T))[4]= (unsigned char) (def_temp >> 8);\
109
((unsigned char*) (T))[3]= (unsigned char) (def_temp >> 16);\
110
((unsigned char*) (T))[2]= (unsigned char) (def_temp >> 24);\
111
((unsigned char*) (T))[1]= (unsigned char) (def_temp2);\
112
((unsigned char*) (T))[0]= (unsigned char) (def_temp2 >> 8); }
113
#define mi_int7store(T,A) { uint32_t def_temp= (uint32_t) (A),\
114
def_temp2= (uint32_t) ((A) >> 32);\
115
((unsigned char*) (T))[6]= (unsigned char) (def_temp);\
116
((unsigned char*) (T))[5]= (unsigned char) (def_temp >> 8);\
117
((unsigned char*) (T))[4]= (unsigned char) (def_temp >> 16);\
118
((unsigned char*) (T))[3]= (unsigned char) (def_temp >> 24);\
119
((unsigned char*) (T))[2]= (unsigned char) (def_temp2);\
120
((unsigned char*) (T))[1]= (unsigned char) (def_temp2 >> 8);\
121
((unsigned char*) (T))[0]= (unsigned char) (def_temp2 >> 16); }
122
#define mi_int8store(T,A) { uint32_t def_temp3= (uint32_t) (A),\
123
def_temp4= (uint32_t) ((A) >> 32);\
124
mi_int4store((unsigned char*) (T) + 0, def_temp4);\
125
mi_int4store((unsigned char*) (T) + 4, def_temp3); }
127
127
#ifdef WORDS_BIGENDIAN
129
#define mi_float4store(T,A) { ((uchar*) (T))[0]= ((uchar*) &A)[0];\
130
((uchar*) (T))[1]= ((uchar*) &A)[1];\
131
((uchar*) (T))[2]= ((uchar*) &A)[2];\
132
((uchar*) (T))[3]= ((uchar*) &A)[3]; }
129
#define mi_float4store(T,A) { ((unsigned char*) (T))[0]= ((const unsigned char*) &A)[0];\
130
((unsigned char*) (T))[1]= ((const unsigned char*) &A)[1];\
131
((unsigned char*) (T))[2]= ((const unsigned char*) &A)[2];\
132
((unsigned char*) (T))[3]= ((const unsigned char*) &A)[3]; }
134
134
#define mi_float4get(V,M) { float def_temp;\
135
((uchar*) &def_temp)[0]= ((uchar*) (M))[0];\
136
((uchar*) &def_temp)[1]= ((uchar*) (M))[1];\
137
((uchar*) &def_temp)[2]= ((uchar*) (M))[2];\
138
((uchar*) &def_temp)[3]= ((uchar*) (M))[3];\
135
((unsigned char*) &def_temp)[0]= ((const unsigned char*) (M))[0];\
136
((unsigned char*) &def_temp)[1]= ((const unsigned char*) (M))[1];\
137
((unsigned char*) &def_temp)[2]= ((const unsigned char*) (M))[2];\
138
((unsigned char*) &def_temp)[3]= ((const unsigned char*) (M))[3];\
141
#define mi_float8store(T,V) { ((uchar*) (T))[0]= ((uchar*) &V)[0];\
142
((uchar*) (T))[1]= ((uchar*) &V)[1];\
143
((uchar*) (T))[2]= ((uchar*) &V)[2];\
144
((uchar*) (T))[3]= ((uchar*) &V)[3];\
145
((uchar*) (T))[4]= ((uchar*) &V)[4];\
146
((uchar*) (T))[5]= ((uchar*) &V)[5];\
147
((uchar*) (T))[6]= ((uchar*) &V)[6];\
148
((uchar*) (T))[7]= ((uchar*) &V)[7]; }
141
#define mi_float8store(T,V) { ((unsigned char*) (T))[0]= ((unsigned char*) &V)[0];\
142
((unsigned char*) (T))[1]= ((unsigned char*) &V)[1];\
143
((unsigned char*) (T))[2]= ((unsigned char*) &V)[2];\
144
((unsigned char*) (T))[3]= ((unsigned char*) &V)[3];\
145
((unsigned char*) (T))[4]= ((unsigned char*) &V)[4];\
146
((unsigned char*) (T))[5]= ((unsigned char*) &V)[5];\
147
((unsigned char*) (T))[6]= ((unsigned char*) &V)[6];\
148
((unsigned char*) (T))[7]= ((unsigned char*) &V)[7]; }
150
150
#define mi_float8get(V,M) { double def_temp;\
151
((uchar*) &def_temp)[0]= ((uchar*) (M))[0];\
152
((uchar*) &def_temp)[1]= ((uchar*) (M))[1];\
153
((uchar*) &def_temp)[2]= ((uchar*) (M))[2];\
154
((uchar*) &def_temp)[3]= ((uchar*) (M))[3];\
155
((uchar*) &def_temp)[4]= ((uchar*) (M))[4];\
156
((uchar*) &def_temp)[5]= ((uchar*) (M))[5];\
157
((uchar*) &def_temp)[6]= ((uchar*) (M))[6];\
158
((uchar*) &def_temp)[7]= ((uchar*) (M))[7]; \
151
((unsigned char*) &def_temp)[0]= ((unsigned char*) (M))[0];\
152
((unsigned char*) &def_temp)[1]= ((unsigned char*) (M))[1];\
153
((unsigned char*) &def_temp)[2]= ((unsigned char*) (M))[2];\
154
((unsigned char*) &def_temp)[3]= ((unsigned char*) (M))[3];\
155
((unsigned char*) &def_temp)[4]= ((unsigned char*) (M))[4];\
156
((unsigned char*) &def_temp)[5]= ((unsigned char*) (M))[5];\
157
((unsigned char*) &def_temp)[6]= ((unsigned char*) (M))[6];\
158
((unsigned char*) &def_temp)[7]= ((unsigned char*) (M))[7]; \
162
#define mi_float4store(T,A) { ((uchar*) (T))[0]= ((uchar*) &A)[3];\
163
((uchar*) (T))[1]= ((uchar*) &A)[2];\
164
((uchar*) (T))[2]= ((uchar*) &A)[1];\
165
((uchar*) (T))[3]= ((uchar*) &A)[0]; }
162
#define mi_float4store(T,A) { ((unsigned char*) (T))[0]= ((unsigned char*) &A)[3];\
163
((unsigned char*) (T))[1]= ((unsigned char*) &A)[2];\
164
((unsigned char*) (T))[2]= ((unsigned char*) &A)[1];\
165
((unsigned char*) (T))[3]= ((unsigned char*) &A)[0]; }
167
167
#define mi_float4get(V,M) { float def_temp;\
168
((uchar*) &def_temp)[0]= ((uchar*) (M))[3];\
169
((uchar*) &def_temp)[1]= ((uchar*) (M))[2];\
170
((uchar*) &def_temp)[2]= ((uchar*) (M))[1];\
171
((uchar*) &def_temp)[3]= ((uchar*) (M))[0];\
168
((unsigned char*) &def_temp)[0]= ((unsigned char*) (M))[3];\
169
((unsigned char*) &def_temp)[1]= ((unsigned char*) (M))[2];\
170
((unsigned char*) &def_temp)[2]= ((unsigned char*) (M))[1];\
171
((unsigned char*) &def_temp)[3]= ((unsigned char*) (M))[0];\
174
174
#if defined(__FLOAT_WORD_ORDER) && (__FLOAT_WORD_ORDER == __BIG_ENDIAN)
175
#define mi_float8store(T,V) { ((uchar*) (T))[0]= ((uchar*) &V)[3];\
176
((uchar*) (T))[1]= ((uchar*) &V)[2];\
177
((uchar*) (T))[2]= ((uchar*) &V)[1];\
178
((uchar*) (T))[3]= ((uchar*) &V)[0];\
179
((uchar*) (T))[4]= ((uchar*) &V)[7];\
180
((uchar*) (T))[5]= ((uchar*) &V)[6];\
181
((uchar*) (T))[6]= ((uchar*) &V)[5];\
182
((uchar*) (T))[7]= ((uchar*) &V)[4];}
175
#define mi_float8store(T,V) { ((unsigned char*) (T))[0]= ((unsigned char*) &V)[3];\
176
((unsigned char*) (T))[1]= ((unsigned char*) &V)[2];\
177
((unsigned char*) (T))[2]= ((unsigned char*) &V)[1];\
178
((unsigned char*) (T))[3]= ((unsigned char*) &V)[0];\
179
((unsigned char*) (T))[4]= ((unsigned char*) &V)[7];\
180
((unsigned char*) (T))[5]= ((unsigned char*) &V)[6];\
181
((unsigned char*) (T))[6]= ((unsigned char*) &V)[5];\
182
((unsigned char*) (T))[7]= ((unsigned char*) &V)[4];}
184
184
#define mi_float8get(V,M) { double def_temp;\
185
((uchar*) &def_temp)[0]= ((uchar*) (M))[3];\
186
((uchar*) &def_temp)[1]= ((uchar*) (M))[2];\
187
((uchar*) &def_temp)[2]= ((uchar*) (M))[1];\
188
((uchar*) &def_temp)[3]= ((uchar*) (M))[0];\
189
((uchar*) &def_temp)[4]= ((uchar*) (M))[7];\
190
((uchar*) &def_temp)[5]= ((uchar*) (M))[6];\
191
((uchar*) &def_temp)[6]= ((uchar*) (M))[5];\
192
((uchar*) &def_temp)[7]= ((uchar*) (M))[4];\
185
((unsigned char*) &def_temp)[0]= ((unsigned char*) (M))[3];\
186
((unsigned char*) &def_temp)[1]= ((unsigned char*) (M))[2];\
187
((unsigned char*) &def_temp)[2]= ((unsigned char*) (M))[1];\
188
((unsigned char*) &def_temp)[3]= ((unsigned char*) (M))[0];\
189
((unsigned char*) &def_temp)[4]= ((unsigned char*) (M))[7];\
190
((unsigned char*) &def_temp)[5]= ((unsigned char*) (M))[6];\
191
((unsigned char*) &def_temp)[6]= ((unsigned char*) (M))[5];\
192
((unsigned char*) &def_temp)[7]= ((unsigned char*) (M))[4];\
196
#define mi_float8store(T,V) { ((uchar*) (T))[0]= ((uchar*) &V)[7];\
197
((uchar*) (T))[1]= ((uchar*) &V)[6];\
198
((uchar*) (T))[2]= ((uchar*) &V)[5];\
199
((uchar*) (T))[3]= ((uchar*) &V)[4];\
200
((uchar*) (T))[4]= ((uchar*) &V)[3];\
201
((uchar*) (T))[5]= ((uchar*) &V)[2];\
202
((uchar*) (T))[6]= ((uchar*) &V)[1];\
203
((uchar*) (T))[7]= ((uchar*) &V)[0];}
196
#define mi_float8store(T,V) { ((unsigned char*) (T))[0]= ((unsigned char*) &V)[7];\
197
((unsigned char*) (T))[1]= ((unsigned char*) &V)[6];\
198
((unsigned char*) (T))[2]= ((unsigned char*) &V)[5];\
199
((unsigned char*) (T))[3]= ((unsigned char*) &V)[4];\
200
((unsigned char*) (T))[4]= ((unsigned char*) &V)[3];\
201
((unsigned char*) (T))[5]= ((unsigned char*) &V)[2];\
202
((unsigned char*) (T))[6]= ((unsigned char*) &V)[1];\
203
((unsigned char*) (T))[7]= ((unsigned char*) &V)[0];}
205
205
#define mi_float8get(V,M) { double def_temp;\
206
((uchar*) &def_temp)[0]= ((uchar*) (M))[7];\
207
((uchar*) &def_temp)[1]= ((uchar*) (M))[6];\
208
((uchar*) &def_temp)[2]= ((uchar*) (M))[5];\
209
((uchar*) &def_temp)[3]= ((uchar*) (M))[4];\
210
((uchar*) &def_temp)[4]= ((uchar*) (M))[3];\
211
((uchar*) &def_temp)[5]= ((uchar*) (M))[2];\
212
((uchar*) &def_temp)[6]= ((uchar*) (M))[1];\
213
((uchar*) &def_temp)[7]= ((uchar*) (M))[0];\
206
((unsigned char*) &def_temp)[0]= ((unsigned char*) (M))[7];\
207
((unsigned char*) &def_temp)[1]= ((unsigned char*) (M))[6];\
208
((unsigned char*) &def_temp)[2]= ((unsigned char*) (M))[5];\
209
((unsigned char*) &def_temp)[3]= ((unsigned char*) (M))[4];\
210
((unsigned char*) &def_temp)[4]= ((unsigned char*) (M))[3];\
211
((unsigned char*) &def_temp)[5]= ((unsigned char*) (M))[2];\
212
((unsigned char*) &def_temp)[6]= ((unsigned char*) (M))[1];\
213
((unsigned char*) &def_temp)[7]= ((unsigned char*) (M))[0];\
215
215
#endif /* __FLOAT_WORD_ORDER */
216
216
#endif /* WORDS_BIGENDIAN */