[qemu.git] / tcg / tcg.h

/*
 * 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 "qemu-common.h"
#include "tcg-target.h"
#include "tcg-runtime.h"

#if TCG_TARGET_REG_BITS == 32
typedef int32_t tcg_target_long;
typedef uint32_t tcg_target_ulong;
#define TCG_PRIlx PRIx32
#define TCG_PRIld PRId32
#elif TCG_TARGET_REG_BITS == 64
typedef int64_t tcg_target_long;
typedef uint64_t tcg_target_ulong;
#define TCG_PRIlx PRIx64
#define TCG_PRIld PRId64
#else
#error unsupported
#endif

#if TCG_TARGET_NB_REGS <= 32
typedef uint32_t TCGRegSet;
#elif TCG_TARGET_NB_REGS <= 64
typedef uint64_t TCGRegSet;
#else
#error unsupported
#endif

typedef enum TCGOpcode {
#define DEF(name, oargs, iargs, cargs, flags) INDEX_op_ ## name,
#include "tcg-opc.h"
#undef DEF
    NB_OPS,
} TCGOpcode;

#define tcg_regset_clear(d) (d) = 0
#define tcg_regset_set(d, s) (d) = (s)
#define tcg_regset_set32(d, reg, val32) (d) |= (val32) << (reg)
#define tcg_regset_set_reg(d, r) (d) |= 1L << (r)
#define tcg_regset_reset_reg(d, r) (d) &= ~(1L << (r))
#define tcg_regset_test_reg(d, r) (((d) >> (r)) & 1)
#define tcg_regset_or(d, a, b) (d) = (a) | (b)
#define tcg_regset_and(d, a, b) (d) = (a) & (b)
#define tcg_regset_andnot(d, a, b) (d) = (a) & ~(b)
#define tcg_regset_not(d, a) (d) = ~(a)

typedef struct TCGRelocation {
    struct TCGRelocation *next;
    int type;
    uint8_t *ptr;
    tcg_target_long addend;
} TCGRelocation; 

typedef struct TCGLabel {
    int has_value;
    union {
        tcg_target_ulong value;
        TCGRelocation *first_reloc;
    } u;
} TCGLabel;

typedef struct TCGPool {
    struct TCGPool *next;
    int size;
    uint8_t data[0] __attribute__ ((aligned));
} TCGPool;

#define TCG_POOL_CHUNK_SIZE 32768

#define TCG_MAX_LABELS 512

#define TCG_MAX_TEMPS 512

/* when the size of the arguments of a called function is smaller than
   this value, they are statically allocated in the TB stack frame */
#define TCG_STATIC_CALL_ARGS_SIZE 128

typedef enum TCGType {
    TCG_TYPE_I32,
    TCG_TYPE_I64,
    TCG_TYPE_COUNT, /* number of different types */

    /* An alias for the size of the host register.  */
#if TCG_TARGET_REG_BITS == 32
    TCG_TYPE_REG = TCG_TYPE_I32,
#else
    TCG_TYPE_REG = TCG_TYPE_I64,
#endif

    /* An alias for the size of the native pointer.  We don't currently
       support any hosts with 64-bit registers and 32-bit pointers.  */
    TCG_TYPE_PTR = TCG_TYPE_REG,

    /* An alias for the size of the target "long", aka register.  */
#if TARGET_LONG_BITS == 64
    TCG_TYPE_TL = TCG_TYPE_I64,
#else
    TCG_TYPE_TL = TCG_TYPE_I32,
#endif
} TCGType;

typedef tcg_target_ulong TCGArg;

/* Define a type and accessor macros for varables.  Using a struct is
   nice because it gives some level of type safely.  Ideally the compiler
   be able to see through all this.  However in practice this is not true,
   expecially on targets with braindamaged ABIs (e.g. i386).
   We use plain int by default to avoid this runtime overhead.
   Users of tcg_gen_* don't need to know about any of this, and should
   treat TCGv as an opaque type.
   In addition we do typechecking for different types of variables.  TCGv_i32
   and TCGv_i64 are 32/64-bit variables respectively.  TCGv and TCGv_ptr
   are aliases for target_ulong and host pointer sized values respectively.
 */

#ifdef CONFIG_DEBUG_TCG
#define DEBUG_TCGV 1
#endif

#ifdef DEBUG_TCGV

typedef struct
{
    int i32;
} TCGv_i32;

typedef struct
{
    int i64;
} TCGv_i64;

typedef struct {
    int iptr;
} TCGv_ptr;

#define MAKE_TCGV_I32(i) __extension__                  \
    ({ TCGv_i32 make_tcgv_tmp = {i}; make_tcgv_tmp;})
#define MAKE_TCGV_I64(i) __extension__                  \
    ({ TCGv_i64 make_tcgv_tmp = {i}; make_tcgv_tmp;})
#define MAKE_TCGV_PTR(i) __extension__                  \
    ({ TCGv_ptr make_tcgv_tmp = {i}; make_tcgv_tmp; })
#define GET_TCGV_I32(t) ((t).i32)
#define GET_TCGV_I64(t) ((t).i64)
#define GET_TCGV_PTR(t) ((t).iptr)
#if TCG_TARGET_REG_BITS == 32
#define TCGV_LOW(t) MAKE_TCGV_I32(GET_TCGV_I64(t))
#define TCGV_HIGH(t) MAKE_TCGV_I32(GET_TCGV_I64(t) + 1)
#endif

#else /* !DEBUG_TCGV */

typedef int TCGv_i32;
typedef int TCGv_i64;
#if TCG_TARGET_REG_BITS == 32
#define TCGv_ptr TCGv_i32
#else
#define TCGv_ptr TCGv_i64
#endif
#define MAKE_TCGV_I32(x) (x)
#define MAKE_TCGV_I64(x) (x)
#define MAKE_TCGV_PTR(x) (x)
#define GET_TCGV_I32(t) (t)
#define GET_TCGV_I64(t) (t)
#define GET_TCGV_PTR(t) (t)

