Archipelago » qemu

/*

 *  MIPS32 emulation for qemu: main translation routines.

 *

 *  Copyright (c) 2004-2005 Jocelyn Mayer

 *  Copyright (c) 2006 Marius Groeger (FPU operations)

 *  Copyright (c) 2006 Thiemo Seufer (MIPS32R2 support)

 *

 * This library is free software; you can redistribute it and/or

 * modify it under the terms of the GNU Lesser General Public

 * License as published by the Free Software Foundation; either

 * version 2 of the License, or (at your option) any later version.

 *

 * This library 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

 * Lesser General Public License for more details.

 *

 * You should have received a copy of the GNU Lesser General Public

 * License along with this library; if not, write to the Free Software

 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA

 */

#include <stdarg.h>

#include <stdlib.h>

#include <stdio.h>

#include <string.h>

#include <inttypes.h>

#include "cpu.h"

#include "exec-all.h"

#include "disas.h"

#include "helper.h"

#include "tcg-op.h"

#include "qemu-common.h"

//#define MIPS_DEBUG_DISAS

//#define MIPS_DEBUG_SIGN_EXTENSIONS

//#define MIPS_SINGLE_STEP

/* MIPS major opcodes */

#define MASK_OP_MAJOR(op)  (op & (0x3F << 26))

enum {

    /* indirect opcode tables */

    OPC_SPECIAL  = (0x00 << 26),

    OPC_REGIMM   = (0x01 << 26),

    OPC_CP0      = (0x10 << 26),

    OPC_CP1      = (0x11 << 26),

    OPC_CP2      = (0x12 << 26),

    OPC_CP3      = (0x13 << 26),

    OPC_SPECIAL2 = (0x1C << 26),

    OPC_SPECIAL3 = (0x1F << 26),

    /* arithmetic with immediate */

    OPC_ADDI     = (0x08 << 26),

    OPC_ADDIU    = (0x09 << 26),

    OPC_SLTI     = (0x0A << 26),

    OPC_SLTIU    = (0x0B << 26),

    OPC_ANDI     = (0x0C << 26),

    OPC_ORI      = (0x0D << 26),

    OPC_XORI     = (0x0E << 26),

    OPC_LUI      = (0x0F << 26),

    OPC_DADDI    = (0x18 << 26),

    OPC_DADDIU   = (0x19 << 26),

    /* Jump and branches */

    OPC_J        = (0x02 << 26),

    OPC_JAL      = (0x03 << 26),

    OPC_BEQ      = (0x04 << 26),  /* Unconditional if rs = rt = 0 (B) */

    OPC_BEQL     = (0x14 << 26),

    OPC_BNE      = (0x05 << 26),

    OPC_BNEL     = (0x15 << 26),

    OPC_BLEZ     = (0x06 << 26),

    OPC_BLEZL    = (0x16 << 26),

    OPC_BGTZ     = (0x07 << 26),

    OPC_BGTZL    = (0x17 << 26),

    OPC_JALX     = (0x1D << 26),  /* MIPS 16 only */

    /* Load and stores */

    OPC_LDL      = (0x1A << 26),

    OPC_LDR      = (0x1B << 26),

    OPC_LB       = (0x20 << 26),

    OPC_LH       = (0x21 << 26),

    OPC_LWL      = (0x22 << 26),

    OPC_LW       = (0x23 << 26),

    OPC_LBU      = (0x24 << 26),

    OPC_LHU      = (0x25 << 26),

    OPC_LWR      = (0x26 << 26),

    OPC_LWU      = (0x27 << 26),

    OPC_SB       = (0x28 << 26),

    OPC_SH       = (0x29 << 26),

    OPC_SWL      = (0x2A << 26),

    OPC_SW       = (0x2B << 26),

    OPC_SDL      = (0x2C << 26),

    OPC_SDR      = (0x2D << 26),

    OPC_SWR      = (0x2E << 26),

    OPC_LL       = (0x30 << 26),

    OPC_LLD      = (0x34 << 26),

    OPC_LD       = (0x37 << 26),

    OPC_SC       = (0x38 << 26),

    OPC_SCD      = (0x3C << 26),

    OPC_SD       = (0x3F << 26),

    /* Floating point load/store */

    OPC_LWC1     = (0x31 << 26),

    OPC_LWC2     = (0x32 << 26),

    OPC_LDC1     = (0x35 << 26),

    OPC_LDC2     = (0x36 << 26),

    OPC_SWC1     = (0x39 << 26),

    OPC_SWC2     = (0x3A << 26),

    OPC_SDC1     = (0x3D << 26),

    OPC_SDC2     = (0x3E << 26),

    /* MDMX ASE specific */

    OPC_MDMX     = (0x1E << 26),

    /* Cache and prefetch */

    OPC_CACHE    = (0x2F << 26),

    OPC_PREF     = (0x33 << 26),

    /* Reserved major opcode */

    OPC_MAJOR3B_RESERVED = (0x3B << 26),

};

/* MIPS special opcodes */

#define MASK_SPECIAL(op)   MASK_OP_MAJOR(op) | (op & 0x3F)

enum {

    /* Shifts */

    OPC_SLL      = 0x00 | OPC_SPECIAL,

    /* NOP is SLL r0, r0, 0   */

    /* SSNOP is SLL r0, r0, 1 */

