vga: compile cirrus_vga in hwlib
[qemu.git] / target-i386 / helper_template.h
1 /*
2 * i386 helpers
3 *
4 * Copyright (c) 2008 Fabrice Bellard
5 *
6 * This library is free software; you can redistribute it and/or
7 * modify it under the terms of the GNU Lesser General Public
8 * License as published by the Free Software Foundation; either
9 * version 2 of the License, or (at your option) any later version.
10 *
11 * This library is distributed in the hope that it will be useful,
12 * but WITHOUT ANY WARRANTY; without even the implied warranty of
13 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
14 * Lesser General Public License for more details.
15 *
16 * You should have received a copy of the GNU Lesser General Public
17 * License along with this library; if not, see <http://www.gnu.org/licenses/>.
18 */
19 #define DATA_BITS (1 << (3 + SHIFT))
20 #define SHIFT_MASK (DATA_BITS - 1)
21 #define SIGN_MASK (((target_ulong)1) << (DATA_BITS - 1))
22 #if DATA_BITS <= 32
23 #define SHIFT1_MASK 0x1f
24 #else
25 #define SHIFT1_MASK 0x3f
26 #endif
27
28 #if DATA_BITS == 8
29 #define SUFFIX b
30 #define DATA_TYPE uint8_t
31 #define DATA_STYPE int8_t
32 #define DATA_MASK 0xff
33 #elif DATA_BITS == 16
34 #define SUFFIX w
35 #define DATA_TYPE uint16_t
36 #define DATA_STYPE int16_t
37 #define DATA_MASK 0xffff
38 #elif DATA_BITS == 32
39 #define SUFFIX l
40 #define DATA_TYPE uint32_t
41 #define DATA_STYPE int32_t
42 #define DATA_MASK 0xffffffff
43 #elif DATA_BITS == 64
44 #define SUFFIX q
45 #define DATA_TYPE uint64_t
46 #define DATA_STYPE int64_t
47 #define DATA_MASK 0xffffffffffffffffULL
48 #else
49 #error unhandled operand size
50 #endif
51
52 /* dynamic flags computation */
53
54 static int glue(compute_all_add, SUFFIX)(void)
55 {
56 int cf, pf, af, zf, sf, of;
57 target_long src1, src2;
58 src1 = CC_SRC;
59 src2 = CC_DST - CC_SRC;
60 cf = (DATA_TYPE)CC_DST < (DATA_TYPE)src1;
61 pf = parity_table[(uint8_t)CC_DST];
62 af = (CC_DST ^ src1 ^ src2) & 0x10;
63 zf = ((DATA_TYPE)CC_DST == 0) << 6;
64 sf = lshift(CC_DST, 8 - DATA_BITS) & 0x80;
65 of = lshift((src1 ^ src2 ^ -1) & (src1 ^ CC_DST), 12 - DATA_BITS) & CC_O;
66 return cf | pf | af | zf | sf | of;
67 }
68
69 static int glue(compute_c_add, SUFFIX)(void)
70 {
71 int cf;
72 target_long src1;
73 src1 = CC_SRC;
74 cf = (DATA_TYPE)CC_DST < (DATA_TYPE)src1;
75 return cf;
76 }
77
78 static int glue(compute_all_adc, SUFFIX)(void)
79 {
80 int cf, pf, af, zf, sf, of;
81 target_long src1, src2;
82 src1 = CC_SRC;
83 src2 = CC_DST - CC_SRC - 1;
84 cf = (DATA_TYPE)CC_DST <= (DATA_TYPE)src1;
85 pf = parity_table[(uint8_t)CC_DST];
86 af = (CC_DST ^ src1 ^ src2) & 0x10;
87 zf = ((DATA_TYPE)CC_DST == 0) << 6;
88 sf = lshift(CC_DST, 8 - DATA_BITS) & 0x80;
89 of = lshift((src1 ^ src2 ^ -1) & (src1 ^ CC_DST), 12 - DATA_BITS) & CC_O;
90 return cf | pf | af | zf | sf | of;
91 }
92
93 static int glue(compute_c_adc, SUFFIX)(void)
94 {
95 int cf;
96 target_long src1;
97 src1 = CC_SRC;
98 cf = (DATA_TYPE)CC_DST <= (DATA_TYPE)src1;
99 return cf;
100 }
101
102 static int glue(compute_all_sub, SUFFIX)(void)
103 {
104 int cf, pf, af, zf, sf, of;
105 target_long src1, src2;
106 src1 = CC_DST + CC_SRC;
107 src2 = CC_SRC;
108 cf = (DATA_TYPE)src1 < (DATA_TYPE)src2;
109 pf = parity_table[(uint8_t)CC_DST];
110 af = (CC_DST ^ src1 ^ src2) & 0x10;
111 zf = ((DATA_TYPE)CC_DST == 0) << 6;
112 sf = lshift(CC_DST, 8 - DATA_BITS) & 0x80;
113 of = lshift((src1 ^ src2) & (src1 ^ CC_DST), 12 - DATA_BITS) & CC_O;
114 return cf | pf | af | zf | sf | of;
115 }
116
117 static int glue(compute_c_sub, SUFFIX)(void)
118 {
119 int cf;
120 target_long src1, src2;
121 src1 = CC_DST + CC_SRC;
122 src2 = CC_SRC;
123 cf = (DATA_TYPE)src1 < (DATA_TYPE)src2;
124 return cf;
125 }
126
127 static int glue(compute_all_sbb, SUFFIX)(void)
128 {
129 int cf, pf, af, zf, sf, of;
130 target_long src1, src2;
131 src1 = CC_DST + CC_SRC + 1;
132 src2 = CC_SRC;
133 cf = (DATA_TYPE)src1 <= (DATA_TYPE)src2;
134 pf = parity_table[(uint8_t)CC_DST];
135 af = (CC_DST ^ src1 ^ src2) & 0x10;
136 zf = ((DATA_TYPE)CC_DST == 0) << 6;
137 sf = lshift(CC_DST, 8 - DATA_BITS) & 0x80;
138 of = lshift((src1 ^ src2) & (src1 ^ CC_DST), 12 - DATA_BITS) & CC_O;
139 return cf | pf | af | zf | sf | of;
140 }
141
142 static int glue(compute_c_sbb, SUFFIX)(void)
143 {
144 int cf;
145 target_long src1, src2;
146 src1 = CC_DST + CC_SRC + 1;
147 src2 = CC_SRC;
148 cf = (DATA_TYPE)src1 <= (DATA_TYPE)src2;
149 return cf;
150 }
151
152 static int glue(compute_all_logic, SUFFIX)(void)
153 {
154 int cf, pf, af, zf, sf, of;
155 cf = 0;
156 pf = parity_table[(uint8_t)CC_DST];
157 af = 0;
158 zf = ((DATA_TYPE)CC_DST == 0) << 6;
159 sf = lshift(CC_DST, 8 - DATA_BITS) & 0x80;
160 of = 0;
161 return cf | pf | af | zf | sf | of;
162 }
163
164 static int glue(compute_c_logic, SUFFIX)(void)
165 {
166 return 0;
167 }
168
169 static int glue(compute_all_inc, SUFFIX)(void)
170 {
171 int cf, pf, af, zf, sf, of;
172 target_long src1, src2;
173 src1 = CC_DST - 1;
174 src2 = 1;
175 cf = CC_SRC;
176 pf = parity_table[(uint8_t)CC_DST];
177 af = (CC_DST ^ src1 ^ src2) & 0x10;
178 zf = ((DATA_TYPE)CC_DST == 0) << 6;
179 sf = lshift(CC_DST, 8 - DATA_BITS) & 0x80;
180 of = ((CC_DST & DATA_MASK) == SIGN_MASK) << 11;
181 return cf | pf | af | zf | sf | of;
182 }
183
184 #if DATA_BITS == 32
185 static int glue(compute_c_inc, SUFFIX)(void)
186 {
187 return CC_SRC;
188 }
189 #endif
190
191 static int glue(compute_all_dec, SUFFIX)(void)
192 {
193 int cf, pf, af, zf, sf, of;
194 target_long src1, src2;
195 src1 = CC_DST + 1;
196 src2 = 1;
197 cf = CC_SRC;
198 pf = parity_table[(uint8_t)CC_DST];
199 af = (CC_DST ^ src1 ^ src2) & 0x10;
200 zf = ((DATA_TYPE)CC_DST == 0) << 6;
201 sf = lshift(CC_DST, 8 - DATA_BITS) & 0x80;
202 of = ((CC_DST & DATA_MASK) == ((target_ulong)SIGN_MASK - 1)) << 11;
203 return cf | pf | af | zf | sf | of;
204 }
205
206 static int glue(compute_all_shl, SUFFIX)(void)
207 {
208 int cf, pf, af, zf, sf, of;
209 cf = (CC_SRC >> (DATA_BITS - 1)) & CC_C;
210 pf = parity_table[(uint8_t)CC_DST];
211 af = 0; /* undefined */
212 zf = ((DATA_TYPE)CC_DST == 0) << 6;
213 sf = lshift(CC_DST, 8 - DATA_BITS) & 0x80;
214 /* of is defined if shift count == 1 */
215 of = lshift(CC_SRC ^ CC_DST, 12 - DATA_BITS) & CC_O;
216 return cf | pf | af | zf | sf | of;
217 }
218
219 static int glue(compute_c_shl, SUFFIX)(void)
220 {
221 return (CC_SRC >> (DATA_BITS - 1)) & CC_C;
222 }
223
224 #if DATA_BITS == 32
225 static int glue(compute_c_sar, SUFFIX)(void)
226 {
227 return CC_SRC & 1;
228 }
229 #endif
230
231 static int glue(compute_all_sar, SUFFIX)(void)
232 {
233 int cf, pf, af, zf, sf, of;
234 cf = CC_SRC & 1;
235 pf = parity_table[(uint8_t)CC_DST];
236 af = 0; /* undefined */
237 zf = ((DATA_TYPE)CC_DST == 0) << 6;
238 sf = lshift(CC_DST, 8 - DATA_BITS) & 0x80;
239 /* of is defined if shift count == 1 */
240 of = lshift(CC_SRC ^ CC_DST, 12 - DATA_BITS) & CC_O;
241 return cf | pf | af | zf | sf | of;
242 }
243
244 #if DATA_BITS == 32
245 static int glue(compute_c_mul, SUFFIX)(void)
246 {
247 int cf;
248 cf = (CC_SRC != 0);
249 return cf;
250 }
251 #endif
252
253 /* NOTE: we compute the flags like the P4. On olders CPUs, only OF and
254 CF are modified and it is slower to do that. */
255 static int glue(compute_all_mul, SUFFIX)(void)
256 {
257 int cf, pf, af, zf, sf, of;
258 cf = (CC_SRC != 0);
259 pf = parity_table[(uint8_t)CC_DST];
260 af = 0; /* undefined */
261 zf = ((DATA_TYPE)CC_DST == 0) << 6;
262 sf = lshift(CC_DST, 8 - DATA_BITS) & 0x80;
263 of = cf << 11;
264 return cf | pf | af | zf | sf | of;
265 }
266
267 /* shifts */
268
269 target_ulong glue(helper_rcl, SUFFIX)(target_ulong t0, target_ulong t1)
270 {
271 int count, eflags;
272 target_ulong src;
273 target_long res;
274
275 count = t1 & SHIFT1_MASK;
276 #if DATA_BITS == 16
277 count = rclw_table[count];
278 #elif DATA_BITS == 8
279 count = rclb_table[count];
280 #endif
281 if (count) {
282 eflags = helper_cc_compute_all(CC_OP);
283 t0 &= DATA_MASK;
284 src = t0;
285 res = (t0 << count) | ((target_ulong)(eflags & CC_C) << (count - 1));
286 if (count > 1)
287 res |= t0 >> (DATA_BITS + 1 - count);
288 t0 = res;
289 env->cc_tmp = (eflags & ~(CC_C | CC_O)) |
290 (lshift(src ^ t0, 11 - (DATA_BITS - 1)) & CC_O) |
291 ((src >> (DATA_BITS - count)) & CC_C);
292 } else {
293 env->cc_tmp = -1;
294 }
295 return t0;
296 }
297
298 target_ulong glue(helper_rcr, SUFFIX)(target_ulong t0, target_ulong t1)
299 {
300 int count, eflags;
301 target_ulong src;
302 target_long res;
303
304 count = t1 & SHIFT1_MASK;
305 #if DATA_BITS == 16
306 count = rclw_table[count];
307 #elif DATA_BITS == 8
308 count = rclb_table[count];
309 #endif
310 if (count) {
311 eflags = helper_cc_compute_all(CC_OP);
312 t0 &= DATA_MASK;
313 src = t0;
314 res = (t0 >> count) | ((target_ulong)(eflags & CC_C) << (DATA_BITS - count));
315 if (count > 1)
316 res |= t0 << (DATA_BITS + 1 - count);
317 t0 = res;
318 env->cc_tmp = (eflags & ~(CC_C | CC_O)) |
319 (lshift(src ^ t0, 11 - (DATA_BITS - 1)) & CC_O) |
320 ((src >> (count - 1)) & CC_C);
321 } else {
322 env->cc_tmp = -1;
323 }
324 return t0;
325 }
326
327 #undef DATA_BITS
328 #undef SHIFT_MASK
329 #undef SHIFT1_MASK
330 #undef SIGN_MASK
331 #undef DATA_TYPE
332 #undef DATA_STYPE
333 #undef DATA_MASK
334 #undef SUFFIX