Archipelago » qemu

/*

 * Tiny Code Generator for QEMU

 *

 * Copyright (c) 2008 Fabrice Bellard

 *

 * Permission is hereby granted, free of charge, to any person obtaining a copy

 * of this software and associated documentation files (the "Software"), to deal

 * in the Software without restriction, including without limitation the rights

 * to use, copy, modify, merge, publish, distribute, sublicense, and/or sell

 * copies of the Software, and to permit persons to whom the Software is

 * furnished to do so, subject to the following conditions:

 *

 * The above copyright notice and this permission notice shall be included in

 * all copies or substantial portions of the Software.

 *

 * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR

 * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,

 * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL

 * THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER

 * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,

 * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN

 * THE SOFTWARE.

 */

#include "tcg.h"

/* legacy dyngen operations */

#include "gen-op.h"

int gen_new_label(void);

static inline void tcg_gen_op1(int opc, TCGv arg1)

{

    *gen_opc_ptr++ = opc;

    *gen_opparam_ptr++ = GET_TCGV(arg1);

}

static inline void tcg_gen_op1i(int opc, TCGArg arg1)

{

    *gen_opc_ptr++ = opc;

    *gen_opparam_ptr++ = arg1;

}

static inline void tcg_gen_op2(int opc, TCGv arg1, TCGv arg2)

{

    *gen_opc_ptr++ = opc;

    *gen_opparam_ptr++ = GET_TCGV(arg1);

    *gen_opparam_ptr++ = GET_TCGV(arg2);

}

static inline void tcg_gen_op2i(int opc, TCGv arg1, TCGArg arg2)

{

    *gen_opc_ptr++ = opc;

    *gen_opparam_ptr++ = GET_TCGV(arg1);

    *gen_opparam_ptr++ = arg2;

}

static inline void tcg_gen_op3(int opc, TCGv arg1, TCGv arg2, TCGv arg3)

{

    *gen_opc_ptr++ = opc;

    *gen_opparam_ptr++ = GET_TCGV(arg1);

    *gen_opparam_ptr++ = GET_TCGV(arg2);

    *gen_opparam_ptr++ = GET_TCGV(arg3);

}

static inline void tcg_gen_op3i(int opc, TCGv arg1, TCGv arg2, TCGArg arg3)

{

    *gen_opc_ptr++ = opc;

    *gen_opparam_ptr++ = GET_TCGV(arg1);

    *gen_opparam_ptr++ = GET_TCGV(arg2);

    *gen_opparam_ptr++ = arg3;

}

static inline void tcg_gen_op4(int opc, TCGv arg1, TCGv arg2, TCGv arg3, 

                               TCGv arg4)

{

    *gen_opc_ptr++ = opc;

    *gen_opparam_ptr++ = GET_TCGV(arg1);

    *gen_opparam_ptr++ = GET_TCGV(arg2);

    *gen_opparam_ptr++ = GET_TCGV(arg3);

    *gen_opparam_ptr++ = GET_TCGV(arg4);

}

static inline void tcg_gen_op4i(int opc, TCGv arg1, TCGv arg2, TCGv arg3, 

                                TCGArg arg4)

{

    *gen_opc_ptr++ = opc;

    *gen_opparam_ptr++ = GET_TCGV(arg1);

    *gen_opparam_ptr++ = GET_TCGV(arg2);

    *gen_opparam_ptr++ = GET_TCGV(arg3);

    *gen_opparam_ptr++ = arg4;

}

static inline void tcg_gen_op4ii(int opc, TCGv arg1, TCGv arg2, TCGArg arg3, 

                                 TCGArg arg4)

{

    *gen_opc_ptr++ = opc;

    *gen_opparam_ptr++ = GET_TCGV(arg1);

    *gen_opparam_ptr++ = GET_TCGV(arg2);

    *gen_opparam_ptr++ = arg3;

    *gen_opparam_ptr++ = arg4;

}

static inline void tcg_gen_op5(int opc, TCGv arg1, TCGv arg2, 

                               TCGv arg3, TCGv arg4,

                               TCGv arg5)

{

    *gen_opc_ptr++ = opc;

    *gen_opparam_ptr++ = GET_TCGV(arg1);

    *gen_opparam_ptr++ = GET_TCGV(arg2);

    *gen_opparam_ptr++ = GET_TCGV(arg3);

    *gen_opparam_ptr++ = GET_TCGV(arg4);

    *gen_opparam_ptr++ = GET_TCGV(arg5);

}

static inline void tcg_gen_op5i(int opc, TCGv arg1, TCGv arg2, 

                                TCGv arg3, TCGv arg4,

                                TCGArg arg5)

