4 * Copyright (c) 2003 Fabrice Bellard
6 * This library is free software; you can redistribute it and/or
7 * modify it under the terms of the GNU Lesser General Public
8 * License as published by the Free Software Foundation; either
9 * version 2 of the License, or (at your option) any later version.
11 * This library is distributed in the hope that it will be useful,
12 * but WITHOUT ANY WARRANTY; without even the implied warranty of
13 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
14 * Lesser General Public License for more details.
16 * You should have received a copy of the GNU Lesser General Public
17 * License along with this library; if not, write to the Free Software
18 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
28 #define NO_CPU_IO_DEFS
34 /* code generation context */
37 uint16_t gen_opc_buf
[OPC_BUF_SIZE
];
38 TCGArg gen_opparam_buf
[OPPARAM_BUF_SIZE
];
40 target_ulong gen_opc_pc
[OPC_BUF_SIZE
];
41 uint8_t gen_opc_instr_start
[OPC_BUF_SIZE
];
42 #if defined(TARGET_I386)
43 uint8_t gen_opc_cc_op
[OPC_BUF_SIZE
];
44 #elif defined(TARGET_SPARC)
45 target_ulong gen_opc_npc
[OPC_BUF_SIZE
];
46 target_ulong gen_opc_jump_pc
[2];
47 #elif defined(TARGET_MIPS) || defined(TARGET_SH4)
48 uint32_t gen_opc_hflags
[OPC_BUF_SIZE
];
51 #ifdef CONFIG_PROFILER
52 int64_t dyngen_tb_count1
;
53 int64_t dyngen_tb_count
;
54 int64_t dyngen_op_count
;
55 int64_t dyngen_old_op_count
;
56 int64_t dyngen_tcg_del_op_count
;
57 int dyngen_op_count_max
;
58 int64_t dyngen_code_in_len
;
59 int64_t dyngen_code_out_len
;
60 int64_t dyngen_interm_time
;
61 int64_t dyngen_code_time
;
62 int64_t dyngen_restore_count
;
63 int64_t dyngen_restore_time
;
66 /* XXX: suppress that */
67 unsigned long code_gen_max_block_size(void)
69 static unsigned long max
;
72 max
= TCG_MAX_OP_SIZE
;
73 #define DEF(s, n, copy_size) max = copy_size > max? copy_size : max;
82 void cpu_gen_init(void)
84 tcg_context_init(&tcg_ctx
);
85 tcg_set_frame(&tcg_ctx
, TCG_AREG0
, offsetof(CPUState
, temp_buf
),
86 CPU_TEMP_BUF_NLONGS
* sizeof(long));
89 /* return non zero if the very first instruction is invalid so that
90 the virtual CPU can trigger an exception.
92 '*gen_code_size_ptr' contains the size of the generated code (host
95 int cpu_gen_code(CPUState
*env
, TranslationBlock
*tb
, int *gen_code_size_ptr
)
97 TCGContext
*s
= &tcg_ctx
;
98 uint8_t *gen_code_buf
;
100 #ifdef CONFIG_PROFILER
104 #ifdef CONFIG_PROFILER
105 dyngen_tb_count1
++; /* includes aborted translations because of
107 ti
= profile_getclock();
111 if (gen_intermediate_code(env
, tb
) < 0)
114 /* generate machine code */
115 gen_code_buf
= tb
->tc_ptr
;
116 tb
->tb_next_offset
[0] = 0xffff;
117 tb
->tb_next_offset
[1] = 0xffff;
118 s
->tb_next_offset
= tb
->tb_next_offset
;
119 #ifdef USE_DIRECT_JUMP
120 s
->tb_jmp_offset
= tb
->tb_jmp_offset
;
122 /* the following two entries are optional (only used for string ops) */
123 /* XXX: not used ? */
124 tb
->tb_jmp_offset
[2] = 0xffff;
125 tb
->tb_jmp_offset
[3] = 0xffff;
127 s
->tb_jmp_offset
= NULL
;
128 s
->tb_next
= tb
->tb_next
;
131 #ifdef CONFIG_PROFILER
133 dyngen_interm_time
+= profile_getclock() - ti
;
134 dyngen_code_time
-= profile_getclock();
136 gen_code_size
= dyngen_code(s
, gen_code_buf
);
137 *gen_code_size_ptr
= gen_code_size
;
138 #ifdef CONFIG_PROFILER
139 dyngen_code_time
+= profile_getclock();
140 dyngen_code_in_len
+= tb
->size
;
141 dyngen_code_out_len
+= gen_code_size
;
145 if (loglevel
& CPU_LOG_TB_OUT_ASM
) {
146 fprintf(logfile
, "OUT: [size=%d]\n", *gen_code_size_ptr
);
147 disas(logfile
, tb
->tc_ptr
, *gen_code_size_ptr
);
148 fprintf(logfile
, "\n");
155 /* The cpu state corresponding to 'searched_pc' is restored.
157 int cpu_restore_state(TranslationBlock
*tb
,
158 CPUState
*env
, unsigned long searched_pc
,
161 TCGContext
*s
= &tcg_ctx
;
163 unsigned long tc_ptr
;
164 #ifdef CONFIG_PROFILER
168 #ifdef CONFIG_PROFILER
169 ti
= profile_getclock();
173 if (gen_intermediate_code_pc(env
, tb
) < 0)
176 /* find opc index corresponding to search_pc */
177 tc_ptr
= (unsigned long)tb
->tc_ptr
;
178 if (searched_pc
< tc_ptr
)
181 s
->tb_next_offset
= tb
->tb_next_offset
;
182 #ifdef USE_DIRECT_JUMP
183 s
->tb_jmp_offset
= tb
->tb_jmp_offset
;
186 s
->tb_jmp_offset
= NULL
;
187 s
->tb_next
= tb
->tb_next
;
189 j
= dyngen_code_search_pc(s
, (uint8_t *)tc_ptr
, searched_pc
- tc_ptr
);
192 /* now find start of instruction before */
193 while (gen_opc_instr_start
[j
] == 0)
196 gen_pc_load(env
, tb
, searched_pc
, j
, puc
);
198 #ifdef CONFIG_PROFILER
199 dyngen_restore_time
+= profile_getclock() - ti
;
200 dyngen_restore_count
++;