#if TCG_TARGET_REG_BITS == 32
#define TCGV_LOW(t) (t)
#define TCGV_HIGH(t) ((t) + 1)
#endif

#endif /* DEBUG_TCGV */

#define TCGV_EQUAL_I32(a, b) (GET_TCGV_I32(a) == GET_TCGV_I32(b))
#define TCGV_EQUAL_I64(a, b) (GET_TCGV_I64(a) == GET_TCGV_I64(b))

/* Dummy definition to avoid compiler warnings.  */
#define TCGV_UNUSED_I32(x) x = MAKE_TCGV_I32(-1)
#define TCGV_UNUSED_I64(x) x = MAKE_TCGV_I64(-1)

/* call flags */
#define TCG_CALL_TYPE_MASK      0x000f
#define TCG_CALL_TYPE_STD       0x0000 /* standard C call */
#define TCG_CALL_TYPE_REGPARM_1 0x0001 /* i386 style regparm call (1 reg) */
#define TCG_CALL_TYPE_REGPARM_2 0x0002 /* i386 style regparm call (2 regs) */
#define TCG_CALL_TYPE_REGPARM   0x0003 /* i386 style regparm call (3 regs) */
/* A pure function only reads its arguments and TCG global variables
   and cannot raise exceptions. Hence a call to a pure function can be
   safely suppressed if the return value is not used. */
#define TCG_CALL_PURE           0x0010 
/* A const function only reads its arguments and does not use TCG
   global variables. Hence a call to such a function does not
   save TCG global variables back to their canonical location. */
#define TCG_CALL_CONST          0x0020

/* used to align parameters */
#define TCG_CALL_DUMMY_TCGV     MAKE_TCGV_I32(-1)
#define TCG_CALL_DUMMY_ARG      ((TCGArg)(-1))

typedef enum {
    TCG_COND_EQ,
    TCG_COND_NE,
    TCG_COND_LT,
    TCG_COND_GE,
    TCG_COND_LE,
    TCG_COND_GT,
    /* unsigned */
    TCG_COND_LTU,
    TCG_COND_GEU,
    TCG_COND_LEU,
    TCG_COND_GTU,
} TCGCond;

/* Invert the sense of the comparison.  */
static inline TCGCond tcg_invert_cond(TCGCond c)
{
    return (TCGCond)(c ^ 1);
}

/* Swap the operands in a comparison.  */
static inline TCGCond tcg_swap_cond(TCGCond c)
{
    int mask = (c < TCG_COND_LT ? 0 : c < TCG_COND_LTU ? 7 : 15);
    return (TCGCond)(c ^ mask);
}

static inline TCGCond tcg_unsigned_cond(TCGCond c)
{
    return (c >= TCG_COND_LT && c <= TCG_COND_GT ? c + 4 : c);
}

#define TEMP_VAL_DEAD  0
#define TEMP_VAL_REG   1
#define TEMP_VAL_MEM   2
#define TEMP_VAL_CONST 3

/* XXX: optimize memory layout */
typedef struct TCGTemp {
    TCGType base_type;
    TCGType type;
    int val_type;
    int reg;
    tcg_target_long val;
    int mem_reg;
    tcg_target_long mem_offset;
    unsigned int fixed_reg:1;
    unsigned int mem_coherent:1;
    unsigned int mem_allocated:1;
    unsigned int temp_local:1; /* If true, the temp is saved across
                                  basic blocks. Otherwise, it is not
                                  preserved across basic blocks. */
    unsigned int temp_allocated:1; /* never used for code gen */
    /* index of next free temp of same base type, -1 if end */
    int next_free_temp;
    const char *name;
} TCGTemp;

typedef struct TCGHelperInfo {
    tcg_target_ulong func;
    const char *name;
} TCGHelperInfo;

typedef struct TCGContext TCGContext;

struct TCGContext {
    uint8_t *pool_cur, *pool_end;
    TCGPool *pool_first, *pool_current;
    TCGLabel *labels;
    int nb_labels;
    TCGTemp *temps; /* globals first, temps after */
    int nb_globals;
    int nb_temps;
    /* index of free temps, -1 if none */
    int first_free_temp[TCG_TYPE_COUNT * 2]; 

    /* goto_tb support */
    uint8_t *code_buf;
    unsigned long *tb_next;
    uint16_t *tb_next_offset;
    uint16_t *tb_jmp_offset; /* != NULL if USE_DIRECT_JUMP */

    /* liveness analysis */
    uint16_t *op_dead_args; /* for each operation, each bit tells if the
                               corresponding argument is dead */
    
    /* tells in which temporary a given register is. It does not take
       into account fixed registers */
    int reg_to_temp[TCG_TARGET_NB_REGS];
    TCGRegSet reserved_regs;
    tcg_target_long current_frame_offset;
    tcg_target_long frame_start;
    tcg_target_long frame_end;
    int frame_reg;

    uint8_t *code_ptr;
    TCGTemp static_temps[TCG_MAX_TEMPS];

    TCGHelperInfo *helpers;
    int nb_helpers;
    int allocated_helpers;
    int helpers_sorted;

#ifdef CONFIG_PROFILER
    /* profiling info */
    int64_t tb_count1;
    int64_t tb_count;
    int64_t op_count; /* total insn count */
    int op_count_max; /* max insn per TB */
    int64_t temp_count;
    int temp_count_max;
    int64_t del_op_count;
    int64_t code_in_len;
    int64_t code_out_len;
    int64_t interm_time;
    int64_t code_time;
    int64_t la_time;
    int64_t restore_count;
    int64_t restore_time;
#endif

#ifdef CONFIG_DEBUG_TCG
    int temps_in_use;
#endif
};

