1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20#include "qemu/osdep.h"
21#include "cpu.h"
22#include "exec/exec-all.h"
23#include "qemu/host-utils.h"
24#include "exec/helper-proto.h"
25#include "sysemu/sysemu.h"
26
27void helper_raise_exception(CPUSPARCState *env, int tt)
28{
29 CPUState *cs = CPU(sparc_env_get_cpu(env));
30
31 cs->exception_index = tt;
32 cpu_loop_exit(cs);
33}
34
35void helper_debug(CPUSPARCState *env)
36{
37 CPUState *cs = CPU(sparc_env_get_cpu(env));
38
39 cs->exception_index = EXCP_DEBUG;
40 cpu_loop_exit(cs);
41}
42
43#ifdef TARGET_SPARC64
44target_ulong helper_popc(target_ulong val)
45{
46 return ctpop64(val);
47}
48
49void helper_tick_set_count(void *opaque, uint64_t count)
50{
51#if !defined(CONFIG_USER_ONLY)
52 cpu_tick_set_count(opaque, count);
53#endif
54}
55
56uint64_t helper_tick_get_count(CPUSPARCState *env, void *opaque, int mem_idx)
57{
58#if !defined(CONFIG_USER_ONLY)
59 CPUTimer *timer = opaque;
60
61 if (timer->npt && mem_idx < MMU_KERNEL_IDX) {
62 helper_raise_exception(env, TT_PRIV_INSN);
63 }
64
65 return cpu_tick_get_count(timer);
66#else
67 return 0;
68#endif
69}
70
71void helper_tick_set_limit(void *opaque, uint64_t limit)
72{
73#if !defined(CONFIG_USER_ONLY)
74 cpu_tick_set_limit(opaque, limit);
75#endif
76}
77#endif
78
79static target_ulong helper_udiv_common(CPUSPARCState *env, target_ulong a,
80 target_ulong b, int cc)
81{
82 SPARCCPU *cpu = sparc_env_get_cpu(env);
83 int overflow = 0;
84 uint64_t x0;
85 uint32_t x1;
86
87 x0 = (a & 0xffffffff) | ((int64_t) (env->y) << 32);
88 x1 = (b & 0xffffffff);
89
90 if (x1 == 0) {
91 cpu_restore_state(CPU(cpu), GETPC());
92 helper_raise_exception(env, TT_DIV_ZERO);
93 }
94
95 x0 = x0 / x1;
96 if (x0 > UINT32_MAX) {
97 x0 = UINT32_MAX;
98 overflow = 1;
99 }
100
101 if (cc) {
102 env->cc_dst = x0;
103 env->cc_src2 = overflow;
104 env->cc_op = CC_OP_DIV;
105 }
106 return x0;
107}
108
109target_ulong helper_udiv(CPUSPARCState *env, target_ulong a, target_ulong b)
110{
111 return helper_udiv_common(env, a, b, 0);
112}
113
114target_ulong helper_udiv_cc(CPUSPARCState *env, target_ulong a, target_ulong b)
115{
116 return helper_udiv_common(env, a, b, 1);
117}
118
119static target_ulong helper_sdiv_common(CPUSPARCState *env, target_ulong a,
120 target_ulong b, int cc)
121{
122 SPARCCPU *cpu = sparc_env_get_cpu(env);
123 int overflow = 0;
124 int64_t x0;
125 int32_t x1;
126
127 x0 = (a & 0xffffffff) | ((int64_t) (env->y) << 32);
128 x1 = (b & 0xffffffff);
129
130 if (x1 == 0) {
131 cpu_restore_state(CPU(cpu), GETPC());
132 helper_raise_exception(env, TT_DIV_ZERO);
133 } else if (x1 == -1 && x0 == INT64_MIN) {
134 x0 = INT32_MAX;
135 overflow = 1;
136 } else {
137 x0 = x0 / x1;
138 if ((int32_t) x0 != x0) {
139 x0 = x0 < 0 ? INT32_MIN : INT32_MAX;
140 overflow = 1;
141 }
142 }
143
144 if (cc) {
145 env->cc_dst = x0;
146 env->cc_src2 = overflow;
147 env->cc_op = CC_OP_DIV;
148 }
149 return x0;
150}
151
152target_ulong helper_sdiv(CPUSPARCState *env, target_ulong a, target_ulong b)
153{
154 return helper_sdiv_common(env, a, b, 0);
155}
156
157target_ulong helper_sdiv_cc(CPUSPARCState *env, target_ulong a, target_ulong b)
158{
159 return helper_sdiv_common(env, a, b, 1);
160}
161
162#ifdef TARGET_SPARC64
163int64_t helper_sdivx(CPUSPARCState *env, int64_t a, int64_t b)
164{
165 if (b == 0) {
166
167 SPARCCPU *cpu = sparc_env_get_cpu(env);
168
169 cpu_restore_state(CPU(cpu), GETPC());
170 helper_raise_exception(env, TT_DIV_ZERO);
171 } else if (b == -1) {
172
173 return -a;
174 } else {
175 return a / b;
176 }
177}
178
179uint64_t helper_udivx(CPUSPARCState *env, uint64_t a, uint64_t b)
180{
181 if (b == 0) {
182
183 SPARCCPU *cpu = sparc_env_get_cpu(env);
184
185 cpu_restore_state(CPU(cpu), GETPC());
186 helper_raise_exception(env, TT_DIV_ZERO);
187 }
188 return a / b;
189}
190#endif
191
192target_ulong helper_taddcctv(CPUSPARCState *env, target_ulong src1,
193 target_ulong src2)
194{
195 SPARCCPU *cpu = sparc_env_get_cpu(env);
196 target_ulong dst;
197
198
199 if ((src1 | src2) & 3) {
200 goto tag_overflow;
201 }
202
203 dst = src1 + src2;
204
205
206 if (~(src1 ^ src2) & (src1 ^ dst) & (1u << 31)) {
207 goto tag_overflow;
208 }
209
210
211 env->cc_op = CC_OP_TADDTV;
212 env->cc_src = src1;
213 env->cc_src2 = src2;
214 env->cc_dst = dst;
215 return dst;
216
217 tag_overflow:
218 cpu_restore_state(CPU(cpu), GETPC());
219 helper_raise_exception(env, TT_TOVF);
220}
221
222target_ulong helper_tsubcctv(CPUSPARCState *env, target_ulong src1,
223 target_ulong src2)
224{
225 SPARCCPU *cpu = sparc_env_get_cpu(env);
226 target_ulong dst;
227
228
229 if ((src1 | src2) & 3) {
230 goto tag_overflow;
231 }
232
233 dst = src1 - src2;
234
235
236 if ((src1 ^ src2) & (src1 ^ dst) & (1u << 31)) {
237 goto tag_overflow;
238 }
239
240
241 env->cc_op = CC_OP_TSUBTV;
242 env->cc_src = src1;
243 env->cc_src2 = src2;
244 env->cc_dst = dst;
245 return dst;
246
247 tag_overflow:
248 cpu_restore_state(CPU(cpu), GETPC());
249 helper_raise_exception(env, TT_TOVF);
250}
251
252#ifndef TARGET_SPARC64
253void helper_power_down(CPUSPARCState *env)
254{
255 CPUState *cs = CPU(sparc_env_get_cpu(env));
256
257 cs->halted = 1;
258 cs->exception_index = EXCP_HLT;
259 env->pc = env->npc;
260 env->npc = env->pc + 4;
261 cpu_loop_exit(cs);
262}
263#endif
264