s390x: wire up diag288 in tcg
[qemu.git] / tcg / tcg-runtime.c
blob3e23649dd7ee6063b4cbe4508916245d7e6bde9a
1 /*
2 * Tiny Code Generator for QEMU
4 * Copyright (c) 2008 Fabrice Bellard
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:
13 * The above copyright notice and this permission notice shall be included in
14 * all copies or substantial portions of the Software.
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.
24 #include "qemu/osdep.h"
25 #include "qemu/host-utils.h"
26 #include "cpu.h"
27 #include "exec/helper-proto.h"
28 #include "exec/cpu_ldst.h"
29 #include "exec/exec-all.h"
30 #include "exec/tb-hash.h"
31 #include "disas/disas.h"
32 #include "exec/log.h"
34 /* 32-bit helpers */
36 int32_t HELPER(div_i32)(int32_t arg1, int32_t arg2)
38 return arg1 / arg2;
41 int32_t HELPER(rem_i32)(int32_t arg1, int32_t arg2)
43 return arg1 % arg2;
46 uint32_t HELPER(divu_i32)(uint32_t arg1, uint32_t arg2)
48 return arg1 / arg2;
51 uint32_t HELPER(remu_i32)(uint32_t arg1, uint32_t arg2)
53 return arg1 % arg2;
56 /* 64-bit helpers */
58 uint64_t HELPER(shl_i64)(uint64_t arg1, uint64_t arg2)
60 return arg1 << arg2;
63 uint64_t HELPER(shr_i64)(uint64_t arg1, uint64_t arg2)
65 return arg1 >> arg2;
68 int64_t HELPER(sar_i64)(int64_t arg1, int64_t arg2)
70 return arg1 >> arg2;
73 int64_t HELPER(div_i64)(int64_t arg1, int64_t arg2)
75 return arg1 / arg2;
78 int64_t HELPER(rem_i64)(int64_t arg1, int64_t arg2)
80 return arg1 % arg2;
83 uint64_t HELPER(divu_i64)(uint64_t arg1, uint64_t arg2)
85 return arg1 / arg2;
88 uint64_t HELPER(remu_i64)(uint64_t arg1, uint64_t arg2)
90 return arg1 % arg2;
93 uint64_t HELPER(muluh_i64)(uint64_t arg1, uint64_t arg2)
95 uint64_t l, h;
96 mulu64(&l, &h, arg1, arg2);
97 return h;
100 int64_t HELPER(mulsh_i64)(int64_t arg1, int64_t arg2)
102 uint64_t l, h;
103 muls64(&l, &h, arg1, arg2);
104 return h;
107 uint32_t HELPER(clz_i32)(uint32_t arg, uint32_t zero_val)
109 return arg ? clz32(arg) : zero_val;
112 uint32_t HELPER(ctz_i32)(uint32_t arg, uint32_t zero_val)
114 return arg ? ctz32(arg) : zero_val;
117 uint64_t HELPER(clz_i64)(uint64_t arg, uint64_t zero_val)
119 return arg ? clz64(arg) : zero_val;
122 uint64_t HELPER(ctz_i64)(uint64_t arg, uint64_t zero_val)
124 return arg ? ctz64(arg) : zero_val;
127 uint32_t HELPER(clrsb_i32)(uint32_t arg)
129 return clrsb32(arg);
132 uint64_t HELPER(clrsb_i64)(uint64_t arg)
134 return clrsb64(arg);
137 uint32_t HELPER(ctpop_i32)(uint32_t arg)
139 return ctpop32(arg);
142 uint64_t HELPER(ctpop_i64)(uint64_t arg)
144 return ctpop64(arg);
147 void *HELPER(lookup_tb_ptr)(CPUArchState *env, target_ulong addr)
149 CPUState *cpu = ENV_GET_CPU(env);
150 TranslationBlock *tb;
151 target_ulong cs_base, pc;
152 uint32_t flags, addr_hash;
154 addr_hash = tb_jmp_cache_hash_func(addr);
155 tb = atomic_rcu_read(&cpu->tb_jmp_cache[addr_hash]);
156 cpu_get_tb_cpu_state(env, &pc, &cs_base, &flags);
158 if (unlikely(!(tb
159 && tb->pc == addr
160 && tb->cs_base == cs_base
161 && tb->flags == flags
162 && tb->trace_vcpu_dstate == *cpu->trace_dstate))) {
163 tb = tb_htable_lookup(cpu, addr, cs_base, flags);
164 if (!tb) {
165 return tcg_ctx.code_gen_epilogue;
167 atomic_set(&cpu->tb_jmp_cache[addr_hash], tb);
170 qemu_log_mask_and_addr(CPU_LOG_EXEC, addr,
171 "Chain %p [%d: " TARGET_FMT_lx "] %s\n",
172 tb->tc_ptr, cpu->cpu_index, addr,
173 lookup_symbol(addr));
174 return tb->tc_ptr;
177 void HELPER(exit_atomic)(CPUArchState *env)
179 cpu_loop_exit_atomic(ENV_GET_CPU(env), GETPC());
182 #ifndef CONFIG_SOFTMMU
183 /* The softmmu versions of these helpers are in cputlb.c. */
185 /* Do not allow unaligned operations to proceed. Return the host address. */
186 static void *atomic_mmu_lookup(CPUArchState *env, target_ulong addr,
187 int size, uintptr_t retaddr)
189 /* Enforce qemu required alignment. */
190 if (unlikely(addr & (size - 1))) {
191 cpu_loop_exit_atomic(ENV_GET_CPU(env), retaddr);
193 return g2h(addr);
196 /* Macro to call the above, with local variables from the use context. */
197 #define ATOMIC_MMU_LOOKUP atomic_mmu_lookup(env, addr, DATA_SIZE, GETPC())
199 #define ATOMIC_NAME(X) HELPER(glue(glue(atomic_ ## X, SUFFIX), END))
200 #define EXTRA_ARGS
202 #define DATA_SIZE 1
203 #include "atomic_template.h"
205 #define DATA_SIZE 2
206 #include "atomic_template.h"
208 #define DATA_SIZE 4
209 #include "atomic_template.h"
211 #ifdef CONFIG_ATOMIC64
212 #define DATA_SIZE 8
213 #include "atomic_template.h"
214 #endif
216 /* The following is only callable from other helpers, and matches up
217 with the softmmu version. */
219 #ifdef CONFIG_ATOMIC128
221 #undef EXTRA_ARGS
222 #undef ATOMIC_NAME
223 #undef ATOMIC_MMU_LOOKUP
225 #define EXTRA_ARGS , TCGMemOpIdx oi, uintptr_t retaddr
226 #define ATOMIC_NAME(X) \
227 HELPER(glue(glue(glue(atomic_ ## X, SUFFIX), END), _mmu))
228 #define ATOMIC_MMU_LOOKUP atomic_mmu_lookup(env, addr, DATA_SIZE, retaddr)
230 #define DATA_SIZE 16
231 #include "atomic_template.h"
232 #endif /* CONFIG_ATOMIC128 */
234 #endif /* !CONFIG_SOFTMMU */