extern TCGContext tcg_ctx;
extern uint16_t *gen_opc_ptr;
extern TCGArg *gen_opparam_ptr;
extern uint16_t gen_opc_buf[];
extern TCGArg gen_opparam_buf[];

/* pool based memory allocation */

void *tcg_malloc_internal(TCGContext *s, int size);
void tcg_pool_reset(TCGContext *s);
void tcg_pool_delete(TCGContext *s);

static inline void *tcg_malloc(int size)
{
    TCGContext *s = &tcg_ctx;
    uint8_t *ptr, *ptr_end;
    size = (size + sizeof(long) - 1) & ~(sizeof(long) - 1);
    ptr = s->pool_cur;
    ptr_end = ptr + size;
    if (unlikely(ptr_end > s->pool_end)) {
        return tcg_malloc_internal(&tcg_ctx, size);
    } else {
        s->pool_cur = ptr_end;
        return ptr;
    }
}

void tcg_context_init(TCGContext *s);
void tcg_prologue_init(TCGContext *s);
void tcg_func_start(TCGContext *s);

int tcg_gen_code(TCGContext *s, uint8_t *gen_code_buf);
int tcg_gen_code_search_pc(TCGContext *s, uint8_t *gen_code_buf, long offset);

void tcg_set_frame(TCGContext *s, int reg,
                   tcg_target_long start, tcg_target_long size);

TCGv_i32 tcg_global_reg_new_i32(int reg, const char *name);
TCGv_i32 tcg_global_mem_new_i32(int reg, tcg_target_long offset,
                                const char *name);
TCGv_i32 tcg_temp_new_internal_i32(int temp_local);
static inline TCGv_i32 tcg_temp_new_i32(void)
{
    return tcg_temp_new_internal_i32(0);
}
static inline TCGv_i32 tcg_temp_local_new_i32(void)
{
    return tcg_temp_new_internal_i32(1);
}
void tcg_temp_free_i32(TCGv_i32 arg);
char *tcg_get_arg_str_i32(TCGContext *s, char *buf, int buf_size, TCGv_i32 arg);

TCGv_i64 tcg_global_reg_new_i64(int reg, const char *name);
TCGv_i64 tcg_global_mem_new_i64(int reg, tcg_target_long offset,
                                const char *name);
TCGv_i64 tcg_temp_new_internal_i64(int temp_local);
static inline TCGv_i64 tcg_temp_new_i64(void)
{
    return tcg_temp_new_internal_i64(0);
}
static inline TCGv_i64 tcg_temp_local_new_i64(void)
{
    return tcg_temp_new_internal_i64(1);
}
void tcg_temp_free_i64(TCGv_i64 arg);
char *tcg_get_arg_str_i64(TCGContext *s, char *buf, int buf_size, TCGv_i64 arg);

#if defined(CONFIG_DEBUG_TCG)
/* If you call tcg_clear_temp_count() at the start of a section of
 * code which is not supposed to leak any TCG temporaries, then
 * calling tcg_check_temp_count() at the end of the section will
 * return 1 if the section did in fact leak a temporary.
 */
void tcg_clear_temp_count(void);
int tcg_check_temp_count(void);
#else
#define tcg_clear_temp_count() do { } while (0)
#define tcg_check_temp_count() 0
#endif

void tcg_dump_info(FILE *f, fprintf_function cpu_fprintf);

#define TCG_CT_ALIAS  0x80
#define TCG_CT_IALIAS 0x40
#define TCG_CT_REG    0x01
#define TCG_CT_CONST  0x02 /* any constant of register size */

typedef struct TCGArgConstraint {
    uint16_t ct;
    uint8_t alias_index;
    union {
        TCGRegSet regs;
    } u;
} TCGArgConstraint;

#define TCG_MAX_OP_ARGS 16

#define TCG_OPF_BB_END     0x01 /* instruction defines the end of a basic
                                   block */
#define TCG_OPF_CALL_CLOBBER 0x02 /* instruction clobbers call registers 
                                   and potentially update globals. */
#define TCG_OPF_SIDE_EFFECTS 0x04 /* instruction has side effects : it
                                     cannot be removed if its output
                                     are not used */

typedef struct TCGOpDef {
    const char *name;
    uint8_t nb_oargs, nb_iargs, nb_cargs, nb_args;
    uint8_t flags;
    TCGArgConstraint *args_ct;
    int *sorted_args;
#if defined(CONFIG_DEBUG_TCG)
    int used;
#endif
} TCGOpDef;
        
typedef struct TCGTargetOpDef {
    TCGOpcode op;
    const char *args_ct_str[TCG_MAX_OP_ARGS];
} TCGTargetOpDef;

#define tcg_abort() \
do {\
    fprintf(stderr, "%s:%d: tcg fatal error\n", __FILE__, __LINE__);\
    abort();\
} while (0)

void tcg_add_target_add_op_defs(const TCGTargetOpDef *tdefs);

#if TCG_TARGET_REG_BITS == 32
#define TCGV_NAT_TO_PTR(n) MAKE_TCGV_PTR(GET_TCGV_I32(n))
#define TCGV_PTR_TO_NAT(n) MAKE_TCGV_I32(GET_TCGV_PTR(n))

#define tcg_const_ptr(V) TCGV_NAT_TO_PTR(tcg_const_i32(V))
#define tcg_global_reg_new_ptr(R, N) \
    TCGV_NAT_TO_PTR(tcg_global_reg_new_i32((R), (N)))
#define tcg_global_mem_new_ptr(R, O, N) \
    TCGV_NAT_TO_PTR(tcg_global_mem_new_i32((R), (O), (N)))