{

    *gen_opc_ptr++ = opc;

    *gen_opparam_ptr++ = GET_TCGV(arg1);

    *gen_opparam_ptr++ = GET_TCGV(arg2);

    *gen_opparam_ptr++ = GET_TCGV(arg3);

    *gen_opparam_ptr++ = GET_TCGV(arg4);

    *gen_opparam_ptr++ = arg5;

}

static inline void tcg_gen_op6(int opc, TCGv arg1, TCGv arg2, 

                               TCGv arg3, TCGv arg4,

                               TCGv arg5, TCGv arg6)

{

    *gen_opc_ptr++ = opc;

    *gen_opparam_ptr++ = GET_TCGV(arg1);

    *gen_opparam_ptr++ = GET_TCGV(arg2);

    *gen_opparam_ptr++ = GET_TCGV(arg3);

    *gen_opparam_ptr++ = GET_TCGV(arg4);

    *gen_opparam_ptr++ = GET_TCGV(arg5);

    *gen_opparam_ptr++ = GET_TCGV(arg6);

}

static inline void tcg_gen_op6ii(int opc, TCGv arg1, TCGv arg2, 

                                 TCGv arg3, TCGv arg4,

                                 TCGArg arg5, TCGArg arg6)

{

    *gen_opc_ptr++ = opc;

    *gen_opparam_ptr++ = GET_TCGV(arg1);

    *gen_opparam_ptr++ = GET_TCGV(arg2);

    *gen_opparam_ptr++ = GET_TCGV(arg3);

    *gen_opparam_ptr++ = GET_TCGV(arg4);

    *gen_opparam_ptr++ = arg5;

    *gen_opparam_ptr++ = arg6;

}

static inline void gen_set_label(int n)

{

    tcg_gen_op1i(INDEX_op_set_label, n);

}

static inline void tcg_gen_mov_i32(TCGv ret, TCGv arg)

{

    tcg_gen_op2(INDEX_op_mov_i32, ret, arg);

}

static inline void tcg_gen_movi_i32(TCGv ret, int32_t arg)

{

    tcg_gen_op2i(INDEX_op_movi_i32, ret, arg);

}

/* helper calls */

#define TCG_HELPER_CALL_FLAGS 0

static inline void tcg_gen_helper_0_0(void *func)

{

    tcg_gen_call(&tcg_ctx, 

                 tcg_const_ptr((tcg_target_long)func), TCG_HELPER_CALL_FLAGS,

                 0, NULL, 0, NULL);

}

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

{

    tcg_gen_call(&tcg_ctx,

                 tcg_const_ptr((tcg_target_long)func), TCG_HELPER_CALL_FLAGS,

                 0, NULL, 1, &arg);

}

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

{

    TCGv args[2];

    args[0] = arg1;

    args[1] = arg2;

    tcg_gen_call(&tcg_ctx, 

                 tcg_const_ptr((tcg_target_long)func), TCG_HELPER_CALL_FLAGS,

                 0, NULL, 2, args);

}

static inline void tcg_gen_helper_1_2(void *func, TCGv ret, 

                                      TCGv arg1, TCGv arg2)

{

    TCGv args[2];

    args[0] = arg1;

    args[1] = arg2;

    tcg_gen_call(&tcg_ctx, 

                 tcg_const_ptr((tcg_target_long)func), TCG_HELPER_CALL_FLAGS,

                 1, &ret, 2, args);

}

/* 32 bit ops */

static inline void tcg_gen_ld8u_i32(TCGv ret, TCGv arg2, tcg_target_long offset)

{

    tcg_gen_op3i(INDEX_op_ld8u_i32, ret, arg2, offset);

}

static inline void tcg_gen_ld8s_i32(TCGv ret, TCGv arg2, tcg_target_long offset)

{

    tcg_gen_op3i(INDEX_op_ld8s_i32, ret, arg2, offset);

}

static inline void tcg_gen_ld16u_i32(TCGv ret, TCGv arg2, tcg_target_long offset)

{

    tcg_gen_op3i(INDEX_op_ld16u_i32, ret, arg2, offset);

}

static inline void tcg_gen_ld16s_i32(TCGv ret, TCGv arg2, tcg_target_long offset)

{

    tcg_gen_op3i(INDEX_op_ld16s_i32, ret, arg2, offset);

}

static inline void tcg_gen_ld_i32(TCGv ret, TCGv arg2, tcg_target_long offset)

{

    tcg_gen_op3i(INDEX_op_ld_i32, ret, arg2, offset);

}

static inline void tcg_gen_st8_i32(TCGv arg1, TCGv arg2, tcg_target_long offset)

{

    tcg_gen_op3i(INDEX_op_st8_i32, arg1, arg2, offset);

}

static inline void tcg_gen_st16_i32(TCGv arg1, TCGv arg2, tcg_target_long offset)