    /* EHB is SLL r0, r0, 3 */

    OPC_SRL      = 0x02 | OPC_SPECIAL, /* also ROTR */

    OPC_SRA      = 0x03 | OPC_SPECIAL,

    OPC_SLLV     = 0x04 | OPC_SPECIAL,

    OPC_SRLV     = 0x06 | OPC_SPECIAL, /* also ROTRV */

    OPC_SRAV     = 0x07 | OPC_SPECIAL,

    OPC_DSLLV    = 0x14 | OPC_SPECIAL,

    OPC_DSRLV    = 0x16 | OPC_SPECIAL, /* also DROTRV */

    OPC_DSRAV    = 0x17 | OPC_SPECIAL,

    OPC_DSLL     = 0x38 | OPC_SPECIAL,

    OPC_DSRL     = 0x3A | OPC_SPECIAL, /* also DROTR */

    OPC_DSRA     = 0x3B | OPC_SPECIAL,

    OPC_DSLL32   = 0x3C | OPC_SPECIAL,

    OPC_DSRL32   = 0x3E | OPC_SPECIAL, /* also DROTR32 */

    OPC_DSRA32   = 0x3F | OPC_SPECIAL,

    /* Multiplication / division */

    OPC_MULT     = 0x18 | OPC_SPECIAL,

    OPC_MULTU    = 0x19 | OPC_SPECIAL,

    OPC_DIV      = 0x1A | OPC_SPECIAL,

    OPC_DIVU     = 0x1B | OPC_SPECIAL,

    OPC_DMULT    = 0x1C | OPC_SPECIAL,

    OPC_DMULTU   = 0x1D | OPC_SPECIAL,

    OPC_DDIV     = 0x1E | OPC_SPECIAL,

    OPC_DDIVU    = 0x1F | OPC_SPECIAL,

    /* 2 registers arithmetic / logic */

    OPC_ADD      = 0x20 | OPC_SPECIAL,

    OPC_ADDU     = 0x21 | OPC_SPECIAL,

    OPC_SUB      = 0x22 | OPC_SPECIAL,

    OPC_SUBU     = 0x23 | OPC_SPECIAL,

    OPC_AND      = 0x24 | OPC_SPECIAL,

    OPC_OR       = 0x25 | OPC_SPECIAL,

    OPC_XOR      = 0x26 | OPC_SPECIAL,

    OPC_NOR      = 0x27 | OPC_SPECIAL,

    OPC_SLT      = 0x2A | OPC_SPECIAL,

    OPC_SLTU     = 0x2B | OPC_SPECIAL,

    OPC_DADD     = 0x2C | OPC_SPECIAL,

    OPC_DADDU    = 0x2D | OPC_SPECIAL,

    OPC_DSUB     = 0x2E | OPC_SPECIAL,

    OPC_DSUBU    = 0x2F | OPC_SPECIAL,

    /* Jumps */

    OPC_JR       = 0x08 | OPC_SPECIAL, /* Also JR.HB */

    OPC_JALR     = 0x09 | OPC_SPECIAL, /* Also JALR.HB */

    /* Traps */

    OPC_TGE      = 0x30 | OPC_SPECIAL,

    OPC_TGEU     = 0x31 | OPC_SPECIAL,

    OPC_TLT      = 0x32 | OPC_SPECIAL,

    OPC_TLTU     = 0x33 | OPC_SPECIAL,

    OPC_TEQ      = 0x34 | OPC_SPECIAL,

    OPC_TNE      = 0x36 | OPC_SPECIAL,

    /* HI / LO registers load & stores */

    OPC_MFHI     = 0x10 | OPC_SPECIAL,

    OPC_MTHI     = 0x11 | OPC_SPECIAL,

    OPC_MFLO     = 0x12 | OPC_SPECIAL,

    OPC_MTLO     = 0x13 | OPC_SPECIAL,

    /* Conditional moves */

    OPC_MOVZ     = 0x0A | OPC_SPECIAL,

    OPC_MOVN     = 0x0B | OPC_SPECIAL,

    OPC_MOVCI    = 0x01 | OPC_SPECIAL,

    /* Special */

    OPC_PMON     = 0x05 | OPC_SPECIAL, /* inofficial */

    OPC_SYSCALL  = 0x0C | OPC_SPECIAL,

    OPC_BREAK    = 0x0D | OPC_SPECIAL,

    OPC_SPIM     = 0x0E | OPC_SPECIAL, /* inofficial */

    OPC_SYNC     = 0x0F | OPC_SPECIAL,

    OPC_SPECIAL15_RESERVED = 0x15 | OPC_SPECIAL,

    OPC_SPECIAL28_RESERVED = 0x28 | OPC_SPECIAL,

    OPC_SPECIAL29_RESERVED = 0x29 | OPC_SPECIAL,

    OPC_SPECIAL35_RESERVED = 0x35 | OPC_SPECIAL,

    OPC_SPECIAL37_RESERVED = 0x37 | OPC_SPECIAL,

    OPC_SPECIAL39_RESERVED = 0x39 | OPC_SPECIAL,

    OPC_SPECIAL3D_RESERVED = 0x3D | OPC_SPECIAL,

};

/* Multiplication variants of the vr54xx. */