#define tcg_temp_new_ptr() TCGV_NAT_TO_PTR(tcg_temp_new_i32())
#define tcg_temp_free_ptr(T) tcg_temp_free_i32(TCGV_PTR_TO_NAT(T))
#else
#define TCGV_NAT_TO_PTR(n) MAKE_TCGV_PTR(GET_TCGV_I64(n))
#define TCGV_PTR_TO_NAT(n) MAKE_TCGV_I64(GET_TCGV_PTR(n))

#define tcg_const_ptr(V) TCGV_NAT_TO_PTR(tcg_const_i64(V))
#define tcg_global_reg_new_ptr(R, N) \
    TCGV_NAT_TO_PTR(tcg_global_reg_new_i64((R), (N)))
#define tcg_global_mem_new_ptr(R, O, N) \
    TCGV_NAT_TO_PTR(tcg_global_mem_new_i64((R), (O), (N)))
#define tcg_temp_new_ptr() TCGV_NAT_TO_PTR(tcg_temp_new_i64())
#define tcg_temp_free_ptr(T) tcg_temp_free_i64(TCGV_PTR_TO_NAT(T))
#endif

void tcg_gen_callN(TCGContext *s, TCGv_ptr func, unsigned int flags,
                   int sizemask, TCGArg ret, int nargs, TCGArg *args);

void tcg_gen_shifti_i64(TCGv_i64 ret, TCGv_i64 arg1,
                        int c, int right, int arith);

/* only used for debugging purposes */
void tcg_register_helper(void *func, const char *name);
const char *tcg_helper_get_name(TCGContext *s, void *func);
void tcg_dump_ops(TCGContext *s, FILE *outfile);

void dump_ops(const uint16_t *opc_buf, const TCGArg *opparam_buf);
TCGv_i32 tcg_const_i32(int32_t val);
TCGv_i64 tcg_const_i64(int64_t val);
TCGv_i32 tcg_const_local_i32(int32_t val);
TCGv_i64 tcg_const_local_i64(int64_t val);

extern uint8_t code_gen_prologue[];
#if defined(_ARCH_PPC) && !defined(_ARCH_PPC64)
#define tcg_qemu_tb_exec(env, tb_ptr)                                    \
    ((long REGPARM __attribute__ ((longcall)) (*)(void *, void *))code_gen_prologue)(env, tb_ptr)
#else
#define tcg_qemu_tb_exec(env, tb_ptr)                                    \
    ((long REGPARM (*)(void *, void *))code_gen_prologue)(env, tb_ptr)
#endif
Commit	Line	Data
c896fe29 FB	1	/*
	2	* Tiny Code Generator for QEMU
	3	*
	4	* Copyright (c) 2008 Fabrice Bellard
	5	*
	6	* Permission is hereby granted, free of charge, to any person obtaining a copy
	7	* of this software and associated documentation files (the "Software"), to deal
	8	* in the Software without restriction, including without limitation the rights
	9	* to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
	10	* copies of the Software, and to permit persons to whom the Software is
	11	* furnished to do so, subject to the following conditions:
	12	*
	13	* The above copyright notice and this permission notice shall be included in
	14	* all copies or substantial portions of the Software.
	15	*
	16	* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
	17	* IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
	18	* FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL
	19	* THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
	20	* LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
	21	* OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
	22	* THE SOFTWARE.
	23	*/
f8393946	24	#include "qemu-common.h"
c896fe29	25	#include "tcg-target.h"
96e132e2	26	#include "tcg-runtime.h"
c896fe29 FB	27
	28	#if TCG_TARGET_REG_BITS == 32
	29	typedef int32_t tcg_target_long;
	30	typedef uint32_t tcg_target_ulong;
	31	#define TCG_PRIlx PRIx32
	32	#define TCG_PRIld PRId32
	33	#elif TCG_TARGET_REG_BITS == 64
	34	typedef int64_t tcg_target_long;
	35	typedef uint64_t tcg_target_ulong;
	36	#define TCG_PRIlx PRIx64
	37	#define TCG_PRIld PRId64
	38	#else
	39	#error unsupported
	40	#endif
	41
	42	#if TCG_TARGET_NB_REGS <= 32
	43	typedef uint32_t TCGRegSet;
	44	#elif TCG_TARGET_NB_REGS <= 64
	45	typedef uint64_t TCGRegSet;
	46	#else
	47	#error unsupported
	48	#endif
	49
a9751609	50	typedef enum TCGOpcode {
c61aaf7a	51	#define DEF(name, oargs, iargs, cargs, flags) INDEX_op_ ## name,
c896fe29 FB	52	#include "tcg-opc.h"
	53	#undef DEF
	54	NB_OPS,
a9751609	55	} TCGOpcode;
c896fe29 FB	56
	57	#define tcg_regset_clear(d) (d) = 0
	58	#define tcg_regset_set(d, s) (d) = (s)
	59	#define tcg_regset_set32(d, reg, val32) (d) \|= (val32) << (reg)
7d301752 AJ	60	#define tcg_regset_set_reg(d, r) (d) \|= 1L << (r)
7d301752 AJ	61	#define tcg_regset_reset_reg(d, r) (d) &= ~(1L << (r))
c896fe29 FB	62	#define tcg_regset_test_reg(d, r) (((d) >> (r)) & 1)
	63	#define tcg_regset_or(d, a, b) (d) = (a) \| (b)
	64	#define tcg_regset_and(d, a, b) (d) = (a) & (b)
	65	#define tcg_regset_andnot(d, a, b) (d) = (a) & ~(b)
	66	#define tcg_regset_not(d, a) (d) = ~(a)
	67
	68	typedef struct TCGRelocation {
	69	struct TCGRelocation *next;
	70	int type;
	71	uint8_t *ptr;
	72	tcg_target_long addend;
	73	} TCGRelocation;
	74
	75	typedef struct TCGLabel {
c44f945a	76	int has_value;
c896fe29 FB	77	union {
	78	tcg_target_ulong value;
	79	TCGRelocation *first_reloc;
	80	} u;
	81	} TCGLabel;
	82
	83	typedef struct TCGPool {
	84	struct TCGPool *next;
c44f945a BS	85	int size;
c44f945a BS	86	uint8_t data[0] __attribute__ ((aligned));
c896fe29 FB	87	} TCGPool;
	88
	89	#define TCG_POOL_CHUNK_SIZE 32768
	90
	91	#define TCG_MAX_LABELS 512
	92
