]> git.proxmox.com Git - qemu.git/blame - target-i386/ops_template.h
projects / qemu.git / blame
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | blame (incremental) | history | HEAD
correct zero segment values when coming from VM86 mode - cache infos in CPUID - simpl...
[qemu.git] / target-i386 / ops_template.h
CommitLineData
2c0262af
FB		 1/*
2 * i386 micro operations (included several times to generate
3 * different operand sizes)
4 *
5 * Copyright (c) 2003 Fabrice Bellard
6 *
7 * This library is free software; you can redistribute it and/or
8 * modify it under the terms of the GNU Lesser General Public
9 * License as published by the Free Software Foundation; either
10 * version 2 of the License, or (at your option) any later version.
11 *
12 * This library is distributed in the hope that it will be useful,
13 * but WITHOUT ANY WARRANTY; without even the implied warranty of
14 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
15 * Lesser General Public License for more details.
16 *
17 * You should have received a copy of the GNU Lesser General Public
18 * License along with this library; if not, write to the Free Software
19 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
20 */
21#define DATA_BITS (1 << (3 + SHIFT))
22#define SHIFT_MASK (DATA_BITS - 1)
23#define SIGN_MASK (1 << (DATA_BITS - 1))
24
25#if DATA_BITS == 8
26#define SUFFIX b
27#define DATA_TYPE uint8_t
28#define DATA_STYPE int8_t
29#define DATA_MASK 0xff
30#elif DATA_BITS == 16
31#define SUFFIX w
32#define DATA_TYPE uint16_t
33#define DATA_STYPE int16_t
34#define DATA_MASK 0xffff
35#elif DATA_BITS == 32
36#define SUFFIX l
37#define DATA_TYPE uint32_t
38#define DATA_STYPE int32_t
39#define DATA_MASK 0xffffffff
40#else
41#error unhandled operand size
42#endif
43
44/* dynamic flags computation */
45
46static int glue(compute_all_add, SUFFIX)(void)
47{
48 int cf, pf, af, zf, sf, of;
49 int src1, src2;
50 src1 = CC_SRC;
51 src2 = CC_DST - CC_SRC;
52 cf = (DATA_TYPE)CC_DST < (DATA_TYPE)src1;
53 pf = parity_table[(uint8_t)CC_DST];
54 af = (CC_DST ^ src1 ^ src2) & 0x10;
55 zf = ((DATA_TYPE)CC_DST == 0) << 6;
56 sf = lshift(CC_DST, 8 - DATA_BITS) & 0x80;
57 of = lshift((src1 ^ src2 ^ -1) & (src1 ^ CC_DST), 12 - DATA_BITS) & CC_O;
58 return cf | pf | af | zf | sf | of;
59}
60
61static int glue(compute_c_add, SUFFIX)(void)
62{
63 int src1, cf;
64 src1 = CC_SRC;
65 cf = (DATA_TYPE)CC_DST < (DATA_TYPE)src1;
66 return cf;
67}
68
69static int glue(compute_all_adc, SUFFIX)(void)
70{
71 int cf, pf, af, zf, sf, of;
72 int src1, src2;
73 src1 = CC_SRC;
74 src2 = CC_DST - CC_SRC - 1;
75 cf = (DATA_TYPE)CC_DST <= (DATA_TYPE)src1;
76 pf = parity_table[(uint8_t)CC_DST];
77 af = (CC_DST ^ src1 ^ src2) & 0x10;
78 zf = ((DATA_TYPE)CC_DST == 0) << 6;
79 sf = lshift(CC_DST, 8 - DATA_BITS) & 0x80;
80 of = lshift((src1 ^ src2 ^ -1) & (src1 ^ CC_DST), 12 - DATA_BITS) & CC_O;
81 return cf | pf | af | zf | sf | of;
82}
83
84static int glue(compute_c_adc, SUFFIX)(void)
85{
86 int src1, cf;
87 src1 = CC_SRC;
88 cf = (DATA_TYPE)CC_DST <= (DATA_TYPE)src1;
89 return cf;
90}
91
92static int glue(compute_all_sub, SUFFIX)(void)
93{
94 int cf, pf, af, zf, sf, of;
95 int src1, src2;
96 src1 = CC_DST + CC_SRC;
97 src2 = CC_SRC;
98 cf = (DATA_TYPE)src1 < (DATA_TYPE)src2;
99 pf = parity_table[(uint8_t)CC_DST];
100 af = (CC_DST ^ src1 ^ src2) & 0x10;
101 zf = ((DATA_TYPE)CC_DST == 0) << 6;
102 sf = lshift(CC_DST, 8 - DATA_BITS) & 0x80;
103 of = lshift((src1 ^ src2) & (src1 ^ CC_DST), 12 - DATA_BITS) & CC_O;
104 return cf | pf | af | zf | sf | of;
105}
106
107static int glue(compute_c_sub, SUFFIX)(void)
108{
109 int src1, src2, cf;
110 src1 = CC_DST + CC_SRC;
111 src2 = CC_SRC;
112 cf = (DATA_TYPE)src1 < (DATA_TYPE)src2;
113 return cf;
114}
115
116static int glue(compute_all_sbb, SUFFIX)(void)
117{
118 int cf, pf, af, zf, sf, of;
119 int src1, src2;
120 src1 = CC_DST + CC_SRC + 1;
121 src2 = CC_SRC;
122 cf = (DATA_TYPE)src1 <= (DATA_TYPE)src2;
123 pf = parity_table[(uint8_t)CC_DST];
124 af = (CC_DST ^ src1 ^ src2) & 0x10;
125 zf = ((DATA_TYPE)CC_DST == 0) << 6;
126 sf = lshift(CC_DST, 8 - DATA_BITS) & 0x80;
127 of = lshift((src1 ^ src2) & (src1 ^ CC_DST), 12 - DATA_BITS) & CC_O;
128 return cf | pf | af | zf | sf | of;
129}
130
131static int glue(compute_c_sbb, SUFFIX)(void)
132{
133 int src1, src2, cf;
134 src1 = CC_DST + CC_SRC + 1;
135 src2 = CC_SRC;
136 cf = (DATA_TYPE)src1 <= (DATA_TYPE)src2;
137 return cf;
138}
139
140static int glue(compute_all_logic, SUFFIX)(void)
141{
142 int cf, pf, af, zf, sf, of;
143 cf = 0;
144 pf = parity_table[(uint8_t)CC_DST];
145 af = 0;
146 zf = ((DATA_TYPE)CC_DST == 0) << 6;
147 sf = lshift(CC_DST, 8 - DATA_BITS) & 0x80;
148 of = 0;
149 return cf | pf | af | zf | sf | of;
150}
151
152static int glue(compute_c_logic, SUFFIX)(void)
153{
154 return 0;
155}
156
157static int glue(compute_all_inc, SUFFIX)(void)
158{
159 int cf, pf, af, zf, sf, of;
160 int src1, src2;
161 src1 = CC_DST - 1;
162 src2 = 1;
163 cf = CC_SRC;
164 pf = parity_table[(uint8_t)CC_DST];
165 af = (CC_DST ^ src1 ^ src2) & 0x10;
166 zf = ((DATA_TYPE)CC_DST == 0) << 6;
167 sf = lshift(CC_DST, 8 - DATA_BITS) & 0x80;
168 of = ((CC_DST & DATA_MASK) == SIGN_MASK) << 11;
169 return cf | pf | af | zf | sf | of;
170}
171
172#if DATA_BITS == 32
173static int glue(compute_c_inc, SUFFIX)(void)
174{
175 return CC_SRC;
176}
177#endif
178
179static int glue(compute_all_dec, SUFFIX)(void)
180{
181 int cf, pf, af, zf, sf, of;
182 int src1, src2;
183 src1 = CC_DST + 1;
184 src2 = 1;
185 cf = CC_SRC;
186 pf = parity_table[(uint8_t)CC_DST];
187 af = (CC_DST ^ src1 ^ src2) & 0x10;
188 zf = ((DATA_TYPE)CC_DST == 0) << 6;
189 sf = lshift(CC_DST, 8 - DATA_BITS) & 0x80;
190 of = ((CC_DST & DATA_MASK) == ((uint32_t)SIGN_MASK - 1)) << 11;
191 return cf | pf | af | zf | sf | of;
192}
193
194static int glue(compute_all_shl, SUFFIX)(void)
195{
196 int cf, pf, af, zf, sf, of;
197 cf = (CC_SRC >> (DATA_BITS - 1)) & CC_C;
198 pf = parity_table[(uint8_t)CC_DST];
199 af = 0; /* undefined */
200 zf = ((DATA_TYPE)CC_DST == 0) << 6;
201 sf = lshift(CC_DST, 8 - DATA_BITS) & 0x80;
202 /* of is defined if shift count == 1 */
203 of = lshift(CC_SRC ^ CC_DST, 12 - DATA_BITS) & CC_O;
204 return cf | pf | af | zf | sf | of;
205}
206
207static int glue(compute_c_shl, SUFFIX)(void)
208{
209 return (CC_SRC >> (DATA_BITS - 1)) & CC_C;
210}
211
212#if DATA_BITS == 32
213static int glue(compute_c_sar, SUFFIX)(void)
214{
215 return CC_SRC & 1;
216}
217#endif
218
219static int glue(compute_all_sar, SUFFIX)(void)
220{
221 int cf, pf, af, zf, sf, of;
222 cf = CC_SRC & 1;
223 pf = parity_table[(uint8_t)CC_DST];
224 af = 0; /* undefined */
225 zf = ((DATA_TYPE)CC_DST == 0) << 6;
226 sf = lshift(CC_DST, 8 - DATA_BITS) & 0x80;
227 /* of is defined if shift count == 1 */
228 of = lshift(CC_SRC ^ CC_DST, 12 - DATA_BITS) & CC_O;
229 return cf | pf | af | zf | sf | of;
230}
231
d36cd60e
FB		 232#if DATA_BITS == 32
233static int glue(compute_c_mul, SUFFIX)(void)
234{
235 int cf;
236 cf = (CC_SRC != 0);
237 return cf;
238}
239#endif
240
241/* NOTE: we compute the flags like the P4. On olders CPUs, only OF and
242 CF are modified and it is slower to do that. */
243static int glue(compute_all_mul, SUFFIX)(void)
244{
245 int cf, pf, af, zf, sf, of;
246 cf = (CC_SRC != 0);
247 pf = parity_table[(uint8_t)CC_DST];
248 af = 0; /* undefined */
249 zf = ((DATA_TYPE)CC_DST == 0) << 6;
250 sf = lshift(CC_DST, 8 - DATA_BITS) & 0x80;
251 of = cf << 11;
252 return cf | pf | af | zf | sf | of;
253}
254
2c0262af
FB		 255/* various optimized jumps cases */
256
257void OPPROTO glue(op_jb_sub, SUFFIX)(void)
258{
259 int src1, src2;
260 src1 = CC_DST + CC_SRC;
261 src2 = CC_SRC;
262
263 if ((DATA_TYPE)src1 < (DATA_TYPE)src2)
264 JUMP_TB(glue(op_jb_sub, SUFFIX), PARAM1, 0, PARAM2);
265 else
266 JUMP_TB(glue(op_jb_sub, SUFFIX), PARAM1, 1, PARAM3);
267 FORCE_RET();
268}
269
270void OPPROTO glue(op_jz_sub, SUFFIX)(void)
271{
272 if ((DATA_TYPE)CC_DST == 0)
273 JUMP_TB(glue(op_jz_sub, SUFFIX), PARAM1, 0, PARAM2);
274 else
275 JUMP_TB(glue(op_jz_sub, SUFFIX), PARAM1, 1, PARAM3);
276 FORCE_RET();
277}
278
279void OPPROTO glue(op_jbe_sub, SUFFIX)(void)
280{
281 int src1, src2;
282 src1 = CC_DST + CC_SRC;
283 src2 = CC_SRC;
284
285 if ((DATA_TYPE)src1 <= (DATA_TYPE)src2)
286 JUMP_TB(glue(op_jbe_sub, SUFFIX), PARAM1, 0, PARAM2);
287 else
288 JUMP_TB(glue(op_jbe_sub, SUFFIX), PARAM1, 1, PARAM3);
289 FORCE_RET();
290}
291
292void OPPROTO glue(op_js_sub, SUFFIX)(void)
293{
294 if (CC_DST & SIGN_MASK)
295 JUMP_TB(glue(op_js_sub, SUFFIX), PARAM1, 0, PARAM2);
296 else
297 JUMP_TB(glue(op_js_sub, SUFFIX), PARAM1, 1, PARAM3);
298 FORCE_RET();
299}
300
301void OPPROTO glue(op_jl_sub, SUFFIX)(void)
302{
303 int src1, src2;
304 src1 = CC_DST + CC_SRC;
305 src2 = CC_SRC;
306
307 if ((DATA_STYPE)src1 < (DATA_STYPE)src2)
308 JUMP_TB(glue(op_jl_sub, SUFFIX), PARAM1, 0, PARAM2);
309 else
310 JUMP_TB(glue(op_jl_sub, SUFFIX), PARAM1, 1, PARAM3);
311 FORCE_RET();
312}
313
314void OPPROTO glue(op_jle_sub, SUFFIX)(void)
315{
316 int src1, src2;
317 src1 = CC_DST + CC_SRC;
318 src2 = CC_SRC;
319
320 if ((DATA_STYPE)src1 <= (DATA_STYPE)src2)
321 JUMP_TB(glue(op_jle_sub, SUFFIX), PARAM1, 0, PARAM2);
322 else
323 JUMP_TB(glue(op_jle_sub, SUFFIX), PARAM1, 1, PARAM3);
324 FORCE_RET();
325}
326
327/* oldies */
328
329#if DATA_BITS >= 16
330
331void OPPROTO glue(op_loopnz, SUFFIX)(void)
332{
333 unsigned int tmp;
334 int eflags;
335 eflags = cc_table[CC_OP].compute_all();
336 tmp = (ECX - 1) & DATA_MASK;
337 ECX = (ECX & ~DATA_MASK) | tmp;
338 if (tmp != 0 && !(eflags & CC_Z))
339 EIP = PARAM1;
340 else
341 EIP = PARAM2;
342 FORCE_RET();
343}
344
345void OPPROTO glue(op_loopz, SUFFIX)(void)
346{
347 unsigned int tmp;
348 int eflags;
349 eflags = cc_table[CC_OP].compute_all();
350 tmp = (ECX - 1) & DATA_MASK;
351 ECX = (ECX & ~DATA_MASK) | tmp;
352 if (tmp != 0 && (eflags & CC_Z))
353 EIP = PARAM1;
354 else
355 EIP = PARAM2;
356 FORCE_RET();
357}
358
359void OPPROTO glue(op_loop, SUFFIX)(void)
360{
361 unsigned int tmp;
362 tmp = (ECX - 1) & DATA_MASK;
363 ECX = (ECX & ~DATA_MASK) | tmp;
364 if (tmp != 0)
365 EIP = PARAM1;
366 else
367 EIP = PARAM2;
368 FORCE_RET();
369}
370
371void OPPROTO glue(op_jecxz, SUFFIX)(void)
372{
373 if ((DATA_TYPE)ECX == 0)
374 EIP = PARAM1;
375 else
376 EIP = PARAM2;
377 FORCE_RET();
378}
379
380#endif
381
382/* various optimized set cases */
383
384void OPPROTO glue(op_setb_T0_sub, SUFFIX)(void)
385{
386 int src1, src2;
387 src1 = CC_DST + CC_SRC;
388 src2 = CC_SRC;
389
390 T0 = ((DATA_TYPE)src1 < (DATA_TYPE)src2);
391}
392
393void OPPROTO glue(op_setz_T0_sub, SUFFIX)(void)
394{
395 T0 = ((DATA_TYPE)CC_DST == 0);
396}
397
398void OPPROTO glue(op_setbe_T0_sub, SUFFIX)(void)
399{
400 int src1, src2;
401 src1 = CC_DST + CC_SRC;
402 src2 = CC_SRC;
403
404 T0 = ((DATA_TYPE)src1 <= (DATA_TYPE)src2);
405}
406
407void OPPROTO glue(op_sets_T0_sub, SUFFIX)(void)
408{
409 T0 = lshift(CC_DST, -(DATA_BITS - 1)) & 1;
410}
411
412void OPPROTO glue(op_setl_T0_sub, SUFFIX)(void)
413{
414 int src1, src2;
415 src1 = CC_DST + CC_SRC;
416 src2 = CC_SRC;
417
418 T0 = ((DATA_STYPE)src1 < (DATA_STYPE)src2);
419}
420
421void OPPROTO glue(op_setle_T0_sub, SUFFIX)(void)
422{
423 int src1, src2;
424 src1 = CC_DST + CC_SRC;
425 src2 = CC_SRC;
426
427 T0 = ((DATA_STYPE)src1 <= (DATA_STYPE)src2);
428}
429
430/* shifts */
431
432void OPPROTO glue(glue(op_shl, SUFFIX), _T0_T1)(void)
433{
434 int count;
435 count = T1 & 0x1f;
436 T0 = T0 << count;
437 FORCE_RET();
438}
439
440void OPPROTO glue(glue(op_shr, SUFFIX), _T0_T1)(void)
441{
442 int count;
443 count = T1 & 0x1f;
444 T0 &= DATA_MASK;
445 T0 = T0 >> count;
446 FORCE_RET();
447}
448
449void OPPROTO glue(glue(op_sar, SUFFIX), _T0_T1)(void)
450{
451 int count, src;
452 count = T1 & 0x1f;
453 src = (DATA_STYPE)T0;
454 T0 = src >> count;
455 FORCE_RET();
456}
457
458#undef MEM_WRITE
459#include "ops_template_mem.h"
460
461#define MEM_WRITE
462#include "ops_template_mem.h"
463
464/* bit operations */
465#if DATA_BITS >= 16
466
467void OPPROTO glue(glue(op_bt, SUFFIX), _T0_T1_cc)(void)
468{
469 int count;
470 count = T1 & SHIFT_MASK;
471 CC_SRC = T0 >> count;
472}
473
474void OPPROTO glue(glue(op_bts, SUFFIX), _T0_T1_cc)(void)
475{
476 int count;
477 count = T1 & SHIFT_MASK;
478 T1 = T0 >> count;
479 T0 |= (1 << count);
480}
481
482void OPPROTO glue(glue(op_btr, SUFFIX), _T0_T1_cc)(void)
483{
484 int count;
485 count = T1 & SHIFT_MASK;
486 T1 = T0 >> count;
487 T0 &= ~(1 << count);
488}
489
490void OPPROTO glue(glue(op_btc, SUFFIX), _T0_T1_cc)(void)
491{
492 int count;
493 count = T1 & SHIFT_MASK;
494 T1 = T0 >> count;
495 T0 ^= (1 << count);
496}
497
498void OPPROTO glue(glue(op_bsf, SUFFIX), _T0_cc)(void)
499{
500 int res, count;
501 res = T0 & DATA_MASK;
502 if (res != 0) {
503 count = 0;
504 while ((res & 1) == 0) {
505 count++;
506 res >>= 1;
507 }
508 T0 = count;
509 CC_DST = 1; /* ZF = 1 */
510 } else {
511 CC_DST = 0; /* ZF = 1 */
512 }
513 FORCE_RET();
514}
515
516void OPPROTO glue(glue(op_bsr, SUFFIX), _T0_cc)(void)
517{
518 int res, count;
519 res = T0 & DATA_MASK;
520 if (res != 0) {
521 count = DATA_BITS - 1;
522 while ((res & SIGN_MASK) == 0) {
523 count--;
524 res <<= 1;
525 }
526 T0 = count;
527 CC_DST = 1; /* ZF = 1 */
528 } else {
529 CC_DST = 0; /* ZF = 1 */
530 }
531 FORCE_RET();
532}
533
534#endif
535
536#if DATA_BITS == 32
537void OPPROTO op_update_bt_cc(void)
538{
539 CC_SRC = T1;
540}
541#endif
542
543/* string operations */
544
545void OPPROTO glue(op_movl_T0_Dshift, SUFFIX)(void)
546{
547 T0 = DF << SHIFT;
548}
549
550void OPPROTO glue(op_string_jz_sub, SUFFIX)(void)
551{
552 if ((DATA_TYPE)CC_DST == 0)
553 JUMP_TB2(glue(op_string_jz_sub, SUFFIX), PARAM1, 1);
554 FORCE_RET();
555}
556
557void OPPROTO glue(op_string_jnz_sub, SUFFIX)(void)
558{
559 if ((DATA_TYPE)CC_DST != 0)
560 JUMP_TB2(glue(op_string_jnz_sub, SUFFIX), PARAM1, 1);
561 FORCE_RET();
562}
563
564void OPPROTO glue(glue(op_string_jz_sub, SUFFIX), _im)(void)
565{
566 if ((DATA_TYPE)CC_DST == 0) {
567 EIP = PARAM1;
568 if (env->eflags & TF_MASK) {
569 raise_exception(EXCP01_SSTP);
570 }
571 T0 = 0;
572 EXIT_TB();
573 }
574 FORCE_RET();
575}
576
577void OPPROTO glue(glue(op_string_jnz_sub, SUFFIX), _im)(void)
578{
579 if ((DATA_TYPE)CC_DST != 0) {
580 EIP = PARAM1;
581 if (env->eflags & TF_MASK) {
582 raise_exception(EXCP01_SSTP);
583 }
584 T0 = 0;
585 EXIT_TB();
586 }
587 FORCE_RET();
588}
589
590#if DATA_BITS >= 16
591void OPPROTO glue(op_jz_ecx, SUFFIX)(void)
592{
593 if ((DATA_TYPE)ECX == 0)
594 JUMP_TB(glue(op_jz_ecx, SUFFIX), PARAM1, 1, PARAM2);
595 FORCE_RET();
596}
597
598void OPPROTO glue(glue(op_jz_ecx, SUFFIX), _im)(void)
599{
600 if ((DATA_TYPE)ECX == 0) {
601 EIP = PARAM1;
602 if (env->eflags & TF_MASK) {
603 raise_exception(EXCP01_SSTP);
604 }
605 T0 = 0;
606 EXIT_TB();
607 }
608 FORCE_RET();
609}
610#endif
611
612/* port I/O */
613
614void OPPROTO glue(glue(op_out, SUFFIX), _T0_T1)(void)
615{
616 glue(cpu_x86_out, SUFFIX)(env, T0 & 0xffff, T1 & DATA_MASK);
617}
618
619void OPPROTO glue(glue(op_in, SUFFIX), _T0_T1)(void)
620{
621 T1 = glue(cpu_x86_in, SUFFIX)(env, T0 & 0xffff);
622}
623
624void OPPROTO glue(glue(op_in, SUFFIX), _DX_T0)(void)
625{
626 T0 = glue(cpu_x86_in, SUFFIX)(env, EDX & 0xffff);
627}
628
629void OPPROTO glue(glue(op_out, SUFFIX), _DX_T0)(void)
630{
631 glue(cpu_x86_out, SUFFIX)(env, EDX & 0xffff, T0);
632}
633
3e25f951
FB		 634void OPPROTO glue(glue(op_check_io, SUFFIX), _T0)(void)
635{
636 glue(glue(check_io, SUFFIX), _T0)();
637}
638
639void OPPROTO glue(glue(op_check_io, SUFFIX), _DX)(void)
640{
641 glue(glue(check_io, SUFFIX), _DX)();
642}
643
2c0262af
FB		 644#undef DATA_BITS
645#undef SHIFT_MASK
646#undef SIGN_MASK
647#undef DATA_TYPE
648#undef DATA_STYPE
649#undef DATA_MASK
650#undef SUFFIX
Qemu copy for testing