#define MASK_MUL_VR54XX(op)   MASK_SPECIAL(op) | (op & (0x1F << 6))

enum {

    OPC_VR54XX_MULS    = (0x03 << 6) | OPC_MULT,

    OPC_VR54XX_MULSU   = (0x03 << 6) | OPC_MULTU,

    OPC_VR54XX_MACC    = (0x05 << 6) | OPC_MULT,

    OPC_VR54XX_MACCU   = (0x05 << 6) | OPC_MULTU,

    OPC_VR54XX_MSAC    = (0x07 << 6) | OPC_MULT,

    OPC_VR54XX_MSACU   = (0x07 << 6) | OPC_MULTU,

    OPC_VR54XX_MULHI   = (0x09 << 6) | OPC_MULT,

    OPC_VR54XX_MULHIU  = (0x09 << 6) | OPC_MULTU,

    OPC_VR54XX_MULSHI  = (0x0B << 6) | OPC_MULT,

    OPC_VR54XX_MULSHIU = (0x0B << 6) | OPC_MULTU,

    OPC_VR54XX_MACCHI  = (0x0D << 6) | OPC_MULT,

    OPC_VR54XX_MACCHIU = (0x0D << 6) | OPC_MULTU,

    OPC_VR54XX_MSACHI  = (0x0F << 6) | OPC_MULT,

    OPC_VR54XX_MSACHIU = (0x0F << 6) | OPC_MULTU,

};

/* REGIMM (rt field) opcodes */

#define MASK_REGIMM(op)    MASK_OP_MAJOR(op) | (op & (0x1F << 16))

enum {

    OPC_BLTZ     = (0x00 << 16) | OPC_REGIMM,

    OPC_BLTZL    = (0x02 << 16) | OPC_REGIMM,

    OPC_BGEZ     = (0x01 << 16) | OPC_REGIMM,

    OPC_BGEZL    = (0x03 << 16) | OPC_REGIMM,

    OPC_BLTZAL   = (0x10 << 16) | OPC_REGIMM,

    OPC_BLTZALL  = (0x12 << 16) | OPC_REGIMM,

    OPC_BGEZAL   = (0x11 << 16) | OPC_REGIMM,

    OPC_BGEZALL  = (0x13 << 16) | OPC_REGIMM,

    OPC_TGEI     = (0x08 << 16) | OPC_REGIMM,

    OPC_TGEIU    = (0x09 << 16) | OPC_REGIMM,

    OPC_TLTI     = (0x0A << 16) | OPC_REGIMM,

    OPC_TLTIU    = (0x0B << 16) | OPC_REGIMM,

    OPC_TEQI     = (0x0C << 16) | OPC_REGIMM,

    OPC_TNEI     = (0x0E << 16) | OPC_REGIMM,

    OPC_SYNCI    = (0x1F << 16) | OPC_REGIMM,

};

/* Special2 opcodes */

#define MASK_SPECIAL2(op)  MASK_OP_MAJOR(op) | (op & 0x3F)

enum {

    /* Multiply & xxx operations */

    OPC_MADD     = 0x00 | OPC_SPECIAL2,

    OPC_MADDU    = 0x01 | OPC_SPECIAL2,

    OPC_MUL      = 0x02 | OPC_SPECIAL2,

    OPC_MSUB     = 0x04 | OPC_SPECIAL2,

    OPC_MSUBU    = 0x05 | OPC_SPECIAL2,

    /* Misc */

    OPC_CLZ      = 0x20 | OPC_SPECIAL2,

    OPC_CLO      = 0x21 | OPC_SPECIAL2,

    OPC_DCLZ     = 0x24 | OPC_SPECIAL2,

    OPC_DCLO     = 0x25 | OPC_SPECIAL2,

    /* Special */

    OPC_SDBBP    = 0x3F | OPC_SPECIAL2,

};

/* Special3 opcodes */

#define MASK_SPECIAL3(op)  MASK_OP_MAJOR(op) | (op & 0x3F)

enum {

    OPC_EXT      = 0x00 | OPC_SPECIAL3,

    OPC_DEXTM    = 0x01 | OPC_SPECIAL3,

    OPC_DEXTU    = 0x02 | OPC_SPECIAL3,

    OPC_DEXT     = 0x03 | OPC_SPECIAL3,

    OPC_INS      = 0x04 | OPC_SPECIAL3,

    OPC_DINSM    = 0x05 | OPC_SPECIAL3,

    OPC_DINSU    = 0x06 | OPC_SPECIAL3,

    OPC_DINS     = 0x07 | OPC_SPECIAL3,

    OPC_FORK     = 0x08 | OPC_SPECIAL3,

    OPC_YIELD    = 0x09 | OPC_SPECIAL3,

    OPC_BSHFL    = 0x20 | OPC_SPECIAL3,

    OPC_DBSHFL   = 0x24 | OPC_SPECIAL3,

    OPC_RDHWR    = 0x3B | OPC_SPECIAL3,

};

/* BSHFL opcodes */

#define MASK_BSHFL(op)     MASK_SPECIAL3(op) | (op & (0x1F << 6))

enum {

    OPC_WSBH     = (0x02 << 6) | OPC_BSHFL,

    OPC_SEB      = (0x10 << 6) | OPC_BSHFL,

    OPC_SEH      = (0x18 << 6) | OPC_BSHFL,

};