c4071c90	93	#define TCG_MAX_TEMPS 512
c896fe29	94
b03cce8e FB	95	/* when the size of the arguments of a called function is smaller than
	96	this value, they are statically allocated in the TB stack frame */
	97	#define TCG_STATIC_CALL_ARGS_SIZE 128
	98
c02244a5 RH	99	typedef enum TCGType {
	100	TCG_TYPE_I32,
	101	TCG_TYPE_I64,
	102	TCG_TYPE_COUNT, /* number of different types */
c896fe29	103
3b6dac34	104	/* An alias for the size of the host register. */
c896fe29	105	#if TCG_TARGET_REG_BITS == 32
3b6dac34	106	TCG_TYPE_REG = TCG_TYPE_I32,
c02244a5	107	#else
3b6dac34	108	TCG_TYPE_REG = TCG_TYPE_I64,
c02244a5	109	#endif
3b6dac34 RH	110
	111	/* An alias for the size of the native pointer. We don't currently
	112	support any hosts with 64-bit registers and 32-bit pointers. */
	113	TCG_TYPE_PTR = TCG_TYPE_REG,
	114
	115	/* An alias for the size of the target "long", aka register. */
c02244a5 RH	116	#if TARGET_LONG_BITS == 64
c02244a5 RH	117	TCG_TYPE_TL = TCG_TYPE_I64,
c896fe29	118	#else
c02244a5	119	TCG_TYPE_TL = TCG_TYPE_I32,
c896fe29	120	#endif
c02244a5	121	} TCGType;
c896fe29 FB	122
	123	typedef tcg_target_ulong TCGArg;
	124
ac56dd48 PB	125	/* Define a type and accessor macros for varables. Using a struct is
	126	nice because it gives some level of type safely. Ideally the compiler
	127	be able to see through all this. However in practice this is not true,
	128	expecially on targets with braindamaged ABIs (e.g. i386).
	129	We use plain int by default to avoid this runtime overhead.
	130	Users of tcg_gen_* don't need to know about any of this, and should
a7812ae4	131	treat TCGv as an opaque type.
06ea77bc	132	In addition we do typechecking for different types of variables. TCGv_i32
a7812ae4 PB	133	and TCGv_i64 are 32/64-bit variables respectively. TCGv and TCGv_ptr
	134	are aliases for target_ulong and host pointer sized values respectively.
	135	*/
ac56dd48	136
092c73ee	137	#ifdef CONFIG_DEBUG_TCG
f8393946 AJ	138	#define DEBUG_TCGV 1
f8393946 AJ	139	#endif
ac56dd48 PB	140
	141	#ifdef DEBUG_TCGV
	142
	143	typedef struct
	144	{
a810a2de	145	int i32;
a7812ae4	146	} TCGv_i32;
ac56dd48	147
a7812ae4 PB	148	typedef struct
a7812ae4 PB	149	{
a810a2de	150	int i64;
a7812ae4 PB	151	} TCGv_i64;
a7812ae4 PB	152
ebecf363 PM	153	typedef struct {
	154	int iptr;
	155	} TCGv_ptr;
	156
a7812ae4 PB	157	#define MAKE_TCGV_I32(i) __extension__ \
	158	({ TCGv_i32 make_tcgv_tmp = {i}; make_tcgv_tmp;})
	159	#define MAKE_TCGV_I64(i) __extension__ \
	160	({ TCGv_i64 make_tcgv_tmp = {i}; make_tcgv_tmp;})
ebecf363 PM	161	#define MAKE_TCGV_PTR(i) __extension__ \
ebecf363 PM	162	({ TCGv_ptr make_tcgv_tmp = {i}; make_tcgv_tmp; })
a810a2de BS	163	#define GET_TCGV_I32(t) ((t).i32)
a810a2de BS	164	#define GET_TCGV_I64(t) ((t).i64)
ebecf363	165	#define GET_TCGV_PTR(t) ((t).iptr)
ac56dd48	166	#if TCG_TARGET_REG_BITS == 32
a7812ae4 PB	167	#define TCGV_LOW(t) MAKE_TCGV_I32(GET_TCGV_I64(t))
a7812ae4 PB	168	#define TCGV_HIGH(t) MAKE_TCGV_I32(GET_TCGV_I64(t) + 1)
ac56dd48 PB	169	#endif
	170
	171	#else /* !DEBUG_TCGV */
	172
a7812ae4 PB	173	typedef int TCGv_i32;
a7812ae4 PB	174	typedef int TCGv_i64;
ebecf363 PM	175	#if TCG_TARGET_REG_BITS == 32
	176	#define TCGv_ptr TCGv_i32
	177	#else
	178	#define TCGv_ptr TCGv_i64
	179	#endif
a7812ae4 PB	180	#define MAKE_TCGV_I32(x) (x)
a7812ae4 PB	181	#define MAKE_TCGV_I64(x) (x)
ebecf363	182	#define MAKE_TCGV_PTR(x) (x)
a7812ae4 PB	183	#define GET_TCGV_I32(t) (t)
a7812ae4 PB	184	#define GET_TCGV_I64(t) (t)
ebecf363	185	#define GET_TCGV_PTR(t) (t)
44e6acb0	186
ac56dd48	187	#if TCG_TARGET_REG_BITS == 32
a7812ae4	188	#define TCGV_LOW(t) (t)
ac56dd48 PB	189	#define TCGV_HIGH(t) ((t) + 1)
	190	#endif
	191
	192	#endif /* DEBUG_TCGV */
	193