{

    tcg_gen_op3i(INDEX_op_st16_i32, arg1, arg2, offset);

}

static inline void tcg_gen_st_i32(TCGv arg1, TCGv arg2, tcg_target_long offset)

{

    tcg_gen_op3i(INDEX_op_st_i32, arg1, arg2, offset);

}

static inline void tcg_gen_add_i32(TCGv ret, TCGv arg1, TCGv arg2)

{

    tcg_gen_op3(INDEX_op_add_i32, ret, arg1, arg2);

}

static inline void tcg_gen_addi_i32(TCGv ret, TCGv arg1, int32_t arg2)

{

    tcg_gen_add_i32(ret, arg1, tcg_const_i32(arg2));

}

static inline void tcg_gen_sub_i32(TCGv ret, TCGv arg1, TCGv arg2)

{

    tcg_gen_op3(INDEX_op_sub_i32, ret, arg1, arg2);

}

static inline void tcg_gen_subi_i32(TCGv ret, TCGv arg1, int32_t arg2)

{

    tcg_gen_sub_i32(ret, arg1, tcg_const_i32(arg2));

}

static inline void tcg_gen_and_i32(TCGv ret, TCGv arg1, TCGv arg2)

{

    tcg_gen_op3(INDEX_op_and_i32, ret, arg1, arg2);

}

static inline void tcg_gen_andi_i32(TCGv ret, TCGv arg1, int32_t arg2)

{

    /* some cases can be optimized here */

    if (arg2 == 0) {

        tcg_gen_movi_i32(ret, 0);

    } else if (arg2 == 0xffffffff) {

        tcg_gen_mov_i32(ret, arg1);

    } else {

        tcg_gen_and_i32(ret, arg1, tcg_const_i32(arg2));

    }

}

static inline void tcg_gen_or_i32(TCGv ret, TCGv arg1, TCGv arg2)

{

    tcg_gen_op3(INDEX_op_or_i32, ret, arg1, arg2);

}

static inline void tcg_gen_ori_i32(TCGv ret, TCGv arg1, int32_t arg2)

{

    /* some cases can be optimized here */

    if (arg2 == 0xffffffff) {

        tcg_gen_movi_i32(ret, 0);

    } else if (arg2 == 0) {

        tcg_gen_mov_i32(ret, arg1);

    } else {

        tcg_gen_or_i32(ret, arg1, tcg_const_i32(arg2));

    }

}

static inline void tcg_gen_xor_i32(TCGv ret, TCGv arg1, TCGv arg2)

{

    tcg_gen_op3(INDEX_op_xor_i32, ret, arg1, arg2);

}

static inline void tcg_gen_xori_i32(TCGv ret, TCGv arg1, int32_t arg2)

{

    /* some cases can be optimized here */

    if (arg2 == 0) {

        tcg_gen_mov_i32(ret, arg1);

    } else {

        tcg_gen_xor_i32(ret, arg1, tcg_const_i32(arg2));

    }

}

static inline void tcg_gen_shl_i32(TCGv ret, TCGv arg1, TCGv arg2)

{

    tcg_gen_op3(INDEX_op_shl_i32, ret, arg1, arg2);

}

static inline void tcg_gen_shli_i32(TCGv ret, TCGv arg1, int32_t arg2)

{

    tcg_gen_shl_i32(ret, arg1, tcg_const_i32(arg2));

}

static inline void tcg_gen_shr_i32(TCGv ret, TCGv arg1, TCGv arg2)

{

    tcg_gen_op3(INDEX_op_shr_i32, ret, arg1, arg2);

}

static inline void tcg_gen_shri_i32(TCGv ret, TCGv arg1, int32_t arg2)

{

    tcg_gen_shr_i32(ret, arg1, tcg_const_i32(arg2));

}

static inline void tcg_gen_sar_i32(TCGv ret, TCGv arg1, TCGv arg2)

{

    tcg_gen_op3(INDEX_op_sar_i32, ret, arg1, arg2);

}

static inline void tcg_gen_sari_i32(TCGv ret, TCGv arg1, int32_t arg2)

{

    tcg_gen_sar_i32(ret, arg1, tcg_const_i32(arg2));

}

static inline void tcg_gen_brcond_i32(int cond, TCGv arg1, TCGv arg2, 

                                      int label_index)

{

    tcg_gen_op4ii(INDEX_op_brcond_i32, arg1, arg2, cond, label_index);

}

static inline void tcg_gen_mul_i32(TCGv ret, TCGv arg1, TCGv arg2)

{

    tcg_gen_op3(INDEX_op_mul_i32, ret, arg1, arg2);

}

#ifdef TCG_TARGET_HAS_div_i32

static inline void tcg_gen_div_i32(TCGv ret, TCGv arg1, TCGv arg2)