/* DBSHFL opcodes */

#define MASK_DBSHFL(op)    MASK_SPECIAL3(op) | (op & (0x1F << 6))

enum {

    OPC_DSBH     = (0x02 << 6) | OPC_DBSHFL,

    OPC_DSHD     = (0x05 << 6) | OPC_DBSHFL,

};

/* Coprocessor 0 (rs field) */

#define MASK_CP0(op)       MASK_OP_MAJOR(op) | (op & (0x1F << 21))

enum {

    OPC_MFC0     = (0x00 << 21) | OPC_CP0,

    OPC_DMFC0    = (0x01 << 21) | OPC_CP0,

    OPC_MTC0     = (0x04 << 21) | OPC_CP0,

    OPC_DMTC0    = (0x05 << 21) | OPC_CP0,

    OPC_MFTR     = (0x08 << 21) | OPC_CP0,

    OPC_RDPGPR   = (0x0A << 21) | OPC_CP0,

    OPC_MFMC0    = (0x0B << 21) | OPC_CP0,

    OPC_MTTR     = (0x0C << 21) | OPC_CP0,

    OPC_WRPGPR   = (0x0E << 21) | OPC_CP0,

    OPC_C0       = (0x10 << 21) | OPC_CP0,

    OPC_C0_FIRST = (0x10 << 21) | OPC_CP0,

    OPC_C0_LAST  = (0x1F << 21) | OPC_CP0,

};

/* MFMC0 opcodes */

#define MASK_MFMC0(op)     MASK_CP0(op) | (op & 0xFFFF)

enum {

    OPC_DMT      = 0x01 | (0 << 5) | (0x0F << 6) | (0x01 << 11) | OPC_MFMC0,

    OPC_EMT      = 0x01 | (1 << 5) | (0x0F << 6) | (0x01 << 11) | OPC_MFMC0,

    OPC_DVPE     = 0x01 | (0 << 5) | OPC_MFMC0,

    OPC_EVPE     = 0x01 | (1 << 5) | OPC_MFMC0,

    OPC_DI       = (0 << 5) | (0x0C << 11) | OPC_MFMC0,

    OPC_EI       = (1 << 5) | (0x0C << 11) | OPC_MFMC0,

};

/* Coprocessor 0 (with rs == C0) */

#define MASK_C0(op)        MASK_CP0(op) | (op & 0x3F)

enum {

    OPC_TLBR     = 0x01 | OPC_C0,

    OPC_TLBWI    = 0x02 | OPC_C0,

    OPC_TLBWR    = 0x06 | OPC_C0,

    OPC_TLBP     = 0x08 | OPC_C0,

    OPC_RFE      = 0x10 | OPC_C0,

    OPC_ERET     = 0x18 | OPC_C0,

    OPC_DERET    = 0x1F | OPC_C0,

    OPC_WAIT     = 0x20 | OPC_C0,

};

/* Coprocessor 1 (rs field) */

#define MASK_CP1(op)       MASK_OP_MAJOR(op) | (op & (0x1F << 21))

enum {

    OPC_MFC1     = (0x00 << 21) | OPC_CP1,

    OPC_DMFC1    = (0x01 << 21) | OPC_CP1,

    OPC_CFC1     = (0x02 << 21) | OPC_CP1,

    OPC_MFHC1    = (0x03 << 21) | OPC_CP1,

    OPC_MTC1     = (0x04 << 21) | OPC_CP1,

    OPC_DMTC1    = (0x05 << 21) | OPC_CP1,

    OPC_CTC1     = (0x06 << 21) | OPC_CP1,

    OPC_MTHC1    = (0x07 << 21) | OPC_CP1,

    OPC_BC1      = (0x08 << 21) | OPC_CP1, /* bc */

    OPC_BC1ANY2  = (0x09 << 21) | OPC_CP1,

    OPC_BC1ANY4  = (0x0A << 21) | OPC_CP1,

    OPC_S_FMT    = (0x10 << 21) | OPC_CP1, /* 16: fmt=single fp */

    OPC_D_FMT    = (0x11 << 21) | OPC_CP1, /* 17: fmt=double fp */

    OPC_E_FMT    = (0x12 << 21) | OPC_CP1, /* 18: fmt=extended fp */

    OPC_Q_FMT    = (0x13 << 21) | OPC_CP1, /* 19: fmt=quad fp */

    OPC_W_FMT    = (0x14 << 21) | OPC_CP1, /* 20: fmt=32bit fixed */

    OPC_L_FMT    = (0x15 << 21) | OPC_CP1, /* 21: fmt=64bit fixed */

    OPC_PS_FMT   = (0x16 << 21) | OPC_CP1, /* 22: fmt=paired single fp */

};

#define MASK_CP1_FUNC(op)       MASK_CP1(op) | (op & 0x3F)

#define MASK_BC1(op)            MASK_CP1(op) | (op & (0x3 << 16))

enum {

    OPC_BC1F     = (0x00 << 16) | OPC_BC1,

    OPC_BC1T     = (0x01 << 16) | OPC_BC1,

    OPC_BC1FL    = (0x02 << 16) | OPC_BC1,

    OPC_BC1TL    = (0x03 << 16) | OPC_BC1,

};

enum {

    OPC_BC1FANY2     = (0x00 << 16) | OPC_BC1ANY2,

