mupen64plus-oldsvn/r4300/x86/gcop1_s.c

603 lines
17 KiB
C

/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* Mupen64plus - gcop1_s.c *
* Mupen64Plus homepage: http://code.google.com/p/mupen64plus/ *
* Copyright (C) 2002 Hacktarux *
* *
* This program is free software; you can redistribute it and/or modify *
* it under the terms of the GNU General Public License as published by *
* the Free Software Foundation; either version 2 of the License, or *
* (at your option) any later version. *
* *
* This program is distributed in the hope that it will be useful, *
* but WITHOUT ANY WARRANTY; without even the implied warranty of *
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the *
* GNU General Public License for more details. *
* *
* You should have received a copy of the GNU General Public License *
* along with this program; if not, write to the *
* Free Software Foundation, Inc., *
* 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */
#include <stdio.h>
#include "assemble.h"
#include "interpret.h"
#include "../recomph.h"
#include "../r4300.h"
#include "../ops.h"
#include "../macros.h"
void genadd_s(void)
{
#ifdef INTERPRET_ADD_S
gencallinterp((unsigned int)ADD_S, 0);
#else
gencheck_cop1_unusable();
mov_eax_memoffs32((unsigned int *)(&reg_cop1_simple[dst->f.cf.fs]));
fld_preg32_dword(EAX);
mov_eax_memoffs32((unsigned int *)(&reg_cop1_simple[dst->f.cf.ft]));
fadd_preg32_dword(EAX);
mov_eax_memoffs32((unsigned int *)(&reg_cop1_simple[dst->f.cf.fd]));
fstp_preg32_dword(EAX);
#endif
}
void gensub_s(void)
{
#ifdef INTERPRET_SUB_S
gencallinterp((unsigned int)SUB_S, 0);
#else
gencheck_cop1_unusable();
mov_eax_memoffs32((unsigned int *)(&reg_cop1_simple[dst->f.cf.fs]));
fld_preg32_dword(EAX);
mov_eax_memoffs32((unsigned int *)(&reg_cop1_simple[dst->f.cf.ft]));
fsub_preg32_dword(EAX);
mov_eax_memoffs32((unsigned int *)(&reg_cop1_simple[dst->f.cf.fd]));
fstp_preg32_dword(EAX);
#endif
}
void genmul_s(void)
{
#ifdef INTERPRET_MUL_S
gencallinterp((unsigned int)MUL_S, 0);
#else
gencheck_cop1_unusable();
mov_eax_memoffs32((unsigned int *)(&reg_cop1_simple[dst->f.cf.fs]));
fld_preg32_dword(EAX);
mov_eax_memoffs32((unsigned int *)(&reg_cop1_simple[dst->f.cf.ft]));
fmul_preg32_dword(EAX);
mov_eax_memoffs32((unsigned int *)(&reg_cop1_simple[dst->f.cf.fd]));
fstp_preg32_dword(EAX);
#endif
}
void gendiv_s(void)
{
#ifdef INTERPRET_DIV_S
gencallinterp((unsigned int)DIV_S, 0);
#else
gencheck_cop1_unusable();
mov_eax_memoffs32((unsigned int *)(&reg_cop1_simple[dst->f.cf.fs]));
fld_preg32_dword(EAX);
mov_eax_memoffs32((unsigned int *)(&reg_cop1_simple[dst->f.cf.ft]));
fdiv_preg32_dword(EAX);
mov_eax_memoffs32((unsigned int *)(&reg_cop1_simple[dst->f.cf.fd]));
fstp_preg32_dword(EAX);
#endif
}
void gensqrt_s(void)
{
#ifdef INTERPRET_SQRT_S
gencallinterp((unsigned int)SQRT_S, 0);
#else
gencheck_cop1_unusable();
mov_eax_memoffs32((unsigned int *)(&reg_cop1_simple[dst->f.cf.fs]));
fld_preg32_dword(EAX);
fsqrt();
mov_eax_memoffs32((unsigned int *)(&reg_cop1_simple[dst->f.cf.fd]));
fstp_preg32_dword(EAX);
#endif
}
void genabs_s(void)
{
#ifdef INTERPRET_ABS_S
gencallinterp((unsigned int)ABS_S, 0);
#else
gencheck_cop1_unusable();
mov_eax_memoffs32((unsigned int *)(&reg_cop1_simple[dst->f.cf.fs]));
fld_preg32_dword(EAX);
fabs_();
mov_eax_memoffs32((unsigned int *)(&reg_cop1_simple[dst->f.cf.fd]));
fstp_preg32_dword(EAX);
#endif
}
void genmov_s(void)
{
#ifdef INTERPRET_MOV_S
gencallinterp((unsigned int)MOV_S, 0);
#else
gencheck_cop1_unusable();
mov_eax_memoffs32((unsigned int *)(&reg_cop1_simple[dst->f.cf.fs]));
mov_reg32_preg32(EBX, EAX);
mov_eax_memoffs32((unsigned int *)(&reg_cop1_simple[dst->f.cf.fd]));
mov_preg32_reg32(EAX, EBX);
#endif
}
void genneg_s(void)
{
#ifdef INTERPRET_NEG_S
gencallinterp((unsigned int)NEG_S, 0);
#else
gencheck_cop1_unusable();
mov_eax_memoffs32((unsigned int *)(&reg_cop1_simple[dst->f.cf.fs]));
fld_preg32_dword(EAX);
fchs();
mov_eax_memoffs32((unsigned int *)(&reg_cop1_simple[dst->f.cf.fd]));
fstp_preg32_dword(EAX);
#endif
}
void genround_l_s(void)
{
#ifdef INTERPRET_ROUND_L_S
gencallinterp((unsigned int)ROUND_L_S, 0);
#else
gencheck_cop1_unusable();
fldcw_m16((unsigned short*)&round_mode);
mov_eax_memoffs32((unsigned int *)(&reg_cop1_simple[dst->f.cf.fs]));
fld_preg32_dword(EAX);
mov_eax_memoffs32((unsigned int *)(&reg_cop1_double[dst->f.cf.fd]));
fistp_preg32_qword(EAX);
fldcw_m16((unsigned short*)&rounding_mode);
#endif
}
void gentrunc_l_s(void)
{
#ifdef INTERPRET_TRUNC_L_S
gencallinterp((unsigned int)TRUNC_L_S, 0);
#else
gencheck_cop1_unusable();
fldcw_m16((unsigned short*)&trunc_mode);
mov_eax_memoffs32((unsigned int *)(&reg_cop1_simple[dst->f.cf.fs]));
fld_preg32_dword(EAX);
mov_eax_memoffs32((unsigned int *)(&reg_cop1_double[dst->f.cf.fd]));
fistp_preg32_qword(EAX);
fldcw_m16((unsigned short*)&rounding_mode);
#endif
}
void genceil_l_s(void)
{
#ifdef INTERPRET_CEIL_L_S
gencallinterp((unsigned int)CEIL_L_S, 0);
#else
gencheck_cop1_unusable();
fldcw_m16((unsigned short*)&ceil_mode);
mov_eax_memoffs32((unsigned int *)(&reg_cop1_simple[dst->f.cf.fs]));
fld_preg32_dword(EAX);
mov_eax_memoffs32((unsigned int *)(&reg_cop1_double[dst->f.cf.fd]));
fistp_preg32_qword(EAX);
fldcw_m16((unsigned short*)&rounding_mode);
#endif
}
void genfloor_l_s(void)
{
#ifdef INTERPRET_FLOOR_L_S
gencallinterp((unsigned int)FLOOR_L_S, 0);
#else
gencheck_cop1_unusable();
fldcw_m16((unsigned short*)&floor_mode);
mov_eax_memoffs32((unsigned int *)(&reg_cop1_simple[dst->f.cf.fs]));
fld_preg32_dword(EAX);
mov_eax_memoffs32((unsigned int *)(&reg_cop1_double[dst->f.cf.fd]));
fistp_preg32_qword(EAX);
fldcw_m16((unsigned short*)&rounding_mode);
#endif
}
void genround_w_s(void)
{
#ifdef INTERPRET_ROUND_W_S
gencallinterp((unsigned int)ROUND_W_S, 0);
#else
gencheck_cop1_unusable();
fldcw_m16((unsigned short*)&round_mode);
mov_eax_memoffs32((unsigned int *)(&reg_cop1_simple[dst->f.cf.fs]));
fld_preg32_dword(EAX);
mov_eax_memoffs32((unsigned int *)(&reg_cop1_simple[dst->f.cf.fd]));
fistp_preg32_dword(EAX);
fldcw_m16((unsigned short*)&rounding_mode);
#endif
}
void gentrunc_w_s(void)
{
#ifdef INTERPRET_TRUNC_W_S
gencallinterp((unsigned int)TRUNC_W_S, 0);
#else
gencheck_cop1_unusable();
fldcw_m16((unsigned short*)&trunc_mode);
mov_eax_memoffs32((unsigned int *)(&reg_cop1_simple[dst->f.cf.fs]));
fld_preg32_dword(EAX);
mov_eax_memoffs32((unsigned int *)(&reg_cop1_simple[dst->f.cf.fd]));
fistp_preg32_dword(EAX);
fldcw_m16((unsigned short*)&rounding_mode);
#endif
}
void genceil_w_s(void)
{
#ifdef INTERPRET_CEIL_W_S
gencallinterp((unsigned int)CEIL_W_S, 0);
#else
gencheck_cop1_unusable();
fldcw_m16((unsigned short*)&ceil_mode);
mov_eax_memoffs32((unsigned int *)(&reg_cop1_simple[dst->f.cf.fs]));
fld_preg32_dword(EAX);
mov_eax_memoffs32((unsigned int *)(&reg_cop1_simple[dst->f.cf.fd]));
fistp_preg32_dword(EAX);
fldcw_m16((unsigned short*)&rounding_mode);
#endif
}
void genfloor_w_s(void)
{
#ifdef INTERPRET_FLOOR_W_S
gencallinterp((unsigned int)FLOOR_W_S, 0);
#else
gencheck_cop1_unusable();
fldcw_m16((unsigned short*)&floor_mode);
mov_eax_memoffs32((unsigned int *)(&reg_cop1_simple[dst->f.cf.fs]));
fld_preg32_dword(EAX);
mov_eax_memoffs32((unsigned int *)(&reg_cop1_simple[dst->f.cf.fd]));
fistp_preg32_dword(EAX);
fldcw_m16((unsigned short*)&rounding_mode);
#endif
}
void gencvt_d_s(void)
{
#ifdef INTERPRET_CVT_D_S
gencallinterp((unsigned int)CVT_D_S, 0);
#else
gencheck_cop1_unusable();
mov_eax_memoffs32((unsigned int *)(&reg_cop1_simple[dst->f.cf.fs]));
fld_preg32_dword(EAX);
mov_eax_memoffs32((unsigned int *)(&reg_cop1_double[dst->f.cf.fd]));
fstp_preg32_qword(EAX);
#endif
}
void gencvt_w_s(void)
{
#ifdef INTERPRET_CVT_W_S
gencallinterp((unsigned int)CVT_W_S, 0);
#else
gencheck_cop1_unusable();
mov_eax_memoffs32((unsigned int *)(&reg_cop1_simple[dst->f.cf.fs]));
fld_preg32_dword(EAX);
mov_eax_memoffs32((unsigned int *)(&reg_cop1_simple[dst->f.cf.fd]));
fistp_preg32_dword(EAX);
#endif
}
void gencvt_l_s(void)
{
#ifdef INTERPRET_CVT_L_S
gencallinterp((unsigned int)CVT_L_S, 0);
#else
gencheck_cop1_unusable();
mov_eax_memoffs32((unsigned int *)(&reg_cop1_simple[dst->f.cf.fs]));
fld_preg32_dword(EAX);
mov_eax_memoffs32((unsigned int *)(&reg_cop1_double[dst->f.cf.fd]));
fistp_preg32_qword(EAX);
#endif
}
void genc_f_s(void)
{
#ifdef INTERPRET_C_F_S
gencallinterp((unsigned int)C_F_S, 0);
#else
gencheck_cop1_unusable();
and_m32_imm32((unsigned int*)&FCR31, ~0x800000);
#endif
}
void genc_un_s(void)
{
#ifdef INTERPRET_C_UN_S
gencallinterp((unsigned int)C_UN_S, 0);
#else
gencheck_cop1_unusable();
mov_eax_memoffs32((unsigned int *)(&reg_cop1_simple[dst->f.cf.ft]));
fld_preg32_dword(EAX);
mov_eax_memoffs32((unsigned int *)(&reg_cop1_simple[dst->f.cf.fs]));
fld_preg32_dword(EAX);
fucomip_fpreg(1);
ffree_fpreg(0);
jp_rj(12);
and_m32_imm32((unsigned int*)&FCR31, ~0x800000); // 10
jmp_imm_short(10); // 2
or_m32_imm32((unsigned int*)&FCR31, 0x800000); // 10
#endif
}
void genc_eq_s(void)
{
#ifdef INTERPRET_C_EQ_S
gencallinterp((unsigned int)C_EQ_S, 0);
#else
gencheck_cop1_unusable();
mov_eax_memoffs32((unsigned int *)(&reg_cop1_simple[dst->f.cf.ft]));
fld_preg32_dword(EAX);
mov_eax_memoffs32((unsigned int *)(&reg_cop1_simple[dst->f.cf.fs]));
fld_preg32_dword(EAX);
fucomip_fpreg(1);
ffree_fpreg(0);
jne_rj(12);
or_m32_imm32((unsigned int*)&FCR31, 0x800000); // 10
jmp_imm_short(10); // 2
and_m32_imm32((unsigned int*)&FCR31, ~0x800000); // 10
#endif
}
void genc_ueq_s(void)
{
#ifdef INTERPRET_C_UEQ_S
gencallinterp((unsigned int)C_UEQ_S, 0);
#else
gencheck_cop1_unusable();
mov_eax_memoffs32((unsigned int *)(&reg_cop1_simple[dst->f.cf.ft]));
fld_preg32_dword(EAX);
mov_eax_memoffs32((unsigned int *)(&reg_cop1_simple[dst->f.cf.fs]));
fld_preg32_dword(EAX);
fucomip_fpreg(1);
ffree_fpreg(0);
jp_rj(14);
jne_rj(12);
or_m32_imm32((unsigned int*)&FCR31, 0x800000); // 10
jmp_imm_short(10); // 2
and_m32_imm32((unsigned int*)&FCR31, ~0x800000); // 10
#endif
}
void genc_olt_s(void)
{
#ifdef INTERPRET_C_OLT_S
gencallinterp((unsigned int)C_OLT_S, 0);
#else
gencheck_cop1_unusable();
mov_eax_memoffs32((unsigned int *)(&reg_cop1_simple[dst->f.cf.ft]));
fld_preg32_dword(EAX);
mov_eax_memoffs32((unsigned int *)(&reg_cop1_simple[dst->f.cf.fs]));
fld_preg32_dword(EAX);
fucomip_fpreg(1);
ffree_fpreg(0);
jae_rj(12);
or_m32_imm32((unsigned int*)&FCR31, 0x800000); // 10
jmp_imm_short(10); // 2
and_m32_imm32((unsigned int*)&FCR31, ~0x800000); // 10
#endif
}
void genc_ult_s(void)
{
#ifdef INTERPRET_C_ULT_S
gencallinterp((unsigned int)C_ULT_S, 0);
#else
gencheck_cop1_unusable();
mov_eax_memoffs32((unsigned int *)(&reg_cop1_simple[dst->f.cf.ft]));
fld_preg32_dword(EAX);
mov_eax_memoffs32((unsigned int *)(&reg_cop1_simple[dst->f.cf.fs]));
fld_preg32_dword(EAX);
fucomip_fpreg(1);
ffree_fpreg(0);
jp_rj(14);
jae_rj(12);
or_m32_imm32((unsigned int*)&FCR31, 0x800000); // 10
jmp_imm_short(10); // 2
and_m32_imm32((unsigned int*)&FCR31, ~0x800000); // 10
#endif
}
void genc_ole_s(void)
{
#ifdef INTERPRET_C_OLE_S
gencallinterp((unsigned int)C_OLE_S, 0);
#else
gencheck_cop1_unusable();
mov_eax_memoffs32((unsigned int *)(&reg_cop1_simple[dst->f.cf.ft]));
fld_preg32_dword(EAX);
mov_eax_memoffs32((unsigned int *)(&reg_cop1_simple[dst->f.cf.fs]));
fld_preg32_dword(EAX);
fucomip_fpreg(1);
ffree_fpreg(0);
ja_rj(12);
or_m32_imm32((unsigned int*)&FCR31, 0x800000); // 10
jmp_imm_short(10); // 2
and_m32_imm32((unsigned int*)&FCR31, ~0x800000); // 10
#endif
}
void genc_ule_s(void)
{
#ifdef INTERPRET_C_ULE_S
gencallinterp((unsigned int)C_ULE_S, 0);
#else
gencheck_cop1_unusable();
mov_eax_memoffs32((unsigned int *)(&reg_cop1_simple[dst->f.cf.ft]));
fld_preg32_dword(EAX);
mov_eax_memoffs32((unsigned int *)(&reg_cop1_simple[dst->f.cf.fs]));
fld_preg32_dword(EAX);
fucomip_fpreg(1);
ffree_fpreg(0);
jp_rj(14);
ja_rj(12);
or_m32_imm32((unsigned int*)&FCR31, 0x800000); // 10
jmp_imm_short(10); // 2
and_m32_imm32((unsigned int*)&FCR31, ~0x800000); // 10
#endif
}
void genc_sf_s(void)
{
#ifdef INTERPRET_C_SF_S
gencallinterp((unsigned int)C_SF_S, 0);
#else
gencheck_cop1_unusable();
mov_eax_memoffs32((unsigned int *)(&reg_cop1_simple[dst->f.cf.ft]));
fld_preg32_dword(EAX);
mov_eax_memoffs32((unsigned int *)(&reg_cop1_simple[dst->f.cf.fs]));
fld_preg32_dword(EAX);
fcomip_fpreg(1);
ffree_fpreg(0);
and_m32_imm32((unsigned int*)&FCR31, ~0x800000);
#endif
}
void genc_ngle_s(void)
{
#ifdef INTERPRET_C_NGLE_S
gencallinterp((unsigned int)C_NGLE_S, 0);
#else
gencheck_cop1_unusable();
mov_eax_memoffs32((unsigned int *)(&reg_cop1_simple[dst->f.cf.ft]));
fld_preg32_dword(EAX);
mov_eax_memoffs32((unsigned int *)(&reg_cop1_simple[dst->f.cf.fs]));
fld_preg32_dword(EAX);
fcomip_fpreg(1);
ffree_fpreg(0);
jp_rj(12);
and_m32_imm32((unsigned int*)&FCR31, ~0x800000); // 10
jmp_imm_short(10); // 2
or_m32_imm32((unsigned int*)&FCR31, 0x800000); // 10
#endif
}
void genc_seq_s(void)
{
#ifdef INTERPRET_C_SEQ_S
gencallinterp((unsigned int)C_SEQ_S, 0);
#else
gencheck_cop1_unusable();
mov_eax_memoffs32((unsigned int *)(&reg_cop1_simple[dst->f.cf.ft]));
fld_preg32_dword(EAX);
mov_eax_memoffs32((unsigned int *)(&reg_cop1_simple[dst->f.cf.fs]));
fld_preg32_dword(EAX);
fcomip_fpreg(1);
ffree_fpreg(0);
jne_rj(12);
or_m32_imm32((unsigned int*)&FCR31, 0x800000); // 10
jmp_imm_short(10); // 2
and_m32_imm32((unsigned int*)&FCR31, ~0x800000); // 10
#endif
}
void genc_ngl_s(void)
{
#ifdef INTERPRET_C_NGL_S
gencallinterp((unsigned int)C_NGL_S, 0);
#else
gencheck_cop1_unusable();
mov_eax_memoffs32((unsigned int *)(&reg_cop1_simple[dst->f.cf.ft]));
fld_preg32_dword(EAX);
mov_eax_memoffs32((unsigned int *)(&reg_cop1_simple[dst->f.cf.fs]));
fld_preg32_dword(EAX);
fcomip_fpreg(1);
ffree_fpreg(0);
jp_rj(14);
jne_rj(12);
or_m32_imm32((unsigned int*)&FCR31, 0x800000); // 10
jmp_imm_short(10); // 2
and_m32_imm32((unsigned int*)&FCR31, ~0x800000); // 10
#endif
}
void genc_lt_s(void)
{
#ifdef INTERPRET_C_LT_S
gencallinterp((unsigned int)C_LT_S, 0);
#else
gencheck_cop1_unusable();
mov_eax_memoffs32((unsigned int *)(&reg_cop1_simple[dst->f.cf.ft]));
fld_preg32_dword(EAX);
mov_eax_memoffs32((unsigned int *)(&reg_cop1_simple[dst->f.cf.fs]));
fld_preg32_dword(EAX);
fcomip_fpreg(1);
ffree_fpreg(0);
jae_rj(12);
or_m32_imm32((unsigned int*)&FCR31, 0x800000); // 10
jmp_imm_short(10); // 2
and_m32_imm32((unsigned int*)&FCR31, ~0x800000); // 10
#endif
}
void genc_nge_s(void)
{
#ifdef INTERPRET_C_NGE_S
gencallinterp((unsigned int)C_NGE_S, 0);
#else
gencheck_cop1_unusable();
mov_eax_memoffs32((unsigned int *)(&reg_cop1_simple[dst->f.cf.ft]));
fld_preg32_dword(EAX);
mov_eax_memoffs32((unsigned int *)(&reg_cop1_simple[dst->f.cf.fs]));
fld_preg32_dword(EAX);
fcomip_fpreg(1);
ffree_fpreg(0);
jp_rj(14);
jae_rj(12);
or_m32_imm32((unsigned int*)&FCR31, 0x800000); // 10
jmp_imm_short(10); // 2
and_m32_imm32((unsigned int*)&FCR31, ~0x800000); // 10
#endif
}
void genc_le_s(void)
{
#ifdef INTERPRET_C_LE_S
gencallinterp((unsigned int)C_LE_S, 0);
#else
gencheck_cop1_unusable();
mov_eax_memoffs32((unsigned int *)(&reg_cop1_simple[dst->f.cf.ft]));
fld_preg32_dword(EAX);
mov_eax_memoffs32((unsigned int *)(&reg_cop1_simple[dst->f.cf.fs]));
fld_preg32_dword(EAX);
fcomip_fpreg(1);
ffree_fpreg(0);
ja_rj(12);
or_m32_imm32((unsigned int*)&FCR31, 0x800000); // 10
jmp_imm_short(10); // 2
and_m32_imm32((unsigned int*)&FCR31, ~0x800000); // 10
#endif
}
void genc_ngt_s(void)
{
#ifdef INTERPRET_C_NGT_S
gencallinterp((unsigned int)C_NGT_S, 0);
#else
gencheck_cop1_unusable();
mov_eax_memoffs32((unsigned int *)(&reg_cop1_simple[dst->f.cf.ft]));
fld_preg32_dword(EAX);
mov_eax_memoffs32((unsigned int *)(&reg_cop1_simple[dst->f.cf.fs]));
fld_preg32_dword(EAX);
fcomip_fpreg(1);
ffree_fpreg(0);
jp_rj(14);
ja_rj(12);
or_m32_imm32((unsigned int*)&FCR31, 0x800000); // 10
jmp_imm_short(10); // 2
and_m32_imm32((unsigned int*)&FCR31, ~0x800000); // 10
#endif
}