{

    tcg_gen_op3(INDEX_op_div_i32, ret, arg1, arg2);

}

static inline void tcg_gen_rem_i32(TCGv ret, TCGv arg1, TCGv arg2)

{

    tcg_gen_op3(INDEX_op_rem_i32, ret, arg1, arg2);

}

static inline void tcg_gen_divu_i32(TCGv ret, TCGv arg1, TCGv arg2)

{

    tcg_gen_op3(INDEX_op_divu_i32, ret, arg1, arg2);

}

static inline void tcg_gen_remu_i32(TCGv ret, TCGv arg1, TCGv arg2)

{

    tcg_gen_op3(INDEX_op_remu_i32, ret, arg1, arg2);

}

#else

static inline void tcg_gen_div_i32(TCGv ret, TCGv arg1, TCGv arg2)

{

    TCGv t0;

    t0 = tcg_temp_new(TCG_TYPE_I32);

    tcg_gen_sari_i32(t0, arg1, 31);

    tcg_gen_op5(INDEX_op_div2_i32, ret, t0, arg1, t0, arg2);

}

static inline void tcg_gen_rem_i32(TCGv ret, TCGv arg1, TCGv arg2)

{

    TCGv t0;

    t0 = tcg_temp_new(TCG_TYPE_I32);

    tcg_gen_sari_i32(t0, arg1, 31);

    tcg_gen_op5(INDEX_op_div2_i32, t0, ret, arg1, t0, arg2);

}

static inline void tcg_gen_divu_i32(TCGv ret, TCGv arg1, TCGv arg2)

{

    TCGv t0;

    t0 = tcg_temp_new(TCG_TYPE_I32);

    tcg_gen_movi_i32(t0, 0);

    tcg_gen_op5(INDEX_op_divu2_i32, ret, t0, arg1, t0, arg2);

}

static inline void tcg_gen_remu_i32(TCGv ret, TCGv arg1, TCGv arg2)

{

    TCGv t0;

    t0 = tcg_temp_new(TCG_TYPE_I32);

    tcg_gen_movi_i32(t0, 0);

    tcg_gen_op5(INDEX_op_divu2_i32, t0, ret, arg1, t0, arg2);

}

#endif

#if TCG_TARGET_REG_BITS == 32

static inline void tcg_gen_mov_i64(TCGv ret, TCGv arg)

{

    tcg_gen_mov_i32(ret, arg);

    tcg_gen_mov_i32(TCGV_HIGH(ret), TCGV_HIGH(arg));

}

static inline void tcg_gen_movi_i64(TCGv ret, int64_t arg)

{

    tcg_gen_movi_i32(ret, arg);

    tcg_gen_movi_i32(TCGV_HIGH(ret), arg >> 32);

}

static inline void tcg_gen_ld8u_i64(TCGv ret, TCGv arg2, tcg_target_long offset)

{

    tcg_gen_ld8u_i32(ret, arg2, offset);

    tcg_gen_movi_i32(TCGV_HIGH(ret), 0);

}

static inline void tcg_gen_ld8s_i64(TCGv ret, TCGv arg2, tcg_target_long offset)

{

    tcg_gen_ld8s_i32(ret, arg2, offset);

    tcg_gen_sari_i32(TCGV_HIGH(ret), ret, 31);

}

static inline void tcg_gen_ld16u_i64(TCGv ret, TCGv arg2, tcg_target_long offset)

{

    tcg_gen_ld16u_i32(ret, arg2, offset);

    tcg_gen_movi_i32(TCGV_HIGH(ret), 0);

}

static inline void tcg_gen_ld16s_i64(TCGv ret, TCGv arg2, tcg_target_long offset)

{

    tcg_gen_ld16s_i32(ret, arg2, offset);

    tcg_gen_sari_i32(TCGV_HIGH(ret), ret, 31);

}

static inline void tcg_gen_ld32u_i64(TCGv ret, TCGv arg2, tcg_target_long offset)

{

    tcg_gen_ld_i32(ret, arg2, offset);

    tcg_gen_movi_i32(TCGV_HIGH(ret), 0);

}

static inline void tcg_gen_ld32s_i64(TCGv ret, TCGv arg2, tcg_target_long offset)

{

    tcg_gen_ld_i32(ret, arg2, offset);

    tcg_gen_sari_i32(TCGV_HIGH(ret), ret, 31);

}

static inline void tcg_gen_ld_i64(TCGv ret, TCGv arg2, tcg_target_long offset)