    OPC_BC1TANY2     = (0x01 << 16) | OPC_BC1ANY2,

};

enum {

    OPC_BC1FANY4     = (0x00 << 16) | OPC_BC1ANY4,

    OPC_BC1TANY4     = (0x01 << 16) | OPC_BC1ANY4,

};

#define MASK_CP2(op)       MASK_OP_MAJOR(op) | (op & (0x1F << 21))

enum {

    OPC_MFC2    = (0x00 << 21) | OPC_CP2,

    OPC_DMFC2   = (0x01 << 21) | OPC_CP2,

    OPC_CFC2    = (0x02 << 21) | OPC_CP2,

    OPC_MFHC2   = (0x03 << 21) | OPC_CP2,

    OPC_MTC2    = (0x04 << 21) | OPC_CP2,

    OPC_DMTC2   = (0x05 << 21) | OPC_CP2,

    OPC_CTC2    = (0x06 << 21) | OPC_CP2,

    OPC_MTHC2   = (0x07 << 21) | OPC_CP2,

    OPC_BC2     = (0x08 << 21) | OPC_CP2,

};

#define MASK_CP3(op)       MASK_OP_MAJOR(op) | (op & 0x3F)

enum {

    OPC_LWXC1   = 0x00 | OPC_CP3,

    OPC_LDXC1   = 0x01 | OPC_CP3,

    OPC_LUXC1   = 0x05 | OPC_CP3,

    OPC_SWXC1   = 0x08 | OPC_CP3,

    OPC_SDXC1   = 0x09 | OPC_CP3,

    OPC_SUXC1   = 0x0D | OPC_CP3,

    OPC_PREFX   = 0x0F | OPC_CP3,

    OPC_ALNV_PS = 0x1E | OPC_CP3,

    OPC_MADD_S  = 0x20 | OPC_CP3,

    OPC_MADD_D  = 0x21 | OPC_CP3,

    OPC_MADD_PS = 0x26 | OPC_CP3,

    OPC_MSUB_S  = 0x28 | OPC_CP3,

    OPC_MSUB_D  = 0x29 | OPC_CP3,

    OPC_MSUB_PS = 0x2E | OPC_CP3,

    OPC_NMADD_S = 0x30 | OPC_CP3,

    OPC_NMADD_D = 0x31 | OPC_CP3,

    OPC_NMADD_PS= 0x36 | OPC_CP3,

    OPC_NMSUB_S = 0x38 | OPC_CP3,

    OPC_NMSUB_D = 0x39 | OPC_CP3,

    OPC_NMSUB_PS= 0x3E | OPC_CP3,

};

/* global register indices */

static TCGv cpu_env, bcond, btarget, current_fpu;

#include "gen-icount.h"

static inline void tcg_gen_helper_0_i(void *func, TCGv arg)

{

    TCGv tmp = tcg_const_i32(arg);

    tcg_gen_helper_0_1(func, tmp);

    tcg_temp_free(tmp);

}

static inline void tcg_gen_helper_0_ii(void *func, TCGv arg1, TCGv arg2)

{

    TCGv tmp1 = tcg_const_i32(arg1);

    TCGv tmp2 = tcg_const_i32(arg2);

    tcg_gen_helper_0_2(func, tmp1, tmp2);

    tcg_temp_free(tmp1);

    tcg_temp_free(tmp2);

}

static inline void tcg_gen_helper_0_1i(void *func, TCGv arg1, TCGv arg2)

{

    TCGv tmp = tcg_const_i32(arg2);

    tcg_gen_helper_0_2(func, arg1, tmp);

    tcg_temp_free(tmp);

}

static inline void tcg_gen_helper_0_2i(void *func, TCGv arg1, TCGv arg2, TCGv arg3)

{

    TCGv tmp = tcg_const_i32(arg3);

    tcg_gen_helper_0_3(func, arg1, arg2, tmp);

    tcg_temp_free(tmp);

}

static inline void tcg_gen_helper_0_1ii(void *func, TCGv arg1, TCGv arg2, TCGv arg3)

{

    TCGv tmp1 = tcg_const_i32(arg2);

    TCGv tmp2 = tcg_const_i32(arg3);

    tcg_gen_helper_0_3(func, arg1, tmp1, tmp2);

    tcg_temp_free(tmp1);

    tcg_temp_free(tmp2);

}

static inline void tcg_gen_helper_1_i(void *func, TCGv ret, TCGv arg)

{

    TCGv tmp = tcg_const_i32(arg);

    tcg_gen_helper_1_1(func, ret, tmp);

    tcg_temp_free(tmp);

}

static inline void tcg_gen_helper_1_1i(void *func, TCGv ret, TCGv arg1, TCGv arg2)

{

    TCGv tmp = tcg_const_i32(arg2);

    tcg_gen_helper_1_2(func, ret, arg1, tmp);

    tcg_temp_free(tmp);

}

static inline void tcg_gen_helper_1_1ii(void *func, TCGv ret, TCGv arg1, TCGv arg2, TCGv arg3)

{

    TCGv tmp1 = tcg_const_i32(arg2);

    TCGv tmp2 = tcg_const_i32(arg3);

    tcg_gen_helper_1_3(func, ret, arg1, tmp1, tmp2);

    tcg_temp_free(tmp1);

    tcg_temp_free(tmp2);

}

