mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-05-02 21:10:27 +02:00
760fab8d37
* include/lightning/jit_mips.h, lib/jit_mips-cpu.c, lib/jit_mips-fpu.c, lib/jit_mips.c: Correct float/double argument handling and make the mips backend pass the initial test cases. * include/lightning.h, ib/jit_print.c, lib/lightning.c: Add extra enum values for argument handling functions that could not be abstracted to the current codes, that is, when float values need to move from/to gpr from/to fpr. It would be more tempting to add such primitives, but they would have wordsize limitations, and it is not expected to add codes with one gpr argument for 64 bit and two for 32 bit. * lib/jit_ppc.c: Check _jit->function before calling jit_epilog() to avoid a runtime exception.
1708 lines
51 KiB
C
1708 lines
51 KiB
C
/*
|
|
* Copyright (C) 2012 Free Software Foundation, Inc.
|
|
*
|
|
* This 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 3 of the License, or
|
|
* (at your option) any later version.
|
|
*
|
|
* This software 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.
|
|
*
|
|
* Authors:
|
|
* Paulo Cesar Pereira de Andrade
|
|
*/
|
|
|
|
#if PROTO
|
|
# define MIPS_fmt_S 0x10 /* float32 */
|
|
# define MIPS_fmt_D 0x11 /* float64 */
|
|
# define MIPS_fmt_W 0x14 /* int32 */
|
|
# define MIPS_fmt_L 0x15 /* int64 */
|
|
# define MIPS_fmt_PS 0x16 /* 2 x float32 */
|
|
# define MIPS_fmt_S_PU 0x20
|
|
# define MIPS_fmt_S_PL 0x26
|
|
|
|
# define MIPS_ADD_fmt 0x00
|
|
# define MIPS_LWXC1 0x00
|
|
# define MIPS_SUB_fmt 0x01
|
|
# define MIPS_LDXC1 0x01
|
|
# define MIPS_MUL_fmt 0x02
|
|
# define MIPS_DIV_fmt 0x03
|
|
# define MIPS_SQRT_fmt 0x04
|
|
# define MIPS_ABS_fmt 0x05
|
|
# define MIPS_LUXC1 0x05
|
|
# define MIPS_MOV_fmt 0x06
|
|
# define MIPS_NEG_fmt 0x07
|
|
# define MIPS_SWXC1 0x08
|
|
# define MIPS_ROUND_fmt_L 0x08
|
|
# define MIPS_TRUNC_fmt_L 0x09
|
|
# define MIPS_SDXC1 0x09
|
|
# define MIPS_CEIL_fmt_L 0x0a
|
|
# define MIPS_FLOOR_fmt_L 0x0b
|
|
# define MIPS_ROUND_fmt_W 0x0c
|
|
# define MIPS_TRUNC_fmt_W 0x0d
|
|
# define MIPS_SUXC1 0x0d
|
|
# define MIPS_CEIL_fmt_W 0x0e
|
|
# define MIPS_FLOOR_fmt_W 0x0f
|
|
# define MIPS_RECIP 0x15
|
|
# define MIPS_RSQRT 0x16
|
|
# define MIPS_ALNV_PS 0x1e
|
|
# define MIPS_CVT_fmt_S 0x20
|
|
# define MIPS_CVT_fmt_D 0x21
|
|
# define MIPS_CVT_fmt_W 0x24
|
|
# define MIPS_CVT_fmt_L 0x25
|
|
# define MIPS_PLL 0x2c
|
|
# define MIPS_PLU 0x2d
|
|
# define MIPS_PUL 0x2e
|
|
# define MIPS_PUU 0x2f
|
|
# define MIPS_MADD_fmt_S (0x20 | MIPS_fmt_S)
|
|
# define MIPS_MADD_fmt_D (0x20 | MIPS_fmt_D)
|
|
# define MIPS_MADD_fmt_PS (0x20 | MIPS_fmt_PS)
|
|
# define MIPS_MSUB_fmt_S (0x28 | MIPS_fmt_S)
|
|
# define MIPS_MSUB_fmt_D (0x28 | MIPS_fmt_D)
|
|
# define MIPS_MSUB_fmt_PS (0x28 | MIPS_fmt_PS)
|
|
# define MIPS_NMADD_fmt_S (0x30 | MIPS_fmt_S)
|
|
# define MIPS_NMADD_fmt_D (0x30 | MIPS_fmt_D)
|
|
# define MIPS_NMADD_fmt_PS (0x30 | MIPS_fmt_PS)
|
|
# define MIPS_NMSUB_fmt_S (0x38 | MIPS_fmt_S)
|
|
# define MIPS_NMSUB_fmt_D (0x38 | MIPS_fmt_D)
|
|
# define MIPS_NMSUB_fmt_PS (0x38 | MIPS_fmt_PS)
|
|
|
|
# define MIPS_cond_F 0x30
|
|
# define MIPS_cond_UN 0x31
|
|
# define MIPS_cond_EQ 0x32
|
|
# define MIPS_cond_UEQ 0x33
|
|
# define MIPS_cond_OLT 0x34
|
|
# define MIPS_cond_ULT 0x35
|
|
# define MIPS_cond_OLE 0x36
|
|
# define MIPS_cond_ULE 0x37
|
|
# define MIPS_cond_SF 0x38
|
|
# define MIPS_cond_NGLE 0x39
|
|
# define MIPS_cond_SEQ 0x3a
|
|
# define MIPS_cond_NGL 0x3b
|
|
# define MIPS_cond_LT 0x3c
|
|
# define MIPS_cond_NGE 0x3d
|
|
# define MIPS_cond_LE 0x3e
|
|
# define MIPS_cond_UGT 0x3f
|
|
|
|
# define ADD_S(fd,fs,ft) hrrrit(MIPS_COP1,MIPS_fmt_S,ft,fs,fd,MIPS_ADD_fmt)
|
|
# define ADD_D(fd,fs,ft) hrrrit(MIPS_COP1,MIPS_fmt_D,ft,fs,fd,MIPS_ADD_fmt)
|
|
# define SUB_S(fd,fs,ft) hrrrit(MIPS_COP1,MIPS_fmt_S,ft,fs,fd,MIPS_SUB_fmt)
|
|
# define SUB_D(fd,fs,ft) hrrrit(MIPS_COP1,MIPS_fmt_D,ft,fs,fd,MIPS_SUB_fmt)
|
|
# define MUL_S(fd,fs,ft) hrrrit(MIPS_COP1,MIPS_fmt_S,ft,fs,fd,MIPS_MUL_fmt)
|
|
# define MUL_D(fd,fs,ft) hrrrit(MIPS_COP1,MIPS_fmt_D,ft,fs,fd,MIPS_MUL_fmt)
|
|
# define DIV_S(fd,fs,ft) hrrrit(MIPS_COP1,MIPS_fmt_S,ft,fs,fd,MIPS_DIV_fmt)
|
|
# define DIV_D(fd,fs,ft) hrrrit(MIPS_COP1,MIPS_fmt_D,ft,fs,fd,MIPS_DIV_fmt)
|
|
# define ABS_S(fd,fs) hrrrit(MIPS_COP1,MIPS_fmt_S,0,fs,fd,MIPS_ABS_fmt)
|
|
# define ABS_D(fd, fs) hrrrit(MIPS_COP1,MIPS_fmt_D,0,fs,fd,MIPS_ABS_fmt)
|
|
# define NEG_S(fd,fs) hrrrit(MIPS_COP1,MIPS_fmt_S,0,fs,fd,MIPS_NEG_fmt)
|
|
# define NEG_D(fd, fs) hrrrit(MIPS_COP1,MIPS_fmt_D,0,fs,fd,MIPS_NEG_fmt)
|
|
# define MFC1(rt, fs) hrrrit(MIPS_COP1,MIPS_MF,rt,fs,0,0)
|
|
# define MTC1(rt, fs) hrrrit(MIPS_COP1,MIPS_MT,rt,fs,0,0)
|
|
# define DMFC1(rt, fs) hrrrit(MIPS_COP1,MIPS_DMF,rt,fs,0,0)
|
|
# define DMTC1(rt, fs) hrrrit(MIPS_COP1,MIPS_DMT,rt,fs,0,0)
|
|
# define CVT_D_S(fd,fs) hrrrit(MIPS_COP1,MIPS_fmt_S,0,fs,fd,MIPS_CVT_fmt_D)
|
|
# define CVT_D_W(fd,fs) hrrrit(MIPS_COP1,MIPS_fmt_W,0,fs,fd,MIPS_CVT_fmt_D)
|
|
# define CVT_D_L(fd,fs) hrrrit(MIPS_COP1,MIPS_fmt_L,0,fs,fd,MIPS_CVT_fmt_D)
|
|
# define CVT_L_S(fd,fs) hrrrit(MIPS_COP1,MIPS_fmt_S,0,fs,fd,MIPS_CVT_fmt_L)
|
|
# define CVT_L_D(fd,fs) hrrrit(MIPS_COP1,MIPS_fmt_D,0,fs,fd,MIPS_CVT_fmt_L)
|
|
# define CVT_PS_S(fd,fs) hrrrit(MIPS_COP1,MIPS_fmt_S,0,fs,fd,MIPS_CVT_fmt_PS)
|
|
# define CVT_S_D(fd,fs) hrrrit(MIPS_COP1,MIPS_fmt_D,0,fs,fd,MIPS_CVT_fmt_S)
|
|
# define CVT_S_W(fd,fs) hrrrit(MIPS_COP1,MIPS_fmt_W,0,fs,fd,MIPS_CVT_fmt_S)
|
|
# define CVT_S_L(fd,fs) hrrrit(MIPS_COP1,MIPS_fmt_L,0,fs,fd,MIPS_CVT_fmt_S)
|
|
# define CVT_S_PL(fd,fs) hrrrit(MIPS_COP1,MIPS_fmt_PS,0,fs,fd,MIPS_CVT_fmt_S_PL)
|
|
# define CVT_S_PU(fd,fs) hrrrit(MIPS_COP1,MIPS_fmt_PS,0,fs,fd,MIPS_CVT_fmt_S_PU)
|
|
# define CVT_W_S(fd,fs) hrrrit(MIPS_COP1,MIPS_fmt_S,0,fs,fd,MIPS_CVT_fmt_W)
|
|
# define CVT_W_D(fd,fs) hrrrit(MIPS_COP1,MIPS_fmt_D,0,fs,fd,MIPS_CVT_fmt_W)
|
|
# define TRUNC_L_S(fd,fs) hrrrit(MIPS_COP1,MIPS_fmt_S,0,fs,fd,MIPS_TRUNC_fmt_L)
|
|
# define TRUNC_L_D(fd,fs) hrrrit(MIPS_COP1,MIPS_fmt_D,0,fs,fd,MIPS_TRUNC_fmt_L)
|
|
# define TRUNC_W_S(fd,fs) hrrrit(MIPS_COP1,MIPS_fmt_S,0,fs,fd,MIPS_TRUNC_fmt_W)
|
|
# define TRUNC_W_D(fd,fs) hrrrit(MIPS_COP1,MIPS_fmt_D,0,fs,fd,MIPS_TRUNC_fmt_W)
|
|
# define LWC1(rt, of, rb) hrri(MIPS_LWC1, rb, rt, of)
|
|
# define SWC1(rt, of, rb) hrri(MIPS_SWC1, rb, rt, of)
|
|
# define LDC1(rt, of, rb) hrri(MIPS_LDC1, rb, rt, of)
|
|
# define SDC1(rt, of, rb) hrri(MIPS_SDC1, rb, rt, of)
|
|
# define MOV_S(fd, fs) hrrrit(MIPS_COP1,MIPS_fmt_S,0,fs,fd,MIPS_MOV_fmt)
|
|
# define MOV_D(fd, fs) hrrrit(MIPS_COP1,MIPS_fmt_D,0,fs,fd,MIPS_MOV_fmt)
|
|
# define BC1F(im) hrri(MIPS_COP1,MIPS_BC,MIPS_BCF,im)
|
|
# define BC1T(im) hrri(MIPS_COP1,MIPS_BC,MIPS_BCT,im)
|
|
# define C_F_S(fs,ft) c_cond_fmt(MIPS_fmt_S,ft,fs,MIPS_cond_F)
|
|
# define C_F_D(fs,ft) c_cond_fmt(MIPS_fmt_D,ft,fs,MIPS_cond_F)
|
|
# define C_F_PS(fs,ft) c_cond_fmt(MIPS_fmt_PS,ft,fs,MIPS_cond_F)
|
|
# define C_UN_S(fs,ft) c_cond_fmt(MIPS_fmt_S,ft,fs,MIPS_cond_UN)
|
|
# define C_UN_D(fs,ft) c_cond_fmt(MIPS_fmt_D,ft,fs,MIPS_cond_UN)
|
|
# define C_UN_PS(fs,ft) c_cond_fmt(MIPS_fmt_PS,ft,fs,MIPS_cond_UN)
|
|
# define C_EQ_S(fs,ft) c_cond_fmt(MIPS_fmt_S,ft,fs,MIPS_cond_EQ)
|
|
# define C_EQ_D(fs,ft) c_cond_fmt(MIPS_fmt_D,ft,fs,MIPS_cond_EQ)
|
|
# define C_EQ_PS(fs,ft) c_cond_fmt(MIPS_fmt_PS,ft,fs,MIPS_cond_EQ)
|
|
# define C_UEQ_S(fs,ft) c_cond_fmt(MIPS_fmt_S,ft,fs,MIPS_cond_UEQ)
|
|
# define C_UEQ_D(fs,ft) c_cond_fmt(MIPS_fmt_D,ft,fs,MIPS_cond_UEQ)
|
|
# define C_UEQ_PS(fs,ft) c_cond_fmt(MIPS_fmt_PS,ft,fs,MIPS_cond_UEQ)
|
|
# define C_OLT_S(fs,ft) c_cond_fmt(MIPS_fmt_S,ft,fs,MIPS_cond_OLT)
|
|
# define C_OLT_D(fs,ft) c_cond_fmt(MIPS_fmt_D,ft,fs,MIPS_cond_OLT)
|
|
# define C_OLT_PS(fs,ft) c_cond_fmt(MIPS_fmt_PS,ft,fs,MIPS_cond_OLT)
|
|
# define C_ULT_S(fs,ft) c_cond_fmt(MIPS_fmt_S,ft,fs,MIPS_cond_ULT)
|
|
# define C_ULT_D(fs,ft) c_cond_fmt(MIPS_fmt_D,ft,fs,MIPS_cond_ULT)
|
|
# define C_ULT_PS(fs,ft) c_cond_fmt(MIPS_fmt_PS,ft,fs,MIPS_cond_ULT)
|
|
# define C_OLE_S(fs,ft) c_cond_fmt(MIPS_fmt_S,ft,fs,MIPS_cond_OLE)
|
|
# define C_OLE_D(fs,ft) c_cond_fmt(MIPS_fmt_D,ft,fs,MIPS_cond_OLE)
|
|
# define C_OLE_PS(fs,ft) c_cond_fmt(MIPS_fmt_PS,ft,fs,MIPS_cond_OLE)
|
|
# define C_ULE_S(fs,ft) c_cond_fmt(MIPS_fmt_S,ft,fs,MIPS_cond_ULE)
|
|
# define C_ULE_D(fs,ft) c_cond_fmt(MIPS_fmt_D,ft,fs,MIPS_cond_ULE)
|
|
# define C_ULE_PS(fs,ft) c_cond_fmt(MIPS_fmt_PS,ft,fs,MIPS_cond_ULE)
|
|
# define C_SF_S(fs,ft) c_cond_fmt(MIPS_fmt_S,ft,fs,MIPS_cond_SF)
|
|
# define C_SF_D(fs,ft) c_cond_fmt(MIPS_fmt_D,ft,fs,MIPS_cond_SF)
|
|
# define C_SF_PS(fs,ft) c_cond_fmt(MIPS_fmt_PS,ft,fs,MIPS_cond_SF)
|
|
# define C_NGLE_S(fs,ft) c_cond_fmt(MIPS_fmt_S,ft,fs,MIPS_cond_NGLE)
|
|
# define C_NGLE_D(fs,ft) c_cond_fmt(MIPS_fmt_D,ft,fs,MIPS_cond_NGLE)
|
|
# define C_NGLE_PS(fs,ft) c_cond_fmt(MIPS_fmt_PS,ft,fs,MIPS_cond_NGLE)
|
|
# define C_SEQ_S(fs,ft) c_cond_fmt(MIPS_fmt_S,ft,fs,MIPS_cond_SEQ)
|
|
# define C_SEQ_D(fs,ft) c_cond_fmt(MIPS_fmt_D,ft,fs,MIPS_cond_SEQ)
|
|
# define C_SEQ_PS(fs,ft) c_cond_fmt(MIPS_fmt_PS,ft,fs,MIPS_cond_SEQ)
|
|
# define C_NGL_S(fs,ft) c_cond_fmt(MIPS_fmt_S,ft,fs,MIPS_cond_NGL)
|
|
# define C_NGL_D(fs,ft) c_cond_fmt(MIPS_fmt_D,ft,fs,MIPS_cond_NGL)
|
|
# define C_NGL_PS(fs,ft) c_cond_fmt(MIPS_fmt_PS,ft,fs,MIPS_cond_NGL)
|
|
# define C_NLT_S(fs,ft) c_cond_fmt(MIPS_fmt_S,ft,fs,MIPS_cond_NLT)
|
|
# define C_NLT_D(fs,ft) c_cond_fmt(MIPS_fmt_D,ft,fs,MIPS_cond_NLT)
|
|
# define C_NLT_PS(fs,ft) c_cond_fmt(MIPS_fmt_PS,ft,fs,MIPS_cond_NLT)
|
|
# define C_NGE_S(fs,ft) c_cond_fmt(MIPS_fmt_S,ft,fs,MIPS_cond_NGE)
|
|
# define C_NGE_D(fs,ft) c_cond_fmt(MIPS_fmt_D,ft,fs,MIPS_cond_NGE)
|
|
# define C_NGE_PS(fs,ft) c_cond_fmt(MIPS_fmt_PS,ft,fs,MIPS_cond_NGE)
|
|
# define C_NLE_S(fs,ft) c_cond_fmt(MIPS_fmt_S,ft,fs,MIPS_cond_NLE)
|
|
# define C_NLE_D(fs,ft) c_cond_fmt(MIPS_fmt_D,ft,fs,MIPS_cond_NLE)
|
|
# define C_NLE_PS(fs,ft) c_cond_fmt(MIPS_fmt_PS,ft,fs,MIPS_cond_NLE)
|
|
# define C_UGT_S(fs,ft) c_cond_fmt(MIPS_fmt_S,ft,fs,MIPS_cond_UGT)
|
|
# define C_UGT_D(fs,ft) c_cond_fmt(MIPS_fmt_D,ft,fs,MIPS_cond_UGT)
|
|
# define C_UGT_PS(fs,ft) c_cond_fmt(MIPS_fmt_PS,ft,fs,MIPS_cond_UGT)
|
|
# define c_cond_fmt(fm,ft,fs,cc) _c_cond_fmt(_jit,fm,ft,fs,cc)
|
|
static void
|
|
_c_cond_fmt(jit_state_t *_jit, jit_int32_t fm,
|
|
jit_int32_t ft, jit_int32_t fs, jit_int32_t cc);
|
|
# define addr_f(r0,r1,r2) ADD_S(r0,r1,r2)
|
|
# define addi_f(r0,r1,i0) _addi_f(_jit,r0,r1,i0)
|
|
static void _addi_f(jit_state_t*,jit_int32_t,jit_int32_t,jit_float32_t*);
|
|
# define addr_d(r0,r1,r2) ADD_D(r0,r1,r2)
|
|
# define addi_d(r0,r1,i0) _addi_d(_jit,r0,r1,i0)
|
|
static void _addi_d(jit_state_t*,jit_int32_t,jit_int32_t,jit_float64_t*);
|
|
# define subr_f(r0,r1,r2) SUB_S(r0,r1,r2)
|
|
# define subi_f(r0,r1,i0) _subi_f(_jit,r0,r1,i0)
|
|
static void _subi_f(jit_state_t*,jit_int32_t,jit_int32_t,jit_float32_t*);
|
|
# define subr_d(r0,r1,r2) SUB_D(r0,r1,r2)
|
|
# define subi_d(r0,r1,i0) _subi_d(_jit,r0,r1,i0)
|
|
static void _subi_d(jit_state_t*,jit_int32_t,jit_int32_t,jit_float64_t*);
|
|
# define mulr_f(r0,r1,r2) MUL_S(r0,r1,r2)
|
|
# define muli_f(r0,r1,i0) _muli_f(_jit,r0,r1,i0)
|
|
static void _muli_f(jit_state_t*,jit_int32_t,jit_int32_t,jit_float32_t*);
|
|
# define mulr_d(r0,r1,r2) MUL_D(r0,r1,r2)
|
|
# define muli_d(r0,r1,i0) _muli_d(_jit,r0,r1,i0)
|
|
static void _muli_d(jit_state_t*,jit_int32_t,jit_int32_t,jit_float64_t*);
|
|
# define divr_f(r0,r1,r2) DIV_S(r0,r1,r2)
|
|
# define divi_f(r0,r1,i0) _divi_f(_jit,r0,r1,i0)
|
|
static void _divi_f(jit_state_t*,jit_int32_t,jit_int32_t,jit_float32_t*);
|
|
# define divr_d(r0,r1,r2) DIV_D(r0,r1,r2)
|
|
# define divi_d(r0,r1,i0) _divi_d(_jit,r0,r1,i0)
|
|
static void _divi_d(jit_state_t*,jit_int32_t,jit_int32_t,jit_float64_t*);
|
|
# define absr_f(r0,r1) ABS_S(r0,r1)
|
|
# define absr_d(r0,r1) ABS_D(r0,r1)
|
|
# define negr_f(r0,r1) NEG_S(r0,r1)
|
|
# define negr_d(r0,r1) NEG_D(r0,r1)
|
|
# define getarg_f(r0, r1) MTC1(r1, r0)
|
|
# define pushargr_f(r0, r1) MFC1(r1, r0)
|
|
# define pushargi_f(r0, i0) _pushargi_f(_jit, r0, i0)
|
|
static void _pushargi_f(jit_state_t*,jit_int32_t,jit_float32_t*);
|
|
# define extr_f(r0, r1) _extr_f(_jit, r0, r1)
|
|
static void _extr_f(jit_state_t*,jit_int32_t,jit_int32_t);
|
|
# define truncr_f_i(r0, r1) _truncr_f_i(_jit, r0, r1)
|
|
static void _truncr_f_i(jit_state_t*,jit_int32_t,jit_int32_t);
|
|
# if __WORDSIZE == 64
|
|
# define truncr_f_l(r0, r1) _truncr_f_l(_jit, r0, r1)
|
|
static void _truncr_f_l(jit_state_t*,jit_int32_t,jit_int32_t);
|
|
# endif
|
|
# define extr_d_f(r0, r1) CVT_S_D(r0, r1)
|
|
# define ldr_f(r0, r1) LWC1(r0, 0, r1)
|
|
# define ldi_f(r0, i0) _ldi_f(_jit, r0, i0)
|
|
static void _ldi_f(jit_state_t*,jit_int32_t,jit_word_t);
|
|
# define ldxr_f(r0, r1, r2) _ldxr_f(_jit, r0, r1, r2)
|
|
static void _ldxr_f(jit_state_t*,jit_int32_t,jit_int32_t,jit_int32_t);
|
|
# define ldxi_f(r0, r1, i0) _ldxi_f(_jit, r0, r1, i0)
|
|
static void _ldxi_f(jit_state_t*,jit_int32_t,jit_int32_t,jit_word_t);
|
|
# define str_f(r0, r1) SWC1(r1, 0, r0)
|
|
# define sti_f(i0, r0) _sti_f(_jit, i0, r0)
|
|
static void _sti_f(jit_state_t*,jit_word_t,jit_int32_t);
|
|
# define stxr_f(r0, r1, r2) _stxr_f(_jit, r0, r1, r2)
|
|
static void _stxr_f(jit_state_t*,jit_int32_t,jit_int32_t,jit_int32_t);
|
|
# define stxi_f(i0, r0, r1) _stxi_f(_jit, i0, r0, r1)
|
|
static void _stxi_f(jit_state_t*,jit_word_t,jit_int32_t,jit_int32_t);
|
|
# define movr_f(r0, r1) _movr_f(_jit, r0, r1)
|
|
static void _movr_f(jit_state_t*,jit_int32_t,jit_int32_t);
|
|
# define movi_f(r0, i0) _movi_f(_jit, r0, i0)
|
|
static void _movi_f(jit_state_t*,jit_int32_t,jit_float32_t*);
|
|
# define getarg_d(r0, r1) _getarg_d(_jit, r0, r1)
|
|
static void _getarg_d(jit_state_t*,jit_int32_t,jit_int32_t);
|
|
# define pushargr_d(r0, r1) _pushargr_d(_jit, r0, r1)
|
|
static void _pushargr_d(jit_state_t*,jit_int32_t,jit_int32_t);
|
|
# define pushargi_d(r0, i0) _pushargi_d(_jit, r0, i0)
|
|
static void _pushargi_d(jit_state_t*,jit_int32_t,jit_float64_t*);
|
|
# define extr_d(r0, r1) _extr_d(_jit, r0, r1)
|
|
static void _extr_d(jit_state_t*,jit_int32_t,jit_int32_t);
|
|
# define truncr_d_i(r0, r1) _truncr_d_i(_jit, r0, r1)
|
|
static void _truncr_d_i(jit_state_t*,jit_int32_t,jit_int32_t);
|
|
# if __WORDSIZE == 64
|
|
# define truncr_d_l(r0, r1) _truncr_d_l(_jit, r0, r1)
|
|
static void _truncr_d_l(jit_state_t*,jit_int32_t,jit_int32_t);
|
|
# endif
|
|
# define ldr_d(r0, r1) _ldr_d(_jit, r0, r1)
|
|
static void _ldr_d(jit_state_t*,jit_int32_t,jit_int32_t);
|
|
# define ldi_d(r0, i0) _ldi_d(_jit, r0, i0)
|
|
static void _ldi_d(jit_state_t*,jit_int32_t,jit_word_t);
|
|
# define ldxr_d(r0, r1, r2) _ldxr_d(_jit, r0, r1, r2)
|
|
static void _ldxr_d(jit_state_t*,jit_int32_t,jit_int32_t,jit_int32_t);
|
|
# define ldxi_d(r0, r1, i0) _ldxi_d(_jit, r0, r1, i0)
|
|
static void _ldxi_d(jit_state_t*,jit_int32_t,jit_int32_t,jit_word_t);
|
|
# define str_d(r0, r1) _str_d(_jit, r0, r1)
|
|
static void _str_d(jit_state_t*,jit_int32_t,jit_int32_t);
|
|
# define sti_d(i0, r0) _sti_d(_jit, i0, r0)
|
|
static void _sti_d(jit_state_t*,jit_word_t,jit_int32_t);
|
|
# define stxr_d(r0, r1, r2) _stxr_d(_jit, r0, r1, r2)
|
|
static void _stxr_d(jit_state_t*,jit_int32_t,jit_int32_t,jit_int32_t);
|
|
# define stxi_d(i0, r0, r1) _stxi_d(_jit, i0, r0, r1)
|
|
static void _stxi_d(jit_state_t*,jit_word_t,jit_int32_t,jit_int32_t);
|
|
# define movr_d(r0, r1) _movr_d(_jit, r0, r1)
|
|
static void _movr_d(jit_state_t*,jit_int32_t,jit_int32_t);
|
|
# define movi_d(r0, i0) _movi_d(_jit, r0, i0)
|
|
static void _movi_d(jit_state_t*,jit_int32_t,jit_float64_t*);
|
|
# define ltr_f(r0, r1, r2) _ltr_f(_jit, r0, r1, r2)
|
|
static void _ltr_f(jit_state_t*,jit_int32_t,jit_int32_t,jit_int32_t);
|
|
# define lti_f(r0, r1, i2) _lti_f(_jit, r0, r1, i2)
|
|
static void _lti_f(jit_state_t*,jit_int32_t,jit_int32_t,jit_float32_t*);
|
|
# define ler_f(r0, r1, r2) _ler_f(_jit, r0, r1, r2)
|
|
static void _ler_f(jit_state_t*,jit_int32_t,jit_int32_t,jit_int32_t);
|
|
# define lei_f(r0, r1, i2) _lei_f(_jit, r0, r1, i2)
|
|
static void _lei_f(jit_state_t*,jit_int32_t,jit_int32_t,jit_float32_t*);
|
|
# define eqr_f(r0, r1, r2) _eqr_f(_jit, r0, r1, r2)
|
|
static void _eqr_f(jit_state_t*,jit_int32_t,jit_int32_t,jit_int32_t);
|
|
# define eqi_f(r0, r1, i2) _eqi_f(_jit, r0, r1, i2)
|
|
static void _eqi_f(jit_state_t*,jit_int32_t,jit_int32_t,jit_float32_t*);
|
|
# define ger_f(r0, r1, r2) _ger_f(_jit, r0, r1, r2)
|
|
static void _ger_f(jit_state_t*,jit_int32_t,jit_int32_t,jit_int32_t);
|
|
# define gei_f(r0, r1, i2) _gei_f(_jit, r0, r1, i2)
|
|
static void _gei_f(jit_state_t*,jit_int32_t,jit_int32_t,jit_float32_t*);
|
|
# define gtr_f(r0, r1, r2) _gtr_f(_jit, r0, r1, r2)
|
|
static void _gtr_f(jit_state_t*,jit_int32_t,jit_int32_t,jit_int32_t);
|
|
# define gti_f(r0, r1, i2) _gti_f(_jit, r0, r1, i2)
|
|
static void _gti_f(jit_state_t*,jit_int32_t,jit_int32_t,jit_float32_t*);
|
|
# define ner_f(r0, r1, r2) _ner_f(_jit, r0, r1, r2)
|
|
static void _ner_f(jit_state_t*,jit_int32_t,jit_int32_t,jit_int32_t);
|
|
# define nei_f(r0, r1, i2) _nei_f(_jit, r0, r1, i2)
|
|
static void _nei_f(jit_state_t*,jit_int32_t,jit_int32_t,jit_float32_t*);
|
|
# define unltr_f(r0, r1, r2) _unltr_f(_jit, r0, r1, r2)
|
|
static void _unltr_f(jit_state_t*,jit_int32_t,jit_int32_t,jit_int32_t);
|
|
# define unlti_f(r0, r1, i2) _unlti_f(_jit, r0, r1, i2)
|
|
static void _unlti_f(jit_state_t*,jit_int32_t,jit_int32_t,jit_float32_t*);
|
|
# define unler_f(r0, r1, r2) _unler_f(_jit, r0, r1, r2)
|
|
static void _unler_f(jit_state_t*,jit_int32_t,jit_int32_t,jit_int32_t);
|
|
# define unlei_f(r0, r1, i2) _unlei_f(_jit, r0, r1, i2)
|
|
static void _unlei_f(jit_state_t*,jit_int32_t,jit_int32_t,jit_float32_t*);
|
|
# define uneqr_f(r0, r1, r2) _uneqr_f(_jit, r0, r1, r2)
|
|
static void _uneqr_f(jit_state_t*,jit_int32_t,jit_int32_t,jit_int32_t);
|
|
# define uneqi_f(r0, r1, i2) _uneqi_f(_jit, r0, r1, i2)
|
|
static void _uneqi_f(jit_state_t*,jit_int32_t,jit_int32_t,jit_float32_t*);
|
|
# define unger_f(r0, r1, r2) _unger_f(_jit, r0, r1, r2)
|
|
static void _unger_f(jit_state_t*,jit_int32_t,jit_int32_t,jit_int32_t);
|
|
# define ungei_f(r0, r1, i2) _ungei_f(_jit, r0, r1, i2)
|
|
static void _ungei_f(jit_state_t*,jit_int32_t,jit_int32_t,jit_float32_t*);
|
|
# define ungtr_f(r0, r1, r2) _ungtr_f(_jit, r0, r1, r2)
|
|
static void _ungtr_f(jit_state_t*,jit_int32_t,jit_int32_t,jit_int32_t);
|
|
# define ungti_f(r0, r1, i2) _ungti_f(_jit, r0, r1, i2)
|
|
static void _ungti_f(jit_state_t*,jit_int32_t,jit_int32_t,jit_float32_t*);
|
|
# define ltgtr_f(r0, r1, r2) _ltgtr_f(_jit, r0, r1, r2)
|
|
static void _ltgtr_f(jit_state_t*,jit_int32_t,jit_int32_t,jit_int32_t);
|
|
# define ltgti_f(r0, r1, i2) _ltgti_f(_jit, r0, r1, i2)
|
|
static void _ltgti_f(jit_state_t*,jit_int32_t,jit_int32_t,jit_float32_t*);
|
|
# define ordr_f(r0, r1, r2) _ordr_f(_jit, r0, r1, r2)
|
|
static void _ordr_f(jit_state_t*,jit_int32_t,jit_int32_t,jit_int32_t);
|
|
# define ordi_f(r0, r1, i2) _ordi_f(_jit, r0, r1, i2)
|
|
static void _ordi_f(jit_state_t*,jit_int32_t,jit_int32_t,jit_float32_t*);
|
|
# define unordr_f(r0, r1, r2) _unordr_f(_jit, r0, r1, r2)
|
|
static void _unordr_f(jit_state_t*,jit_int32_t,jit_int32_t,jit_int32_t);
|
|
# define unordi_f(r0, r1, i2) _unordi_f(_jit, r0, r1, i2)
|
|
static void _unordi_f(jit_state_t*,jit_int32_t,jit_int32_t,jit_float32_t*);
|
|
# define bltr_f(i0, r0, r1) _bltr_f(_jit, i0, r0, r1)
|
|
static jit_word_t _bltr_f(jit_state_t*,jit_word_t,jit_int32_t,jit_int32_t);
|
|
# define blti_f(i0, r0, i1) _blti_f(_jit, i0, r0, i1)
|
|
static jit_word_t
|
|
_blti_f(jit_state_t*, jit_word_t, jit_int32_t, jit_float32_t*);
|
|
# define bler_f(i0, r0, r1) _bler_f(_jit, i0, r0, r1)
|
|
static jit_word_t _bler_f(jit_state_t*,jit_word_t,jit_int32_t,jit_int32_t);
|
|
# define blei_f(i0, r0, i1) _blei_f(_jit, i0, r0, i1)
|
|
static jit_word_t
|
|
_blei_f(jit_state_t*, jit_word_t, jit_int32_t, jit_float32_t*);
|
|
# define beqr_f(i0, r0, r1) _beqr_f(_jit, i0, r0, r1)
|
|
static jit_word_t _beqr_f(jit_state_t*,jit_word_t,jit_int32_t,jit_int32_t);
|
|
# define beqi_f(i0, r0, i1) _beqi_f(_jit, i0, r0, i1)
|
|
static jit_word_t
|
|
_beqi_f(jit_state_t*, jit_word_t, jit_int32_t, jit_float32_t*);
|
|
# define bger_f(i0, r0, r1) _bger_f(_jit, i0, r0, r1)
|
|
static jit_word_t _bger_f(jit_state_t*,jit_word_t,jit_int32_t,jit_int32_t);
|
|
# define bgei_f(i0, r0, i1) _bgei_f(_jit, i0, r0, i1)
|
|
static jit_word_t
|
|
_bgei_f(jit_state_t*, jit_word_t, jit_int32_t, jit_float32_t*);
|
|
# define bgtr_f(i0, r0, r1) _bgtr_f(_jit, i0, r0, r1)
|
|
static jit_word_t _bgtr_f(jit_state_t*,jit_word_t,jit_int32_t,jit_int32_t);
|
|
# define bgti_f(i0, r0, i1) _bgti_f(_jit, i0, r0, i1)
|
|
static jit_word_t
|
|
_bgti_f(jit_state_t*, jit_word_t, jit_int32_t, jit_float32_t*);
|
|
# define bner_f(i0, r0, r1) _bner_f(_jit, i0, r0, r1)
|
|
static jit_word_t _bner_f(jit_state_t*,jit_word_t,jit_int32_t,jit_int32_t);
|
|
# define bnei_f(i0, r0, i1) _bnei_f(_jit, i0, r0, i1)
|
|
static jit_word_t
|
|
_bnei_f(jit_state_t*, jit_word_t, jit_int32_t, jit_float32_t*);
|
|
# define bunltr_f(i0, r0, r1) _bunltr_f(_jit, i0, r0, r1)
|
|
static jit_word_t _bunltr_f(jit_state_t*,jit_word_t,jit_int32_t,jit_int32_t);
|
|
# define bunlti_f(i0, r0, i1) _bunlti_f(_jit, i0, r0, i1)
|
|
static jit_word_t
|
|
_bunlti_f(jit_state_t*, jit_word_t, jit_int32_t, jit_float32_t*);
|
|
# define bunler_f(i0, r0, r1) _bunler_f(_jit, i0, r0, r1)
|
|
static jit_word_t _bunler_f(jit_state_t*,jit_word_t,jit_int32_t,jit_int32_t);
|
|
# define bunlei_f(i0, r0, i1) _bunlei_f(_jit, i0, r0, i1)
|
|
static jit_word_t
|
|
_bunlei_f(jit_state_t*, jit_word_t, jit_int32_t, jit_float32_t*);
|
|
# define buneqr_f(i0, r0, r1) _buneqr_f(_jit, i0, r0, r1)
|
|
static jit_word_t _buneqr_f(jit_state_t*,jit_word_t,jit_int32_t,jit_int32_t);
|
|
# define buneqi_f(i0, r0, i1) _buneqi_f(_jit, i0, r0, i1)
|
|
static jit_word_t
|
|
_buneqi_f(jit_state_t*, jit_word_t, jit_int32_t, jit_float32_t*);
|
|
# define bunger_f(i0, r0, r1) _bunger_f(_jit, i0, r0, r1)
|
|
static jit_word_t _bunger_f(jit_state_t*,jit_word_t,jit_int32_t,jit_int32_t);
|
|
# define bungei_f(i0, r0, i1) _bungei_f(_jit, i0, r0, i1)
|
|
static jit_word_t
|
|
_bungei_f(jit_state_t*, jit_word_t, jit_int32_t, jit_float32_t*);
|
|
# define bungtr_f(i0, r0, r1) _bungtr_f(_jit, i0, r0, r1)
|
|
static jit_word_t _bungtr_f(jit_state_t*,jit_word_t,jit_int32_t,jit_int32_t);
|
|
# define bungti_f(i0, r0, i1) _bungti_f(_jit, i0, r0, i1)
|
|
static jit_word_t
|
|
_bungti_f(jit_state_t*, jit_word_t, jit_int32_t, jit_float32_t*);
|
|
# define bltgtr_f(i0, r0, r1) _bltgtr_f(_jit, i0, r0, r1)
|
|
static jit_word_t _bltgtr_f(jit_state_t*,jit_word_t,jit_int32_t,jit_int32_t);
|
|
# define bltgti_f(i0, r0, i1) _bltgti_f(_jit, i0, r0, i1)
|
|
static jit_word_t
|
|
_bltgti_f(jit_state_t*, jit_word_t, jit_int32_t, jit_float32_t*);
|
|
# define bordr_f(i0, r0, r1) _bordr_f(_jit, i0, r0, r1)
|
|
static jit_word_t _bordr_f(jit_state_t*,jit_word_t,jit_int32_t,jit_int32_t);
|
|
# define bordi_f(i0, r0, i1) _bordi_f(_jit, i0, r0, i1)
|
|
static jit_word_t
|
|
_bordi_f(jit_state_t*, jit_word_t, jit_int32_t, jit_float32_t*);
|
|
# define bunordr_f(i0, r0, r1) _bunordr_f(_jit, i0, r0, r1)
|
|
static jit_word_t _bunordr_f(jit_state_t*,jit_word_t,jit_int32_t,jit_int32_t);
|
|
# define bunordi_f(i0, r0, i1) _bunordi_f(_jit, i0, r0, i1)
|
|
static jit_word_t
|
|
_bunordi_f(jit_state_t*, jit_word_t, jit_int32_t, jit_float32_t*);
|
|
# define extr_f_d(r0, r1) CVT_D_S(r0, r1)
|
|
# define ltr_d(r0, r1, r2) _ltr_d(_jit, r0, r1, r2)
|
|
static void _ltr_d(jit_state_t*,jit_int32_t,jit_int32_t,jit_int32_t);
|
|
# define lti_d(r0, r1, i2) _lti_d(_jit, r0, r1, i2)
|
|
static void _lti_d(jit_state_t*,jit_int32_t,jit_int32_t,jit_float64_t*);
|
|
# define ler_d(r0, r1, r2) _ler_d(_jit, r0, r1, r2)
|
|
static void _ler_d(jit_state_t*,jit_int32_t,jit_int32_t,jit_int32_t);
|
|
# define lei_d(r0, r1, i2) _lei_d(_jit, r0, r1, i2)
|
|
static void _lei_d(jit_state_t*,jit_int32_t,jit_int32_t,jit_float64_t*);
|
|
# define eqr_d(r0, r1, r2) _eqr_d(_jit, r0, r1, r2)
|
|
static void _eqr_d(jit_state_t*,jit_int32_t,jit_int32_t,jit_int32_t);
|
|
# define eqi_d(r0, r1, i2) _eqi_d(_jit, r0, r1, i2)
|
|
static void _eqi_d(jit_state_t*,jit_int32_t,jit_int32_t,jit_float64_t*);
|
|
# define ger_d(r0, r1, r2) _ger_d(_jit, r0, r1, r2)
|
|
static void _ger_d(jit_state_t*,jit_int32_t,jit_int32_t,jit_int32_t);
|
|
# define gei_d(r0, r1, i2) _gei_d(_jit, r0, r1, i2)
|
|
static void _gei_d(jit_state_t*,jit_int32_t,jit_int32_t,jit_float64_t*);
|
|
# define gtr_d(r0, r1, r2) _gtr_d(_jit, r0, r1, r2)
|
|
static void _gtr_d(jit_state_t*,jit_int32_t,jit_int32_t,jit_int32_t);
|
|
# define gti_d(r0, r1, i2) _gti_d(_jit, r0, r1, i2)
|
|
static void _gti_d(jit_state_t*,jit_int32_t,jit_int32_t,jit_float64_t*);
|
|
# define ner_d(r0, r1, r2) _ner_d(_jit, r0, r1, r2)
|
|
static void _ner_d(jit_state_t*,jit_int32_t,jit_int32_t,jit_int32_t);
|
|
# define nei_d(r0, r1, i2) _nei_d(_jit, r0, r1, i2)
|
|
static void _nei_d(jit_state_t*,jit_int32_t,jit_int32_t,jit_float64_t*);
|
|
# define unltr_d(r0, r1, r2) _unltr_d(_jit, r0, r1, r2)
|
|
static void _unltr_d(jit_state_t*,jit_int32_t,jit_int32_t,jit_int32_t);
|
|
# define unlti_d(r0, r1, i2) _unlti_d(_jit, r0, r1, i2)
|
|
static void _unlti_d(jit_state_t*,jit_int32_t,jit_int32_t,jit_float64_t*);
|
|
# define unler_d(r0, r1, r2) _unler_d(_jit, r0, r1, r2)
|
|
static void _unler_d(jit_state_t*,jit_int32_t,jit_int32_t,jit_int32_t);
|
|
# define unlei_d(r0, r1, i2) _unlei_d(_jit, r0, r1, i2)
|
|
static void _unlei_d(jit_state_t*,jit_int32_t,jit_int32_t,jit_float64_t*);
|
|
# define uneqr_d(r0, r1, r2) _uneqr_d(_jit, r0, r1, r2)
|
|
static void _uneqr_d(jit_state_t*,jit_int32_t,jit_int32_t,jit_int32_t);
|
|
# define uneqi_d(r0, r1, i2) _uneqi_d(_jit, r0, r1, i2)
|
|
static void _uneqi_d(jit_state_t*,jit_int32_t,jit_int32_t,jit_float64_t*);
|
|
# define unger_d(r0, r1, r2) _unger_d(_jit, r0, r1, r2)
|
|
static void _unger_d(jit_state_t*,jit_int32_t,jit_int32_t,jit_int32_t);
|
|
# define ungei_d(r0, r1, i2) _ungei_d(_jit, r0, r1, i2)
|
|
static void _ungei_d(jit_state_t*,jit_int32_t,jit_int32_t,jit_float64_t*);
|
|
# define ungtr_d(r0, r1, r2) _ungtr_d(_jit, r0, r1, r2)
|
|
static void _ungtr_d(jit_state_t*,jit_int32_t,jit_int32_t,jit_int32_t);
|
|
# define ungti_d(r0, r1, i2) _ungti_d(_jit, r0, r1, i2)
|
|
static void _ungti_d(jit_state_t*,jit_int32_t,jit_int32_t,jit_float64_t*);
|
|
# define ltgtr_d(r0, r1, r2) _ltgtr_d(_jit, r0, r1, r2)
|
|
static void _ltgtr_d(jit_state_t*,jit_int32_t,jit_int32_t,jit_int32_t);
|
|
# define ltgti_d(r0, r1, i2) _ltgti_d(_jit, r0, r1, i2)
|
|
static void _ltgti_d(jit_state_t*,jit_int32_t,jit_int32_t,jit_float64_t*);
|
|
# define ordr_d(r0, r1, r2) _ordr_d(_jit, r0, r1, r2)
|
|
static void _ordr_d(jit_state_t*,jit_int32_t,jit_int32_t,jit_int32_t);
|
|
# define ordi_d(r0, r1, i2) _ordi_d(_jit, r0, r1, i2)
|
|
static void _ordi_d(jit_state_t*,jit_int32_t,jit_int32_t,jit_float64_t*);
|
|
# define unordr_d(r0, r1, r2) _unordr_d(_jit, r0, r1, r2)
|
|
static void _unordr_d(jit_state_t*,jit_int32_t,jit_int32_t,jit_int32_t);
|
|
# define unordi_d(r0, r1, i2) _unordi_d(_jit, r0, r1, i2)
|
|
static void _unordi_d(jit_state_t*,jit_int32_t,jit_int32_t,jit_float64_t*);
|
|
# define bltr_d(i0, r0, r1) _bltr_d(_jit, i0, r0, r1)
|
|
static jit_word_t _bltr_d(jit_state_t*,jit_word_t,jit_int32_t,jit_int32_t);
|
|
# define blti_d(i0, r0, i1) _blti_d(_jit, i0, r0, i1)
|
|
static jit_word_t
|
|
_blti_d(jit_state_t*, jit_word_t, jit_int32_t, jit_float64_t*);
|
|
# define bler_d(i0, r0, r1) _bler_d(_jit, i0, r0, r1)
|
|
static jit_word_t _bler_d(jit_state_t*,jit_word_t,jit_int32_t,jit_int32_t);
|
|
# define blei_d(i0, r0, i1) _blei_d(_jit, i0, r0, i1)
|
|
static jit_word_t
|
|
_blei_d(jit_state_t*, jit_word_t, jit_int32_t, jit_float64_t*);
|
|
# define beqr_d(i0, r0, r1) _beqr_d(_jit, i0, r0, r1)
|
|
static jit_word_t _beqr_d(jit_state_t*,jit_word_t,jit_int32_t,jit_int32_t);
|
|
# define beqi_d(i0, r0, i1) _beqi_d(_jit, i0, r0, i1)
|
|
static jit_word_t
|
|
_beqi_d(jit_state_t*, jit_word_t, jit_int32_t, jit_float64_t*);
|
|
# define bger_d(i0, r0, r1) _bger_d(_jit, i0, r0, r1)
|
|
static jit_word_t _bger_d(jit_state_t*,jit_word_t,jit_int32_t,jit_int32_t);
|
|
# define bgei_d(i0, r0, i1) _bgei_d(_jit, i0, r0, i1)
|
|
static jit_word_t
|
|
_bgei_d(jit_state_t*, jit_word_t, jit_int32_t, jit_float64_t*);
|
|
# define bgtr_d(i0, r0, r1) _bgtr_d(_jit, i0, r0, r1)
|
|
static jit_word_t _bgtr_d(jit_state_t*,jit_word_t,jit_int32_t,jit_int32_t);
|
|
# define bgti_d(i0, r0, i1) _bgti_d(_jit, i0, r0, i1)
|
|
static jit_word_t
|
|
_bgti_d(jit_state_t*, jit_word_t, jit_int32_t, jit_float64_t*);
|
|
# define bner_d(i0, r0, r1) _bner_d(_jit, i0, r0, r1)
|
|
static jit_word_t _bner_d(jit_state_t*,jit_word_t,jit_int32_t,jit_int32_t);
|
|
# define bnei_d(i0, r0, i1) _bnei_d(_jit, i0, r0, i1)
|
|
static jit_word_t
|
|
_bnei_d(jit_state_t*, jit_word_t, jit_int32_t, jit_float64_t*);
|
|
# define bunltr_d(i0, r0, r1) _bunltr_d(_jit, i0, r0, r1)
|
|
static jit_word_t _bunltr_d(jit_state_t*,jit_word_t,jit_int32_t,jit_int32_t);
|
|
# define bunlti_d(i0, r0, i1) _bunlti_d(_jit, i0, r0, i1)
|
|
static jit_word_t
|
|
_bunlti_d(jit_state_t*, jit_word_t, jit_int32_t, jit_float64_t*);
|
|
# define bunler_d(i0, r0, r1) _bunler_d(_jit, i0, r0, r1)
|
|
static jit_word_t _bunler_d(jit_state_t*,jit_word_t,jit_int32_t,jit_int32_t);
|
|
# define bunlei_d(i0, r0, i1) _bunlei_d(_jit, i0, r0, i1)
|
|
static jit_word_t
|
|
_bunlei_d(jit_state_t*, jit_word_t, jit_int32_t, jit_float64_t*);
|
|
# define buneqr_d(i0, r0, r1) _buneqr_d(_jit, i0, r0, r1)
|
|
static jit_word_t _buneqr_d(jit_state_t*,jit_word_t,jit_int32_t,jit_int32_t);
|
|
# define buneqi_d(i0, r0, i1) _buneqi_d(_jit, i0, r0, i1)
|
|
static jit_word_t
|
|
_buneqi_d(jit_state_t*, jit_word_t, jit_int32_t, jit_float64_t*);
|
|
# define bunger_d(i0, r0, r1) _bunger_d(_jit, i0, r0, r1)
|
|
static jit_word_t _bunger_d(jit_state_t*,jit_word_t,jit_int32_t,jit_int32_t);
|
|
# define bungei_d(i0, r0, i1) _bungei_d(_jit, i0, r0, i1)
|
|
static jit_word_t
|
|
_bungei_d(jit_state_t*, jit_word_t, jit_int32_t, jit_float64_t*);
|
|
# define bungtr_d(i0, r0, r1) _bungtr_d(_jit, i0, r0, r1)
|
|
static jit_word_t _bungtr_d(jit_state_t*,jit_word_t,jit_int32_t,jit_int32_t);
|
|
# define bungti_d(i0, r0, i1) _bungti_d(_jit, i0, r0, i1)
|
|
static jit_word_t
|
|
_bungti_d(jit_state_t*, jit_word_t, jit_int32_t, jit_float64_t*);
|
|
# define bltgtr_d(i0, r0, r1) _bltgtr_d(_jit, i0, r0, r1)
|
|
static jit_word_t _bltgtr_d(jit_state_t*,jit_word_t,jit_int32_t,jit_int32_t);
|
|
# define bltgti_d(i0, r0, i1) _bltgti_d(_jit, i0, r0, i1)
|
|
static jit_word_t
|
|
_bltgti_d(jit_state_t*, jit_word_t, jit_int32_t, jit_float64_t*);
|
|
# define bordr_d(i0, r0, r1) _bordr_d(_jit, i0, r0, r1)
|
|
static jit_word_t _bordr_d(jit_state_t*,jit_word_t,jit_int32_t,jit_int32_t);
|
|
# define bordi_d(i0, r0, i1) _bordi_d(_jit, i0, r0, i1)
|
|
static jit_word_t
|
|
_bordi_d(jit_state_t*, jit_word_t, jit_int32_t, jit_float64_t*);
|
|
# define bunordr_d(i0, r0, r1) _bunordr_d(_jit, i0, r0, r1)
|
|
static jit_word_t _bunordr_d(jit_state_t*,jit_word_t,jit_int32_t,jit_int32_t);
|
|
# define bunordi_d(i0, r0, i1) _bunordi_d(_jit, i0, r0, i1)
|
|
static jit_word_t
|
|
_bunordi_d(jit_state_t*, jit_word_t, jit_int32_t, jit_float64_t*);
|
|
#endif
|
|
|
|
#if CODE
|
|
static void
|
|
_c_cond_fmt(jit_state_t *_jit, jit_int32_t fm,
|
|
jit_int32_t ft, jit_int32_t fs, jit_int32_t cc)
|
|
{
|
|
jit_instr_t i;
|
|
i.cc.b = cc;
|
|
i.fs.b = fs;
|
|
i.ft.b = ft;
|
|
i.fm.b = fm;
|
|
i.hc.b = MIPS_COP1;
|
|
ii(i.op);
|
|
}
|
|
|
|
# define fpr_opi(name, type, size) \
|
|
static void \
|
|
_##name##i_##type(jit_state_t *_jit, \
|
|
jit_int32_t r0, jit_int32_t r1, \
|
|
jit_float##size##_t *i0) \
|
|
{ \
|
|
jit_int32_t reg = jit_get_reg(jit_class_fpr); \
|
|
movi_##type(rn(reg), i0); \
|
|
name##r_##type(r0, r1, rn(reg)); \
|
|
jit_unget_reg(reg); \
|
|
}
|
|
# define fpr_bopi(name, type, size) \
|
|
static jit_word_t \
|
|
_b##name##i_##type(jit_state_t *_jit, \
|
|
jit_word_t i0, jit_int32_t r0, \
|
|
jit_float##size##_t *i1) \
|
|
{ \
|
|
jit_word_t word; \
|
|
jit_int32_t reg = jit_get_reg(jit_class_fpr); \
|
|
movi_##type(rn(reg), i1); \
|
|
word = b##name##r_##type(i0, r0, rn(reg)); \
|
|
jit_unget_reg(reg); \
|
|
return (word); \
|
|
}
|
|
# define fopi(name) fpr_opi(name, f, 32)
|
|
# define fbopi(name) fpr_bopi(name, f, 32)
|
|
# define dopi(name) fpr_opi(name, d, 64)
|
|
# define dbopi(name) fpr_bopi(name, d, 64)
|
|
|
|
fopi(add)
|
|
fopi(sub)
|
|
fopi(mul)
|
|
fopi(div)
|
|
|
|
static void
|
|
_pushargi_f(jit_state_t *_jit, jit_int32_t r0, jit_float32_t *i0)
|
|
{
|
|
union {
|
|
jit_int32_t i;
|
|
jit_float32_t f;
|
|
} data;
|
|
|
|
data.f = *i0;
|
|
movi(r0, data.i);
|
|
}
|
|
|
|
static void
|
|
_extr_f(jit_state_t *_jit, jit_int32_t r0, jit_int32_t r1)
|
|
{
|
|
jit_int32_t t0;
|
|
t0 = jit_get_reg(jit_class_fpr);
|
|
# if __WORDSIZE == 32
|
|
MTC1(r1, rn(t0));
|
|
CVT_S_W(r0, rn(t0));
|
|
# else
|
|
DMTC1(r1, rn(t0));
|
|
CVT_S_L(r0, rn(t0));
|
|
# endif
|
|
jit_unget_reg(t0);
|
|
}
|
|
|
|
static void
|
|
_truncr_f_i(jit_state_t *_jit, jit_int32_t r0, jit_int32_t r1)
|
|
{
|
|
jit_int32_t t0;
|
|
t0 = jit_get_reg(jit_class_fpr);
|
|
TRUNC_W_S(rn(t0), r1);
|
|
MFC1(r0, rn(t0));
|
|
jit_unget_reg(t0);
|
|
}
|
|
|
|
# if __WORDSIZE == 64
|
|
static void
|
|
_truncr_f_i(jit_state_t *_jit, jit_int32_t r0, jit_int32_t r1)
|
|
{
|
|
jit_int32_t t0;
|
|
t0 = jit_get_reg(jit_class_fpr);
|
|
TRUNC_L_S(rn(t0), r1);
|
|
DMFC1(r0, rn(t0));
|
|
jit_unget_reg(t0);
|
|
}
|
|
# endif
|
|
|
|
static void
|
|
_ldi_f(jit_state_t *_jit, jit_int32_t r0, jit_word_t i0)
|
|
{
|
|
jit_int32_t reg;
|
|
if (can_sign_extend_short_p(i0))
|
|
LWC1(r0, i0, _ZERO_REGNO);
|
|
else {
|
|
reg = jit_get_reg(jit_class_gpr);
|
|
movi(rn(reg), i0);
|
|
ldr_f(r0, rn(reg));
|
|
jit_unget_reg(reg);
|
|
}
|
|
}
|
|
|
|
static void
|
|
_ldxr_f(jit_state_t *_jit, jit_int32_t r0, jit_int32_t r1, jit_int32_t r2)
|
|
{
|
|
jit_int32_t reg;
|
|
reg = jit_get_reg(jit_class_gpr);
|
|
addr(rn(reg), r1, r2);
|
|
ldr_f(r0, rn(reg));
|
|
jit_unget_reg(reg);
|
|
}
|
|
|
|
static void
|
|
_ldxi_f(jit_state_t *_jit, jit_int32_t r0, jit_int32_t r1, jit_word_t i0)
|
|
{
|
|
jit_int32_t reg;
|
|
if (can_sign_extend_short_p(i0))
|
|
LWC1(r0, i0, r1);
|
|
else {
|
|
reg = jit_get_reg(jit_class_gpr);
|
|
addi(rn(reg), r1, i0);
|
|
ldr_f(r0, rn(reg));
|
|
jit_unget_reg(reg);
|
|
}
|
|
}
|
|
|
|
static void
|
|
_sti_f(jit_state_t *_jit, jit_word_t i0, jit_int32_t r0)
|
|
{
|
|
jit_int32_t reg;
|
|
if (can_sign_extend_short_p(i0))
|
|
SWC1(r0, i0, _ZERO_REGNO);
|
|
else {
|
|
reg = jit_get_reg(jit_class_gpr);
|
|
movi(rn(reg), i0);
|
|
str_f(rn(reg), r0);
|
|
jit_unget_reg(reg);
|
|
}
|
|
}
|
|
|
|
static void
|
|
_stxr_f(jit_state_t *_jit, jit_int32_t r0, jit_int32_t r1, jit_int32_t r2)
|
|
{
|
|
jit_int32_t reg;
|
|
reg = jit_get_reg(jit_class_gpr);
|
|
addr(rn(reg), r1, r2);
|
|
str_f(rn(reg), r0);
|
|
jit_unget_reg(reg);
|
|
}
|
|
|
|
static void
|
|
_stxi_f(jit_state_t *_jit, jit_word_t i0, jit_int32_t r0, jit_int32_t r1)
|
|
{
|
|
jit_int32_t reg;
|
|
if (can_sign_extend_int_p(i0))
|
|
SWC1(r1, i0, r0);
|
|
else {
|
|
reg = jit_get_reg(jit_class_gpr);
|
|
addi(rn(reg), r0, i0);
|
|
str_f(rn(reg), r1);
|
|
jit_unget_reg(reg);
|
|
}
|
|
}
|
|
|
|
static void
|
|
_movr_f(jit_state_t *_jit, jit_int32_t r0, jit_int32_t r1)
|
|
{
|
|
if (r0 != r1)
|
|
MOV_S(r0, r1);
|
|
}
|
|
|
|
static void
|
|
_movi_f(jit_state_t *_jit, jit_int32_t r0, jit_float32_t *i0)
|
|
{
|
|
union {
|
|
jit_int32_t i;
|
|
jit_float32_t f;
|
|
} data;
|
|
|
|
data.f = *i0;
|
|
if (data.i)
|
|
ldi_f(r0, (jit_word_t)i0);
|
|
else
|
|
MTC1(_ZERO_REGNO, r0);
|
|
}
|
|
|
|
dopi(add)
|
|
dopi(sub)
|
|
dopi(mul)
|
|
dopi(div)
|
|
|
|
static void
|
|
_getarg_d(jit_state_t *_jit, jit_int32_t r0, jit_int32_t r1)
|
|
{
|
|
# if __WORDSIZE == 32
|
|
MTC1(r1, r0);
|
|
MTC1(r1 + 1, r0 + 1);
|
|
# else
|
|
DMTC1(r1, r0);
|
|
# endif
|
|
}
|
|
|
|
static void
|
|
_pushargr_d(jit_state_t *_jit, jit_int32_t r0, jit_int32_t r1)
|
|
{
|
|
# if __WORDSIZE == 32
|
|
MFC1(r0, r1);
|
|
MFC1(r0 + 1, r1 + 1);
|
|
# else
|
|
DMFC1(r0, r1);
|
|
# endif
|
|
}
|
|
|
|
static void
|
|
_pushargi_d(jit_state_t *_jit, jit_int32_t r0, jit_float64_t *i0)
|
|
{
|
|
union {
|
|
jit_int32_t i[2];
|
|
jit_int64_t l;
|
|
jit_float64_t d;
|
|
} data;
|
|
|
|
data.d = *i0;
|
|
# if __WORDSIZE == 64
|
|
movi(r0, data.l);
|
|
# else
|
|
movi(r0, data.i[0]);
|
|
movi(r0 + 1, data.i[1]);
|
|
# endif
|
|
}
|
|
|
|
static void
|
|
_extr_d(jit_state_t *_jit, jit_int32_t r0, jit_int32_t r1)
|
|
{
|
|
jit_int32_t t0;
|
|
t0 = jit_get_reg(jit_class_fpr);
|
|
# if __WORDSIZE == 32
|
|
MTC1(r1, rn(t0));
|
|
CVT_D_W(r0, rn(t0));
|
|
# else
|
|
DMTC1(r1, rn(t0));
|
|
CVT_D_L(r0, rn(t0));
|
|
# endif
|
|
jit_unget_reg(t0);
|
|
}
|
|
|
|
static void
|
|
_truncr_d_i(jit_state_t *_jit, jit_int32_t r0, jit_int32_t r1)
|
|
{
|
|
jit_int32_t t0;
|
|
t0 = jit_get_reg(jit_class_fpr);
|
|
TRUNC_W_D(rn(t0), r1);
|
|
MFC1(r0, rn(t0));
|
|
jit_unget_reg(t0);
|
|
}
|
|
|
|
# if __WORDSIZE == 64
|
|
static void
|
|
_truncr_d_l(jit_state_t *_jit, jit_int32_t r0, jit_int32_t r1)
|
|
{
|
|
jit_int32_t t0;
|
|
t0 = jit_get_reg(jit_class_fpr);
|
|
TRUNC_L_D(rn(t0), r1);
|
|
DMFC1(r0, rn(t0));
|
|
jit_unget_reg(t0);
|
|
}
|
|
# endif
|
|
|
|
static void
|
|
_ldr_d(jit_state_t *_jit, jit_int32_t r0, jit_int32_t r1)
|
|
{
|
|
# if __WORDSIZE == 64
|
|
LDC1(r0, 0, r1);
|
|
# else
|
|
LWC1(r0, 0, r1);
|
|
LWC1(r0 + 1, 4, r1);
|
|
# endif
|
|
}
|
|
|
|
static void
|
|
_ldi_d(jit_state_t *_jit, jit_int32_t r0, jit_word_t i0)
|
|
{
|
|
jit_int32_t reg;
|
|
# if __WORDSIZE == 64
|
|
if (can_sign_extend_short_p(i0))
|
|
LDC1(r0, i0, _ZERO_REGNO);
|
|
else {
|
|
reg = jit_get_reg(jit_class_gpr);
|
|
movi(rn(reg), i0);
|
|
LDC1(r0, 0, rn(reg));
|
|
jit_unget_reg(reg);
|
|
}
|
|
# else
|
|
if (can_sign_extend_short_p(i0) && can_sign_extend_short_p(i0 + 4)) {
|
|
LWC1(r0, i0, _ZERO_REGNO);
|
|
LWC1(r0 + 1, i0 + 4, _ZERO_REGNO);
|
|
}
|
|
else {
|
|
reg = jit_get_reg(jit_class_gpr);
|
|
movi(rn(reg), i0);
|
|
LWC1(r0, 0, rn(reg));
|
|
LWC1(r0 + 1, 4, rn(reg));
|
|
jit_unget_reg(reg);
|
|
}
|
|
# endif
|
|
}
|
|
|
|
static void
|
|
_ldxr_d(jit_state_t *_jit, jit_int32_t r0, jit_int32_t r1, jit_int32_t r2)
|
|
{
|
|
jit_int32_t reg;
|
|
reg = jit_get_reg(jit_class_gpr);
|
|
addr(rn(reg), r1, r2);
|
|
ldr_d(r0, rn(reg));
|
|
jit_unget_reg(reg);
|
|
}
|
|
|
|
static void
|
|
_ldxi_d(jit_state_t *_jit, jit_int32_t r0, jit_int32_t r1, jit_word_t i0)
|
|
{
|
|
jit_int32_t reg;
|
|
# if __WORDSIZE == 64
|
|
if (can_sign_extend_short_p(i0))
|
|
LDC1(r0, i0, r1);
|
|
# else
|
|
if (can_sign_extend_short_p(i0) && can_sign_extend_short_p(i0 + 4)) {
|
|
LWC1(r0, i0, r1);
|
|
LWC1(r0 + 1, i0 + 4, r1);
|
|
}
|
|
# endif
|
|
else {
|
|
reg = jit_get_reg(jit_class_gpr);
|
|
addi(rn(reg), r1, i0);
|
|
ldr_d(r0, rn(reg));
|
|
jit_unget_reg(reg);
|
|
}
|
|
}
|
|
|
|
static void
|
|
_str_d(jit_state_t *_jit,jit_int32_t r0, jit_int32_t r1)
|
|
{
|
|
# if __WORDSIZE == 64
|
|
SDC1(r1, 0, r0);
|
|
# else
|
|
SWC1(r1, 0, r0);
|
|
SWC1(r1 + 1, 4, r0);
|
|
# endif
|
|
}
|
|
|
|
static void
|
|
_sti_d(jit_state_t *_jit, jit_word_t i0, jit_int32_t r0)
|
|
{
|
|
jit_int32_t reg;
|
|
# if __WORDSIZE == 64
|
|
if (can_sign_extend_short_p(i0))
|
|
SDC1(r0, i0, _ZERO_REGNO);
|
|
# else
|
|
if (can_sign_extend_short_p(i0) && can_sign_extend_short_p(i0 + 4)) {
|
|
SWC1(r0, i0, _ZERO_REGNO);
|
|
SWC1(r0 + 1, i0 + 4, _ZERO_REGNO);
|
|
}
|
|
# endif
|
|
else {
|
|
reg = jit_get_reg(jit_class_gpr);
|
|
movi(rn(reg), i0);
|
|
str_d(rn(reg), r0);
|
|
jit_unget_reg(reg);
|
|
}
|
|
}
|
|
|
|
static void
|
|
_stxr_d(jit_state_t *_jit, jit_int32_t r0, jit_int32_t r1, jit_int32_t r2)
|
|
{
|
|
jit_int32_t reg;
|
|
reg = jit_get_reg(jit_class_gpr);
|
|
addr(rn(reg), r1, r2);
|
|
str_d(rn(reg), r0);
|
|
jit_unget_reg(reg);
|
|
}
|
|
|
|
static void
|
|
_stxi_d(jit_state_t *_jit, jit_word_t i0, jit_int32_t r0, jit_int32_t r1)
|
|
{
|
|
jit_int32_t reg;
|
|
# if __WORDSIZE == 64
|
|
if (can_sign_extend_int_p(i0))
|
|
SDC1(r1, i0, r0);
|
|
# else
|
|
if (can_sign_extend_int_p(i0) && can_sign_extend_int_p(i0 + 4)) {
|
|
SWC1(r1, i0, r0);
|
|
SWC1(r1 + 1, i0 + 4, r0);
|
|
}
|
|
# endif
|
|
else {
|
|
reg = jit_get_reg(jit_class_gpr);
|
|
addi(rn(reg), r0, i0);
|
|
str_d(rn(reg), r1);
|
|
jit_unget_reg(reg);
|
|
}
|
|
}
|
|
|
|
static void
|
|
_movr_d(jit_state_t *_jit, jit_int32_t r0, jit_int32_t r1)
|
|
{
|
|
if (r0 != r1)
|
|
MOV_D(r0, r1);
|
|
}
|
|
|
|
static void
|
|
_movi_d(jit_state_t *_jit, jit_int32_t r0, jit_float64_t *i0)
|
|
{
|
|
union {
|
|
jit_int32_t i[2];
|
|
jit_int64_t l;
|
|
jit_float64_t d;
|
|
} data;
|
|
|
|
data.d = *i0;
|
|
# if __WORDSIZE == 64
|
|
if (data.l)
|
|
ldi_d(r0, (jit_word_t)i0);
|
|
else
|
|
DMTC1(_ZERO_REGNO, r0);
|
|
# else
|
|
if (data.i[0])
|
|
ldi_f(r0, (jit_word_t)i0);
|
|
else
|
|
MTC1(_ZERO_REGNO, r0);
|
|
if (data.i[1])
|
|
ldi_f(r0 + 1, ((jit_word_t)i0) + 4);
|
|
else
|
|
MTC1(_ZERO_REGNO, r0 + 1);
|
|
# endif
|
|
}
|
|
|
|
static void
|
|
_ltr_f(jit_state_t *_jit, jit_int32_t r0, jit_int32_t r1, jit_int32_t r2)
|
|
{
|
|
jit_word_t w;
|
|
C_OLT_S(r1, r2);
|
|
w = _jit->pc.w;
|
|
BC1T(0);
|
|
/* delay slot */
|
|
movi(r0, 1);
|
|
movi(r0, 0);
|
|
patch_at(w, _jit->pc.w);
|
|
}
|
|
fopi(lt)
|
|
|
|
static void
|
|
_ler_f(jit_state_t *_jit, jit_int32_t r0, jit_int32_t r1, jit_int32_t r2)
|
|
{
|
|
jit_word_t w;
|
|
C_OLE_S(r1, r2);
|
|
w = _jit->pc.w;
|
|
BC1T(0);
|
|
/* delay slot */
|
|
movi(r0, 1);
|
|
movi(r0, 0);
|
|
patch_at(w, _jit->pc.w);
|
|
}
|
|
fopi(le)
|
|
|
|
static void
|
|
_eqr_f(jit_state_t *_jit, jit_int32_t r0, jit_int32_t r1, jit_int32_t r2)
|
|
{
|
|
jit_word_t w;
|
|
C_EQ_S(r1, r2);
|
|
w = _jit->pc.w;
|
|
BC1T(0);
|
|
/* delay slot */
|
|
movi(r0, 1);
|
|
movi(r0, 0);
|
|
patch_at(w, _jit->pc.w);
|
|
}
|
|
fopi(eq)
|
|
|
|
static void
|
|
_ger_f(jit_state_t *_jit, jit_int32_t r0, jit_int32_t r1, jit_int32_t r2)
|
|
{
|
|
jit_word_t w;
|
|
C_ULT_S(r1, r2);
|
|
w = _jit->pc.w;
|
|
BC1F(0);
|
|
/* delay slot */
|
|
movi(r0, 1);
|
|
movi(r0, 0);
|
|
patch_at(w, _jit->pc.w);
|
|
}
|
|
fopi(ge)
|
|
|
|
static void
|
|
_gtr_f(jit_state_t *_jit, jit_int32_t r0, jit_int32_t r1, jit_int32_t r2)
|
|
{
|
|
jit_word_t w;
|
|
C_ULE_S(r1, r2);
|
|
w = _jit->pc.w;
|
|
BC1F(0);
|
|
/* delay slot */
|
|
movi(r0, 1);
|
|
movi(r0, 0);
|
|
patch_at(w, _jit->pc.w);
|
|
}
|
|
fopi(gt)
|
|
|
|
static void
|
|
_ner_f(jit_state_t *_jit, jit_int32_t r0, jit_int32_t r1, jit_int32_t r2)
|
|
{
|
|
jit_word_t w;
|
|
C_EQ_S(r1, r2);
|
|
w = _jit->pc.w;
|
|
BC1F(0);
|
|
/* delay slot */
|
|
movi(r0, 1);
|
|
movi(r0, 0);
|
|
patch_at(w, _jit->pc.w);
|
|
}
|
|
fopi(ne)
|
|
|
|
static void
|
|
_unltr_f(jit_state_t *_jit, jit_int32_t r0, jit_int32_t r1, jit_int32_t r2)
|
|
{
|
|
jit_word_t w;
|
|
C_ULT_S(r1, r2);
|
|
w = _jit->pc.w;
|
|
BC1T(0);
|
|
/* delay slot */
|
|
movi(r0, 1);
|
|
movi(r0, 0);
|
|
patch_at(w, _jit->pc.w);
|
|
}
|
|
fopi(unlt)
|
|
|
|
static void
|
|
_unler_f(jit_state_t *_jit, jit_int32_t r0, jit_int32_t r1, jit_int32_t r2)
|
|
{
|
|
jit_word_t w;
|
|
C_ULE_S(r1, r2);
|
|
w = _jit->pc.w;
|
|
BC1T(0);
|
|
/* delay slot */
|
|
movi(r0, 1);
|
|
movi(r0, 0);
|
|
patch_at(w, _jit->pc.w);
|
|
}
|
|
fopi(unle)
|
|
|
|
static void
|
|
_uneqr_f(jit_state_t *_jit, jit_int32_t r0, jit_int32_t r1, jit_int32_t r2)
|
|
{
|
|
jit_word_t w;
|
|
C_UEQ_S(r1, r2);
|
|
w = _jit->pc.w;
|
|
BC1T(0);
|
|
/* delay slot */
|
|
movi(r0, 1);
|
|
movi(r0, 0);
|
|
patch_at(w, _jit->pc.w);
|
|
}
|
|
fopi(uneq)
|
|
|
|
static void
|
|
_unger_f(jit_state_t *_jit, jit_int32_t r0, jit_int32_t r1, jit_int32_t r2)
|
|
{
|
|
jit_word_t w;
|
|
C_OLT_S(r1, r2);
|
|
w = _jit->pc.w;
|
|
BC1F(0);
|
|
/* delay slot */
|
|
movi(r0, 1);
|
|
movi(r0, 0);
|
|
patch_at(w, _jit->pc.w);
|
|
}
|
|
fopi(unge)
|
|
|
|
static void
|
|
_ungtr_f(jit_state_t *_jit, jit_int32_t r0, jit_int32_t r1, jit_int32_t r2)
|
|
{
|
|
jit_word_t w;
|
|
C_OLE_S(r1, r2);
|
|
w = _jit->pc.w;
|
|
BC1F(0);
|
|
/* delay slot */
|
|
movi(r0, 1);
|
|
movi(r0, 0);
|
|
patch_at(w, _jit->pc.w);
|
|
}
|
|
fopi(ungt)
|
|
|
|
static void
|
|
_ltgtr_f(jit_state_t *_jit, jit_int32_t r0, jit_int32_t r1, jit_int32_t r2)
|
|
{
|
|
jit_word_t w;
|
|
C_UEQ_S(r1, r2);
|
|
w = _jit->pc.w;
|
|
BC1F(0);
|
|
/* delay slot */
|
|
movi(r0, 1);
|
|
movi(r0, 0);
|
|
patch_at(w, _jit->pc.w);
|
|
}
|
|
fopi(ltgt)
|
|
|
|
static void
|
|
_ordr_f(jit_state_t *_jit, jit_int32_t r0, jit_int32_t r1, jit_int32_t r2)
|
|
{
|
|
jit_word_t w;
|
|
C_UN_S(r1, r2);
|
|
w = _jit->pc.w;
|
|
BC1F(0);
|
|
/* delay slot */
|
|
movi(r0, 1);
|
|
movi(r0, 0);
|
|
patch_at(w, _jit->pc.w);
|
|
}
|
|
fopi(ord)
|
|
|
|
static void
|
|
_unordr_f(jit_state_t *_jit, jit_int32_t r0, jit_int32_t r1, jit_int32_t r2)
|
|
{
|
|
jit_word_t w;
|
|
C_UN_S(r1, r2);
|
|
w = _jit->pc.w;
|
|
BC1T(0);
|
|
/* delay slot */
|
|
movi(r0, 1);
|
|
movi(r0, 0);
|
|
patch_at(w, _jit->pc.w);
|
|
}
|
|
fopi(unord)
|
|
|
|
static jit_word_t
|
|
_bltr_f(jit_state_t *_jit, jit_word_t i0, jit_int32_t r1, jit_int32_t r2)
|
|
{
|
|
jit_word_t w;
|
|
C_OLT_S(r1, r2);
|
|
w = _jit->pc.w;
|
|
BC1T(((i0 - w) >> 2) - 1);
|
|
NOP(1);
|
|
return (w);
|
|
}
|
|
fbopi(lt)
|
|
|
|
static jit_word_t
|
|
_bler_f(jit_state_t *_jit, jit_word_t i0, jit_int32_t r1, jit_int32_t r2)
|
|
{
|
|
jit_word_t w;
|
|
C_OLE_S(r1, r2);
|
|
w = _jit->pc.w;
|
|
BC1T(((i0 - w) >> 2) - 1);
|
|
NOP(1);
|
|
return (w);
|
|
}
|
|
fbopi(le)
|
|
|
|
static jit_word_t
|
|
_beqr_f(jit_state_t *_jit, jit_word_t i0, jit_int32_t r1, jit_int32_t r2)
|
|
{
|
|
jit_word_t w;
|
|
C_EQ_S(r1, r2);
|
|
w = _jit->pc.w;
|
|
BC1T(((i0 - w) >> 2) - 1);
|
|
NOP(1);
|
|
return (w);
|
|
}
|
|
fbopi(eq)
|
|
|
|
static jit_word_t
|
|
_bger_f(jit_state_t *_jit, jit_word_t i0, jit_int32_t r1, jit_int32_t r2)
|
|
{
|
|
jit_word_t w;
|
|
C_ULT_S(r1, r2);
|
|
w = _jit->pc.w;
|
|
BC1F(((i0 - w) >> 2) - 1);
|
|
NOP(1);
|
|
return (w);
|
|
}
|
|
fbopi(ge)
|
|
|
|
static jit_word_t
|
|
_bgtr_f(jit_state_t *_jit, jit_word_t i0, jit_int32_t r1, jit_int32_t r2)
|
|
{
|
|
jit_word_t w;
|
|
C_ULE_S(r1, r2);
|
|
w = _jit->pc.w;
|
|
BC1F(((i0 - w) >> 2) - 1);
|
|
NOP(1);
|
|
return (w);
|
|
}
|
|
fbopi(gt)
|
|
|
|
static jit_word_t
|
|
_bner_f(jit_state_t *_jit, jit_word_t i0, jit_int32_t r1, jit_int32_t r2)
|
|
{
|
|
jit_word_t w;
|
|
C_EQ_S(r1, r2);
|
|
w = _jit->pc.w;
|
|
BC1F(((i0 - w) >> 2) - 1);
|
|
NOP(1);
|
|
return (w);
|
|
}
|
|
fbopi(ne)
|
|
|
|
static jit_word_t
|
|
_bunltr_f(jit_state_t *_jit, jit_word_t i0, jit_int32_t r1, jit_int32_t r2)
|
|
{
|
|
jit_word_t w;
|
|
C_ULT_S(r1, r2);
|
|
w = _jit->pc.w;
|
|
BC1T(((i0 - w) >> 2) - 1);
|
|
NOP(1);
|
|
return (w);
|
|
}
|
|
fbopi(unlt)
|
|
|
|
static jit_word_t
|
|
_bunler_f(jit_state_t *_jit, jit_word_t i0, jit_int32_t r1, jit_int32_t r2)
|
|
{
|
|
jit_word_t w;
|
|
C_ULE_S(r1, r2);
|
|
w = _jit->pc.w;
|
|
BC1T(((i0 - w) >> 2) - 1);
|
|
NOP(1);
|
|
return (w);
|
|
}
|
|
fbopi(unle)
|
|
|
|
static jit_word_t
|
|
_buneqr_f(jit_state_t *_jit, jit_word_t i0, jit_int32_t r1, jit_int32_t r2)
|
|
{
|
|
jit_word_t w;
|
|
C_UEQ_S(r1, r2);
|
|
w = _jit->pc.w;
|
|
BC1T(((i0 - w) >> 2) - 1);
|
|
NOP(1);
|
|
return (w);
|
|
}
|
|
fbopi(uneq)
|
|
|
|
static jit_word_t
|
|
_bunger_f(jit_state_t *_jit, jit_word_t i0, jit_int32_t r1, jit_int32_t r2)
|
|
{
|
|
jit_word_t w;
|
|
C_OLT_S(r1, r2);
|
|
w = _jit->pc.w;
|
|
BC1F(((i0 - w) >> 2) - 1);
|
|
NOP(1);
|
|
return (w);
|
|
}
|
|
fbopi(unge)
|
|
|
|
static jit_word_t
|
|
_bungtr_f(jit_state_t *_jit, jit_word_t i0, jit_int32_t r1, jit_int32_t r2)
|
|
{
|
|
jit_word_t w;
|
|
C_OLE_S(r1, r2);
|
|
w = _jit->pc.w;
|
|
BC1F(((i0 - w) >> 2) - 1);
|
|
NOP(1);
|
|
return (w);
|
|
}
|
|
fbopi(ungt)
|
|
|
|
static jit_word_t
|
|
_bltgtr_f(jit_state_t *_jit, jit_word_t i0, jit_int32_t r1, jit_int32_t r2)
|
|
{
|
|
jit_word_t w;
|
|
C_UEQ_S(r1, r2);
|
|
w = _jit->pc.w;
|
|
BC1F(((i0 - w) >> 2) - 1);
|
|
NOP(1);
|
|
return (w);
|
|
}
|
|
fbopi(ltgt)
|
|
|
|
static jit_word_t
|
|
_bordr_f(jit_state_t *_jit, jit_word_t i0, jit_int32_t r1, jit_int32_t r2)
|
|
{
|
|
jit_word_t w;
|
|
C_UN_S(r1, r2);
|
|
w = _jit->pc.w;
|
|
BC1F(((i0 - w) >> 2) - 1);
|
|
NOP(1);
|
|
return (w);
|
|
}
|
|
fbopi(ord)
|
|
|
|
static jit_word_t
|
|
_bunordr_f(jit_state_t *_jit, jit_word_t i0, jit_int32_t r1, jit_int32_t r2)
|
|
{
|
|
jit_word_t w;
|
|
C_UN_S(r1, r2);
|
|
w = _jit->pc.w;
|
|
BC1T(((i0 - w) >> 2) - 1);
|
|
NOP(1);
|
|
return (w);
|
|
}
|
|
fbopi(unord)
|
|
|
|
static void
|
|
_ltr_d(jit_state_t *_jit, jit_int32_t r0, jit_int32_t r1, jit_int32_t r2)
|
|
{
|
|
jit_word_t w;
|
|
C_OLT_D(r1, r2);
|
|
w = _jit->pc.w;
|
|
BC1T(0);
|
|
/* delay slot */
|
|
movi(r0, 1);
|
|
movi(r0, 0);
|
|
patch_at(w, _jit->pc.w);
|
|
}
|
|
dopi(lt)
|
|
|
|
static void
|
|
_ler_d(jit_state_t *_jit, jit_int32_t r0, jit_int32_t r1, jit_int32_t r2)
|
|
{
|
|
jit_word_t w;
|
|
C_OLE_D(r1, r2);
|
|
w = _jit->pc.w;
|
|
BC1T(0);
|
|
/* delay slot */
|
|
movi(r0, 1);
|
|
movi(r0, 0);
|
|
patch_at(w, _jit->pc.w);
|
|
}
|
|
dopi(le)
|
|
|
|
static void
|
|
_eqr_d(jit_state_t *_jit, jit_int32_t r0, jit_int32_t r1, jit_int32_t r2)
|
|
{
|
|
jit_word_t w;
|
|
C_EQ_D(r1, r2);
|
|
w = _jit->pc.w;
|
|
BC1T(0);
|
|
/* delay slot */
|
|
movi(r0, 1);
|
|
movi(r0, 0);
|
|
patch_at(w, _jit->pc.w);
|
|
}
|
|
dopi(eq)
|
|
|
|
static void
|
|
_ger_d(jit_state_t *_jit, jit_int32_t r0, jit_int32_t r1, jit_int32_t r2)
|
|
{
|
|
jit_word_t w;
|
|
C_ULT_D(r1, r2);
|
|
w = _jit->pc.w;
|
|
BC1F(0);
|
|
/* delay slot */
|
|
movi(r0, 1);
|
|
movi(r0, 0);
|
|
patch_at(w, _jit->pc.w);
|
|
}
|
|
dopi(ge)
|
|
|
|
static void
|
|
_gtr_d(jit_state_t *_jit, jit_int32_t r0, jit_int32_t r1, jit_int32_t r2)
|
|
{
|
|
jit_word_t w;
|
|
C_ULE_D(r1, r2);
|
|
w = _jit->pc.w;
|
|
BC1F(0);
|
|
/* delay slot */
|
|
movi(r0, 1);
|
|
movi(r0, 0);
|
|
patch_at(w, _jit->pc.w);
|
|
}
|
|
dopi(gt)
|
|
|
|
static void
|
|
_ner_d(jit_state_t *_jit, jit_int32_t r0, jit_int32_t r1, jit_int32_t r2)
|
|
{
|
|
jit_word_t w;
|
|
C_EQ_D(r1, r2);
|
|
w = _jit->pc.w;
|
|
BC1F(0);
|
|
/* delay slot */
|
|
movi(r0, 1);
|
|
movi(r0, 0);
|
|
patch_at(w, _jit->pc.w);
|
|
}
|
|
dopi(ne)
|
|
|
|
static void
|
|
_unltr_d(jit_state_t *_jit, jit_int32_t r0, jit_int32_t r1, jit_int32_t r2)
|
|
{
|
|
jit_word_t w;
|
|
C_ULT_D(r1, r2);
|
|
w = _jit->pc.w;
|
|
BC1T(0);
|
|
/* delay slot */
|
|
movi(r0, 1);
|
|
movi(r0, 0);
|
|
patch_at(w, _jit->pc.w);
|
|
}
|
|
dopi(unlt)
|
|
|
|
static void
|
|
_unler_d(jit_state_t *_jit, jit_int32_t r0, jit_int32_t r1, jit_int32_t r2)
|
|
{
|
|
jit_word_t w;
|
|
C_ULE_D(r1, r2);
|
|
w = _jit->pc.w;
|
|
BC1T(0);
|
|
/* delay slot */
|
|
movi(r0, 1);
|
|
movi(r0, 0);
|
|
patch_at(w, _jit->pc.w);
|
|
}
|
|
dopi(unle)
|
|
|
|
static void
|
|
_uneqr_d(jit_state_t *_jit, jit_int32_t r0, jit_int32_t r1, jit_int32_t r2)
|
|
{
|
|
jit_word_t w;
|
|
C_UEQ_D(r1, r2);
|
|
w = _jit->pc.w;
|
|
BC1T(0);
|
|
/* delay slot */
|
|
movi(r0, 1);
|
|
movi(r0, 0);
|
|
patch_at(w, _jit->pc.w);
|
|
}
|
|
dopi(uneq)
|
|
|
|
static void
|
|
_unger_d(jit_state_t *_jit, jit_int32_t r0, jit_int32_t r1, jit_int32_t r2)
|
|
{
|
|
jit_word_t w;
|
|
C_OLT_D(r1, r2);
|
|
w = _jit->pc.w;
|
|
BC1F(0);
|
|
/* delay slot */
|
|
movi(r0, 1);
|
|
movi(r0, 0);
|
|
patch_at(w, _jit->pc.w);
|
|
}
|
|
dopi(unge)
|
|
|
|
static void
|
|
_ungtr_d(jit_state_t *_jit, jit_int32_t r0, jit_int32_t r1, jit_int32_t r2)
|
|
{
|
|
jit_word_t w;
|
|
C_OLE_D(r1, r2);
|
|
w = _jit->pc.w;
|
|
BC1F(0);
|
|
/* delay slot */
|
|
movi(r0, 1);
|
|
movi(r0, 0);
|
|
patch_at(w, _jit->pc.w);
|
|
}
|
|
dopi(ungt)
|
|
|
|
static void
|
|
_ltgtr_d(jit_state_t *_jit, jit_int32_t r0, jit_int32_t r1, jit_int32_t r2)
|
|
{
|
|
jit_word_t w;
|
|
C_UEQ_D(r1, r2);
|
|
w = _jit->pc.w;
|
|
BC1F(0);
|
|
/* delay slot */
|
|
movi(r0, 1);
|
|
movi(r0, 0);
|
|
patch_at(w, _jit->pc.w);
|
|
}
|
|
dopi(ltgt)
|
|
|
|
static void
|
|
_ordr_d(jit_state_t *_jit, jit_int32_t r0, jit_int32_t r1, jit_int32_t r2)
|
|
{
|
|
jit_word_t w;
|
|
C_UN_D(r1, r2);
|
|
w = _jit->pc.w;
|
|
BC1F(0);
|
|
/* delay slot */
|
|
movi(r0, 1);
|
|
movi(r0, 0);
|
|
patch_at(w, _jit->pc.w);
|
|
}
|
|
dopi(ord)
|
|
|
|
static void
|
|
_unordr_d(jit_state_t *_jit, jit_int32_t r0, jit_int32_t r1, jit_int32_t r2)
|
|
{
|
|
jit_word_t w;
|
|
C_UN_D(r1, r2);
|
|
w = _jit->pc.w;
|
|
BC1T(0);
|
|
/* delay slot */
|
|
movi(r0, 1);
|
|
movi(r0, 0);
|
|
patch_at(w, _jit->pc.w);
|
|
}
|
|
dopi(unord)
|
|
|
|
static jit_word_t
|
|
_bltr_d(jit_state_t *_jit, jit_word_t i0, jit_int32_t r1, jit_int32_t r2)
|
|
{
|
|
jit_word_t w;
|
|
C_OLT_D(r1, r2);
|
|
w = _jit->pc.w;
|
|
BC1T(((i0 - w) >> 2) - 1);
|
|
NOP(1);
|
|
return (w);
|
|
}
|
|
dbopi(lt)
|
|
|
|
static jit_word_t
|
|
_bler_d(jit_state_t *_jit, jit_word_t i0, jit_int32_t r1, jit_int32_t r2)
|
|
{
|
|
jit_word_t w;
|
|
C_OLE_D(r1, r2);
|
|
w = _jit->pc.w;
|
|
BC1T(((i0 - w) >> 2) - 1);
|
|
NOP(1);
|
|
return (w);
|
|
}
|
|
dbopi(le)
|
|
|
|
static jit_word_t
|
|
_beqr_d(jit_state_t *_jit, jit_word_t i0, jit_int32_t r1, jit_int32_t r2)
|
|
{
|
|
jit_word_t w;
|
|
C_EQ_D(r1, r2);
|
|
w = _jit->pc.w;
|
|
BC1T(((i0 - w) >> 2) - 1);
|
|
NOP(1);
|
|
return (w);
|
|
}
|
|
dbopi(eq)
|
|
|
|
static jit_word_t
|
|
_bger_d(jit_state_t *_jit, jit_word_t i0, jit_int32_t r1, jit_int32_t r2)
|
|
{
|
|
jit_word_t w;
|
|
C_ULT_D(r1, r2);
|
|
w = _jit->pc.w;
|
|
BC1F(((i0 - w) >> 2) - 1);
|
|
NOP(1);
|
|
return (w);
|
|
}
|
|
dbopi(ge)
|
|
|
|
static jit_word_t
|
|
_bgtr_d(jit_state_t *_jit, jit_word_t i0, jit_int32_t r1, jit_int32_t r2)
|
|
{
|
|
jit_word_t w;
|
|
C_ULE_D(r1, r2);
|
|
w = _jit->pc.w;
|
|
BC1F(((i0 - w) >> 2) - 1);
|
|
NOP(1);
|
|
return (w);
|
|
}
|
|
dbopi(gt)
|
|
|
|
static jit_word_t
|
|
_bner_d(jit_state_t *_jit, jit_word_t i0, jit_int32_t r1, jit_int32_t r2)
|
|
{
|
|
jit_word_t w;
|
|
C_EQ_D(r1, r2);
|
|
w = _jit->pc.w;
|
|
BC1F(((i0 - w) >> 2) - 1);
|
|
NOP(1);
|
|
return (w);
|
|
}
|
|
dbopi(ne)
|
|
|
|
static jit_word_t
|
|
_bunltr_d(jit_state_t *_jit, jit_word_t i0, jit_int32_t r1, jit_int32_t r2)
|
|
{
|
|
jit_word_t w;
|
|
C_ULT_D(r1, r2);
|
|
w = _jit->pc.w;
|
|
BC1T(((i0 - w) >> 2) - 1);
|
|
NOP(1);
|
|
return (w);
|
|
}
|
|
dbopi(unlt)
|
|
|
|
static jit_word_t
|
|
_bunler_d(jit_state_t *_jit, jit_word_t i0, jit_int32_t r1, jit_int32_t r2)
|
|
{
|
|
jit_word_t w;
|
|
C_ULE_D(r1, r2);
|
|
w = _jit->pc.w;
|
|
BC1T(((i0 - w) >> 2) - 1);
|
|
NOP(1);
|
|
return (w);
|
|
}
|
|
dbopi(unle)
|
|
|
|
static jit_word_t
|
|
_buneqr_d(jit_state_t *_jit, jit_word_t i0, jit_int32_t r1, jit_int32_t r2)
|
|
{
|
|
jit_word_t w;
|
|
C_UEQ_D(r1, r2);
|
|
w = _jit->pc.w;
|
|
BC1T(((i0 - w) >> 2) - 1);
|
|
NOP(1);
|
|
return (w);
|
|
}
|
|
dbopi(uneq)
|
|
|
|
static jit_word_t
|
|
_bunger_d(jit_state_t *_jit, jit_word_t i0, jit_int32_t r1, jit_int32_t r2)
|
|
{
|
|
jit_word_t w;
|
|
C_OLT_D(r1, r2);
|
|
w = _jit->pc.w;
|
|
BC1F(((i0 - w) >> 2) - 1);
|
|
NOP(1);
|
|
return (w);
|
|
}
|
|
dbopi(unge)
|
|
|
|
static jit_word_t
|
|
_bungtr_d(jit_state_t *_jit, jit_word_t i0, jit_int32_t r1, jit_int32_t r2)
|
|
{
|
|
jit_word_t w;
|
|
C_OLE_D(r1, r2);
|
|
w = _jit->pc.w;
|
|
BC1F(((i0 - w) >> 2) - 1);
|
|
NOP(1);
|
|
return (w);
|
|
}
|
|
dbopi(ungt)
|
|
|
|
static jit_word_t
|
|
_bltgtr_d(jit_state_t *_jit, jit_word_t i0, jit_int32_t r1, jit_int32_t r2)
|
|
{
|
|
jit_word_t w;
|
|
C_UEQ_D(r1, r2);
|
|
w = _jit->pc.w;
|
|
BC1F(((i0 - w) >> 2) - 1);
|
|
NOP(1);
|
|
return (w);
|
|
}
|
|
dbopi(ltgt)
|
|
|
|
static jit_word_t
|
|
_bordr_d(jit_state_t *_jit, jit_word_t i0, jit_int32_t r1, jit_int32_t r2)
|
|
{
|
|
jit_word_t w;
|
|
C_UN_D(r1, r2);
|
|
w = _jit->pc.w;
|
|
BC1F(((i0 - w) >> 2) - 1);
|
|
NOP(1);
|
|
return (w);
|
|
}
|
|
dbopi(ord)
|
|
|
|
static jit_word_t
|
|
_bunordr_d(jit_state_t *_jit, jit_word_t i0, jit_int32_t r1, jit_int32_t r2)
|
|
{
|
|
jit_word_t w;
|
|
C_UN_D(r1, r2);
|
|
w = _jit->pc.w;
|
|
BC1T(((i0 - w) >> 2) - 1);
|
|
NOP(1);
|
|
return (w);
|
|
}
|
|
dbopi(unord)
|
|
# undef fopi
|
|
# undef fbopi
|
|
# undef dopi
|
|
# undef dbopi
|
|
# undef fpr_bopi
|
|
# undef fpr_opi
|
|
#endif
|