{

    /* since arg2 and ret have different types, they cannot be the

       same temporary */

#ifdef TCG_TARGET_WORDS_BIGENDIAN

    tcg_gen_ld_i32(TCGV_HIGH(ret), arg2, offset);

    tcg_gen_ld_i32(ret, arg2, offset + 4);

#else

    tcg_gen_ld_i32(ret, arg2, offset);

    tcg_gen_ld_i32(TCGV_HIGH(ret), arg2, offset + 4);

#endif

}

static inline void tcg_gen_st8_i64(TCGv arg1, TCGv arg2, tcg_target_long offset)

{

    tcg_gen_st8_i32(arg1, arg2, offset);

}

static inline void tcg_gen_st16_i64(TCGv arg1, TCGv arg2, tcg_target_long offset)

{

    tcg_gen_st16_i32(arg1, arg2, offset);

}

static inline void tcg_gen_st32_i64(TCGv arg1, TCGv arg2, tcg_target_long offset)

{

    tcg_gen_st_i32(arg1, arg2, offset);

}

static inline void tcg_gen_st_i64(TCGv arg1, TCGv arg2, tcg_target_long offset)

{

#ifdef TCG_TARGET_WORDS_BIGENDIAN

    tcg_gen_st_i32(TCGV_HIGH(arg1), arg2, offset);

    tcg_gen_st_i32(arg1, arg2, offset + 4);

#else

    tcg_gen_st_i32(arg1, arg2, offset);

    tcg_gen_st_i32(TCGV_HIGH(arg1), arg2, offset + 4);

#endif

}

static inline void tcg_gen_add_i64(TCGv ret, TCGv arg1, TCGv arg2)

{

    tcg_gen_op6(INDEX_op_add2_i32, ret, TCGV_HIGH(ret), 

                arg1, TCGV_HIGH(arg1), arg2, TCGV_HIGH(arg2));

}

static inline void tcg_gen_addi_i64(TCGv ret, TCGv arg1, int64_t arg2)

{

    tcg_gen_add_i64(ret, arg1, tcg_const_i64(arg2));

}

static inline void tcg_gen_sub_i64(TCGv ret, TCGv arg1, TCGv arg2)

{

    tcg_gen_op6(INDEX_op_sub2_i32, ret, TCGV_HIGH(ret), 

                arg1, TCGV_HIGH(arg1), arg2, TCGV_HIGH(arg2));

}

static inline void tcg_gen_subi_i64(TCGv ret, TCGv arg1, int64_t arg2)

{

    tcg_gen_sub_i64(ret, arg1, tcg_const_i64(arg2));

}

static inline void tcg_gen_and_i64(TCGv ret, TCGv arg1, TCGv arg2)

{

    tcg_gen_and_i32(ret, arg1, arg2);

    tcg_gen_and_i32(TCGV_HIGH(ret), TCGV_HIGH(arg1), TCGV_HIGH(arg2));

}

static inline void tcg_gen_andi_i64(TCGv ret, TCGv arg1, int64_t arg2)

{

    tcg_gen_andi_i32(ret, arg1, arg2);

    tcg_gen_andi_i32(TCGV_HIGH(ret), TCGV_HIGH(arg1), arg2 >> 32);

}

static inline void tcg_gen_or_i64(TCGv ret, TCGv arg1, TCGv arg2)

{

    tcg_gen_or_i32(ret, arg1, arg2);

    tcg_gen_or_i32(TCGV_HIGH(ret), TCGV_HIGH(arg1), TCGV_HIGH(arg2));

}

static inline void tcg_gen_ori_i64(TCGv ret, TCGv arg1, int64_t arg2)

{

    tcg_gen_ori_i32(ret, arg1, arg2);

    tcg_gen_ori_i32(TCGV_HIGH(ret), TCGV_HIGH(arg1), arg2 >> 32);

}

static inline void tcg_gen_xor_i64(TCGv ret, TCGv arg1, TCGv arg2)

{

    tcg_gen_xor_i32(ret, arg1, arg2);

    tcg_gen_xor_i32(TCGV_HIGH(ret), TCGV_HIGH(arg1), TCGV_HIGH(arg2));

}

static inline void tcg_gen_xori_i64(TCGv ret, TCGv arg1, int64_t arg2)

{

    tcg_gen_xori_i32(ret, arg1, arg2);

    tcg_gen_xori_i32(TCGV_HIGH(ret), TCGV_HIGH(arg1), arg2 >> 32);

}

/* XXX: use generic code when basic block handling is OK or CPU

   specific code (x86) */

static inline void tcg_gen_shl_i64(TCGv ret, TCGv arg1, TCGv arg2)

{

    tcg_gen_helper_1_2(tcg_helper_shl_i64, ret, arg1, arg2);

}

static inline void tcg_gen_shli_i64(TCGv ret, TCGv arg1, int64_t arg2)

{

    tcg_gen_shifti_i64(ret, arg1, arg2, 0, 0);

}