static inline void tcg_gen_helper_1_2i(void *func, TCGv ret, TCGv arg1, TCGv arg2, TCGv arg3)

{

    TCGv tmp = tcg_const_i32(arg3);

    tcg_gen_helper_1_3(func, ret, arg1, arg2, tmp);

    tcg_temp_free(tmp);

}

static inline void tcg_gen_helper_1_2ii(void *func, TCGv ret, TCGv arg1, TCGv arg2, TCGv arg3, TCGv arg4)

{

    TCGv tmp1 = tcg_const_i32(arg3);

    TCGv tmp2 = tcg_const_i32(arg4);

    tcg_gen_helper_1_4(func, ret, arg1, arg2, tmp1, tmp2);

    tcg_temp_free(tmp1);

    tcg_temp_free(tmp2);

}

typedef struct DisasContext {

    struct TranslationBlock *tb;

    target_ulong pc, saved_pc;

    uint32_t opcode;

    /* Routine used to access memory */

    int mem_idx;

    uint32_t hflags, saved_hflags;

    int bstate;

    target_ulong btarget;

} DisasContext;

enum {

    BS_NONE     = 0, /* We go out of the TB without reaching a branch or an

                      * exception condition */

    BS_STOP     = 1, /* We want to stop translation for any reason */

    BS_BRANCH   = 2, /* We reached a branch condition     */

    BS_EXCP     = 3, /* We reached an exception condition */

};

static const char *regnames[] =

    { "r0", "at", "v0", "v1", "a0", "a1", "a2", "a3",

      "t0", "t1", "t2", "t3", "t4", "t5", "t6", "t7",

      "s0", "s1", "s2", "s3", "s4", "s5", "s6", "s7",

      "t8", "t9", "k0", "k1", "gp", "sp", "s8", "ra", };

static const char *fregnames[] =

    { "f0",  "f1",  "f2",  "f3",  "f4",  "f5",  "f6",  "f7",

      "f8",  "f9",  "f10", "f11", "f12", "f13", "f14", "f15",

      "f16", "f17", "f18", "f19", "f20", "f21", "f22", "f23",

      "f24", "f25", "f26", "f27", "f28", "f29", "f30", "f31", };

#ifdef MIPS_DEBUG_DISAS

#define MIPS_DEBUG(fmt, args...)                                              \

