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 int code_copy_enabled
= 1;
53 #ifdef CONFIG_PROFILER
54 int64_t dyngen_tb_count1
;
55 int64_t dyngen_tb_count
;
56 int64_t dyngen_op_count
;
57 int64_t dyngen_old_op_count
;
58 int64_t dyngen_tcg_del_op_count
;
59 int dyngen_op_count_max
;
60 int64_t dyngen_code_in_len
;
61 int64_t dyngen_code_out_len
;
62 int64_t dyngen_interm_time
;
63 int64_t dyngen_code_time
;
64 int64_t dyngen_restore_count
;
65 int64_t dyngen_restore_time
;
68 /* XXX: suppress that */
69 unsigned long code_gen_max_block_size(void)
71 static unsigned long max
;
74 max
= TCG_MAX_OP_SIZE
;
75 #define DEF(s, n, copy_size) max = copy_size > max? copy_size : max;
84 void cpu_gen_init(void)
86 tcg_context_init(&tcg_ctx
);
87 tcg_set_frame(&tcg_ctx
, TCG_AREG0
, offsetof(CPUState
, temp_buf
),
88 CPU_TEMP_BUF_NLONGS
* sizeof(long));
91 /* return non zero if the very first instruction is invalid so that
92 the virtual CPU can trigger an exception.
94 '*gen_code_size_ptr' contains the size of the generated code (host
97 int cpu_gen_code(CPUState
*env
, TranslationBlock
*tb
, int *gen_code_size_ptr
)
99 TCGContext
*s
= &tcg_ctx
;
100 uint8_t *gen_code_buf
;
102 #ifdef CONFIG_PROFILER
106 #ifdef CONFIG_PROFILER
107 dyngen_tb_count1
++; /* includes aborted translations because of
109 ti
= profile_getclock();
113 if (gen_intermediate_code(env
, tb
) < 0)
116 /* generate machine code */
117 gen_code_buf
= tb
->tc_ptr
;
118 tb
->tb_next_offset
[0] = 0xffff;
119 tb
->tb_next_offset
[1] = 0xffff;
120 s
->tb_next_offset
= tb
->tb_next_offset
;
121 #ifdef USE_DIRECT_JUMP
122 s
->tb_jmp_offset
= tb
->tb_jmp_offset
;
124 /* the following two entries are optional (only used for string ops) */
125 /* XXX: not used ? */
126 tb
->tb_jmp_offset
[2] = 0xffff;
127 tb
->tb_jmp_offset
[3] = 0xffff;
129 s
->tb_jmp_offset
= NULL
;
130 s
->tb_next
= tb
->tb_next
;
133 #ifdef CONFIG_PROFILER
135 dyngen_interm_time
+= profile_getclock() - ti
;
136 dyngen_code_time
-= profile_getclock();
138 gen_code_size
= dyngen_code(s
, gen_code_buf
);
139 *gen_code_size_ptr
= gen_code_size
;
140 #ifdef CONFIG_PROFILER
141 dyngen_code_time
+= profile_getclock();
142 dyngen_code_in_len
+= tb
->size
;
143 dyngen_code_out_len
+= gen_code_size
;
147 if (loglevel
& CPU_LOG_TB_OUT_ASM
) {
148 fprintf(logfile
, "OUT: [size=%d]\n", *gen_code_size_ptr
);
149 disas(logfile
, tb
->tc_ptr
, *gen_code_size_ptr
);
150 fprintf(logfile
, "\n");
157 /* The cpu state corresponding to 'searched_pc' is restored.
159 int cpu_restore_state(TranslationBlock
*tb
,
160 CPUState
*env
, unsigned long searched_pc
,
163 TCGContext
*s
= &tcg_ctx
;
165 unsigned long tc_ptr
;
166 #ifdef CONFIG_PROFILER
170 #ifdef CONFIG_PROFILER
171 ti
= profile_getclock();
175 if (gen_intermediate_code_pc(env
, tb
) < 0)
178 /* find opc index corresponding to search_pc */
179 tc_ptr
= (unsigned long)tb
->tc_ptr
;
180 if (searched_pc
< tc_ptr
)
183 s
->tb_next_offset
= tb
->tb_next_offset
;
184 #ifdef USE_DIRECT_JUMP
185 s
->tb_jmp_offset
= tb
->tb_jmp_offset
;
188 s
->tb_jmp_offset
= NULL
;
189 s
->tb_next
= tb
->tb_next
;
191 j
= dyngen_code_search_pc(s
, (uint8_t *)tc_ptr
, searched_pc
- tc_ptr
);
194 /* now find start of instruction before */
195 while (gen_opc_instr_start
[j
] == 0)
197 #if defined(TARGET_I386)
201 if (loglevel
& CPU_LOG_TB_OP
) {
203 fprintf(logfile
, "RESTORE:\n");
205 if (gen_opc_instr_start
[i
]) {
206 fprintf(logfile
, "0x%04x: " TARGET_FMT_lx
"\n", i
, gen_opc_pc
[i
]);
209 fprintf(logfile
, "spc=0x%08lx j=0x%x eip=" TARGET_FMT_lx
" cs_base=%x\n",
210 searched_pc
, j
, gen_opc_pc
[j
] - tb
->cs_base
,
211 (uint32_t)tb
->cs_base
);
214 env
->eip
= gen_opc_pc
[j
] - tb
->cs_base
;
215 cc_op
= gen_opc_cc_op
[j
];
216 if (cc_op
!= CC_OP_DYNAMIC
)
219 #elif defined(TARGET_ARM)
220 env
->regs
[15] = gen_opc_pc
[j
];
221 #elif defined(TARGET_SPARC)
224 env
->pc
= gen_opc_pc
[j
];
225 npc
= gen_opc_npc
[j
];
227 /* dynamic NPC: already stored */
228 } else if (npc
== 2) {
229 target_ulong t2
= (target_ulong
)(unsigned long)puc
;
230 /* jump PC: use T2 and the jump targets of the translation */
232 env
->npc
= gen_opc_jump_pc
[0];
234 env
->npc
= gen_opc_jump_pc
[1];
239 #elif defined(TARGET_PPC)
242 /* for PPC, we need to look at the micro operation to get the
244 env
->nip
= gen_opc_pc
[j
];
247 #if defined(CONFIG_USER_ONLY)
249 case INDEX_op_ ## op ## _raw
252 case INDEX_op_ ## op ## _user:\
253 case INDEX_op_ ## op ## _kernel:\
254 case INDEX_op_ ## op ## _hypv
277 env
->access_type
= type
;
279 #elif defined(TARGET_M68K)
280 env
->pc
= gen_opc_pc
[j
];
281 #elif defined(TARGET_MIPS)
282 env
->PC
[env
->current_tc
] = gen_opc_pc
[j
];
283 env
->hflags
&= ~MIPS_HFLAG_BMASK
;
284 env
->hflags
|= gen_opc_hflags
[j
];
285 #elif defined(TARGET_ALPHA)
286 env
->pc
= gen_opc_pc
[j
];
287 #elif defined(TARGET_SH4)
288 env
->pc
= gen_opc_pc
[j
];
289 env
->flags
= gen_opc_hflags
[j
];
290 #elif defined(TARGET_CRIS)
291 env
->pregs
[PR_ERP
] = gen_opc_pc
[j
];
294 #ifdef CONFIG_PROFILER
295 dyngen_restore_time
+= profile_getclock() - ti
;
296 dyngen_restore_count
++;