mirror of
https://github.com/mupen64plus/mupen64plus-oldsvn.git
synced 2025-04-02 10:52:35 -04:00
711 lines
20 KiB
C
711 lines
20 KiB
C
/**
|
|
* Mupen64 - r4300/x86_64/gcop1_d.c
|
|
* Copyright (C) 2007 Richard Goedeken, Hacktarux
|
|
* Based on code written by Hacktarux, Copyright (C) 2002
|
|
*
|
|
* Mupen64 homepage: http://mupen64.emulation64.com
|
|
* Forum homepage: http://www.emutalk.net/forumdisplay.php?f=50
|
|
*
|
|
* This program is free software; you can redistribute it and/
|
|
* or modify it under the terms of the GNU General Public Li-
|
|
* cence as published by the Free Software Foundation; either
|
|
* version 2 of the Licence, or any later version.
|
|
*
|
|
* This program is distributed in the hope that it will be use-
|
|
* ful, but WITHOUT ANY WARRANTY; without even the implied war-
|
|
* ranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
|
|
* See the GNU General Public Licence for more details.
|
|
*
|
|
* You should have received a copy of the GNU General Public
|
|
* Licence along with this program; if not, write to the Free
|
|
* Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139,
|
|
* USA.
|
|
*
|
|
**/
|
|
|
|
|
|
#include <stdio.h>
|
|
#include "../recomph.h"
|
|
#include "assemble.h"
|
|
#include "../r4300.h"
|
|
#include "../ops.h"
|
|
#include "interpret.h"
|
|
|
|
void genadd_d()
|
|
{
|
|
#if defined(COUNT_INSTR)
|
|
inc_m32abs(&instr_count[119]);
|
|
#endif
|
|
#ifdef INTERPRET_ADD_D
|
|
gencallinterp((unsigned long long)ADD_D, 0);
|
|
#else
|
|
gencheck_cop1_unusable();
|
|
mov_reg64_m64abs(RAX, (unsigned long long *)(®_cop1_double[dst->f.cf.fs]));
|
|
fld_preg64_qword(RAX);
|
|
mov_reg64_m64abs(RAX, (unsigned long long *)(®_cop1_double[dst->f.cf.ft]));
|
|
fadd_preg64_qword(RAX);
|
|
mov_reg64_m64abs(RAX, (unsigned long long *)(®_cop1_double[dst->f.cf.fd]));
|
|
fstp_preg64_qword(RAX);
|
|
#endif
|
|
}
|
|
|
|
void gensub_d()
|
|
{
|
|
#if defined(COUNT_INSTR)
|
|
inc_m32abs(&instr_count[120]);
|
|
#endif
|
|
#ifdef INTERPRET_SUB_D
|
|
gencallinterp((unsigned long long)SUB_D, 0);
|
|
#else
|
|
gencheck_cop1_unusable();
|
|
mov_reg64_m64abs(RAX, (unsigned long long *)(®_cop1_double[dst->f.cf.fs]));
|
|
fld_preg64_qword(RAX);
|
|
mov_reg64_m64abs(RAX, (unsigned long long *)(®_cop1_double[dst->f.cf.ft]));
|
|
fsub_preg64_qword(RAX);
|
|
mov_reg64_m64abs(RAX, (unsigned long long *)(®_cop1_double[dst->f.cf.fd]));
|
|
fstp_preg64_qword(RAX);
|
|
#endif
|
|
}
|
|
|
|
void genmul_d()
|
|
{
|
|
#if defined(COUNT_INSTR)
|
|
inc_m32abs(&instr_count[121]);
|
|
#endif
|
|
#ifdef INTERPRET_MUL_D
|
|
gencallinterp((unsigned long long)MUL_D, 0);
|
|
#else
|
|
gencheck_cop1_unusable();
|
|
mov_reg64_m64abs(RAX, (unsigned long long *)(®_cop1_double[dst->f.cf.fs]));
|
|
fld_preg64_qword(RAX);
|
|
mov_reg64_m64abs(RAX, (unsigned long long *)(®_cop1_double[dst->f.cf.ft]));
|
|
fmul_preg64_qword(RAX);
|
|
mov_reg64_m64abs(RAX, (unsigned long long *)(®_cop1_double[dst->f.cf.fd]));
|
|
fstp_preg64_qword(RAX);
|
|
#endif
|
|
}
|
|
|
|
void gendiv_d()
|
|
{
|
|
#if defined(COUNT_INSTR)
|
|
inc_m32abs(&instr_count[122]);
|
|
#endif
|
|
#ifdef INTERPRET_DIV_D
|
|
gencallinterp((unsigned long long)DIV_D, 0);
|
|
#else
|
|
gencheck_cop1_unusable();
|
|
mov_reg64_m64abs(RAX, (unsigned long long *)(®_cop1_double[dst->f.cf.fs]));
|
|
fld_preg64_qword(RAX);
|
|
mov_reg64_m64abs(RAX, (unsigned long long *)(®_cop1_double[dst->f.cf.ft]));
|
|
fdiv_preg64_qword(RAX);
|
|
mov_reg64_m64abs(RAX, (unsigned long long *)(®_cop1_double[dst->f.cf.fd]));
|
|
fstp_preg64_qword(RAX);
|
|
#endif
|
|
}
|
|
|
|
void gensqrt_d()
|
|
{
|
|
#if defined(COUNT_INSTR)
|
|
inc_m32abs(&instr_count[123]);
|
|
#endif
|
|
#ifdef INTERPRET_SQRT_D
|
|
gencallinterp((unsigned long long)SQRT_D, 0);
|
|
#else
|
|
gencheck_cop1_unusable();
|
|
mov_reg64_m64abs(RAX, (unsigned long long *)(®_cop1_double[dst->f.cf.fs]));
|
|
fld_preg64_qword(RAX);
|
|
fsqrt();
|
|
mov_reg64_m64abs(RAX, (unsigned long long *)(®_cop1_double[dst->f.cf.fd]));
|
|
fstp_preg64_qword(RAX);
|
|
#endif
|
|
}
|
|
|
|
void genabs_d()
|
|
{
|
|
#if defined(COUNT_INSTR)
|
|
inc_m32abs(&instr_count[124]);
|
|
#endif
|
|
#ifdef INTERPRET_ABS_D
|
|
gencallinterp((unsigned long long)ABS_D, 0);
|
|
#else
|
|
gencheck_cop1_unusable();
|
|
mov_reg64_m64abs(RAX, (unsigned long long *)(®_cop1_double[dst->f.cf.fs]));
|
|
fld_preg64_qword(RAX);
|
|
fabs_();
|
|
mov_reg64_m64abs(RAX, (unsigned long long *)(®_cop1_double[dst->f.cf.fd]));
|
|
fstp_preg64_qword(RAX);
|
|
#endif
|
|
}
|
|
|
|
void genmov_d()
|
|
{
|
|
#if defined(COUNT_INSTR)
|
|
inc_m32abs(&instr_count[125]);
|
|
#endif
|
|
#ifdef INTERPRET_MOV_D
|
|
gencallinterp((unsigned long long)MOV_D, 0);
|
|
#else
|
|
gencheck_cop1_unusable();
|
|
mov_reg64_m64abs(RAX, (unsigned long long *)(®_cop1_double[dst->f.cf.fs]));
|
|
mov_reg32_preg64(EBX, RAX);
|
|
mov_reg32_preg64pimm32(ECX, RAX, 4);
|
|
mov_reg64_m64abs(RAX, (unsigned long long *)(®_cop1_double[dst->f.cf.fd]));
|
|
mov_preg64_reg32(RAX, EBX);
|
|
mov_preg64pimm32_reg32(RAX, 4, ECX);
|
|
#endif
|
|
}
|
|
|
|
void genneg_d()
|
|
{
|
|
#if defined(COUNT_INSTR)
|
|
inc_m32abs(&instr_count[126]);
|
|
#endif
|
|
#ifdef INTERPRET_NEG_D
|
|
gencallinterp((unsigned long long)NEG_D, 0);
|
|
#else
|
|
gencheck_cop1_unusable();
|
|
mov_reg64_m64abs(RAX, (unsigned long long *)(®_cop1_double[dst->f.cf.fs]));
|
|
fld_preg64_qword(RAX);
|
|
fchs();
|
|
mov_reg64_m64abs(RAX, (unsigned long long *)(®_cop1_double[dst->f.cf.fd]));
|
|
fstp_preg64_qword(RAX);
|
|
#endif
|
|
}
|
|
|
|
void genround_l_d()
|
|
{
|
|
#if defined(COUNT_INSTR)
|
|
inc_m32abs(&instr_count[127]);
|
|
#endif
|
|
#ifdef INTERPRET_ROUND_L_D
|
|
gencallinterp((unsigned long long)ROUND_L_D, 0);
|
|
#else
|
|
gencheck_cop1_unusable();
|
|
fldcw_m16abs((unsigned short*)&round_mode);
|
|
mov_reg64_m64abs(RAX, (unsigned long long *)(®_cop1_double[dst->f.cf.fs]));
|
|
fld_preg64_qword(RAX);
|
|
mov_reg64_m64abs(RAX, (unsigned long long *)(®_cop1_double[dst->f.cf.fd]));
|
|
fistp_preg64_qword(RAX);
|
|
fldcw_m16abs((unsigned short*)&rounding_mode);
|
|
#endif
|
|
}
|
|
|
|
void gentrunc_l_d()
|
|
{
|
|
#if defined(COUNT_INSTR)
|
|
inc_m32abs(&instr_count[128]);
|
|
#endif
|
|
#ifdef INTERPRET_TRUNC_L_D
|
|
gencallinterp((unsigned long long)TRUNC_L_D, 0);
|
|
#else
|
|
gencheck_cop1_unusable();
|
|
fldcw_m16abs((unsigned short*)&trunc_mode);
|
|
mov_reg64_m64abs(RAX, (unsigned long long *)(®_cop1_double[dst->f.cf.fs]));
|
|
fld_preg64_qword(RAX);
|
|
mov_reg64_m64abs(RAX, (unsigned long long *)(®_cop1_double[dst->f.cf.fd]));
|
|
fistp_preg64_qword(RAX);
|
|
fldcw_m16abs((unsigned short*)&rounding_mode);
|
|
#endif
|
|
}
|
|
|
|
void genceil_l_d()
|
|
{
|
|
#if defined(COUNT_INSTR)
|
|
inc_m32abs(&instr_count[129]);
|
|
#endif
|
|
#ifdef INTERPRET_CEIL_L_D
|
|
gencallinterp((unsigned long long)CEIL_L_D, 0);
|
|
#else
|
|
gencheck_cop1_unusable();
|
|
fldcw_m16abs((unsigned short*)&ceil_mode);
|
|
mov_reg64_m64abs(RAX, (unsigned long long *)(®_cop1_double[dst->f.cf.fs]));
|
|
fld_preg64_qword(RAX);
|
|
mov_reg64_m64abs(RAX, (unsigned long long *)(®_cop1_double[dst->f.cf.fd]));
|
|
fistp_preg64_qword(RAX);
|
|
fldcw_m16abs((unsigned short*)&rounding_mode);
|
|
#endif
|
|
}
|
|
|
|
void genfloor_l_d()
|
|
{
|
|
#if defined(COUNT_INSTR)
|
|
inc_m32abs(&instr_count[130]);
|
|
#endif
|
|
#ifdef INTERPRET_FLOOR_L_D
|
|
gencallinterp((unsigned long long)FLOOR_L_D, 0);
|
|
#else
|
|
gencheck_cop1_unusable();
|
|
fldcw_m16abs((unsigned short*)&floor_mode);
|
|
mov_reg64_m64abs(RAX, (unsigned long long *)(®_cop1_double[dst->f.cf.fs]));
|
|
fld_preg64_qword(RAX);
|
|
mov_reg64_m64abs(RAX, (unsigned long long *)(®_cop1_double[dst->f.cf.fd]));
|
|
fistp_preg64_qword(RAX);
|
|
fldcw_m16abs((unsigned short*)&rounding_mode);
|
|
#endif
|
|
}
|
|
|
|
void genround_w_d()
|
|
{
|
|
#if defined(COUNT_INSTR)
|
|
inc_m32abs(&instr_count[127]);
|
|
#endif
|
|
#ifdef INTERPRET_ROUND_W_D
|
|
gencallinterp((unsigned long long)ROUND_W_D, 0);
|
|
#else
|
|
gencheck_cop1_unusable();
|
|
fldcw_m16abs((unsigned short*)&round_mode);
|
|
mov_reg64_m64abs(RAX, (unsigned long long *)(®_cop1_double[dst->f.cf.fs]));
|
|
fld_preg64_qword(RAX);
|
|
mov_reg64_m64abs(RAX, (unsigned long long *)(®_cop1_simple[dst->f.cf.fd]));
|
|
fistp_preg64_dword(RAX);
|
|
fldcw_m16abs((unsigned short*)&rounding_mode);
|
|
#endif
|
|
}
|
|
|
|
void gentrunc_w_d()
|
|
{
|
|
#if defined(COUNT_INSTR)
|
|
inc_m32abs(&instr_count[128]);
|
|
#endif
|
|
#ifdef INTERPRET_TRUNC_W_D
|
|
gencallinterp((unsigned long long)TRUNC_W_D, 0);
|
|
#else
|
|
gencheck_cop1_unusable();
|
|
fldcw_m16abs((unsigned short*)&trunc_mode);
|
|
mov_reg64_m64abs(RAX, (unsigned long long *)(®_cop1_double[dst->f.cf.fs]));
|
|
fld_preg64_qword(RAX);
|
|
mov_reg64_m64abs(RAX, (unsigned long long *)(®_cop1_simple[dst->f.cf.fd]));
|
|
fistp_preg64_dword(RAX);
|
|
fldcw_m16abs((unsigned short*)&rounding_mode);
|
|
#endif
|
|
}
|
|
|
|
void genceil_w_d()
|
|
{
|
|
#if defined(COUNT_INSTR)
|
|
inc_m32abs(&instr_count[129]);
|
|
#endif
|
|
#ifdef INTERPRET_CEIL_W_D
|
|
gencallinterp((unsigned long long)CEIL_W_D, 0);
|
|
#else
|
|
gencheck_cop1_unusable();
|
|
fldcw_m16abs((unsigned short*)&ceil_mode);
|
|
mov_reg64_m64abs(RAX, (unsigned long long *)(®_cop1_double[dst->f.cf.fs]));
|
|
fld_preg64_qword(RAX);
|
|
mov_reg64_m64abs(RAX, (unsigned long long *)(®_cop1_simple[dst->f.cf.fd]));
|
|
fistp_preg64_dword(RAX);
|
|
fldcw_m16abs((unsigned short*)&rounding_mode);
|
|
#endif
|
|
}
|
|
|
|
void genfloor_w_d()
|
|
{
|
|
#if defined(COUNT_INSTR)
|
|
inc_m32abs(&instr_count[130]);
|
|
#endif
|
|
#ifdef INTERPRET_FLOOR_W_D
|
|
gencallinterp((unsigned long long)FLOOR_W_D, 0);
|
|
#else
|
|
gencheck_cop1_unusable();
|
|
fldcw_m16abs((unsigned short*)&floor_mode);
|
|
mov_reg64_m64abs(RAX, (unsigned long long *)(®_cop1_double[dst->f.cf.fs]));
|
|
fld_preg64_qword(RAX);
|
|
mov_reg64_m64abs(RAX, (unsigned long long *)(®_cop1_simple[dst->f.cf.fd]));
|
|
fistp_preg64_dword(RAX);
|
|
fldcw_m16abs((unsigned short*)&rounding_mode);
|
|
#endif
|
|
}
|
|
|
|
void gencvt_s_d()
|
|
{
|
|
#if defined(COUNT_INSTR)
|
|
inc_m32abs(&instr_count[117]);
|
|
#endif
|
|
#ifdef INTERPRET_CVT_S_D
|
|
gencallinterp((unsigned long long)CVT_S_D, 0);
|
|
#else
|
|
gencheck_cop1_unusable();
|
|
mov_reg64_m64abs(RAX, (unsigned long long *)(®_cop1_double[dst->f.cf.fs]));
|
|
fld_preg64_qword(RAX);
|
|
mov_reg64_m64abs(RAX, (unsigned long long *)(®_cop1_simple[dst->f.cf.fd]));
|
|
fstp_preg64_dword(RAX);
|
|
#endif
|
|
}
|
|
|
|
void gencvt_w_d()
|
|
{
|
|
#if defined(COUNT_INSTR)
|
|
inc_m32abs(&instr_count[117]);
|
|
#endif
|
|
#ifdef INTERPRET_CVT_W_D
|
|
gencallinterp((unsigned long long)CVT_W_D, 0);
|
|
#else
|
|
gencheck_cop1_unusable();
|
|
mov_reg64_m64abs(RAX, (unsigned long long *)(®_cop1_double[dst->f.cf.fs]));
|
|
fld_preg64_qword(RAX);
|
|
mov_reg64_m64abs(RAX, (unsigned long long *)(®_cop1_simple[dst->f.cf.fd]));
|
|
fistp_preg64_dword(RAX);
|
|
#endif
|
|
}
|
|
|
|
void gencvt_l_d()
|
|
{
|
|
#if defined(COUNT_INSTR)
|
|
inc_m32abs(&instr_count[117]);
|
|
#endif
|
|
#ifdef INTERPRET_CVT_L_D
|
|
gencallinterp((unsigned long long)CVT_L_D, 0);
|
|
#else
|
|
gencheck_cop1_unusable();
|
|
mov_reg64_m64abs(RAX, (unsigned long long *)(®_cop1_double[dst->f.cf.fs]));
|
|
fld_preg64_qword(RAX);
|
|
mov_reg64_m64abs(RAX, (unsigned long long *)(®_cop1_double[dst->f.cf.fd]));
|
|
fistp_preg64_qword(RAX);
|
|
#endif
|
|
}
|
|
|
|
void genc_f_d()
|
|
{
|
|
#if defined(COUNT_INSTR)
|
|
inc_m32abs(&instr_count[118]);
|
|
#endif
|
|
#ifdef INTERPRET_C_F_D
|
|
gencallinterp((unsigned long long)C_F_D, 0);
|
|
#else
|
|
gencheck_cop1_unusable();
|
|
and_m32abs_imm32((unsigned int*)&FCR31, ~0x800000);
|
|
#endif
|
|
}
|
|
|
|
void genc_un_d()
|
|
{
|
|
#if defined(COUNT_INSTR)
|
|
inc_m32abs(&instr_count[118]);
|
|
#endif
|
|
#ifdef INTERPRET_C_UN_D
|
|
gencallinterp((unsigned long long)C_UN_D, 0);
|
|
#else
|
|
gencheck_cop1_unusable();
|
|
mov_reg64_m64abs(RAX, (unsigned long long *)(®_cop1_double[dst->f.cf.ft]));
|
|
fld_preg64_qword(RAX);
|
|
mov_reg64_m64abs(RAX, (unsigned long long *)(®_cop1_double[dst->f.cf.fs]));
|
|
fld_preg64_qword(RAX);
|
|
fucomip_fpreg(1);
|
|
ffree_fpreg(0);
|
|
jp_rj(13);
|
|
and_m32abs_imm32((unsigned int*)&FCR31, ~0x800000); // 11
|
|
jmp_imm_short(11); // 2
|
|
or_m32abs_imm32((unsigned int*)&FCR31, 0x800000); // 11
|
|
#endif
|
|
}
|
|
|
|
void genc_eq_d()
|
|
{
|
|
#if defined(COUNT_INSTR)
|
|
inc_m32abs(&instr_count[118]);
|
|
#endif
|
|
#ifdef INTERPRET_C_EQ_D
|
|
gencallinterp((unsigned long long)C_EQ_D, 0);
|
|
#else
|
|
gencheck_cop1_unusable();
|
|
mov_reg64_m64abs(RAX, (unsigned long long *)(®_cop1_double[dst->f.cf.ft]));
|
|
fld_preg64_qword(RAX);
|
|
mov_reg64_m64abs(RAX, (unsigned long long *)(®_cop1_double[dst->f.cf.fs]));
|
|
fld_preg64_qword(RAX);
|
|
fucomip_fpreg(1);
|
|
ffree_fpreg(0);
|
|
jne_rj(13); // 2
|
|
or_m32abs_imm32((unsigned int*)&FCR31, 0x800000); // 11
|
|
jmp_imm_short(11); // 2
|
|
and_m32abs_imm32((unsigned int*)&FCR31, ~0x800000); // 11
|
|
#endif
|
|
}
|
|
|
|
void genc_ueq_d()
|
|
{
|
|
#if defined(COUNT_INSTR)
|
|
inc_m32abs(&instr_count[118]);
|
|
#endif
|
|
#ifdef INTERPRET_C_UEQ_D
|
|
gencallinterp((unsigned long long)C_UEQ_D, 0);
|
|
#else
|
|
gencheck_cop1_unusable();
|
|
mov_reg64_m64abs(RAX, (unsigned long long *)(®_cop1_double[dst->f.cf.ft]));
|
|
fld_preg64_qword(RAX);
|
|
mov_reg64_m64abs(RAX, (unsigned long long *)(®_cop1_double[dst->f.cf.fs]));
|
|
fld_preg64_qword(RAX);
|
|
fucomip_fpreg(1);
|
|
ffree_fpreg(0);
|
|
jp_rj(15);
|
|
jne_rj(13);
|
|
or_m32abs_imm32((unsigned int*)&FCR31, 0x800000); // 11
|
|
jmp_imm_short(11); // 2
|
|
and_m32abs_imm32((unsigned int*)&FCR31, ~0x800000); // 11
|
|
#endif
|
|
}
|
|
|
|
void genc_olt_d()
|
|
{
|
|
#if defined(COUNT_INSTR)
|
|
inc_m32abs(&instr_count[118]);
|
|
#endif
|
|
#ifdef INTERPRET_C_OLT_D
|
|
gencallinterp((unsigned long long)C_OLT_D, 0);
|
|
#else
|
|
gencheck_cop1_unusable();
|
|
mov_reg64_m64abs(RAX, (unsigned long long *)(®_cop1_double[dst->f.cf.ft]));
|
|
fld_preg64_qword(RAX);
|
|
mov_reg64_m64abs(RAX, (unsigned long long *)(®_cop1_double[dst->f.cf.fs]));
|
|
fld_preg64_qword(RAX);
|
|
fucomip_fpreg(1);
|
|
ffree_fpreg(0);
|
|
jae_rj(13); // 2
|
|
or_m32abs_imm32((unsigned int*)&FCR31, 0x800000); // 11
|
|
jmp_imm_short(11); // 2
|
|
and_m32abs_imm32((unsigned int*)&FCR31, ~0x800000); // 11
|
|
#endif
|
|
}
|
|
|
|
void genc_ult_d()
|
|
{
|
|
#if defined(COUNT_INSTR)
|
|
inc_m32abs(&instr_count[118]);
|
|
#endif
|
|
#ifdef INTERPRET_C_ULT_D
|
|
gencallinterp((unsigned long long)C_ULT_D, 0);
|
|
#else
|
|
gencheck_cop1_unusable();
|
|
mov_reg64_m64abs(RAX, (unsigned long long *)(®_cop1_double[dst->f.cf.ft]));
|
|
fld_preg64_qword(RAX);
|
|
mov_reg64_m64abs(RAX, (unsigned long long *)(®_cop1_double[dst->f.cf.fs]));
|
|
fld_preg64_qword(RAX);
|
|
fucomip_fpreg(1);
|
|
ffree_fpreg(0);
|
|
jp_rj(15);
|
|
jae_rj(13); // 2
|
|
or_m32abs_imm32((unsigned int*)&FCR31, 0x800000); // 11
|
|
jmp_imm_short(11); // 2
|
|
and_m32abs_imm32((unsigned int*)&FCR31, ~0x800000); // 11
|
|
#endif
|
|
}
|
|
|
|
void genc_ole_d()
|
|
{
|
|
#if defined(COUNT_INSTR)
|
|
inc_m32abs(&instr_count[118]);
|
|
#endif
|
|
#ifdef INTERPRET_C_OLE_D
|
|
gencallinterp((unsigned long long)C_OLE_D, 0);
|
|
#else
|
|
gencheck_cop1_unusable();
|
|
mov_reg64_m64abs(RAX, (unsigned long long *)(®_cop1_double[dst->f.cf.ft]));
|
|
fld_preg64_qword(RAX);
|
|
mov_reg64_m64abs(RAX, (unsigned long long *)(®_cop1_double[dst->f.cf.fs]));
|
|
fld_preg64_qword(RAX);
|
|
fucomip_fpreg(1);
|
|
ffree_fpreg(0);
|
|
ja_rj(13); // 2
|
|
or_m32abs_imm32((unsigned int*)&FCR31, 0x800000); // 11
|
|
jmp_imm_short(11); // 2
|
|
and_m32abs_imm32((unsigned int*)&FCR31, ~0x800000); // 11
|
|
#endif
|
|
}
|
|
|
|
void genc_ule_d()
|
|
{
|
|
#if defined(COUNT_INSTR)
|
|
inc_m32abs(&instr_count[118]);
|
|
#endif
|
|
#ifdef INTERPRET_C_ULE_D
|
|
gencallinterp((unsigned long long)C_ULE_D, 0);
|
|
#else
|
|
gencheck_cop1_unusable();
|
|
mov_reg64_m64abs(RAX, (unsigned long long *)(®_cop1_double[dst->f.cf.ft]));
|
|
fld_preg64_qword(RAX);
|
|
mov_reg64_m64abs(RAX, (unsigned long long *)(®_cop1_double[dst->f.cf.fs]));
|
|
fld_preg64_qword(RAX);
|
|
fucomip_fpreg(1);
|
|
ffree_fpreg(0);
|
|
jp_rj(15);
|
|
ja_rj(13); // 2
|
|
or_m32abs_imm32((unsigned int*)&FCR31, 0x800000); // 11
|
|
jmp_imm_short(11); // 2
|
|
and_m32abs_imm32((unsigned int*)&FCR31, ~0x800000); // 11
|
|
#endif
|
|
}
|
|
|
|
void genc_sf_d()
|
|
{
|
|
#if defined(COUNT_INSTR)
|
|
inc_m32abs(&instr_count[118]);
|
|
#endif
|
|
#ifdef INTERPRET_C_SF_D
|
|
gencallinterp((unsigned long long)C_SF_D, 0);
|
|
#else
|
|
gencheck_cop1_unusable();
|
|
mov_reg64_m64abs(RAX, (unsigned long long *)(®_cop1_double[dst->f.cf.ft]));
|
|
fld_preg64_qword(RAX);
|
|
mov_reg64_m64abs(RAX, (unsigned long long *)(®_cop1_double[dst->f.cf.fs]));
|
|
fld_preg64_qword(RAX);
|
|
fcomip_fpreg(1);
|
|
ffree_fpreg(0);
|
|
and_m32abs_imm32((unsigned int*)&FCR31, ~0x800000);
|
|
#endif
|
|
}
|
|
|
|
void genc_ngle_d()
|
|
{
|
|
#if defined(COUNT_INSTR)
|
|
inc_m32abs(&instr_count[118]);
|
|
#endif
|
|
#ifdef INTERPRET_C_NGLE_D
|
|
gencallinterp((unsigned long long)C_NGLE_D, 0);
|
|
#else
|
|
gencheck_cop1_unusable();
|
|
mov_reg64_m64abs(RAX, (unsigned long long *)(®_cop1_double[dst->f.cf.ft]));
|
|
fld_preg64_qword(RAX);
|
|
mov_reg64_m64abs(RAX, (unsigned long long *)(®_cop1_double[dst->f.cf.fs]));
|
|
fld_preg64_qword(RAX);
|
|
fcomip_fpreg(1);
|
|
ffree_fpreg(0);
|
|
jp_rj(13);
|
|
and_m32abs_imm32((unsigned int*)&FCR31, ~0x800000); // 11
|
|
jmp_imm_short(11); // 2
|
|
or_m32abs_imm32((unsigned int*)&FCR31, 0x800000); // 11
|
|
#endif
|
|
}
|
|
|
|
void genc_seq_d()
|
|
{
|
|
#if defined(COUNT_INSTR)
|
|
inc_m32abs(&instr_count[118]);
|
|
#endif
|
|
#ifdef INTERPRET_C_SEQ_D
|
|
gencallinterp((unsigned long long)C_SEQ_D, 0);
|
|
#else
|
|
gencheck_cop1_unusable();
|
|
mov_reg64_m64abs(RAX, (unsigned long long *)(®_cop1_double[dst->f.cf.ft]));
|
|
fld_preg64_qword(RAX);
|
|
mov_reg64_m64abs(RAX, (unsigned long long *)(®_cop1_double[dst->f.cf.fs]));
|
|
fld_preg64_qword(RAX);
|
|
fcomip_fpreg(1);
|
|
ffree_fpreg(0);
|
|
jne_rj(13); // 2
|
|
or_m32abs_imm32((unsigned int*)&FCR31, 0x800000); // 11
|
|
jmp_imm_short(11); // 2
|
|
and_m32abs_imm32((unsigned int*)&FCR31, ~0x800000); // 11
|
|
#endif
|
|
}
|
|
|
|
void genc_ngl_d()
|
|
{
|
|
#if defined(COUNT_INSTR)
|
|
inc_m32abs(&instr_count[118]);
|
|
#endif
|
|
#ifdef INTERPRET_C_NGL_D
|
|
gencallinterp((unsigned long long)C_NGL_D, 0);
|
|
#else
|
|
gencheck_cop1_unusable();
|
|
mov_reg64_m64abs(RAX, (unsigned long long *)(®_cop1_double[dst->f.cf.ft]));
|
|
fld_preg64_qword(RAX);
|
|
mov_reg64_m64abs(RAX, (unsigned long long *)(®_cop1_double[dst->f.cf.fs]));
|
|
fld_preg64_qword(RAX);
|
|
fcomip_fpreg(1);
|
|
ffree_fpreg(0);
|
|
jp_rj(15);
|
|
jne_rj(13);
|
|
or_m32abs_imm32((unsigned int*)&FCR31, 0x800000); // 11
|
|
jmp_imm_short(11); // 2
|
|
and_m32abs_imm32((unsigned int*)&FCR31, ~0x800000); // 11
|
|
#endif
|
|
}
|
|
|
|
void genc_lt_d()
|
|
{
|
|
#if defined(COUNT_INSTR)
|
|
inc_m32abs(&instr_count[118]);
|
|
#endif
|
|
#ifdef INTERPRET_C_LT_D
|
|
gencallinterp((unsigned long long)C_LT_D, 0);
|
|
#else
|
|
gencheck_cop1_unusable();
|
|
mov_reg64_m64abs(RAX, (unsigned long long *)(®_cop1_double[dst->f.cf.ft]));
|
|
fld_preg64_qword(RAX);
|
|
mov_reg64_m64abs(RAX, (unsigned long long *)(®_cop1_double[dst->f.cf.fs]));
|
|
fld_preg64_qword(RAX);
|
|
fcomip_fpreg(1);
|
|
ffree_fpreg(0);
|
|
jae_rj(13); // 2
|
|
or_m32abs_imm32((unsigned int*)&FCR31, 0x800000); // 11
|
|
jmp_imm_short(11); // 2
|
|
and_m32abs_imm32((unsigned int*)&FCR31, ~0x800000); // 11
|
|
#endif
|
|
}
|
|
|
|
void genc_nge_d()
|
|
{
|
|
#if defined(COUNT_INSTR)
|
|
inc_m32abs(&instr_count[118]);
|
|
#endif
|
|
#ifdef INTERPRET_C_NGE_D
|
|
gencallinterp((unsigned long long)C_NGE_D, 0);
|
|
#else
|
|
gencheck_cop1_unusable();
|
|
mov_reg64_m64abs(RAX, (unsigned long long *)(®_cop1_double[dst->f.cf.ft]));
|
|
fld_preg64_qword(RAX);
|
|
mov_reg64_m64abs(RAX, (unsigned long long *)(®_cop1_double[dst->f.cf.fs]));
|
|
fld_preg64_qword(RAX);
|
|
fcomip_fpreg(1);
|
|
ffree_fpreg(0);
|
|
jp_rj(15);
|
|
jae_rj(13); // 2
|
|
or_m32abs_imm32((unsigned int*)&FCR31, 0x800000); // 11
|
|
jmp_imm_short(11); // 2
|
|
and_m32abs_imm32((unsigned int*)&FCR31, ~0x800000); // 11
|
|
#endif
|
|
}
|
|
|
|
void genc_le_d()
|
|
{
|
|
#if defined(COUNT_INSTR)
|
|
inc_m32abs(&instr_count[118]);
|
|
#endif
|
|
#ifdef INTERPRET_C_LE_D
|
|
gencallinterp((unsigned long long)C_LE_D, 0);
|
|
#else
|
|
gencheck_cop1_unusable();
|
|
mov_reg64_m64abs(RAX, (unsigned long long *)(®_cop1_double[dst->f.cf.ft]));
|
|
fld_preg64_qword(RAX);
|
|
mov_reg64_m64abs(RAX, (unsigned long long *)(®_cop1_double[dst->f.cf.fs]));
|
|
fld_preg64_qword(RAX);
|
|
fcomip_fpreg(1);
|
|
ffree_fpreg(0);
|
|
ja_rj(13); // 2
|
|
or_m32abs_imm32((unsigned int*)&FCR31, 0x800000); // 11
|
|
jmp_imm_short(11); // 2
|
|
and_m32abs_imm32((unsigned int*)&FCR31, ~0x800000); // 11
|
|
#endif
|
|
}
|
|
|
|
void genc_ngt_d()
|
|
{
|
|
#if defined(COUNT_INSTR)
|
|
inc_m32abs(&instr_count[118]);
|
|
#endif
|
|
#ifdef INTERPRET_C_NGT_D
|
|
gencallinterp((unsigned long long)C_NGT_D, 0);
|
|
#else
|
|
gencheck_cop1_unusable();
|
|
mov_reg64_m64abs(RAX, (unsigned long long *)(®_cop1_double[dst->f.cf.ft]));
|
|
fld_preg64_qword(RAX);
|
|
mov_reg64_m64abs(RAX, (unsigned long long *)(®_cop1_double[dst->f.cf.fs]));
|
|
fld_preg64_qword(RAX);
|
|
fcomip_fpreg(1);
|
|
ffree_fpreg(0);
|
|
jp_rj(15);
|
|
ja_rj(13); // 2
|
|
or_m32abs_imm32((unsigned int*)&FCR31, 0x800000); // 11
|
|
jmp_imm_short(11); // 2
|
|
and_m32abs_imm32((unsigned int*)&FCR31, ~0x800000); // 11
|
|
#endif
|
|
}
|