do {                                                                          \

    if (loglevel & CPU_LOG_TB_IN_ASM) {                                       \

        fprintf(logfile, TARGET_FMT_lx ": %08x " fmt "\n",                    \

                ctx->pc, ctx->opcode , ##args);                               \

    }                                                                         \

} while (0)

#else

#define MIPS_DEBUG(fmt, args...) do { } while(0)

#endif

#define MIPS_INVAL(op)                                                        \

do {                                                                          \

    MIPS_DEBUG("Invalid %s %03x %03x %03x", op, ctx->opcode >> 26,            \

               ctx->opcode & 0x3F, ((ctx->opcode >> 16) & 0x1F));             \

} while (0)

/* General purpose registers moves. */

static inline void gen_load_gpr (TCGv t, int reg)

{

    if (reg == 0)

        tcg_gen_movi_tl(t, 0);

    else

        tcg_gen_ld_tl(t, cpu_env, offsetof(CPUState, active_tc.gpr) +

                                  sizeof(target_ulong) * reg);

}

static inline void gen_store_gpr (TCGv t, int reg)

{

    if (reg != 0)

        tcg_gen_st_tl(t, cpu_env, offsetof(CPUState, active_tc.gpr) +

                                  sizeof(target_ulong) * reg);

}

/* Moves to/from HI and LO registers.  */

static inline void gen_load_LO (TCGv t, int reg)

{

    tcg_gen_ld_tl(t, cpu_env, offsetof(CPUState, active_tc.LO) +

                              sizeof(target_ulong) * reg);

}

static inline void gen_store_LO (TCGv t, int reg)

{

    tcg_gen_st_tl(t, cpu_env, offsetof(CPUState, active_tc.LO) +

                              sizeof(target_ulong) * reg);

}

static inline void gen_load_HI (TCGv t, int reg)

{

    tcg_gen_ld_tl(t, cpu_env, offsetof(CPUState, active_tc.HI) +

                              sizeof(target_ulong) * reg);

}

static inline void gen_store_HI (TCGv t, int reg)

{

    tcg_gen_st_tl(t, cpu_env, offsetof(CPUState, active_tc.HI) +

                              sizeof(target_ulong) * reg);

}

/* Moves to/from shadow registers. */

static inline void gen_load_srsgpr (int from, int to)

{

    TCGv r_tmp1 = tcg_temp_new(TCG_TYPE_TL);

    if (from == 0)

        tcg_gen_movi_tl(r_tmp1, 0);

    else {

        TCGv r_tmp2 = tcg_temp_new(TCG_TYPE_I32);

        tcg_gen_ld_i32(r_tmp2, cpu_env, offsetof(CPUState, CP0_SRSCtl));

        tcg_gen_shri_i32(r_tmp2, r_tmp2, CP0SRSCtl_PSS);

        tcg_gen_andi_i32(r_tmp2, r_tmp2, 0xf);

        tcg_gen_muli_i32(r_tmp2, r_tmp2, sizeof(target_ulong) * 32);

        tcg_gen_add_i32(r_tmp2, cpu_env, r_tmp2);

        tcg_gen_ld_tl(r_tmp1, r_tmp2, sizeof(target_ulong) * from);

        tcg_temp_free(r_tmp2);

    }

    gen_store_gpr(r_tmp1, to);

    tcg_temp_free(r_tmp1);

}

static inline void gen_store_srsgpr (int from, int to)

{

    if (to != 0) {

        TCGv r_tmp1 = tcg_temp_new(TCG_TYPE_TL);

        TCGv r_tmp2 = tcg_temp_new(TCG_TYPE_I32);

        gen_load_gpr(r_tmp1, from);

        tcg_gen_ld_i32(r_tmp2, cpu_env, offsetof(CPUState, CP0_SRSCtl));

        tcg_gen_shri_i32(r_tmp2, r_tmp2, CP0SRSCtl_PSS);

        tcg_gen_andi_i32(r_tmp2, r_tmp2, 0xf);

        tcg_gen_muli_i32(r_tmp2, r_tmp2, sizeof(target_ulong) * 32);

        tcg_gen_add_i32(r_tmp2, cpu_env, r_tmp2);

        tcg_gen_st_tl(r_tmp1, r_tmp2, sizeof(target_ulong) * to);

        tcg_temp_free(r_tmp1);

        tcg_temp_free(r_tmp2);

    }

}

/* Floating point register moves. */

static inline void gen_load_fpr32 (TCGv t, int reg)

{

    tcg_gen_ld_i32(t, current_fpu, 8 * reg + 4 * FP_ENDIAN_IDX);

}

static inline void gen_store_fpr32 (TCGv t, int reg)

{

    tcg_gen_st_i32(t, current_fpu, 8 * reg + 4 * FP_ENDIAN_IDX);

}

static inline void gen_load_fpr64 (DisasContext *ctx, TCGv t, int reg)

{

    if (ctx->hflags & MIPS_HFLAG_F64) {

        tcg_gen_ld_i64(t, current_fpu, 8 * reg);

    } else {

        TCGv r_tmp1 = tcg_temp_new(TCG_TYPE_I32);

        TCGv r_tmp2 = tcg_temp_new(TCG_TYPE_I64);

        tcg_gen_ld_i32(r_tmp1, current_fpu, 8 * (reg | 1) + 4 * FP_ENDIAN_IDX);

        tcg_gen_extu_i32_i64(t, r_tmp1);

        tcg_gen_shli_i64(t, t, 32);

        tcg_gen_ld_i32(r_tmp1, current_fpu, 8 * (reg & ~1) + 4 * FP_ENDIAN_IDX);

        tcg_gen_extu_i32_i64(r_tmp2, r_tmp1);

        tcg_gen_or_i64(t, t, r_tmp2);

        tcg_temp_free(r_tmp1);

        tcg_temp_free(r_tmp2);

    }

}

static inline void gen_store_fpr64 (DisasContext *ctx, TCGv t, int reg)

{

    if (ctx->hflags & MIPS_HFLAG_F64) {

        tcg_gen_st_i64(t, current_fpu, 8 * reg);

    } else {

        TCGv r_tmp = tcg_temp_new(TCG_TYPE_I32);

        tcg_gen_trunc_i64_i32(r_tmp, t);

        tcg_gen_st_i32(r_tmp, current_fpu, 8 * (reg & ~1) + 4 * FP_ENDIAN_IDX);

        tcg_gen_shri_i64(t, t, 32);

        tcg_gen_trunc_i64_i32(r_tmp, t);

        tcg_gen_st_i32(r_tmp, current_fpu, 8 * (reg | 1) + 4 * FP_ENDIAN_IDX);

        tcg_temp_free(r_tmp);

    }

}

static inline void gen_load_fpr32h (TCGv t, int reg)

{

    tcg_gen_ld_i32(t, current_fpu, 8 * reg + 4 * !FP_ENDIAN_IDX);

}

static inline void gen_store_fpr32h (TCGv t, int reg)

{

    tcg_gen_st_i32(t, current_fpu, 8 * reg + 4 * !FP_ENDIAN_IDX);

}

static inline void get_fp_cond (TCGv t)

{

    TCGv r_tmp1 = tcg_temp_new(TCG_TYPE_I32);

    TCGv r_tmp2 = tcg_temp_new(TCG_TYPE_I32);

    tcg_gen_ld_i32(r_tmp1, current_fpu, offsetof(CPUMIPSFPUContext, fcr31));

    tcg_gen_shri_i32(r_tmp2, r_tmp1, 24);

    tcg_gen_andi_i32(r_tmp2, r_tmp2, 0xfe);

    tcg_gen_shri_i32(r_tmp1, r_tmp1, 23);

    tcg_gen_andi_i32(r_tmp1, r_tmp1, 0x1);

    tcg_gen_or_i32(t, r_tmp1, r_tmp2);

    tcg_temp_free(r_tmp1);

    tcg_temp_free(r_tmp2);

}

typedef void (fcmp_fun32)(uint32_t, uint32_t, int);

typedef void (fcmp_fun64)(uint64_t, uint64_t, int);

#define FOP_CONDS(fcmp_fun, type, arg0, arg1, fmt)                            \

static fcmp_fun * fcmp ## type ## _ ## fmt ## _table[16] = {                  \

    do_cmp ## type ## _ ## fmt ## _f,                                         \

    do_cmp ## type ## _ ## fmt ## _un,                                        \

    do_cmp ## type ## _ ## fmt ## _eq,                                        \

    do_cmp ## type ## _ ## fmt ## _ueq,                                       \

    do_cmp ## type ## _ ## fmt ## _olt,                                       \

    do_cmp ## type ## _ ## fmt ## _ult,                                       \

    do_cmp ## type ## _ ## fmt ## _ole,                                       \

    do_cmp ## type ## _ ## fmt ## _ule,                                       \

    do_cmp ## type ## _ ## fmt ## _sf,                                        \

    do_cmp ## type ## _ ## fmt ## _ngle,                                      \

    do_cmp ## type ## _ ## fmt ## _seq,                                       \

    do_cmp ## type ## _ ## fmt ## _ngl,                                       \

    do_cmp ## type ## _ ## fmt ## _lt,                                        \

    do_cmp ## type ## _ ## fmt ## _nge,                                       \

    do_cmp ## type ## _ ## fmt ## _le,                                        \

    do_cmp ## type ## _ ## fmt ## _ngt,                                       \

};                                                                            \

