added overflow exceptions in divisions
[qemu/mini2440.git] / target-i386 / op.c
blob142b66263590b929cdca22360a229ebd66a1e268
1 /*
2 * i386 micro operations
3 *
4 * Copyright (c) 2003 Fabrice Bellard
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.
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.
16 * You should have received a copy of the GNU Lesser General Public
17 * License along with this library; if not, write to the Free Software
18 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
21 #define ASM_SOFTMMU
22 #include "exec.h"
24 /* n must be a constant to be efficient */
25 static inline target_long lshift(target_long x, int n)
27 if (n >= 0)
28 return x << n;
29 else
30 return x >> (-n);
33 /* we define the various pieces of code used by the JIT */
35 #define REG EAX
36 #define REGNAME _EAX
37 #include "opreg_template.h"
38 #undef REG
39 #undef REGNAME
41 #define REG ECX
42 #define REGNAME _ECX
43 #include "opreg_template.h"
44 #undef REG
45 #undef REGNAME
47 #define REG EDX
48 #define REGNAME _EDX
49 #include "opreg_template.h"
50 #undef REG
51 #undef REGNAME
53 #define REG EBX
54 #define REGNAME _EBX
55 #include "opreg_template.h"
56 #undef REG
57 #undef REGNAME
59 #define REG ESP
60 #define REGNAME _ESP
61 #include "opreg_template.h"
62 #undef REG
63 #undef REGNAME
65 #define REG EBP
66 #define REGNAME _EBP
67 #include "opreg_template.h"
68 #undef REG
69 #undef REGNAME
71 #define REG ESI
72 #define REGNAME _ESI
73 #include "opreg_template.h"
74 #undef REG
75 #undef REGNAME
77 #define REG EDI
78 #define REGNAME _EDI
79 #include "opreg_template.h"
80 #undef REG
81 #undef REGNAME
83 #ifdef TARGET_X86_64
85 #define REG (env->regs[8])
86 #define REGNAME _R8
87 #include "opreg_template.h"
88 #undef REG
89 #undef REGNAME
91 #define REG (env->regs[9])
92 #define REGNAME _R9
93 #include "opreg_template.h"
94 #undef REG
95 #undef REGNAME
97 #define REG (env->regs[10])
98 #define REGNAME _R10
99 #include "opreg_template.h"
100 #undef REG
101 #undef REGNAME
103 #define REG (env->regs[11])
104 #define REGNAME _R11
105 #include "opreg_template.h"
106 #undef REG
107 #undef REGNAME
109 #define REG (env->regs[12])
110 #define REGNAME _R12
111 #include "opreg_template.h"
112 #undef REG
113 #undef REGNAME
115 #define REG (env->regs[13])
116 #define REGNAME _R13
117 #include "opreg_template.h"
118 #undef REG
119 #undef REGNAME
121 #define REG (env->regs[14])
122 #define REGNAME _R14
123 #include "opreg_template.h"
124 #undef REG
125 #undef REGNAME
127 #define REG (env->regs[15])
128 #define REGNAME _R15
129 #include "opreg_template.h"
130 #undef REG
131 #undef REGNAME
133 #endif
135 /* operations with flags */
137 /* update flags with T0 and T1 (add/sub case) */
138 void OPPROTO op_update2_cc(void)
140 CC_SRC = T1;
141 CC_DST = T0;
144 /* update flags with T0 (logic operation case) */
145 void OPPROTO op_update1_cc(void)
147 CC_DST = T0;
150 void OPPROTO op_update_neg_cc(void)
152 CC_SRC = -T0;
153 CC_DST = T0;
156 void OPPROTO op_cmpl_T0_T1_cc(void)
158 CC_SRC = T1;
159 CC_DST = T0 - T1;
162 void OPPROTO op_update_inc_cc(void)
164 CC_SRC = cc_table[CC_OP].compute_c();
165 CC_DST = T0;
168 void OPPROTO op_testl_T0_T1_cc(void)
170 CC_DST = T0 & T1;
173 /* operations without flags */
175 void OPPROTO op_addl_T0_T1(void)
177 T0 += T1;
180 void OPPROTO op_orl_T0_T1(void)
182 T0 |= T1;
185 void OPPROTO op_andl_T0_T1(void)
187 T0 &= T1;
190 void OPPROTO op_subl_T0_T1(void)
192 T0 -= T1;
195 void OPPROTO op_xorl_T0_T1(void)
197 T0 ^= T1;
200 void OPPROTO op_negl_T0(void)
202 T0 = -T0;
205 void OPPROTO op_incl_T0(void)
207 T0++;
210 void OPPROTO op_decl_T0(void)
212 T0--;
215 void OPPROTO op_notl_T0(void)
217 T0 = ~T0;
220 void OPPROTO op_bswapl_T0(void)
222 T0 = bswap32(T0);
225 #ifdef TARGET_X86_64
226 void OPPROTO op_bswapq_T0(void)
228 T0 = bswap64(T0);
230 #endif
232 /* multiply/divide */
234 /* XXX: add eflags optimizations */
235 /* XXX: add non P4 style flags */
237 void OPPROTO op_mulb_AL_T0(void)
239 unsigned int res;
240 res = (uint8_t)EAX * (uint8_t)T0;
241 EAX = (EAX & ~0xffff) | res;
242 CC_DST = res;
243 CC_SRC = (res & 0xff00);
246 void OPPROTO op_imulb_AL_T0(void)
248 int res;
249 res = (int8_t)EAX * (int8_t)T0;
250 EAX = (EAX & ~0xffff) | (res & 0xffff);
251 CC_DST = res;
252 CC_SRC = (res != (int8_t)res);
255 void OPPROTO op_mulw_AX_T0(void)
257 unsigned int res;
258 res = (uint16_t)EAX * (uint16_t)T0;
259 EAX = (EAX & ~0xffff) | (res & 0xffff);
260 EDX = (EDX & ~0xffff) | ((res >> 16) & 0xffff);
261 CC_DST = res;
262 CC_SRC = res >> 16;
265 void OPPROTO op_imulw_AX_T0(void)
267 int res;
268 res = (int16_t)EAX * (int16_t)T0;
269 EAX = (EAX & ~0xffff) | (res & 0xffff);
270 EDX = (EDX & ~0xffff) | ((res >> 16) & 0xffff);
271 CC_DST = res;
272 CC_SRC = (res != (int16_t)res);
275 void OPPROTO op_mull_EAX_T0(void)
277 uint64_t res;
278 res = (uint64_t)((uint32_t)EAX) * (uint64_t)((uint32_t)T0);
279 EAX = (uint32_t)res;
280 EDX = (uint32_t)(res >> 32);
281 CC_DST = (uint32_t)res;
282 CC_SRC = (uint32_t)(res >> 32);
285 void OPPROTO op_imull_EAX_T0(void)
287 int64_t res;
288 res = (int64_t)((int32_t)EAX) * (int64_t)((int32_t)T0);
289 EAX = (uint32_t)(res);
290 EDX = (uint32_t)(res >> 32);
291 CC_DST = res;
292 CC_SRC = (res != (int32_t)res);
295 void OPPROTO op_imulw_T0_T1(void)
297 int res;
298 res = (int16_t)T0 * (int16_t)T1;
299 T0 = res;
300 CC_DST = res;
301 CC_SRC = (res != (int16_t)res);
304 void OPPROTO op_imull_T0_T1(void)
306 int64_t res;
307 res = (int64_t)((int32_t)T0) * (int64_t)((int32_t)T1);
308 T0 = res;
309 CC_DST = res;
310 CC_SRC = (res != (int32_t)res);
313 #ifdef TARGET_X86_64
314 void OPPROTO op_mulq_EAX_T0(void)
316 helper_mulq_EAX_T0();
319 void OPPROTO op_imulq_EAX_T0(void)
321 helper_imulq_EAX_T0();
324 void OPPROTO op_imulq_T0_T1(void)
326 helper_imulq_T0_T1();
328 #endif
330 /* division, flags are undefined */
332 void OPPROTO op_divb_AL_T0(void)
334 unsigned int num, den, q, r;
336 num = (EAX & 0xffff);
337 den = (T0 & 0xff);
338 if (den == 0) {
339 raise_exception(EXCP00_DIVZ);
341 q = (num / den);
342 if (q > 0xff)
343 raise_exception(EXCP00_DIVZ);
344 q &= 0xff;
345 r = (num % den) & 0xff;
346 EAX = (EAX & ~0xffff) | (r << 8) | q;
349 void OPPROTO op_idivb_AL_T0(void)
351 int num, den, q, r;
353 num = (int16_t)EAX;
354 den = (int8_t)T0;
355 if (den == 0) {
356 raise_exception(EXCP00_DIVZ);
358 q = (num / den);
359 if (q != (int8_t)q)
360 raise_exception(EXCP00_DIVZ);
361 q &= 0xff;
362 r = (num % den) & 0xff;
363 EAX = (EAX & ~0xffff) | (r << 8) | q;
366 void OPPROTO op_divw_AX_T0(void)
368 unsigned int num, den, q, r;
370 num = (EAX & 0xffff) | ((EDX & 0xffff) << 16);
371 den = (T0 & 0xffff);
372 if (den == 0) {
373 raise_exception(EXCP00_DIVZ);
375 q = (num / den);
376 if (q > 0xffff)
377 raise_exception(EXCP00_DIVZ);
378 q &= 0xffff;
379 r = (num % den) & 0xffff;
380 EAX = (EAX & ~0xffff) | q;
381 EDX = (EDX & ~0xffff) | r;
384 void OPPROTO op_idivw_AX_T0(void)
386 int num, den, q, r;
388 num = (EAX & 0xffff) | ((EDX & 0xffff) << 16);
389 den = (int16_t)T0;
390 if (den == 0) {
391 raise_exception(EXCP00_DIVZ);
393 q = (num / den);
394 if (q != (int16_t)q)
395 raise_exception(EXCP00_DIVZ);
396 q &= 0xffff;
397 r = (num % den) & 0xffff;
398 EAX = (EAX & ~0xffff) | q;
399 EDX = (EDX & ~0xffff) | r;
402 void OPPROTO op_divl_EAX_T0(void)
404 helper_divl_EAX_T0();
407 void OPPROTO op_idivl_EAX_T0(void)
409 helper_idivl_EAX_T0();
412 #ifdef TARGET_X86_64
413 void OPPROTO op_divq_EAX_T0(void)
415 helper_divq_EAX_T0();
418 void OPPROTO op_idivq_EAX_T0(void)
420 helper_idivq_EAX_T0();
422 #endif
424 /* constant load & misc op */
426 /* XXX: consistent names */
427 void OPPROTO op_movl_T0_imu(void)
429 T0 = (uint32_t)PARAM1;
432 void OPPROTO op_movl_T0_im(void)
434 T0 = (int32_t)PARAM1;
437 void OPPROTO op_addl_T0_im(void)
439 T0 += PARAM1;
442 void OPPROTO op_andl_T0_ffff(void)
444 T0 = T0 & 0xffff;
447 void OPPROTO op_andl_T0_im(void)
449 T0 = T0 & PARAM1;
452 void OPPROTO op_movl_T0_T1(void)
454 T0 = T1;
457 void OPPROTO op_movl_T1_imu(void)
459 T1 = (uint32_t)PARAM1;
462 void OPPROTO op_movl_T1_im(void)
464 T1 = (int32_t)PARAM1;
467 void OPPROTO op_addl_T1_im(void)
469 T1 += PARAM1;
472 void OPPROTO op_movl_T1_A0(void)
474 T1 = A0;
477 void OPPROTO op_movl_A0_im(void)
479 A0 = (uint32_t)PARAM1;
482 void OPPROTO op_addl_A0_im(void)
484 A0 = (uint32_t)(A0 + PARAM1);
487 void OPPROTO op_movl_A0_seg(void)
489 A0 = (uint32_t)*(target_ulong *)((char *)env + PARAM1);
492 void OPPROTO op_addl_A0_seg(void)
494 A0 = (uint32_t)(A0 + *(target_ulong *)((char *)env + PARAM1));
497 void OPPROTO op_addl_A0_AL(void)
499 A0 = (uint32_t)(A0 + (EAX & 0xff));
502 #ifdef WORDS_BIGENDIAN
503 typedef union UREG64 {
504 struct { uint16_t v3, v2, v1, v0; } w;
505 struct { uint32_t v1, v0; } l;
506 uint64_t q;
507 } UREG64;
508 #else
509 typedef union UREG64 {
510 struct { uint16_t v0, v1, v2, v3; } w;
511 struct { uint32_t v0, v1; } l;
512 uint64_t q;
513 } UREG64;
514 #endif
516 #ifdef TARGET_X86_64
518 #define PARAMQ1 \
520 UREG64 __p;\
521 __p.l.v1 = PARAM1;\
522 __p.l.v0 = PARAM2;\
523 __p.q;\
526 void OPPROTO op_movq_T0_im64(void)
528 T0 = PARAMQ1;
531 void OPPROTO op_movq_T1_im64(void)
533 T1 = PARAMQ1;
536 void OPPROTO op_movq_A0_im(void)
538 A0 = (int32_t)PARAM1;
541 void OPPROTO op_movq_A0_im64(void)
543 A0 = PARAMQ1;
546 void OPPROTO op_addq_A0_im(void)
548 A0 = (A0 + (int32_t)PARAM1);
551 void OPPROTO op_addq_A0_im64(void)
553 A0 = (A0 + PARAMQ1);
556 void OPPROTO op_movq_A0_seg(void)
558 A0 = *(target_ulong *)((char *)env + PARAM1);
561 void OPPROTO op_addq_A0_seg(void)
563 A0 += *(target_ulong *)((char *)env + PARAM1);
566 void OPPROTO op_addq_A0_AL(void)
568 A0 = (A0 + (EAX & 0xff));
571 #endif
573 void OPPROTO op_andl_A0_ffff(void)
575 A0 = A0 & 0xffff;
578 /* memory access */
580 #define MEMSUFFIX _raw
581 #include "ops_mem.h"
583 #if !defined(CONFIG_USER_ONLY)
584 #define MEMSUFFIX _kernel
585 #include "ops_mem.h"
587 #define MEMSUFFIX _user
588 #include "ops_mem.h"
589 #endif
591 /* indirect jump */
593 void OPPROTO op_jmp_T0(void)
595 EIP = T0;
598 void OPPROTO op_movl_eip_im(void)
600 EIP = (uint32_t)PARAM1;
603 #ifdef TARGET_X86_64
604 void OPPROTO op_movq_eip_im(void)
606 EIP = (int32_t)PARAM1;
609 void OPPROTO op_movq_eip_im64(void)
611 EIP = PARAMQ1;
613 #endif
615 void OPPROTO op_hlt(void)
617 env->hflags &= ~HF_INHIBIT_IRQ_MASK; /* needed if sti is just before */
618 env->exception_index = EXCP_HLT;
619 cpu_loop_exit();
622 void OPPROTO op_debug(void)
624 env->exception_index = EXCP_DEBUG;
625 cpu_loop_exit();
628 void OPPROTO op_raise_interrupt(void)
630 int intno, next_eip_addend;
631 intno = PARAM1;
632 next_eip_addend = PARAM2;
633 raise_interrupt(intno, 1, 0, next_eip_addend);
636 void OPPROTO op_raise_exception(void)
638 int exception_index;
639 exception_index = PARAM1;
640 raise_exception(exception_index);
643 void OPPROTO op_into(void)
645 int eflags;
646 eflags = cc_table[CC_OP].compute_all();
647 if (eflags & CC_O) {
648 raise_interrupt(EXCP04_INTO, 1, 0, PARAM1);
650 FORCE_RET();
653 void OPPROTO op_cli(void)
655 env->eflags &= ~IF_MASK;
658 void OPPROTO op_sti(void)
660 env->eflags |= IF_MASK;
663 void OPPROTO op_set_inhibit_irq(void)
665 env->hflags |= HF_INHIBIT_IRQ_MASK;
668 void OPPROTO op_reset_inhibit_irq(void)
670 env->hflags &= ~HF_INHIBIT_IRQ_MASK;
673 #if 0
674 /* vm86plus instructions */
675 void OPPROTO op_cli_vm(void)
677 env->eflags &= ~VIF_MASK;
680 void OPPROTO op_sti_vm(void)
682 env->eflags |= VIF_MASK;
683 if (env->eflags & VIP_MASK) {
684 EIP = PARAM1;
685 raise_exception(EXCP0D_GPF);
687 FORCE_RET();
689 #endif
691 void OPPROTO op_boundw(void)
693 int low, high, v;
694 low = ldsw(A0);
695 high = ldsw(A0 + 2);
696 v = (int16_t)T0;
697 if (v < low || v > high) {
698 raise_exception(EXCP05_BOUND);
700 FORCE_RET();
703 void OPPROTO op_boundl(void)
705 int low, high, v;
706 low = ldl(A0);
707 high = ldl(A0 + 4);
708 v = T0;
709 if (v < low || v > high) {
710 raise_exception(EXCP05_BOUND);
712 FORCE_RET();
715 void OPPROTO op_cmpxchg8b(void)
717 helper_cmpxchg8b();
720 void OPPROTO op_movl_T0_0(void)
722 T0 = 0;
725 void OPPROTO op_exit_tb(void)
727 EXIT_TB();
730 /* multiple size ops */
732 #define ldul ldl
734 #define SHIFT 0
735 #include "ops_template.h"
736 #undef SHIFT
738 #define SHIFT 1
739 #include "ops_template.h"
740 #undef SHIFT
742 #define SHIFT 2
743 #include "ops_template.h"
744 #undef SHIFT
746 #ifdef TARGET_X86_64
748 #define SHIFT 3
749 #include "ops_template.h"
750 #undef SHIFT
752 #endif
754 /* sign extend */
756 void OPPROTO op_movsbl_T0_T0(void)
758 T0 = (int8_t)T0;
761 void OPPROTO op_movzbl_T0_T0(void)
763 T0 = (uint8_t)T0;
766 void OPPROTO op_movswl_T0_T0(void)
768 T0 = (int16_t)T0;
771 void OPPROTO op_movzwl_T0_T0(void)
773 T0 = (uint16_t)T0;
776 void OPPROTO op_movswl_EAX_AX(void)
778 EAX = (int16_t)EAX;
781 #ifdef TARGET_X86_64
782 void OPPROTO op_movslq_T0_T0(void)
784 T0 = (int32_t)T0;
787 void OPPROTO op_movslq_RAX_EAX(void)
789 EAX = (int32_t)EAX;
791 #endif
793 void OPPROTO op_movsbw_AX_AL(void)
795 EAX = (EAX & ~0xffff) | ((int8_t)EAX & 0xffff);
798 void OPPROTO op_movslq_EDX_EAX(void)
800 EDX = (int32_t)EAX >> 31;
803 void OPPROTO op_movswl_DX_AX(void)
805 EDX = (EDX & ~0xffff) | (((int16_t)EAX >> 15) & 0xffff);
808 #ifdef TARGET_X86_64
809 void OPPROTO op_movsqo_RDX_RAX(void)
811 EDX = (int64_t)EAX >> 63;
813 #endif
815 /* string ops helpers */
817 void OPPROTO op_addl_ESI_T0(void)
819 ESI = (uint32_t)(ESI + T0);
822 void OPPROTO op_addw_ESI_T0(void)
824 ESI = (ESI & ~0xffff) | ((ESI + T0) & 0xffff);
827 void OPPROTO op_addl_EDI_T0(void)
829 EDI = (uint32_t)(EDI + T0);
832 void OPPROTO op_addw_EDI_T0(void)
834 EDI = (EDI & ~0xffff) | ((EDI + T0) & 0xffff);
837 void OPPROTO op_decl_ECX(void)
839 ECX = (uint32_t)(ECX - 1);
842 void OPPROTO op_decw_ECX(void)
844 ECX = (ECX & ~0xffff) | ((ECX - 1) & 0xffff);
847 #ifdef TARGET_X86_64
848 void OPPROTO op_addq_ESI_T0(void)
850 ESI = (ESI + T0);
853 void OPPROTO op_addq_EDI_T0(void)
855 EDI = (EDI + T0);
858 void OPPROTO op_decq_ECX(void)
860 ECX--;
862 #endif
864 /* push/pop utils */
866 void op_addl_A0_SS(void)
868 A0 += (long)env->segs[R_SS].base;
871 void op_subl_A0_2(void)
873 A0 = (uint32_t)(A0 - 2);
876 void op_subl_A0_4(void)
878 A0 = (uint32_t)(A0 - 4);
881 void op_addl_ESP_4(void)
883 ESP = (uint32_t)(ESP + 4);
886 void op_addl_ESP_2(void)
888 ESP = (uint32_t)(ESP + 2);
891 void op_addw_ESP_4(void)
893 ESP = (ESP & ~0xffff) | ((ESP + 4) & 0xffff);
896 void op_addw_ESP_2(void)
898 ESP = (ESP & ~0xffff) | ((ESP + 2) & 0xffff);
901 void op_addl_ESP_im(void)
903 ESP = (uint32_t)(ESP + PARAM1);
906 void op_addw_ESP_im(void)
908 ESP = (ESP & ~0xffff) | ((ESP + PARAM1) & 0xffff);
911 #ifdef TARGET_X86_64
912 void op_subq_A0_2(void)
914 A0 -= 2;
917 void op_subq_A0_8(void)
919 A0 -= 8;
922 void op_addq_ESP_8(void)
924 ESP += 8;
927 void op_addq_ESP_im(void)
929 ESP += PARAM1;
931 #endif
933 void OPPROTO op_rdtsc(void)
935 helper_rdtsc();
938 void OPPROTO op_cpuid(void)
940 helper_cpuid();
943 void OPPROTO op_enter_level(void)
945 helper_enter_level(PARAM1, PARAM2);
948 #ifdef TARGET_X86_64
949 void OPPROTO op_enter64_level(void)
951 helper_enter64_level(PARAM1, PARAM2);
953 #endif
955 void OPPROTO op_sysenter(void)
957 helper_sysenter();
960 void OPPROTO op_sysexit(void)
962 helper_sysexit();
965 #ifdef TARGET_X86_64
966 void OPPROTO op_syscall(void)
968 helper_syscall(PARAM1);
971 void OPPROTO op_sysret(void)
973 helper_sysret(PARAM1);
975 #endif
977 void OPPROTO op_rdmsr(void)
979 helper_rdmsr();
982 void OPPROTO op_wrmsr(void)
984 helper_wrmsr();
987 /* bcd */
989 /* XXX: exception */
990 void OPPROTO op_aam(void)
992 int base = PARAM1;
993 int al, ah;
994 al = EAX & 0xff;
995 ah = al / base;
996 al = al % base;
997 EAX = (EAX & ~0xffff) | al | (ah << 8);
998 CC_DST = al;
1001 void OPPROTO op_aad(void)
1003 int base = PARAM1;
1004 int al, ah;
1005 al = EAX & 0xff;
1006 ah = (EAX >> 8) & 0xff;
1007 al = ((ah * base) + al) & 0xff;
1008 EAX = (EAX & ~0xffff) | al;
1009 CC_DST = al;
1012 void OPPROTO op_aaa(void)
1014 int icarry;
1015 int al, ah, af;
1016 int eflags;
1018 eflags = cc_table[CC_OP].compute_all();
1019 af = eflags & CC_A;
1020 al = EAX & 0xff;
1021 ah = (EAX >> 8) & 0xff;
1023 icarry = (al > 0xf9);
1024 if (((al & 0x0f) > 9 ) || af) {
1025 al = (al + 6) & 0x0f;
1026 ah = (ah + 1 + icarry) & 0xff;
1027 eflags |= CC_C | CC_A;
1028 } else {
1029 eflags &= ~(CC_C | CC_A);
1030 al &= 0x0f;
1032 EAX = (EAX & ~0xffff) | al | (ah << 8);
1033 CC_SRC = eflags;
1036 void OPPROTO op_aas(void)
1038 int icarry;
1039 int al, ah, af;
1040 int eflags;
1042 eflags = cc_table[CC_OP].compute_all();
1043 af = eflags & CC_A;
1044 al = EAX & 0xff;
1045 ah = (EAX >> 8) & 0xff;
1047 icarry = (al < 6);
1048 if (((al & 0x0f) > 9 ) || af) {
1049 al = (al - 6) & 0x0f;
1050 ah = (ah - 1 - icarry) & 0xff;
1051 eflags |= CC_C | CC_A;
1052 } else {
1053 eflags &= ~(CC_C | CC_A);
1054 al &= 0x0f;
1056 EAX = (EAX & ~0xffff) | al | (ah << 8);
1057 CC_SRC = eflags;
1060 void OPPROTO op_daa(void)
1062 int al, af, cf;
1063 int eflags;
1065 eflags = cc_table[CC_OP].compute_all();
1066 cf = eflags & CC_C;
1067 af = eflags & CC_A;
1068 al = EAX & 0xff;
1070 eflags = 0;
1071 if (((al & 0x0f) > 9 ) || af) {
1072 al = (al + 6) & 0xff;
1073 eflags |= CC_A;
1075 if ((al > 0x9f) || cf) {
1076 al = (al + 0x60) & 0xff;
1077 eflags |= CC_C;
1079 EAX = (EAX & ~0xff) | al;
1080 /* well, speed is not an issue here, so we compute the flags by hand */
1081 eflags |= (al == 0) << 6; /* zf */
1082 eflags |= parity_table[al]; /* pf */
1083 eflags |= (al & 0x80); /* sf */
1084 CC_SRC = eflags;
1087 void OPPROTO op_das(void)
1089 int al, al1, af, cf;
1090 int eflags;
1092 eflags = cc_table[CC_OP].compute_all();
1093 cf = eflags & CC_C;
1094 af = eflags & CC_A;
1095 al = EAX & 0xff;
1097 eflags = 0;
1098 al1 = al;
1099 if (((al & 0x0f) > 9 ) || af) {
1100 eflags |= CC_A;
1101 if (al < 6 || cf)
1102 eflags |= CC_C;
1103 al = (al - 6) & 0xff;
1105 if ((al1 > 0x99) || cf) {
1106 al = (al - 0x60) & 0xff;
1107 eflags |= CC_C;
1109 EAX = (EAX & ~0xff) | al;
1110 /* well, speed is not an issue here, so we compute the flags by hand */
1111 eflags |= (al == 0) << 6; /* zf */
1112 eflags |= parity_table[al]; /* pf */
1113 eflags |= (al & 0x80); /* sf */
1114 CC_SRC = eflags;
1117 /* segment handling */
1119 /* never use it with R_CS */
1120 void OPPROTO op_movl_seg_T0(void)
1122 load_seg(PARAM1, T0);
1125 /* faster VM86 version */
1126 void OPPROTO op_movl_seg_T0_vm(void)
1128 int selector;
1129 SegmentCache *sc;
1131 selector = T0 & 0xffff;
1132 /* env->segs[] access */
1133 sc = (SegmentCache *)((char *)env + PARAM1);
1134 sc->selector = selector;
1135 sc->base = (selector << 4);
1138 void OPPROTO op_movl_T0_seg(void)
1140 T0 = env->segs[PARAM1].selector;
1143 void OPPROTO op_lsl(void)
1145 helper_lsl();
1148 void OPPROTO op_lar(void)
1150 helper_lar();
1153 void OPPROTO op_verr(void)
1155 helper_verr();
1158 void OPPROTO op_verw(void)
1160 helper_verw();
1163 void OPPROTO op_arpl(void)
1165 if ((T0 & 3) < (T1 & 3)) {
1166 /* XXX: emulate bug or 0xff3f0000 oring as in bochs ? */
1167 T0 = (T0 & ~3) | (T1 & 3);
1168 T1 = CC_Z;
1169 } else {
1170 T1 = 0;
1172 FORCE_RET();
1175 void OPPROTO op_arpl_update(void)
1177 int eflags;
1178 eflags = cc_table[CC_OP].compute_all();
1179 CC_SRC = (eflags & ~CC_Z) | T1;
1182 /* T0: segment, T1:eip */
1183 void OPPROTO op_ljmp_protected_T0_T1(void)
1185 helper_ljmp_protected_T0_T1(PARAM1);
1188 void OPPROTO op_lcall_real_T0_T1(void)
1190 helper_lcall_real_T0_T1(PARAM1, PARAM2);
1193 void OPPROTO op_lcall_protected_T0_T1(void)
1195 helper_lcall_protected_T0_T1(PARAM1, PARAM2);
1198 void OPPROTO op_iret_real(void)
1200 helper_iret_real(PARAM1);
1203 void OPPROTO op_iret_protected(void)
1205 helper_iret_protected(PARAM1, PARAM2);
1208 void OPPROTO op_lret_protected(void)
1210 helper_lret_protected(PARAM1, PARAM2);
1213 void OPPROTO op_lldt_T0(void)
1215 helper_lldt_T0();
1218 void OPPROTO op_ltr_T0(void)
1220 helper_ltr_T0();
1223 /* CR registers access */
1224 void OPPROTO op_movl_crN_T0(void)
1226 helper_movl_crN_T0(PARAM1);
1229 #if !defined(CONFIG_USER_ONLY)
1230 void OPPROTO op_movtl_T0_cr8(void)
1232 T0 = cpu_get_apic_tpr(env);
1234 #endif
1236 /* DR registers access */
1237 void OPPROTO op_movl_drN_T0(void)
1239 helper_movl_drN_T0(PARAM1);
1242 void OPPROTO op_lmsw_T0(void)
1244 /* only 4 lower bits of CR0 are modified. PE cannot be set to zero
1245 if already set to one. */
1246 T0 = (env->cr[0] & ~0xe) | (T0 & 0xf);
1247 helper_movl_crN_T0(0);
1250 void OPPROTO op_invlpg_A0(void)
1252 helper_invlpg(A0);
1255 void OPPROTO op_movl_T0_env(void)
1257 T0 = *(uint32_t *)((char *)env + PARAM1);
1260 void OPPROTO op_movl_env_T0(void)
1262 *(uint32_t *)((char *)env + PARAM1) = T0;
1265 void OPPROTO op_movl_env_T1(void)
1267 *(uint32_t *)((char *)env + PARAM1) = T1;
1270 void OPPROTO op_movtl_T0_env(void)
1272 T0 = *(target_ulong *)((char *)env + PARAM1);
1275 void OPPROTO op_movtl_env_T0(void)
1277 *(target_ulong *)((char *)env + PARAM1) = T0;
1280 void OPPROTO op_movtl_T1_env(void)
1282 T1 = *(target_ulong *)((char *)env + PARAM1);
1285 void OPPROTO op_movtl_env_T1(void)
1287 *(target_ulong *)((char *)env + PARAM1) = T1;
1290 void OPPROTO op_clts(void)
1292 env->cr[0] &= ~CR0_TS_MASK;
1293 env->hflags &= ~HF_TS_MASK;
1296 /* flags handling */
1298 void OPPROTO op_goto_tb0(void)
1300 GOTO_TB(op_goto_tb0, PARAM1, 0);
1303 void OPPROTO op_goto_tb1(void)
1305 GOTO_TB(op_goto_tb1, PARAM1, 1);
1308 void OPPROTO op_jmp_label(void)
1310 GOTO_LABEL_PARAM(1);
1313 void OPPROTO op_jnz_T0_label(void)
1315 if (T0)
1316 GOTO_LABEL_PARAM(1);
1317 FORCE_RET();
1320 void OPPROTO op_jz_T0_label(void)
1322 if (!T0)
1323 GOTO_LABEL_PARAM(1);
1324 FORCE_RET();
1327 /* slow set cases (compute x86 flags) */
1328 void OPPROTO op_seto_T0_cc(void)
1330 int eflags;
1331 eflags = cc_table[CC_OP].compute_all();
1332 T0 = (eflags >> 11) & 1;
1335 void OPPROTO op_setb_T0_cc(void)
1337 T0 = cc_table[CC_OP].compute_c();
1340 void OPPROTO op_setz_T0_cc(void)
1342 int eflags;
1343 eflags = cc_table[CC_OP].compute_all();
1344 T0 = (eflags >> 6) & 1;
1347 void OPPROTO op_setbe_T0_cc(void)
1349 int eflags;
1350 eflags = cc_table[CC_OP].compute_all();
1351 T0 = (eflags & (CC_Z | CC_C)) != 0;
1354 void OPPROTO op_sets_T0_cc(void)
1356 int eflags;
1357 eflags = cc_table[CC_OP].compute_all();
1358 T0 = (eflags >> 7) & 1;
1361 void OPPROTO op_setp_T0_cc(void)
1363 int eflags;
1364 eflags = cc_table[CC_OP].compute_all();
1365 T0 = (eflags >> 2) & 1;
1368 void OPPROTO op_setl_T0_cc(void)
1370 int eflags;
1371 eflags = cc_table[CC_OP].compute_all();
1372 T0 = ((eflags ^ (eflags >> 4)) >> 7) & 1;
1375 void OPPROTO op_setle_T0_cc(void)
1377 int eflags;
1378 eflags = cc_table[CC_OP].compute_all();
1379 T0 = (((eflags ^ (eflags >> 4)) & 0x80) || (eflags & CC_Z)) != 0;
1382 void OPPROTO op_xor_T0_1(void)
1384 T0 ^= 1;
1387 void OPPROTO op_set_cc_op(void)
1389 CC_OP = PARAM1;
1392 void OPPROTO op_mov_T0_cc(void)
1394 T0 = cc_table[CC_OP].compute_all();
1397 /* XXX: clear VIF/VIP in all ops ? */
1399 void OPPROTO op_movl_eflags_T0(void)
1401 load_eflags(T0, (TF_MASK | AC_MASK | ID_MASK | NT_MASK));
1404 void OPPROTO op_movw_eflags_T0(void)
1406 load_eflags(T0, (TF_MASK | AC_MASK | ID_MASK | NT_MASK) & 0xffff);
1409 void OPPROTO op_movl_eflags_T0_io(void)
1411 load_eflags(T0, (TF_MASK | AC_MASK | ID_MASK | NT_MASK | IF_MASK));
1414 void OPPROTO op_movw_eflags_T0_io(void)
1416 load_eflags(T0, (TF_MASK | AC_MASK | ID_MASK | NT_MASK | IF_MASK) & 0xffff);
1419 void OPPROTO op_movl_eflags_T0_cpl0(void)
1421 load_eflags(T0, (TF_MASK | AC_MASK | ID_MASK | NT_MASK | IF_MASK | IOPL_MASK));
1424 void OPPROTO op_movw_eflags_T0_cpl0(void)
1426 load_eflags(T0, (TF_MASK | AC_MASK | ID_MASK | NT_MASK | IF_MASK | IOPL_MASK) & 0xffff);
1429 #if 0
1430 /* vm86plus version */
1431 void OPPROTO op_movw_eflags_T0_vm(void)
1433 int eflags;
1434 eflags = T0;
1435 CC_SRC = eflags & (CC_O | CC_S | CC_Z | CC_A | CC_P | CC_C);
1436 DF = 1 - (2 * ((eflags >> 10) & 1));
1437 /* we also update some system flags as in user mode */
1438 env->eflags = (env->eflags & ~(FL_UPDATE_MASK16 | VIF_MASK)) |
1439 (eflags & FL_UPDATE_MASK16);
1440 if (eflags & IF_MASK) {
1441 env->eflags |= VIF_MASK;
1442 if (env->eflags & VIP_MASK) {
1443 EIP = PARAM1;
1444 raise_exception(EXCP0D_GPF);
1447 FORCE_RET();
1450 void OPPROTO op_movl_eflags_T0_vm(void)
1452 int eflags;
1453 eflags = T0;
1454 CC_SRC = eflags & (CC_O | CC_S | CC_Z | CC_A | CC_P | CC_C);
1455 DF = 1 - (2 * ((eflags >> 10) & 1));
1456 /* we also update some system flags as in user mode */
1457 env->eflags = (env->eflags & ~(FL_UPDATE_MASK32 | VIF_MASK)) |
1458 (eflags & FL_UPDATE_MASK32);
1459 if (eflags & IF_MASK) {
1460 env->eflags |= VIF_MASK;
1461 if (env->eflags & VIP_MASK) {
1462 EIP = PARAM1;
1463 raise_exception(EXCP0D_GPF);
1466 FORCE_RET();
1468 #endif
1470 /* XXX: compute only O flag */
1471 void OPPROTO op_movb_eflags_T0(void)
1473 int of;
1474 of = cc_table[CC_OP].compute_all() & CC_O;
1475 CC_SRC = (T0 & (CC_S | CC_Z | CC_A | CC_P | CC_C)) | of;
1478 void OPPROTO op_movl_T0_eflags(void)
1480 int eflags;
1481 eflags = cc_table[CC_OP].compute_all();
1482 eflags |= (DF & DF_MASK);
1483 eflags |= env->eflags & ~(VM_MASK | RF_MASK);
1484 T0 = eflags;
1487 /* vm86plus version */
1488 #if 0
1489 void OPPROTO op_movl_T0_eflags_vm(void)
1491 int eflags;
1492 eflags = cc_table[CC_OP].compute_all();
1493 eflags |= (DF & DF_MASK);
1494 eflags |= env->eflags & ~(VM_MASK | RF_MASK | IF_MASK);
1495 if (env->eflags & VIF_MASK)
1496 eflags |= IF_MASK;
1497 T0 = eflags;
1499 #endif
1501 void OPPROTO op_cld(void)
1503 DF = 1;
1506 void OPPROTO op_std(void)
1508 DF = -1;
1511 void OPPROTO op_clc(void)
1513 int eflags;
1514 eflags = cc_table[CC_OP].compute_all();
1515 eflags &= ~CC_C;
1516 CC_SRC = eflags;
1519 void OPPROTO op_stc(void)
1521 int eflags;
1522 eflags = cc_table[CC_OP].compute_all();
1523 eflags |= CC_C;
1524 CC_SRC = eflags;
1527 void OPPROTO op_cmc(void)
1529 int eflags;
1530 eflags = cc_table[CC_OP].compute_all();
1531 eflags ^= CC_C;
1532 CC_SRC = eflags;
1535 void OPPROTO op_salc(void)
1537 int cf;
1538 cf = cc_table[CC_OP].compute_c();
1539 EAX = (EAX & ~0xff) | ((-cf) & 0xff);
1542 static int compute_all_eflags(void)
1544 return CC_SRC;
1547 static int compute_c_eflags(void)
1549 return CC_SRC & CC_C;
1552 CCTable cc_table[CC_OP_NB] = {
1553 [CC_OP_DYNAMIC] = { /* should never happen */ },
1555 [CC_OP_EFLAGS] = { compute_all_eflags, compute_c_eflags },
1557 [CC_OP_MULB] = { compute_all_mulb, compute_c_mull },
1558 [CC_OP_MULW] = { compute_all_mulw, compute_c_mull },
1559 [CC_OP_MULL] = { compute_all_mull, compute_c_mull },
1561 [CC_OP_ADDB] = { compute_all_addb, compute_c_addb },
1562 [CC_OP_ADDW] = { compute_all_addw, compute_c_addw },
1563 [CC_OP_ADDL] = { compute_all_addl, compute_c_addl },
1565 [CC_OP_ADCB] = { compute_all_adcb, compute_c_adcb },
1566 [CC_OP_ADCW] = { compute_all_adcw, compute_c_adcw },
1567 [CC_OP_ADCL] = { compute_all_adcl, compute_c_adcl },
1569 [CC_OP_SUBB] = { compute_all_subb, compute_c_subb },
1570 [CC_OP_SUBW] = { compute_all_subw, compute_c_subw },
1571 [CC_OP_SUBL] = { compute_all_subl, compute_c_subl },
1573 [CC_OP_SBBB] = { compute_all_sbbb, compute_c_sbbb },
1574 [CC_OP_SBBW] = { compute_all_sbbw, compute_c_sbbw },
1575 [CC_OP_SBBL] = { compute_all_sbbl, compute_c_sbbl },
1577 [CC_OP_LOGICB] = { compute_all_logicb, compute_c_logicb },
1578 [CC_OP_LOGICW] = { compute_all_logicw, compute_c_logicw },
1579 [CC_OP_LOGICL] = { compute_all_logicl, compute_c_logicl },
1581 [CC_OP_INCB] = { compute_all_incb, compute_c_incl },
1582 [CC_OP_INCW] = { compute_all_incw, compute_c_incl },
1583 [CC_OP_INCL] = { compute_all_incl, compute_c_incl },
1585 [CC_OP_DECB] = { compute_all_decb, compute_c_incl },
1586 [CC_OP_DECW] = { compute_all_decw, compute_c_incl },
1587 [CC_OP_DECL] = { compute_all_decl, compute_c_incl },
1589 [CC_OP_SHLB] = { compute_all_shlb, compute_c_shlb },
1590 [CC_OP_SHLW] = { compute_all_shlw, compute_c_shlw },
1591 [CC_OP_SHLL] = { compute_all_shll, compute_c_shll },
1593 [CC_OP_SARB] = { compute_all_sarb, compute_c_sarl },
1594 [CC_OP_SARW] = { compute_all_sarw, compute_c_sarl },
1595 [CC_OP_SARL] = { compute_all_sarl, compute_c_sarl },
1597 #ifdef TARGET_X86_64
1598 [CC_OP_MULQ] = { compute_all_mulq, compute_c_mull },
1600 [CC_OP_ADDQ] = { compute_all_addq, compute_c_addq },
1602 [CC_OP_ADCQ] = { compute_all_adcq, compute_c_adcq },
1604 [CC_OP_SUBQ] = { compute_all_subq, compute_c_subq },
1606 [CC_OP_SBBQ] = { compute_all_sbbq, compute_c_sbbq },
1608 [CC_OP_LOGICQ] = { compute_all_logicq, compute_c_logicq },
1610 [CC_OP_INCQ] = { compute_all_incq, compute_c_incl },
1612 [CC_OP_DECQ] = { compute_all_decq, compute_c_incl },
1614 [CC_OP_SHLQ] = { compute_all_shlq, compute_c_shlq },
1616 [CC_OP_SARQ] = { compute_all_sarq, compute_c_sarl },
1617 #endif
1620 /* floating point support. Some of the code for complicated x87
1621 functions comes from the LGPL'ed x86 emulator found in the Willows
1622 TWIN windows emulator. */
1624 /* fp load FT0 */
1626 void OPPROTO op_flds_FT0_A0(void)
1628 #ifdef USE_FP_CONVERT
1629 FP_CONVERT.i32 = ldl(A0);
1630 FT0 = FP_CONVERT.f;
1631 #else
1632 FT0 = ldfl(A0);
1633 #endif
1636 void OPPROTO op_fldl_FT0_A0(void)
1638 #ifdef USE_FP_CONVERT
1639 FP_CONVERT.i64 = ldq(A0);
1640 FT0 = FP_CONVERT.d;
1641 #else
1642 FT0 = ldfq(A0);
1643 #endif
1646 /* helpers are needed to avoid static constant reference. XXX: find a better way */
1647 #ifdef USE_INT_TO_FLOAT_HELPERS
1649 void helper_fild_FT0_A0(void)
1651 FT0 = (CPU86_LDouble)ldsw(A0);
1654 void helper_fildl_FT0_A0(void)
1656 FT0 = (CPU86_LDouble)((int32_t)ldl(A0));
1659 void helper_fildll_FT0_A0(void)
1661 FT0 = (CPU86_LDouble)((int64_t)ldq(A0));
1664 void OPPROTO op_fild_FT0_A0(void)
1666 helper_fild_FT0_A0();
1669 void OPPROTO op_fildl_FT0_A0(void)
1671 helper_fildl_FT0_A0();
1674 void OPPROTO op_fildll_FT0_A0(void)
1676 helper_fildll_FT0_A0();
1679 #else
1681 void OPPROTO op_fild_FT0_A0(void)
1683 #ifdef USE_FP_CONVERT
1684 FP_CONVERT.i32 = ldsw(A0);
1685 FT0 = (CPU86_LDouble)FP_CONVERT.i32;
1686 #else
1687 FT0 = (CPU86_LDouble)ldsw(A0);
1688 #endif
1691 void OPPROTO op_fildl_FT0_A0(void)
1693 #ifdef USE_FP_CONVERT
1694 FP_CONVERT.i32 = (int32_t) ldl(A0);
1695 FT0 = (CPU86_LDouble)FP_CONVERT.i32;
1696 #else
1697 FT0 = (CPU86_LDouble)((int32_t)ldl(A0));
1698 #endif
1701 void OPPROTO op_fildll_FT0_A0(void)
1703 #ifdef USE_FP_CONVERT
1704 FP_CONVERT.i64 = (int64_t) ldq(A0);
1705 FT0 = (CPU86_LDouble)FP_CONVERT.i64;
1706 #else
1707 FT0 = (CPU86_LDouble)((int64_t)ldq(A0));
1708 #endif
1710 #endif
1712 /* fp load ST0 */
1714 void OPPROTO op_flds_ST0_A0(void)
1716 int new_fpstt;
1717 new_fpstt = (env->fpstt - 1) & 7;
1718 #ifdef USE_FP_CONVERT
1719 FP_CONVERT.i32 = ldl(A0);
1720 env->fpregs[new_fpstt].d = FP_CONVERT.f;
1721 #else
1722 env->fpregs[new_fpstt].d = ldfl(A0);
1723 #endif
1724 env->fpstt = new_fpstt;
1725 env->fptags[new_fpstt] = 0; /* validate stack entry */
1728 void OPPROTO op_fldl_ST0_A0(void)
1730 int new_fpstt;
1731 new_fpstt = (env->fpstt - 1) & 7;
1732 #ifdef USE_FP_CONVERT
1733 FP_CONVERT.i64 = ldq(A0);
1734 env->fpregs[new_fpstt].d = FP_CONVERT.d;
1735 #else
1736 env->fpregs[new_fpstt].d = ldfq(A0);
1737 #endif
1738 env->fpstt = new_fpstt;
1739 env->fptags[new_fpstt] = 0; /* validate stack entry */
1742 void OPPROTO op_fldt_ST0_A0(void)
1744 helper_fldt_ST0_A0();
1747 /* helpers are needed to avoid static constant reference. XXX: find a better way */
1748 #ifdef USE_INT_TO_FLOAT_HELPERS
1750 void helper_fild_ST0_A0(void)
1752 int new_fpstt;
1753 new_fpstt = (env->fpstt - 1) & 7;
1754 env->fpregs[new_fpstt].d = (CPU86_LDouble)ldsw(A0);
1755 env->fpstt = new_fpstt;
1756 env->fptags[new_fpstt] = 0; /* validate stack entry */
1759 void helper_fildl_ST0_A0(void)
1761 int new_fpstt;
1762 new_fpstt = (env->fpstt - 1) & 7;
1763 env->fpregs[new_fpstt].d = (CPU86_LDouble)((int32_t)ldl(A0));
1764 env->fpstt = new_fpstt;
1765 env->fptags[new_fpstt] = 0; /* validate stack entry */
1768 void helper_fildll_ST0_A0(void)
1770 int new_fpstt;
1771 new_fpstt = (env->fpstt - 1) & 7;
1772 env->fpregs[new_fpstt].d = (CPU86_LDouble)((int64_t)ldq(A0));
1773 env->fpstt = new_fpstt;
1774 env->fptags[new_fpstt] = 0; /* validate stack entry */
1777 void OPPROTO op_fild_ST0_A0(void)
1779 helper_fild_ST0_A0();
1782 void OPPROTO op_fildl_ST0_A0(void)
1784 helper_fildl_ST0_A0();
1787 void OPPROTO op_fildll_ST0_A0(void)
1789 helper_fildll_ST0_A0();
1792 #else
1794 void OPPROTO op_fild_ST0_A0(void)
1796 int new_fpstt;
1797 new_fpstt = (env->fpstt - 1) & 7;
1798 #ifdef USE_FP_CONVERT
1799 FP_CONVERT.i32 = ldsw(A0);
1800 env->fpregs[new_fpstt].d = (CPU86_LDouble)FP_CONVERT.i32;
1801 #else
1802 env->fpregs[new_fpstt].d = (CPU86_LDouble)ldsw(A0);
1803 #endif
1804 env->fpstt = new_fpstt;
1805 env->fptags[new_fpstt] = 0; /* validate stack entry */
1808 void OPPROTO op_fildl_ST0_A0(void)
1810 int new_fpstt;
1811 new_fpstt = (env->fpstt - 1) & 7;
1812 #ifdef USE_FP_CONVERT
1813 FP_CONVERT.i32 = (int32_t) ldl(A0);
1814 env->fpregs[new_fpstt].d = (CPU86_LDouble)FP_CONVERT.i32;
1815 #else
1816 env->fpregs[new_fpstt].d = (CPU86_LDouble)((int32_t)ldl(A0));
1817 #endif
1818 env->fpstt = new_fpstt;
1819 env->fptags[new_fpstt] = 0; /* validate stack entry */
1822 void OPPROTO op_fildll_ST0_A0(void)
1824 int new_fpstt;
1825 new_fpstt = (env->fpstt - 1) & 7;
1826 #ifdef USE_FP_CONVERT
1827 FP_CONVERT.i64 = (int64_t) ldq(A0);
1828 env->fpregs[new_fpstt].d = (CPU86_LDouble)FP_CONVERT.i64;
1829 #else
1830 env->fpregs[new_fpstt].d = (CPU86_LDouble)((int64_t)ldq(A0));
1831 #endif
1832 env->fpstt = new_fpstt;
1833 env->fptags[new_fpstt] = 0; /* validate stack entry */
1836 #endif
1838 /* fp store */
1840 void OPPROTO op_fsts_ST0_A0(void)
1842 #ifdef USE_FP_CONVERT
1843 FP_CONVERT.f = (float)ST0;
1844 stfl(A0, FP_CONVERT.f);
1845 #else
1846 stfl(A0, (float)ST0);
1847 #endif
1848 FORCE_RET();
1851 void OPPROTO op_fstl_ST0_A0(void)
1853 stfq(A0, (double)ST0);
1854 FORCE_RET();
1857 void OPPROTO op_fstt_ST0_A0(void)
1859 helper_fstt_ST0_A0();
1862 void OPPROTO op_fist_ST0_A0(void)
1864 #if defined(__sparc__) && !defined(__sparc_v9__)
1865 register CPU86_LDouble d asm("o0");
1866 #else
1867 CPU86_LDouble d;
1868 #endif
1869 int val;
1871 d = ST0;
1872 val = floatx_to_int32(d, &env->fp_status);
1873 if (val != (int16_t)val)
1874 val = -32768;
1875 stw(A0, val);
1876 FORCE_RET();
1879 void OPPROTO op_fistl_ST0_A0(void)
1881 #if defined(__sparc__) && !defined(__sparc_v9__)
1882 register CPU86_LDouble d asm("o0");
1883 #else
1884 CPU86_LDouble d;
1885 #endif
1886 int val;
1888 d = ST0;
1889 val = floatx_to_int32(d, &env->fp_status);
1890 stl(A0, val);
1891 FORCE_RET();
1894 void OPPROTO op_fistll_ST0_A0(void)
1896 #if defined(__sparc__) && !defined(__sparc_v9__)
1897 register CPU86_LDouble d asm("o0");
1898 #else
1899 CPU86_LDouble d;
1900 #endif
1901 int64_t val;
1903 d = ST0;
1904 val = floatx_to_int64(d, &env->fp_status);
1905 stq(A0, val);
1906 FORCE_RET();
1909 void OPPROTO op_fbld_ST0_A0(void)
1911 helper_fbld_ST0_A0();
1914 void OPPROTO op_fbst_ST0_A0(void)
1916 helper_fbst_ST0_A0();
1919 /* FPU move */
1921 void OPPROTO op_fpush(void)
1923 fpush();
1926 void OPPROTO op_fpop(void)
1928 fpop();
1931 void OPPROTO op_fdecstp(void)
1933 env->fpstt = (env->fpstt - 1) & 7;
1934 env->fpus &= (~0x4700);
1937 void OPPROTO op_fincstp(void)
1939 env->fpstt = (env->fpstt + 1) & 7;
1940 env->fpus &= (~0x4700);
1943 void OPPROTO op_ffree_STN(void)
1945 env->fptags[(env->fpstt + PARAM1) & 7] = 1;
1948 void OPPROTO op_fmov_ST0_FT0(void)
1950 ST0 = FT0;
1953 void OPPROTO op_fmov_FT0_STN(void)
1955 FT0 = ST(PARAM1);
1958 void OPPROTO op_fmov_ST0_STN(void)
1960 ST0 = ST(PARAM1);
1963 void OPPROTO op_fmov_STN_ST0(void)
1965 ST(PARAM1) = ST0;
1968 void OPPROTO op_fxchg_ST0_STN(void)
1970 CPU86_LDouble tmp;
1971 tmp = ST(PARAM1);
1972 ST(PARAM1) = ST0;
1973 ST0 = tmp;
1976 /* FPU operations */
1978 const int fcom_ccval[4] = {0x0100, 0x4000, 0x0000, 0x4500};
1980 void OPPROTO op_fcom_ST0_FT0(void)
1982 int ret;
1984 ret = floatx_compare(ST0, FT0, &env->fp_status);
1985 env->fpus = (env->fpus & ~0x4500) | fcom_ccval[ret + 1];
1986 FORCE_RET();
1989 void OPPROTO op_fucom_ST0_FT0(void)
1991 int ret;
1993 ret = floatx_compare_quiet(ST0, FT0, &env->fp_status);
1994 env->fpus = (env->fpus & ~0x4500) | fcom_ccval[ret+ 1];
1995 FORCE_RET();
1998 const int fcomi_ccval[4] = {CC_C, CC_Z, 0, CC_Z | CC_P | CC_C};
2000 void OPPROTO op_fcomi_ST0_FT0(void)
2002 int eflags;
2003 int ret;
2005 ret = floatx_compare(ST0, FT0, &env->fp_status);
2006 eflags = cc_table[CC_OP].compute_all();
2007 eflags = (eflags & ~(CC_Z | CC_P | CC_C)) | fcomi_ccval[ret + 1];
2008 CC_SRC = eflags;
2009 FORCE_RET();
2012 void OPPROTO op_fucomi_ST0_FT0(void)
2014 int eflags;
2015 int ret;
2017 ret = floatx_compare_quiet(ST0, FT0, &env->fp_status);
2018 eflags = cc_table[CC_OP].compute_all();
2019 eflags = (eflags & ~(CC_Z | CC_P | CC_C)) | fcomi_ccval[ret + 1];
2020 CC_SRC = eflags;
2021 FORCE_RET();
2024 void OPPROTO op_fcmov_ST0_STN_T0(void)
2026 if (T0) {
2027 ST0 = ST(PARAM1);
2029 FORCE_RET();
2032 void OPPROTO op_fadd_ST0_FT0(void)
2034 ST0 += FT0;
2037 void OPPROTO op_fmul_ST0_FT0(void)
2039 ST0 *= FT0;
2042 void OPPROTO op_fsub_ST0_FT0(void)
2044 ST0 -= FT0;
2047 void OPPROTO op_fsubr_ST0_FT0(void)
2049 ST0 = FT0 - ST0;
2052 void OPPROTO op_fdiv_ST0_FT0(void)
2054 ST0 = helper_fdiv(ST0, FT0);
2057 void OPPROTO op_fdivr_ST0_FT0(void)
2059 ST0 = helper_fdiv(FT0, ST0);
2062 /* fp operations between STN and ST0 */
2064 void OPPROTO op_fadd_STN_ST0(void)
2066 ST(PARAM1) += ST0;
2069 void OPPROTO op_fmul_STN_ST0(void)
2071 ST(PARAM1) *= ST0;
2074 void OPPROTO op_fsub_STN_ST0(void)
2076 ST(PARAM1) -= ST0;
2079 void OPPROTO op_fsubr_STN_ST0(void)
2081 CPU86_LDouble *p;
2082 p = &ST(PARAM1);
2083 *p = ST0 - *p;
2086 void OPPROTO op_fdiv_STN_ST0(void)
2088 CPU86_LDouble *p;
2089 p = &ST(PARAM1);
2090 *p = helper_fdiv(*p, ST0);
2093 void OPPROTO op_fdivr_STN_ST0(void)
2095 CPU86_LDouble *p;
2096 p = &ST(PARAM1);
2097 *p = helper_fdiv(ST0, *p);
2100 /* misc FPU operations */
2101 void OPPROTO op_fchs_ST0(void)
2103 ST0 = floatx_chs(ST0);
2106 void OPPROTO op_fabs_ST0(void)
2108 ST0 = floatx_abs(ST0);
2111 void OPPROTO op_fxam_ST0(void)
2113 helper_fxam_ST0();
2116 void OPPROTO op_fld1_ST0(void)
2118 ST0 = f15rk[1];
2121 void OPPROTO op_fldl2t_ST0(void)
2123 ST0 = f15rk[6];
2126 void OPPROTO op_fldl2e_ST0(void)
2128 ST0 = f15rk[5];
2131 void OPPROTO op_fldpi_ST0(void)
2133 ST0 = f15rk[2];
2136 void OPPROTO op_fldlg2_ST0(void)
2138 ST0 = f15rk[3];
2141 void OPPROTO op_fldln2_ST0(void)
2143 ST0 = f15rk[4];
2146 void OPPROTO op_fldz_ST0(void)
2148 ST0 = f15rk[0];
2151 void OPPROTO op_fldz_FT0(void)
2153 FT0 = f15rk[0];
2156 /* associated heplers to reduce generated code length and to simplify
2157 relocation (FP constants are usually stored in .rodata section) */
2159 void OPPROTO op_f2xm1(void)
2161 helper_f2xm1();
2164 void OPPROTO op_fyl2x(void)
2166 helper_fyl2x();
2169 void OPPROTO op_fptan(void)
2171 helper_fptan();
2174 void OPPROTO op_fpatan(void)
2176 helper_fpatan();
2179 void OPPROTO op_fxtract(void)
2181 helper_fxtract();
2184 void OPPROTO op_fprem1(void)
2186 helper_fprem1();
2190 void OPPROTO op_fprem(void)
2192 helper_fprem();
2195 void OPPROTO op_fyl2xp1(void)
2197 helper_fyl2xp1();
2200 void OPPROTO op_fsqrt(void)
2202 helper_fsqrt();
2205 void OPPROTO op_fsincos(void)
2207 helper_fsincos();
2210 void OPPROTO op_frndint(void)
2212 helper_frndint();
2215 void OPPROTO op_fscale(void)
2217 helper_fscale();
2220 void OPPROTO op_fsin(void)
2222 helper_fsin();
2225 void OPPROTO op_fcos(void)
2227 helper_fcos();
2230 void OPPROTO op_fnstsw_A0(void)
2232 int fpus;
2233 fpus = (env->fpus & ~0x3800) | (env->fpstt & 0x7) << 11;
2234 stw(A0, fpus);
2235 FORCE_RET();
2238 void OPPROTO op_fnstsw_EAX(void)
2240 int fpus;
2241 fpus = (env->fpus & ~0x3800) | (env->fpstt & 0x7) << 11;
2242 EAX = (EAX & ~0xffff) | fpus;
2245 void OPPROTO op_fnstcw_A0(void)
2247 stw(A0, env->fpuc);
2248 FORCE_RET();
2251 void OPPROTO op_fldcw_A0(void)
2253 env->fpuc = lduw(A0);
2254 update_fp_status();
2257 void OPPROTO op_fclex(void)
2259 env->fpus &= 0x7f00;
2262 void OPPROTO op_fwait(void)
2264 if (env->fpus & FPUS_SE)
2265 fpu_raise_exception();
2266 FORCE_RET();
2269 void OPPROTO op_fninit(void)
2271 env->fpus = 0;
2272 env->fpstt = 0;
2273 env->fpuc = 0x37f;
2274 env->fptags[0] = 1;
2275 env->fptags[1] = 1;
2276 env->fptags[2] = 1;
2277 env->fptags[3] = 1;
2278 env->fptags[4] = 1;
2279 env->fptags[5] = 1;
2280 env->fptags[6] = 1;
2281 env->fptags[7] = 1;
2284 void OPPROTO op_fnstenv_A0(void)
2286 helper_fstenv(A0, PARAM1);
2289 void OPPROTO op_fldenv_A0(void)
2291 helper_fldenv(A0, PARAM1);
2294 void OPPROTO op_fnsave_A0(void)
2296 helper_fsave(A0, PARAM1);
2299 void OPPROTO op_frstor_A0(void)
2301 helper_frstor(A0, PARAM1);
2304 /* threading support */
2305 void OPPROTO op_lock(void)
2307 cpu_lock();
2310 void OPPROTO op_unlock(void)
2312 cpu_unlock();
2315 /* SSE support */
2316 static inline void memcpy16(void *d, void *s)
2318 ((uint32_t *)d)[0] = ((uint32_t *)s)[0];
2319 ((uint32_t *)d)[1] = ((uint32_t *)s)[1];
2320 ((uint32_t *)d)[2] = ((uint32_t *)s)[2];
2321 ((uint32_t *)d)[3] = ((uint32_t *)s)[3];
2324 void OPPROTO op_movo(void)
2326 /* XXX: badly generated code */
2327 XMMReg *d, *s;
2328 d = (XMMReg *)((char *)env + PARAM1);
2329 s = (XMMReg *)((char *)env + PARAM2);
2330 memcpy16(d, s);
2333 void OPPROTO op_movq(void)
2335 uint64_t *d, *s;
2336 d = (uint64_t *)((char *)env + PARAM1);
2337 s = (uint64_t *)((char *)env + PARAM2);
2338 *d = *s;
2341 void OPPROTO op_movl(void)
2343 uint32_t *d, *s;
2344 d = (uint32_t *)((char *)env + PARAM1);
2345 s = (uint32_t *)((char *)env + PARAM2);
2346 *d = *s;
2349 void OPPROTO op_movq_env_0(void)
2351 uint64_t *d;
2352 d = (uint64_t *)((char *)env + PARAM1);
2353 *d = 0;
2356 void OPPROTO op_fxsave_A0(void)
2358 helper_fxsave(A0, PARAM1);
2361 void OPPROTO op_fxrstor_A0(void)
2363 helper_fxrstor(A0, PARAM1);
2366 /* XXX: optimize by storing fptt and fptags in the static cpu state */
2367 void OPPROTO op_enter_mmx(void)
2369 env->fpstt = 0;
2370 *(uint32_t *)(env->fptags) = 0;
2371 *(uint32_t *)(env->fptags + 4) = 0;
2374 void OPPROTO op_emms(void)
2376 /* set to empty state */
2377 *(uint32_t *)(env->fptags) = 0x01010101;
2378 *(uint32_t *)(env->fptags + 4) = 0x01010101;
2381 #define SHIFT 0
2382 #include "ops_sse.h"
2384 #define SHIFT 1
2385 #include "ops_sse.h"