static inline void tcg_gen_shr_i64(TCGv ret, TCGv arg1, TCGv arg2)

{

    tcg_gen_helper_1_2(tcg_helper_shr_i64, ret, arg1, arg2);

}

static inline void tcg_gen_shri_i64(TCGv ret, TCGv arg1, int64_t arg2)

{

    tcg_gen_shifti_i64(ret, arg1, arg2, 1, 0);

}

static inline void tcg_gen_sar_i64(TCGv ret, TCGv arg1, TCGv arg2)

{

    tcg_gen_helper_1_2(tcg_helper_sar_i64, ret, arg1, arg2);

}

static inline void tcg_gen_sari_i64(TCGv ret, TCGv arg1, int64_t arg2)

{

    tcg_gen_shifti_i64(ret, arg1, arg2, 1, 1);

}

static inline void tcg_gen_brcond_i64(int cond, TCGv arg1, TCGv arg2, 

                                      int label_index)

{

    tcg_gen_op6ii(INDEX_op_brcond2_i32, 

                  arg1, TCGV_HIGH(arg1), arg2, TCGV_HIGH(arg2),

                  cond, label_index);

}

static inline void tcg_gen_mul_i64(TCGv ret, TCGv arg1, TCGv arg2)

{

    TCGv t0, t1;

    t0 = tcg_temp_new(TCG_TYPE_I64);

    t1 = tcg_temp_new(TCG_TYPE_I32);

    tcg_gen_op4(INDEX_op_mulu2_i32, t0, TCGV_HIGH(t0), arg1, arg2);

    tcg_gen_mul_i32(t1, arg1, TCGV_HIGH(arg2));

    tcg_gen_add_i32(TCGV_HIGH(t0), TCGV_HIGH(t0), t1);

    tcg_gen_mul_i32(t1, TCGV_HIGH(arg1), arg2);

    tcg_gen_add_i32(TCGV_HIGH(t0), TCGV_HIGH(t0), t1);

    tcg_gen_mov_i64(ret, t0);

}

static inline void tcg_gen_div_i64(TCGv ret, TCGv arg1, TCGv arg2)

{

    tcg_gen_helper_1_2(tcg_helper_div_i64, ret, arg1, arg2);

}

static inline void tcg_gen_rem_i64(TCGv ret, TCGv arg1, TCGv arg2)

{

    tcg_gen_helper_1_2(tcg_helper_rem_i64, ret, arg1, arg2);

}

static inline void tcg_gen_divu_i64(TCGv ret, TCGv arg1, TCGv arg2)

{

    tcg_gen_helper_1_2(tcg_helper_divu_i64, ret, arg1, arg2);

}

static inline void tcg_gen_remu_i64(TCGv ret, TCGv arg1, TCGv arg2)

{

    tcg_gen_helper_1_2(tcg_helper_remu_i64, ret, arg1, arg2);

}

#else

static inline void tcg_gen_mov_i64(TCGv ret, TCGv arg)

{

    tcg_gen_op2(INDEX_op_mov_i64, ret, arg);

}

static inline void tcg_gen_movi_i64(TCGv ret, int64_t arg)

{

    tcg_gen_op2i(INDEX_op_movi_i64, ret, arg);

}

static inline void tcg_gen_ld8u_i64(TCGv ret, TCGv arg2,

                                    tcg_target_long offset)

{

    tcg_gen_op3i(INDEX_op_ld8u_i64, ret, arg2, offset);

}

static inline void tcg_gen_ld8s_i64(TCGv ret, TCGv arg2,

                                    tcg_target_long offset)

{

    tcg_gen_op3i(INDEX_op_ld8s_i64, ret, arg2, offset);

}

static inline void tcg_gen_ld16u_i64(TCGv ret, TCGv arg2,

                                     tcg_target_long offset)

{

    tcg_gen_op3i(INDEX_op_ld16u_i64, ret, arg2, offset);

}

static inline void tcg_gen_ld16s_i64(TCGv ret, TCGv arg2,

                                     tcg_target_long offset)

{

    tcg_gen_op3i(INDEX_op_ld16s_i64, ret, arg2, offset);

}

static inline void tcg_gen_ld32u_i64(TCGv ret, TCGv arg2,

                                     tcg_target_long offset)

{

    tcg_gen_op3i(INDEX_op_ld32u_i64, ret, arg2, offset);

}

static inline void tcg_gen_ld32s_i64(TCGv ret, TCGv arg2,

                                     tcg_target_long offset)

{

    tcg_gen_op3i(INDEX_op_ld32s_i64, ret, arg2, offset);

}

static inline void tcg_gen_ld_i64(TCGv ret, TCGv arg2, tcg_target_long offset)

{

    tcg_gen_op3i(INDEX_op_ld_i64, ret, arg2, offset);

}