43e860ef AJ	194	#define TCGV_EQUAL_I32(a, b) (GET_TCGV_I32(a) == GET_TCGV_I32(b))
	195	#define TCGV_EQUAL_I64(a, b) (GET_TCGV_I64(a) == GET_TCGV_I64(b))
	196
a50f5b91	197	/* Dummy definition to avoid compiler warnings. */
a7812ae4 PB	198	#define TCGV_UNUSED_I32(x) x = MAKE_TCGV_I32(-1)
a7812ae4 PB	199	#define TCGV_UNUSED_I64(x) x = MAKE_TCGV_I64(-1)
a50f5b91	200
c896fe29 FB	201	/* call flags */
	202	#define TCG_CALL_TYPE_MASK 0x000f
	203	#define TCG_CALL_TYPE_STD 0x0000 /* standard C call */
	204	#define TCG_CALL_TYPE_REGPARM_1 0x0001 /* i386 style regparm call (1 reg) */
	205	#define TCG_CALL_TYPE_REGPARM_2 0x0002 /* i386 style regparm call (2 regs) */
	206	#define TCG_CALL_TYPE_REGPARM 0x0003 /* i386 style regparm call (3 regs) */
3e00b3f5	207	/* A pure function only reads its arguments and TCG global variables
34d5a9ff	208	and cannot raise exceptions. Hence a call to a pure function can be
c6e113f5 FB	209	safely suppressed if the return value is not used. */
c6e113f5 FB	210	#define TCG_CALL_PURE 0x0010
b9c18f56	211	/* A const function only reads its arguments and does not use TCG
3e00b3f5 AJ	212	global variables. Hence a call to such a function does not
3e00b3f5 AJ	213	save TCG global variables back to their canonical location. */
b9c18f56	214	#define TCG_CALL_CONST 0x0020
c896fe29	215
39cf05d3	216	/* used to align parameters */
a7812ae4	217	#define TCG_CALL_DUMMY_TCGV MAKE_TCGV_I32(-1)
39cf05d3 FB	218	#define TCG_CALL_DUMMY_ARG ((TCGArg)(-1))
39cf05d3 FB	219
c896fe29 FB	220	typedef enum {
	221	TCG_COND_EQ,
	222	TCG_COND_NE,
	223	TCG_COND_LT,
	224	TCG_COND_GE,
	225	TCG_COND_LE,
	226	TCG_COND_GT,
	227	/* unsigned */
	228	TCG_COND_LTU,
	229	TCG_COND_GEU,
	230	TCG_COND_LEU,
	231	TCG_COND_GTU,
	232	} TCGCond;
	233
1c086220	234	/* Invert the sense of the comparison. */
401d466d RH	235	static inline TCGCond tcg_invert_cond(TCGCond c)
	236	{
	237	return (TCGCond)(c ^ 1);
	238	}
	239
1c086220 RH	240	/* Swap the operands in a comparison. */
	241	static inline TCGCond tcg_swap_cond(TCGCond c)
	242	{
	243	int mask = (c < TCG_COND_LT ? 0 : c < TCG_COND_LTU ? 7 : 15);
	244	return (TCGCond)(c ^ mask);
	245	}
	246
ff44c2f3 RH	247	static inline TCGCond tcg_unsigned_cond(TCGCond c)
	248	{
	249	return (c >= TCG_COND_LT && c <= TCG_COND_GT ? c + 4 : c);
	250	}
	251
c896fe29 FB	252	#define TEMP_VAL_DEAD 0
	253	#define TEMP_VAL_REG 1
	254	#define TEMP_VAL_MEM 2
	255	#define TEMP_VAL_CONST 3
	256
	257	/* XXX: optimize memory layout */
	258	typedef struct TCGTemp {
	259	TCGType base_type;
	260	TCGType type;
	261	int val_type;
	262	int reg;
	263	tcg_target_long val;
	264	int mem_reg;
	265	tcg_target_long mem_offset;
	266	unsigned int fixed_reg:1;
	267	unsigned int mem_coherent:1;
	268	unsigned int mem_allocated:1;
5225d669	269	unsigned int temp_local:1; /* If true, the temp is saved across
641d5fbe	270	basic blocks. Otherwise, it is not
5225d669	271	preserved across basic blocks. */
e8996ee0 FB	272	unsigned int temp_allocated:1; /* never used for code gen */
	273	/* index of next free temp of same base type, -1 if end */
	274	int next_free_temp;
c896fe29 FB	275	const char *name;
	276	} TCGTemp;
	277
	278	typedef struct TCGHelperInfo {
4dc81f28	279	tcg_target_ulong func;
c896fe29 FB	280	const char *name;
	281	} TCGHelperInfo;
	282
	283	typedef struct TCGContext TCGContext;
	284