static inline void gen_cmp ## type ## _ ## fmt(int n, arg0 a, arg1 b, int cc) \

{                                                                             \

    tcg_gen_helper_0_2i(fcmp ## type ## _ ## fmt ## _table[n], a, b, cc);     \

}

FOP_CONDS(fcmp_fun64, , uint64_t, uint64_t, d)

FOP_CONDS(fcmp_fun64, abs, uint64_t, uint64_t, d)

FOP_CONDS(fcmp_fun32, , uint32_t, uint32_t, s)

FOP_CONDS(fcmp_fun32, abs, uint32_t, uint32_t, s)

FOP_CONDS(fcmp_fun64, , uint64_t, uint64_t, ps)

FOP_CONDS(fcmp_fun64, abs, uint64_t, uint64_t, ps)

#undef FOP_CONDS

/* Tests */

#define OP_COND(name, cond)                                   \

static inline void glue(gen_op_, name) (TCGv t0, TCGv t1)     \

{                                                             \

    int l1 = gen_new_label();                                 \

    int l2 = gen_new_label();                                 \

                                                              \

    tcg_gen_brcond_tl(cond, t0, t1, l1);                      \

    tcg_gen_movi_tl(t0, 0);                                   \

    tcg_gen_br(l2);                                           \

    gen_set_label(l1);                                        \

    tcg_gen_movi_tl(t0, 1);                                   \

    gen_set_label(l2);                                        \

}

OP_COND(eq, TCG_COND_EQ);

OP_COND(ne, TCG_COND_NE);

OP_COND(ge, TCG_COND_GE);

OP_COND(geu, TCG_COND_GEU);

OP_COND(lt, TCG_COND_LT);

OP_COND(ltu, TCG_COND_LTU);

#undef OP_COND

#define OP_CONDI(name, cond)                                  \

static inline void glue(gen_op_, name) (TCGv t, target_ulong val) \

{                                                             \

    int l1 = gen_new_label();                                 \

    int l2 = gen_new_label();                                 \

                                                              \

    tcg_gen_brcondi_tl(cond, t, val, l1);                     \

    tcg_gen_movi_tl(t, 0);                                    \

    tcg_gen_br(l2);                                           \

    gen_set_label(l1);                                        \

    tcg_gen_movi_tl(t, 1);                                    \

    gen_set_label(l2);                                        \

}

OP_CONDI(lti, TCG_COND_LT);

OP_CONDI(ltiu, TCG_COND_LTU);

#undef OP_CONDI

#define OP_CONDZ(name, cond)                                  \

static inline void glue(gen_op_, name) (TCGv t)               \

{                                                             \

    int l1 = gen_new_label();                                 \

    int l2 = gen_new_label();                                 \

                                                              \

    tcg_gen_brcondi_tl(cond, t, 0, l1);                       \

    tcg_gen_movi_tl(t, 0);                                    \

    tcg_gen_br(l2);                                           \

    gen_set_label(l1);                                        \

    tcg_gen_movi_tl(t, 1);                                    \

    gen_set_label(l2);                                        \

}

OP_CONDZ(gez, TCG_COND_GE);

OP_CONDZ(gtz, TCG_COND_GT);

OP_CONDZ(lez, TCG_COND_LE);

OP_CONDZ(ltz, TCG_COND_LT);

#undef OP_CONDZ

static inline void gen_save_pc(target_ulong pc)

{

    TCGv r_tmp = tcg_temp_new(TCG_TYPE_TL);

    tcg_gen_movi_tl(r_tmp, pc);

    tcg_gen_st_tl(r_tmp, cpu_env, offsetof(CPUState, active_tc.PC));

    tcg_temp_free(r_tmp);

}

static inline void save_cpu_state (DisasContext *ctx, int do_save_pc)

{

#if defined MIPS_DEBUG_DISAS

    if (loglevel & CPU_LOG_TB_IN_ASM) {

            fprintf(logfile, "hflags %08x saved %08x\n",

                    ctx->hflags, ctx->saved_hflags);

    }

#endif