static inline void tcg_gen_st8_i64(TCGv arg1, TCGv arg2,

                                   tcg_target_long offset)

{

    tcg_gen_op3i(INDEX_op_st8_i64, arg1, arg2, offset);

}

static inline void tcg_gen_st16_i64(TCGv arg1, TCGv arg2,

                                    tcg_target_long offset)

{

    tcg_gen_op3i(INDEX_op_st16_i64, arg1, arg2, offset);

}

static inline void tcg_gen_st32_i64(TCGv arg1, TCGv arg2,

                                    tcg_target_long offset)

{

    tcg_gen_op3i(INDEX_op_st32_i64, arg1, arg2, offset);

}

static inline void tcg_gen_st_i64(TCGv arg1, TCGv arg2, tcg_target_long offset)

{

    tcg_gen_op3i(INDEX_op_st_i64, arg1, arg2, offset);

}

static inline void tcg_gen_add_i64(TCGv ret, TCGv arg1, TCGv arg2)

{

    tcg_gen_op3(INDEX_op_add_i64, ret, arg1, arg2);

}

static inline void tcg_gen_addi_i64(TCGv ret, TCGv arg1, int64_t arg2)

{

    tcg_gen_add_i64(ret, arg1, tcg_const_i64(arg2));

}

static inline void tcg_gen_sub_i64(TCGv ret, TCGv arg1, TCGv arg2)

{

    tcg_gen_op3(INDEX_op_sub_i64, ret, arg1, arg2);

}

static inline void tcg_gen_subi_i64(TCGv ret, TCGv arg1, int64_t arg2)

{

    tcg_gen_sub_i64(ret, arg1, tcg_const_i64(arg2));

}

static inline void tcg_gen_and_i64(TCGv ret, TCGv arg1, TCGv arg2)

{

    tcg_gen_op3(INDEX_op_and_i64, ret, arg1, arg2);

}

static inline void tcg_gen_andi_i64(TCGv ret, TCGv arg1, int64_t arg2)

{

    tcg_gen_and_i64(ret, arg1, tcg_const_i64(arg2));

}

static inline void tcg_gen_or_i64(TCGv ret, TCGv arg1, TCGv arg2)

{

    tcg_gen_op3(INDEX_op_or_i64, ret, arg1, arg2);

}

static inline void tcg_gen_ori_i64(TCGv ret, TCGv arg1, int64_t arg2)

{

    tcg_gen_or_i64(ret, arg1, tcg_const_i64(arg2));

}

static inline void tcg_gen_xor_i64(TCGv ret, TCGv arg1, TCGv arg2)

{

    tcg_gen_op3(INDEX_op_xor_i64, ret, arg1, arg2);

}

static inline void tcg_gen_xori_i64(TCGv ret, TCGv arg1, int64_t arg2)

{

    tcg_gen_xor_i64(ret, arg1, tcg_const_i64(arg2));

}

static inline void tcg_gen_shl_i64(TCGv ret, TCGv arg1, TCGv arg2)

{

    tcg_gen_op3(INDEX_op_shl_i64, ret, arg1, arg2);

}

static inline void tcg_gen_shli_i64(TCGv ret, TCGv arg1, int64_t arg2)

{

    tcg_gen_shl_i64(ret, arg1, tcg_const_i64(arg2));

}

static inline void tcg_gen_shr_i64(TCGv ret, TCGv arg1, TCGv arg2)

{

    tcg_gen_op3(INDEX_op_shr_i64, ret, arg1, arg2);

}

static inline void tcg_gen_shri_i64(TCGv ret, TCGv arg1, int64_t arg2)

{

    tcg_gen_shr_i64(ret, arg1, tcg_const_i64(arg2));

}

static inline void tcg_gen_sar_i64(TCGv ret, TCGv arg1, TCGv arg2)

{

    tcg_gen_op3(INDEX_op_sar_i64, ret, arg1, arg2);

}

static inline void tcg_gen_sari_i64(TCGv ret, TCGv arg1, int64_t arg2)

{

    tcg_gen_sar_i64(ret, arg1, tcg_const_i64(arg2));

}

static inline void tcg_gen_brcond_i64(int cond, TCGv arg1, TCGv arg2, 

                                      int label_index)

{

    tcg_gen_op4ii(INDEX_op_brcond_i64, arg1, arg2, cond, label_index);

}

static inline void tcg_gen_mul_i64(TCGv ret, TCGv arg1, TCGv arg2)

{

    tcg_gen_op3(INDEX_op_mul_i64, ret, arg1, arg2);

}

#ifdef TCG_TARGET_HAS_div_i64

static inline void tcg_gen_div_i64(TCGv ret, TCGv arg1, TCGv arg2)