c896fe29 FB	285	struct TCGContext {
	286	uint8_t pool_cur, pool_end;
	287	TCGPool pool_first, pool_current;
	288	TCGLabel *labels;
	289	int nb_labels;
	290	TCGTemp temps; / globals first, temps after */
	291	int nb_globals;
	292	int nb_temps;
641d5fbe FB	293	/* index of free temps, -1 if none */
641d5fbe FB	294	int first_free_temp[TCG_TYPE_COUNT * 2];
c896fe29 FB	295
	296	/* goto_tb support */
	297	uint8_t *code_buf;
	298	unsigned long *tb_next;
	299	uint16_t *tb_next_offset;
	300	uint16_t tb_jmp_offset; / != NULL if USE_DIRECT_JUMP */
	301
641d5fbe	302	/* liveness analysis */
866cb6cb AJ	303	uint16_t op_dead_args; / for each operation, each bit tells if the
866cb6cb AJ	304	corresponding argument is dead */
641d5fbe	305
c896fe29 FB	306	/* tells in which temporary a given register is. It does not take
	307	into account fixed registers */
	308	int reg_to_temp[TCG_TARGET_NB_REGS];
	309	TCGRegSet reserved_regs;
	310	tcg_target_long current_frame_offset;
	311	tcg_target_long frame_start;
	312	tcg_target_long frame_end;
	313	int frame_reg;
	314
	315	uint8_t *code_ptr;
	316	TCGTemp static_temps[TCG_MAX_TEMPS];
	317
c896fe29 FB	318	TCGHelperInfo *helpers;
	319	int nb_helpers;
	320	int allocated_helpers;
e8996ee0	321	int helpers_sorted;
a23a9ec6 FB	322
	323	#ifdef CONFIG_PROFILER
	324	/* profiling info */
	325	int64_t tb_count1;
	326	int64_t tb_count;
	327	int64_t op_count; /* total insn count */
	328	int op_count_max; /* max insn per TB */
	329	int64_t temp_count;
	330	int temp_count_max;
a23a9ec6 FB	331	int64_t del_op_count;
	332	int64_t code_in_len;
	333	int64_t code_out_len;
	334	int64_t interm_time;
	335	int64_t code_time;
	336	int64_t la_time;
	337	int64_t restore_count;
	338	int64_t restore_time;
	339	#endif
27bfd83c PM	340
	341	#ifdef CONFIG_DEBUG_TCG
	342	int temps_in_use;
	343	#endif
c896fe29 FB	344	};
	345
	346	extern TCGContext tcg_ctx;
	347	extern uint16_t *gen_opc_ptr;
	348	extern TCGArg *gen_opparam_ptr;
	349	extern uint16_t gen_opc_buf[];
	350	extern TCGArg gen_opparam_buf[];
	351
	352	/* pool based memory allocation */
	353
	354	void tcg_malloc_internal(TCGContext s, int size);
	355	void tcg_pool_reset(TCGContext *s);
	356	void tcg_pool_delete(TCGContext *s);
	357
	358	static inline void *tcg_malloc(int size)
	359	{
	360	TCGContext *s = &tcg_ctx;
	361	uint8_t ptr, ptr_end;
	362	size = (size + sizeof(long) - 1) & ~(sizeof(long) - 1);
	363	ptr = s->pool_cur;
	364	ptr_end = ptr + size;
	365	if (unlikely(ptr_end > s->pool_end)) {
	366	return tcg_malloc_internal(&tcg_ctx, size);
	367	} else {
	368	s->pool_cur = ptr_end;
	369	return ptr;
	370	}
	371	}
	372
	373	void tcg_context_init(TCGContext *s);
9002ec79	374	void tcg_prologue_init(TCGContext *s);
c896fe29 FB	375	void tcg_func_start(TCGContext *s);
c896fe29 FB	376
54604f74 AJ	377	int tcg_gen_code(TCGContext s, uint8_t gen_code_buf);
54604f74 AJ	378	int tcg_gen_code_search_pc(TCGContext s, uint8_t gen_code_buf, long offset);
c896fe29 FB	379
	380	void tcg_set_frame(TCGContext *s, int reg,
	381	tcg_target_long start, tcg_target_long size);
a7812ae4 PB	382
	383	TCGv_i32 tcg_global_reg_new_i32(int reg, const char *name);
	384	TCGv_i32 tcg_global_mem_new_i32(int reg, tcg_target_long offset,
	385	const char *name);
	386	TCGv_i32 tcg_temp_new_internal_i32(int temp_local);
	387	static inline TCGv_i32 tcg_temp_new_i32(void)
	388	{
	389	return tcg_temp_new_internal_i32(0);
	390	}
	391	static inline TCGv_i32 tcg_temp_local_new_i32(void)
	392	{
	393	return tcg_temp_new_internal_i32(1);
	394	}
	395	void tcg_temp_free_i32(TCGv_i32 arg);
	396	char tcg_get_arg_str_i32(TCGContext s, char *buf, int buf_size, TCGv_i32 arg);
	397
	398	TCGv_i64 tcg_global_reg_new_i64(int reg, const char *name);
	399	TCGv_i64 tcg_global_mem_new_i64(int reg, tcg_target_long offset,
	400	const char *name);
	401	TCGv_i64 tcg_temp_new_internal_i64(int temp_local);
	402	static inline TCGv_i64 tcg_temp_new_i64(void)
641d5fbe	403	{
a7812ae4	404	return tcg_temp_new_internal_i64(0);
641d5fbe	405	}
a7812ae4	406	static inline TCGv_i64 tcg_temp_local_new_i64(void)
641d5fbe	407	{
a7812ae4	408	return tcg_temp_new_internal_i64(1);
641d5fbe	409	}
a7812ae4 PB	410	void tcg_temp_free_i64(TCGv_i64 arg);
	411	char tcg_get_arg_str_i64(TCGContext s, char *buf, int buf_size, TCGv_i64 arg);
	412
27bfd83c PM	413	#if defined(CONFIG_DEBUG_TCG)
	414	/* If you call tcg_clear_temp_count() at the start of a section of
	415	* code which is not supposed to leak any TCG temporaries, then
	416	* calling tcg_check_temp_count() at the end of the section will
	417	* return 1 if the section did in fact leak a temporary.
	418	*/
	419	void tcg_clear_temp_count(void);
	420	int tcg_check_temp_count(void);
	421	#else
	422	#define tcg_clear_temp_count() do { } while (0)
	423	#define tcg_check_temp_count() 0
	424	#endif
	425