{

    tcg_gen_op3(INDEX_op_div_i64, ret, arg1, arg2);

}

static inline void tcg_gen_rem_i64(TCGv ret, TCGv arg1, TCGv arg2)

{

    tcg_gen_op3(INDEX_op_rem_i64, ret, arg1, arg2);

}

static inline void tcg_gen_divu_i64(TCGv ret, TCGv arg1, TCGv arg2)

{

    tcg_gen_op3(INDEX_op_divu_i64, ret, arg1, arg2);

}

static inline void tcg_gen_remu_i64(TCGv ret, TCGv arg1, TCGv arg2)

{

    tcg_gen_op3(INDEX_op_remu_i64, ret, arg1, arg2);

}

#else

static inline void tcg_gen_div_i64(TCGv ret, TCGv arg1, TCGv arg2)

{

    TCGv t0;

    t0 = tcg_temp_new(TCG_TYPE_I64);

    tcg_gen_sari_i64(t0, arg1, 63);

    tcg_gen_op5(INDEX_op_div2_i64, ret, t0, arg1, t0, arg2);

}

static inline void tcg_gen_rem_i64(TCGv ret, TCGv arg1, TCGv arg2)

{

    TCGv t0;

    t0 = tcg_temp_new(TCG_TYPE_I64);

    tcg_gen_sari_i64(t0, arg1, 63);

    tcg_gen_op5(INDEX_op_div2_i64, t0, ret, arg1, t0, arg2);

}

static inline void tcg_gen_divu_i64(TCGv ret, TCGv arg1, TCGv arg2)

{

    TCGv t0;

    t0 = tcg_temp_new(TCG_TYPE_I64);

    tcg_gen_movi_i64(t0, 0);

    tcg_gen_op5(INDEX_op_divu2_i64, ret, t0, arg1, t0, arg2);

}

static inline void tcg_gen_remu_i64(TCGv ret, TCGv arg1, TCGv arg2)

{

    TCGv t0;

    t0 = tcg_temp_new(TCG_TYPE_I64);

    tcg_gen_movi_i64(t0, 0);

    tcg_gen_op5(INDEX_op_divu2_i64, t0, ret, arg1, t0, arg2);

}

#endif

#endif

/***************************************/

/* optional operations */

static inline void tcg_gen_ext8s_i32(TCGv ret, TCGv arg)

{

#ifdef TCG_TARGET_HAS_ext8s_i32

    tcg_gen_op2(INDEX_op_ext8s_i32, ret, arg);

#else

    tcg_gen_shli_i32(ret, arg, 24);

    tcg_gen_sari_i32(ret, ret, 24);

#endif

}

static inline void tcg_gen_ext16s_i32(TCGv ret, TCGv arg)

{

#ifdef TCG_TARGET_HAS_ext16s_i32

    tcg_gen_op2(INDEX_op_ext16s_i32, ret, arg);

#else

    tcg_gen_shli_i32(ret, arg, 16);

    tcg_gen_sari_i32(ret, ret, 16);

#endif

}

/* Note: we assume the two high bytes are set to zero */

static inline void tcg_gen_bswap16_i32(TCGv ret, TCGv arg)

{

#ifdef TCG_TARGET_HAS_bswap16_i32

    tcg_gen_op2(INDEX_op_bswap16_i32, ret, arg);

#else

    TCGv t0, t1;

    t0 = tcg_temp_new(TCG_TYPE_I32);

    t1 = tcg_temp_new(TCG_TYPE_I32);

    tcg_gen_shri_i32(t0, arg, 8);

    tcg_gen_andi_i32(t1, arg, 0x000000ff);

    tcg_gen_shli_i32(t1, t1, 8);

    tcg_gen_or_i32(ret, t0, t1);

#endif

}

static inline void tcg_gen_bswap_i32(TCGv ret, TCGv arg)

{

#ifdef TCG_TARGET_HAS_bswap_i32

    tcg_gen_op2(INDEX_op_bswap_i32, ret, arg);

#else

    TCGv t0, t1;

    t0 = tcg_temp_new(TCG_TYPE_I32);

    t1 = tcg_temp_new(TCG_TYPE_I32);

    tcg_gen_shli_i32(t0, arg, 24);

    tcg_gen_andi_i32(t1, arg, 0x0000ff00);

    tcg_gen_shli_i32(t1, t1, 8);

    tcg_gen_or_i32(t0, t0, t1);

    tcg_gen_shri_i32(t1, arg, 8);

    tcg_gen_andi_i32(t1, t1, 0x0000ff00);

    tcg_gen_or_i32(t0, t0, t1);

    tcg_gen_shri_i32(t1, arg, 24);

    tcg_gen_or_i32(ret, t0, t1);

#endif