405cf9ff	426	void tcg_dump_info(FILE *f, fprintf_function cpu_fprintf);
c896fe29 FB	427
	428	#define TCG_CT_ALIAS 0x80
	429	#define TCG_CT_IALIAS 0x40
	430	#define TCG_CT_REG 0x01
	431	#define TCG_CT_CONST 0x02 /* any constant of register size */
	432
	433	typedef struct TCGArgConstraint {
5ff9d6a4 FB	434	uint16_t ct;
5ff9d6a4 FB	435	uint8_t alias_index;
c896fe29 FB	436	union {
	437	TCGRegSet regs;
	438	} u;
	439	} TCGArgConstraint;
	440
	441	#define TCG_MAX_OP_ARGS 16
	442
	443	#define TCG_OPF_BB_END 0x01 /* instruction defines the end of a basic
	444	block */
b03cce8e FB	445	#define TCG_OPF_CALL_CLOBBER 0x02 /* instruction clobbers call registers
	446	and potentially update globals. */
	447	#define TCG_OPF_SIDE_EFFECTS 0x04 /* instruction has side effects : it
	448	cannot be removed if its output
	449	are not used */
c896fe29 FB	450
	451	typedef struct TCGOpDef {
	452	const char *name;
	453	uint8_t nb_oargs, nb_iargs, nb_cargs, nb_args;
	454	uint8_t flags;
c896fe29 FB	455	TCGArgConstraint *args_ct;
c896fe29 FB	456	int *sorted_args;
c68aaa18 SW	457	#if defined(CONFIG_DEBUG_TCG)
	458	int used;
	459	#endif
c896fe29 FB	460	} TCGOpDef;
	461
	462	typedef struct TCGTargetOpDef {
a9751609	463	TCGOpcode op;
c896fe29 FB	464	const char *args_ct_str[TCG_MAX_OP_ARGS];
	465	} TCGTargetOpDef;
	466
c896fe29 FB	467	#define tcg_abort() \
	468	do {\
	469	fprintf(stderr, "%s:%d: tcg fatal error\n", __FILE__, __LINE__);\
	470	abort();\
	471	} while (0)
	472
	473	void tcg_add_target_add_op_defs(const TCGTargetOpDef *tdefs);
	474
c896fe29	475	#if TCG_TARGET_REG_BITS == 32
ebecf363 PM	476	#define TCGV_NAT_TO_PTR(n) MAKE_TCGV_PTR(GET_TCGV_I32(n))
	477	#define TCGV_PTR_TO_NAT(n) MAKE_TCGV_I32(GET_TCGV_PTR(n))
	478
	479	#define tcg_const_ptr(V) TCGV_NAT_TO_PTR(tcg_const_i32(V))
	480	#define tcg_global_reg_new_ptr(R, N) \
	481	TCGV_NAT_TO_PTR(tcg_global_reg_new_i32((R), (N)))
	482	#define tcg_global_mem_new_ptr(R, O, N) \
	483	TCGV_NAT_TO_PTR(tcg_global_mem_new_i32((R), (O), (N)))
	484	#define tcg_temp_new_ptr() TCGV_NAT_TO_PTR(tcg_temp_new_i32())
	485	#define tcg_temp_free_ptr(T) tcg_temp_free_i32(TCGV_PTR_TO_NAT(T))
c896fe29	486	#else
ebecf363 PM	487	#define TCGV_NAT_TO_PTR(n) MAKE_TCGV_PTR(GET_TCGV_I64(n))
	488	#define TCGV_PTR_TO_NAT(n) MAKE_TCGV_I64(GET_TCGV_PTR(n))
	489
	490	#define tcg_const_ptr(V) TCGV_NAT_TO_PTR(tcg_const_i64(V))
	491	#define tcg_global_reg_new_ptr(R, N) \
	492	TCGV_NAT_TO_PTR(tcg_global_reg_new_i64((R), (N)))
	493	#define tcg_global_mem_new_ptr(R, O, N) \
	494	TCGV_NAT_TO_PTR(tcg_global_mem_new_i64((R), (O), (N)))
	495	#define tcg_temp_new_ptr() TCGV_NAT_TO_PTR(tcg_temp_new_i64())
	496	#define tcg_temp_free_ptr(T) tcg_temp_free_i64(TCGV_PTR_TO_NAT(T))
c896fe29 FB	497	#endif
c896fe29 FB	498
a7812ae4 PB	499	void tcg_gen_callN(TCGContext *s, TCGv_ptr func, unsigned int flags,
	500	int sizemask, TCGArg ret, int nargs, TCGArg *args);
	501
	502	void tcg_gen_shifti_i64(TCGv_i64 ret, TCGv_i64 arg1,
	503	int c, int right, int arith);
	504
	505	/* only used for debugging purposes */
	506	void tcg_register_helper(void func, const char name);
	507	const char tcg_helper_get_name(TCGContext s, void *func);
	508	void tcg_dump_ops(TCGContext s, FILE outfile);
	509
	510	void dump_ops(const uint16_t opc_buf, const TCGArg opparam_buf);
	511	TCGv_i32 tcg_const_i32(int32_t val);
	512	TCGv_i64 tcg_const_i64(int64_t val);
	513	TCGv_i32 tcg_const_local_i32(int32_t val);
	514	TCGv_i64 tcg_const_local_i64(int64_t val);
	515
b03cce8e	516	extern uint8_t code_gen_prologue[];
e58ffeb3	517	#if defined(_ARCH_PPC) && !defined(_ARCH_PPC64)
cea5f9a2 BS	518	#define tcg_qemu_tb_exec(env, tb_ptr) \
cea5f9a2 BS	519	((long REGPARM __attribute__ ((longcall)) ()(void , void *))code_gen_prologue)(env, tb_ptr)
932a6909	520	#else
cea5f9a2 BS	521	#define tcg_qemu_tb_exec(env, tb_ptr) \
cea5f9a2 BS	522	((long REGPARM ()(void , void *))code_gen_prologue)(env, tb_ptr)
932a6909	523	#endif