target/arm: Convert T32 ADDW/SUBW
[qemu/ar7.git] / target / arm / translate.c
blob7d12be40250cc12026ce5e1fb916b8e43396b04c
1 /*
2 * ARM translation
4 * Copyright (c) 2003 Fabrice Bellard
5 * Copyright (c) 2005-2007 CodeSourcery
6 * Copyright (c) 2007 OpenedHand, Ltd.
8 * This library is free software; you can redistribute it and/or
9 * modify it under the terms of the GNU Lesser General Public
10 * License as published by the Free Software Foundation; either
11 * version 2 of the License, or (at your option) any later version.
13 * This library is distributed in the hope that it will be useful,
14 * but WITHOUT ANY WARRANTY; without even the implied warranty of
15 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
16 * Lesser General Public License for more details.
18 * You should have received a copy of the GNU Lesser General Public
19 * License along with this library; if not, see <http://www.gnu.org/licenses/>.
21 #include "qemu/osdep.h"
23 #include "cpu.h"
24 #include "internals.h"
25 #include "disas/disas.h"
26 #include "exec/exec-all.h"
27 #include "tcg-op.h"
28 #include "tcg-op-gvec.h"
29 #include "qemu/log.h"
30 #include "qemu/bitops.h"
31 #include "arm_ldst.h"
32 #include "hw/semihosting/semihost.h"
34 #include "exec/helper-proto.h"
35 #include "exec/helper-gen.h"
37 #include "trace-tcg.h"
38 #include "exec/log.h"
41 #define ENABLE_ARCH_4T arm_dc_feature(s, ARM_FEATURE_V4T)
42 #define ENABLE_ARCH_5 arm_dc_feature(s, ARM_FEATURE_V5)
43 /* currently all emulated v5 cores are also v5TE, so don't bother */
44 #define ENABLE_ARCH_5TE arm_dc_feature(s, ARM_FEATURE_V5)
45 #define ENABLE_ARCH_5J dc_isar_feature(jazelle, s)
46 #define ENABLE_ARCH_6 arm_dc_feature(s, ARM_FEATURE_V6)
47 #define ENABLE_ARCH_6K arm_dc_feature(s, ARM_FEATURE_V6K)
48 #define ENABLE_ARCH_6T2 arm_dc_feature(s, ARM_FEATURE_THUMB2)
49 #define ENABLE_ARCH_7 arm_dc_feature(s, ARM_FEATURE_V7)
50 #define ENABLE_ARCH_8 arm_dc_feature(s, ARM_FEATURE_V8)
52 #define ARCH(x) do { if (!ENABLE_ARCH_##x) goto illegal_op; } while(0)
54 #include "translate.h"
56 #if defined(CONFIG_USER_ONLY)
57 #define IS_USER(s) 1
58 #else
59 #define IS_USER(s) (s->user)
60 #endif
62 /* We reuse the same 64-bit temporaries for efficiency. */
63 static TCGv_i64 cpu_V0, cpu_V1, cpu_M0;
64 static TCGv_i32 cpu_R[16];
65 TCGv_i32 cpu_CF, cpu_NF, cpu_VF, cpu_ZF;
66 TCGv_i64 cpu_exclusive_addr;
67 TCGv_i64 cpu_exclusive_val;
69 #include "exec/gen-icount.h"
71 static const char * const regnames[] =
72 { "r0", "r1", "r2", "r3", "r4", "r5", "r6", "r7",
73 "r8", "r9", "r10", "r11", "r12", "r13", "r14", "pc" };
75 /* Function prototypes for gen_ functions calling Neon helpers. */
76 typedef void NeonGenThreeOpEnvFn(TCGv_i32, TCGv_env, TCGv_i32,
77 TCGv_i32, TCGv_i32);
78 /* Function prototypes for gen_ functions for fix point conversions */
79 typedef void VFPGenFixPointFn(TCGv_i32, TCGv_i32, TCGv_i32, TCGv_ptr);
81 /* initialize TCG globals. */
82 void arm_translate_init(void)
84 int i;
86 for (i = 0; i < 16; i++) {
87 cpu_R[i] = tcg_global_mem_new_i32(cpu_env,
88 offsetof(CPUARMState, regs[i]),
89 regnames[i]);
91 cpu_CF = tcg_global_mem_new_i32(cpu_env, offsetof(CPUARMState, CF), "CF");
92 cpu_NF = tcg_global_mem_new_i32(cpu_env, offsetof(CPUARMState, NF), "NF");
93 cpu_VF = tcg_global_mem_new_i32(cpu_env, offsetof(CPUARMState, VF), "VF");
94 cpu_ZF = tcg_global_mem_new_i32(cpu_env, offsetof(CPUARMState, ZF), "ZF");
96 cpu_exclusive_addr = tcg_global_mem_new_i64(cpu_env,
97 offsetof(CPUARMState, exclusive_addr), "exclusive_addr");
98 cpu_exclusive_val = tcg_global_mem_new_i64(cpu_env,
99 offsetof(CPUARMState, exclusive_val), "exclusive_val");
101 a64_translate_init();
104 /* Flags for the disas_set_da_iss info argument:
105 * lower bits hold the Rt register number, higher bits are flags.
107 typedef enum ISSInfo {
108 ISSNone = 0,
109 ISSRegMask = 0x1f,
110 ISSInvalid = (1 << 5),
111 ISSIsAcqRel = (1 << 6),
112 ISSIsWrite = (1 << 7),
113 ISSIs16Bit = (1 << 8),
114 } ISSInfo;
116 /* Save the syndrome information for a Data Abort */
117 static void disas_set_da_iss(DisasContext *s, MemOp memop, ISSInfo issinfo)
119 uint32_t syn;
120 int sas = memop & MO_SIZE;
121 bool sse = memop & MO_SIGN;
122 bool is_acqrel = issinfo & ISSIsAcqRel;
123 bool is_write = issinfo & ISSIsWrite;
124 bool is_16bit = issinfo & ISSIs16Bit;
125 int srt = issinfo & ISSRegMask;
127 if (issinfo & ISSInvalid) {
128 /* Some callsites want to conditionally provide ISS info,
129 * eg "only if this was not a writeback"
131 return;
134 if (srt == 15) {
135 /* For AArch32, insns where the src/dest is R15 never generate
136 * ISS information. Catching that here saves checking at all
137 * the call sites.
139 return;
142 syn = syn_data_abort_with_iss(0, sas, sse, srt, 0, is_acqrel,
143 0, 0, 0, is_write, 0, is_16bit);
144 disas_set_insn_syndrome(s, syn);
147 static inline int get_a32_user_mem_index(DisasContext *s)
149 /* Return the core mmu_idx to use for A32/T32 "unprivileged load/store"
150 * insns:
151 * if PL2, UNPREDICTABLE (we choose to implement as if PL0)
152 * otherwise, access as if at PL0.
154 switch (s->mmu_idx) {
155 case ARMMMUIdx_S1E2: /* this one is UNPREDICTABLE */
156 case ARMMMUIdx_S12NSE0:
157 case ARMMMUIdx_S12NSE1:
158 return arm_to_core_mmu_idx(ARMMMUIdx_S12NSE0);
159 case ARMMMUIdx_S1E3:
160 case ARMMMUIdx_S1SE0:
161 case ARMMMUIdx_S1SE1:
162 return arm_to_core_mmu_idx(ARMMMUIdx_S1SE0);
163 case ARMMMUIdx_MUser:
164 case ARMMMUIdx_MPriv:
165 return arm_to_core_mmu_idx(ARMMMUIdx_MUser);
166 case ARMMMUIdx_MUserNegPri:
167 case ARMMMUIdx_MPrivNegPri:
168 return arm_to_core_mmu_idx(ARMMMUIdx_MUserNegPri);
169 case ARMMMUIdx_MSUser:
170 case ARMMMUIdx_MSPriv:
171 return arm_to_core_mmu_idx(ARMMMUIdx_MSUser);
172 case ARMMMUIdx_MSUserNegPri:
173 case ARMMMUIdx_MSPrivNegPri:
174 return arm_to_core_mmu_idx(ARMMMUIdx_MSUserNegPri);
175 case ARMMMUIdx_S2NS:
176 default:
177 g_assert_not_reached();
181 static inline TCGv_i32 load_cpu_offset(int offset)
183 TCGv_i32 tmp = tcg_temp_new_i32();
184 tcg_gen_ld_i32(tmp, cpu_env, offset);
185 return tmp;
188 #define load_cpu_field(name) load_cpu_offset(offsetof(CPUARMState, name))
190 static inline void store_cpu_offset(TCGv_i32 var, int offset)
192 tcg_gen_st_i32(var, cpu_env, offset);
193 tcg_temp_free_i32(var);
196 #define store_cpu_field(var, name) \
197 store_cpu_offset(var, offsetof(CPUARMState, name))
199 /* The architectural value of PC. */
200 static uint32_t read_pc(DisasContext *s)
202 return s->pc_curr + (s->thumb ? 4 : 8);
205 /* Set a variable to the value of a CPU register. */
206 static void load_reg_var(DisasContext *s, TCGv_i32 var, int reg)
208 if (reg == 15) {
209 tcg_gen_movi_i32(var, read_pc(s));
210 } else {
211 tcg_gen_mov_i32(var, cpu_R[reg]);
215 /* Create a new temporary and set it to the value of a CPU register. */
216 static inline TCGv_i32 load_reg(DisasContext *s, int reg)
218 TCGv_i32 tmp = tcg_temp_new_i32();
219 load_reg_var(s, tmp, reg);
220 return tmp;
224 * Create a new temp, REG + OFS, except PC is ALIGN(PC, 4).
225 * This is used for load/store for which use of PC implies (literal),
226 * or ADD that implies ADR.
228 static TCGv_i32 add_reg_for_lit(DisasContext *s, int reg, int ofs)
230 TCGv_i32 tmp = tcg_temp_new_i32();
232 if (reg == 15) {
233 tcg_gen_movi_i32(tmp, (read_pc(s) & ~3) + ofs);
234 } else {
235 tcg_gen_addi_i32(tmp, cpu_R[reg], ofs);
237 return tmp;
240 /* Set a CPU register. The source must be a temporary and will be
241 marked as dead. */
242 static void store_reg(DisasContext *s, int reg, TCGv_i32 var)
244 if (reg == 15) {
245 /* In Thumb mode, we must ignore bit 0.
246 * In ARM mode, for ARMv4 and ARMv5, it is UNPREDICTABLE if bits [1:0]
247 * are not 0b00, but for ARMv6 and above, we must ignore bits [1:0].
248 * We choose to ignore [1:0] in ARM mode for all architecture versions.
250 tcg_gen_andi_i32(var, var, s->thumb ? ~1 : ~3);
251 s->base.is_jmp = DISAS_JUMP;
253 tcg_gen_mov_i32(cpu_R[reg], var);
254 tcg_temp_free_i32(var);
258 * Variant of store_reg which applies v8M stack-limit checks before updating
259 * SP. If the check fails this will result in an exception being taken.
260 * We disable the stack checks for CONFIG_USER_ONLY because we have
261 * no idea what the stack limits should be in that case.
262 * If stack checking is not being done this just acts like store_reg().
264 static void store_sp_checked(DisasContext *s, TCGv_i32 var)
266 #ifndef CONFIG_USER_ONLY
267 if (s->v8m_stackcheck) {
268 gen_helper_v8m_stackcheck(cpu_env, var);
270 #endif
271 store_reg(s, 13, var);
274 /* Value extensions. */
275 #define gen_uxtb(var) tcg_gen_ext8u_i32(var, var)
276 #define gen_uxth(var) tcg_gen_ext16u_i32(var, var)
277 #define gen_sxtb(var) tcg_gen_ext8s_i32(var, var)
278 #define gen_sxth(var) tcg_gen_ext16s_i32(var, var)
280 #define gen_sxtb16(var) gen_helper_sxtb16(var, var)
281 #define gen_uxtb16(var) gen_helper_uxtb16(var, var)
284 static inline void gen_set_cpsr(TCGv_i32 var, uint32_t mask)
286 TCGv_i32 tmp_mask = tcg_const_i32(mask);
287 gen_helper_cpsr_write(cpu_env, var, tmp_mask);
288 tcg_temp_free_i32(tmp_mask);
290 /* Set NZCV flags from the high 4 bits of var. */
291 #define gen_set_nzcv(var) gen_set_cpsr(var, CPSR_NZCV)
293 static void gen_exception_internal(int excp)
295 TCGv_i32 tcg_excp = tcg_const_i32(excp);
297 assert(excp_is_internal(excp));
298 gen_helper_exception_internal(cpu_env, tcg_excp);
299 tcg_temp_free_i32(tcg_excp);
302 static void gen_step_complete_exception(DisasContext *s)
304 /* We just completed step of an insn. Move from Active-not-pending
305 * to Active-pending, and then also take the swstep exception.
306 * This corresponds to making the (IMPDEF) choice to prioritize
307 * swstep exceptions over asynchronous exceptions taken to an exception
308 * level where debug is disabled. This choice has the advantage that
309 * we do not need to maintain internal state corresponding to the
310 * ISV/EX syndrome bits between completion of the step and generation
311 * of the exception, and our syndrome information is always correct.
313 gen_ss_advance(s);
314 gen_swstep_exception(s, 1, s->is_ldex);
315 s->base.is_jmp = DISAS_NORETURN;
318 static void gen_singlestep_exception(DisasContext *s)
320 /* Generate the right kind of exception for singlestep, which is
321 * either the architectural singlestep or EXCP_DEBUG for QEMU's
322 * gdb singlestepping.
324 if (s->ss_active) {
325 gen_step_complete_exception(s);
326 } else {
327 gen_exception_internal(EXCP_DEBUG);
331 static inline bool is_singlestepping(DisasContext *s)
333 /* Return true if we are singlestepping either because of
334 * architectural singlestep or QEMU gdbstub singlestep. This does
335 * not include the command line '-singlestep' mode which is rather
336 * misnamed as it only means "one instruction per TB" and doesn't
337 * affect the code we generate.
339 return s->base.singlestep_enabled || s->ss_active;
342 static void gen_smul_dual(TCGv_i32 a, TCGv_i32 b)
344 TCGv_i32 tmp1 = tcg_temp_new_i32();
345 TCGv_i32 tmp2 = tcg_temp_new_i32();
346 tcg_gen_ext16s_i32(tmp1, a);
347 tcg_gen_ext16s_i32(tmp2, b);
348 tcg_gen_mul_i32(tmp1, tmp1, tmp2);
349 tcg_temp_free_i32(tmp2);
350 tcg_gen_sari_i32(a, a, 16);
351 tcg_gen_sari_i32(b, b, 16);
352 tcg_gen_mul_i32(b, b, a);
353 tcg_gen_mov_i32(a, tmp1);
354 tcg_temp_free_i32(tmp1);
357 /* Byteswap each halfword. */
358 static void gen_rev16(TCGv_i32 var)
360 TCGv_i32 tmp = tcg_temp_new_i32();
361 TCGv_i32 mask = tcg_const_i32(0x00ff00ff);
362 tcg_gen_shri_i32(tmp, var, 8);
363 tcg_gen_and_i32(tmp, tmp, mask);
364 tcg_gen_and_i32(var, var, mask);
365 tcg_gen_shli_i32(var, var, 8);
366 tcg_gen_or_i32(var, var, tmp);
367 tcg_temp_free_i32(mask);
368 tcg_temp_free_i32(tmp);
371 /* Byteswap low halfword and sign extend. */
372 static void gen_revsh(TCGv_i32 var)
374 tcg_gen_ext16u_i32(var, var);
375 tcg_gen_bswap16_i32(var, var);
376 tcg_gen_ext16s_i32(var, var);
379 /* 32x32->64 multiply. Marks inputs as dead. */
380 static TCGv_i64 gen_mulu_i64_i32(TCGv_i32 a, TCGv_i32 b)
382 TCGv_i32 lo = tcg_temp_new_i32();
383 TCGv_i32 hi = tcg_temp_new_i32();
384 TCGv_i64 ret;
386 tcg_gen_mulu2_i32(lo, hi, a, b);
387 tcg_temp_free_i32(a);
388 tcg_temp_free_i32(b);
390 ret = tcg_temp_new_i64();
391 tcg_gen_concat_i32_i64(ret, lo, hi);
392 tcg_temp_free_i32(lo);
393 tcg_temp_free_i32(hi);
395 return ret;
398 static TCGv_i64 gen_muls_i64_i32(TCGv_i32 a, TCGv_i32 b)
400 TCGv_i32 lo = tcg_temp_new_i32();
401 TCGv_i32 hi = tcg_temp_new_i32();
402 TCGv_i64 ret;
404 tcg_gen_muls2_i32(lo, hi, a, b);
405 tcg_temp_free_i32(a);
406 tcg_temp_free_i32(b);
408 ret = tcg_temp_new_i64();
409 tcg_gen_concat_i32_i64(ret, lo, hi);
410 tcg_temp_free_i32(lo);
411 tcg_temp_free_i32(hi);
413 return ret;
416 /* Swap low and high halfwords. */
417 static void gen_swap_half(TCGv_i32 var)
419 tcg_gen_rotri_i32(var, var, 16);
422 /* Dual 16-bit add. Result placed in t0 and t1 is marked as dead.
423 tmp = (t0 ^ t1) & 0x8000;
424 t0 &= ~0x8000;
425 t1 &= ~0x8000;
426 t0 = (t0 + t1) ^ tmp;
429 static void gen_add16(TCGv_i32 t0, TCGv_i32 t1)
431 TCGv_i32 tmp = tcg_temp_new_i32();
432 tcg_gen_xor_i32(tmp, t0, t1);
433 tcg_gen_andi_i32(tmp, tmp, 0x8000);
434 tcg_gen_andi_i32(t0, t0, ~0x8000);
435 tcg_gen_andi_i32(t1, t1, ~0x8000);
436 tcg_gen_add_i32(t0, t0, t1);
437 tcg_gen_xor_i32(t0, t0, tmp);
438 tcg_temp_free_i32(tmp);
439 tcg_temp_free_i32(t1);
442 /* Set N and Z flags from var. */
443 static inline void gen_logic_CC(TCGv_i32 var)
445 tcg_gen_mov_i32(cpu_NF, var);
446 tcg_gen_mov_i32(cpu_ZF, var);
449 /* T0 += T1 + CF. */
450 static void gen_adc(TCGv_i32 t0, TCGv_i32 t1)
452 tcg_gen_add_i32(t0, t0, t1);
453 tcg_gen_add_i32(t0, t0, cpu_CF);
456 /* dest = T0 + T1 + CF. */
457 static void gen_add_carry(TCGv_i32 dest, TCGv_i32 t0, TCGv_i32 t1)
459 tcg_gen_add_i32(dest, t0, t1);
460 tcg_gen_add_i32(dest, dest, cpu_CF);
463 /* dest = T0 - T1 + CF - 1. */
464 static void gen_sub_carry(TCGv_i32 dest, TCGv_i32 t0, TCGv_i32 t1)
466 tcg_gen_sub_i32(dest, t0, t1);
467 tcg_gen_add_i32(dest, dest, cpu_CF);
468 tcg_gen_subi_i32(dest, dest, 1);
471 /* dest = T0 + T1. Compute C, N, V and Z flags */
472 static void gen_add_CC(TCGv_i32 dest, TCGv_i32 t0, TCGv_i32 t1)
474 TCGv_i32 tmp = tcg_temp_new_i32();
475 tcg_gen_movi_i32(tmp, 0);
476 tcg_gen_add2_i32(cpu_NF, cpu_CF, t0, tmp, t1, tmp);
477 tcg_gen_mov_i32(cpu_ZF, cpu_NF);
478 tcg_gen_xor_i32(cpu_VF, cpu_NF, t0);
479 tcg_gen_xor_i32(tmp, t0, t1);
480 tcg_gen_andc_i32(cpu_VF, cpu_VF, tmp);
481 tcg_temp_free_i32(tmp);
482 tcg_gen_mov_i32(dest, cpu_NF);
485 /* dest = T0 + T1 + CF. Compute C, N, V and Z flags */
486 static void gen_adc_CC(TCGv_i32 dest, TCGv_i32 t0, TCGv_i32 t1)
488 TCGv_i32 tmp = tcg_temp_new_i32();
489 if (TCG_TARGET_HAS_add2_i32) {
490 tcg_gen_movi_i32(tmp, 0);
491 tcg_gen_add2_i32(cpu_NF, cpu_CF, t0, tmp, cpu_CF, tmp);
492 tcg_gen_add2_i32(cpu_NF, cpu_CF, cpu_NF, cpu_CF, t1, tmp);
493 } else {
494 TCGv_i64 q0 = tcg_temp_new_i64();
495 TCGv_i64 q1 = tcg_temp_new_i64();
496 tcg_gen_extu_i32_i64(q0, t0);
497 tcg_gen_extu_i32_i64(q1, t1);
498 tcg_gen_add_i64(q0, q0, q1);
499 tcg_gen_extu_i32_i64(q1, cpu_CF);
500 tcg_gen_add_i64(q0, q0, q1);
501 tcg_gen_extr_i64_i32(cpu_NF, cpu_CF, q0);
502 tcg_temp_free_i64(q0);
503 tcg_temp_free_i64(q1);
505 tcg_gen_mov_i32(cpu_ZF, cpu_NF);
506 tcg_gen_xor_i32(cpu_VF, cpu_NF, t0);
507 tcg_gen_xor_i32(tmp, t0, t1);
508 tcg_gen_andc_i32(cpu_VF, cpu_VF, tmp);
509 tcg_temp_free_i32(tmp);
510 tcg_gen_mov_i32(dest, cpu_NF);
513 /* dest = T0 - T1. Compute C, N, V and Z flags */
514 static void gen_sub_CC(TCGv_i32 dest, TCGv_i32 t0, TCGv_i32 t1)
516 TCGv_i32 tmp;
517 tcg_gen_sub_i32(cpu_NF, t0, t1);
518 tcg_gen_mov_i32(cpu_ZF, cpu_NF);
519 tcg_gen_setcond_i32(TCG_COND_GEU, cpu_CF, t0, t1);
520 tcg_gen_xor_i32(cpu_VF, cpu_NF, t0);
521 tmp = tcg_temp_new_i32();
522 tcg_gen_xor_i32(tmp, t0, t1);
523 tcg_gen_and_i32(cpu_VF, cpu_VF, tmp);
524 tcg_temp_free_i32(tmp);
525 tcg_gen_mov_i32(dest, cpu_NF);
528 /* dest = T0 + ~T1 + CF. Compute C, N, V and Z flags */
529 static void gen_sbc_CC(TCGv_i32 dest, TCGv_i32 t0, TCGv_i32 t1)
531 TCGv_i32 tmp = tcg_temp_new_i32();
532 tcg_gen_not_i32(tmp, t1);
533 gen_adc_CC(dest, t0, tmp);
534 tcg_temp_free_i32(tmp);
537 #define GEN_SHIFT(name) \
538 static void gen_##name(TCGv_i32 dest, TCGv_i32 t0, TCGv_i32 t1) \
540 TCGv_i32 tmp1, tmp2, tmp3; \
541 tmp1 = tcg_temp_new_i32(); \
542 tcg_gen_andi_i32(tmp1, t1, 0xff); \
543 tmp2 = tcg_const_i32(0); \
544 tmp3 = tcg_const_i32(0x1f); \
545 tcg_gen_movcond_i32(TCG_COND_GTU, tmp2, tmp1, tmp3, tmp2, t0); \
546 tcg_temp_free_i32(tmp3); \
547 tcg_gen_andi_i32(tmp1, tmp1, 0x1f); \
548 tcg_gen_##name##_i32(dest, tmp2, tmp1); \
549 tcg_temp_free_i32(tmp2); \
550 tcg_temp_free_i32(tmp1); \
552 GEN_SHIFT(shl)
553 GEN_SHIFT(shr)
554 #undef GEN_SHIFT
556 static void gen_sar(TCGv_i32 dest, TCGv_i32 t0, TCGv_i32 t1)
558 TCGv_i32 tmp1, tmp2;
559 tmp1 = tcg_temp_new_i32();
560 tcg_gen_andi_i32(tmp1, t1, 0xff);
561 tmp2 = tcg_const_i32(0x1f);
562 tcg_gen_movcond_i32(TCG_COND_GTU, tmp1, tmp1, tmp2, tmp2, tmp1);
563 tcg_temp_free_i32(tmp2);
564 tcg_gen_sar_i32(dest, t0, tmp1);
565 tcg_temp_free_i32(tmp1);
568 static void shifter_out_im(TCGv_i32 var, int shift)
570 tcg_gen_extract_i32(cpu_CF, var, shift, 1);
573 /* Shift by immediate. Includes special handling for shift == 0. */
574 static inline void gen_arm_shift_im(TCGv_i32 var, int shiftop,
575 int shift, int flags)
577 switch (shiftop) {
578 case 0: /* LSL */
579 if (shift != 0) {
580 if (flags)
581 shifter_out_im(var, 32 - shift);
582 tcg_gen_shli_i32(var, var, shift);
584 break;
585 case 1: /* LSR */
586 if (shift == 0) {
587 if (flags) {
588 tcg_gen_shri_i32(cpu_CF, var, 31);
590 tcg_gen_movi_i32(var, 0);
591 } else {
592 if (flags)
593 shifter_out_im(var, shift - 1);
594 tcg_gen_shri_i32(var, var, shift);
596 break;
597 case 2: /* ASR */
598 if (shift == 0)
599 shift = 32;
600 if (flags)
601 shifter_out_im(var, shift - 1);
602 if (shift == 32)
603 shift = 31;
604 tcg_gen_sari_i32(var, var, shift);
605 break;
606 case 3: /* ROR/RRX */
607 if (shift != 0) {
608 if (flags)
609 shifter_out_im(var, shift - 1);
610 tcg_gen_rotri_i32(var, var, shift); break;
611 } else {
612 TCGv_i32 tmp = tcg_temp_new_i32();
613 tcg_gen_shli_i32(tmp, cpu_CF, 31);
614 if (flags)
615 shifter_out_im(var, 0);
616 tcg_gen_shri_i32(var, var, 1);
617 tcg_gen_or_i32(var, var, tmp);
618 tcg_temp_free_i32(tmp);
623 static inline void gen_arm_shift_reg(TCGv_i32 var, int shiftop,
624 TCGv_i32 shift, int flags)
626 if (flags) {
627 switch (shiftop) {
628 case 0: gen_helper_shl_cc(var, cpu_env, var, shift); break;
629 case 1: gen_helper_shr_cc(var, cpu_env, var, shift); break;
630 case 2: gen_helper_sar_cc(var, cpu_env, var, shift); break;
631 case 3: gen_helper_ror_cc(var, cpu_env, var, shift); break;
633 } else {
634 switch (shiftop) {
635 case 0:
636 gen_shl(var, var, shift);
637 break;
638 case 1:
639 gen_shr(var, var, shift);
640 break;
641 case 2:
642 gen_sar(var, var, shift);
643 break;
644 case 3: tcg_gen_andi_i32(shift, shift, 0x1f);
645 tcg_gen_rotr_i32(var, var, shift); break;
648 tcg_temp_free_i32(shift);
651 #define PAS_OP(pfx) \
652 switch (op2) { \
653 case 0: gen_pas_helper(glue(pfx,add16)); break; \
654 case 1: gen_pas_helper(glue(pfx,addsubx)); break; \
655 case 2: gen_pas_helper(glue(pfx,subaddx)); break; \
656 case 3: gen_pas_helper(glue(pfx,sub16)); break; \
657 case 4: gen_pas_helper(glue(pfx,add8)); break; \
658 case 7: gen_pas_helper(glue(pfx,sub8)); break; \
660 static void gen_arm_parallel_addsub(int op1, int op2, TCGv_i32 a, TCGv_i32 b)
662 TCGv_ptr tmp;
664 switch (op1) {
665 #define gen_pas_helper(name) glue(gen_helper_,name)(a, a, b, tmp)
666 case 1:
667 tmp = tcg_temp_new_ptr();
668 tcg_gen_addi_ptr(tmp, cpu_env, offsetof(CPUARMState, GE));
669 PAS_OP(s)
670 tcg_temp_free_ptr(tmp);
671 break;
672 case 5:
673 tmp = tcg_temp_new_ptr();
674 tcg_gen_addi_ptr(tmp, cpu_env, offsetof(CPUARMState, GE));
675 PAS_OP(u)
676 tcg_temp_free_ptr(tmp);
677 break;
678 #undef gen_pas_helper
679 #define gen_pas_helper(name) glue(gen_helper_,name)(a, a, b)
680 case 2:
681 PAS_OP(q);
682 break;
683 case 3:
684 PAS_OP(sh);
685 break;
686 case 6:
687 PAS_OP(uq);
688 break;
689 case 7:
690 PAS_OP(uh);
691 break;
692 #undef gen_pas_helper
695 #undef PAS_OP
697 /* For unknown reasons Arm and Thumb-2 use arbitrarily different encodings. */
698 #define PAS_OP(pfx) \
699 switch (op1) { \
700 case 0: gen_pas_helper(glue(pfx,add8)); break; \
701 case 1: gen_pas_helper(glue(pfx,add16)); break; \
702 case 2: gen_pas_helper(glue(pfx,addsubx)); break; \
703 case 4: gen_pas_helper(glue(pfx,sub8)); break; \
704 case 5: gen_pas_helper(glue(pfx,sub16)); break; \
705 case 6: gen_pas_helper(glue(pfx,subaddx)); break; \
707 static void gen_thumb2_parallel_addsub(int op1, int op2, TCGv_i32 a, TCGv_i32 b)
709 TCGv_ptr tmp;
711 switch (op2) {
712 #define gen_pas_helper(name) glue(gen_helper_,name)(a, a, b, tmp)
713 case 0:
714 tmp = tcg_temp_new_ptr();
715 tcg_gen_addi_ptr(tmp, cpu_env, offsetof(CPUARMState, GE));
716 PAS_OP(s)
717 tcg_temp_free_ptr(tmp);
718 break;
719 case 4:
720 tmp = tcg_temp_new_ptr();
721 tcg_gen_addi_ptr(tmp, cpu_env, offsetof(CPUARMState, GE));
722 PAS_OP(u)
723 tcg_temp_free_ptr(tmp);
724 break;
725 #undef gen_pas_helper
726 #define gen_pas_helper(name) glue(gen_helper_,name)(a, a, b)
727 case 1:
728 PAS_OP(q);
729 break;
730 case 2:
731 PAS_OP(sh);
732 break;
733 case 5:
734 PAS_OP(uq);
735 break;
736 case 6:
737 PAS_OP(uh);
738 break;
739 #undef gen_pas_helper
742 #undef PAS_OP
745 * Generate a conditional based on ARM condition code cc.
746 * This is common between ARM and Aarch64 targets.
748 void arm_test_cc(DisasCompare *cmp, int cc)
750 TCGv_i32 value;
751 TCGCond cond;
752 bool global = true;
754 switch (cc) {
755 case 0: /* eq: Z */
756 case 1: /* ne: !Z */
757 cond = TCG_COND_EQ;
758 value = cpu_ZF;
759 break;
761 case 2: /* cs: C */
762 case 3: /* cc: !C */
763 cond = TCG_COND_NE;
764 value = cpu_CF;
765 break;
767 case 4: /* mi: N */
768 case 5: /* pl: !N */
769 cond = TCG_COND_LT;
770 value = cpu_NF;
771 break;
773 case 6: /* vs: V */
774 case 7: /* vc: !V */
775 cond = TCG_COND_LT;
776 value = cpu_VF;
777 break;
779 case 8: /* hi: C && !Z */
780 case 9: /* ls: !C || Z -> !(C && !Z) */
781 cond = TCG_COND_NE;
782 value = tcg_temp_new_i32();
783 global = false;
784 /* CF is 1 for C, so -CF is an all-bits-set mask for C;
785 ZF is non-zero for !Z; so AND the two subexpressions. */
786 tcg_gen_neg_i32(value, cpu_CF);
787 tcg_gen_and_i32(value, value, cpu_ZF);
788 break;
790 case 10: /* ge: N == V -> N ^ V == 0 */
791 case 11: /* lt: N != V -> N ^ V != 0 */
792 /* Since we're only interested in the sign bit, == 0 is >= 0. */
793 cond = TCG_COND_GE;
794 value = tcg_temp_new_i32();
795 global = false;
796 tcg_gen_xor_i32(value, cpu_VF, cpu_NF);
797 break;
799 case 12: /* gt: !Z && N == V */
800 case 13: /* le: Z || N != V */
801 cond = TCG_COND_NE;
802 value = tcg_temp_new_i32();
803 global = false;
804 /* (N == V) is equal to the sign bit of ~(NF ^ VF). Propagate
805 * the sign bit then AND with ZF to yield the result. */
806 tcg_gen_xor_i32(value, cpu_VF, cpu_NF);
807 tcg_gen_sari_i32(value, value, 31);
808 tcg_gen_andc_i32(value, cpu_ZF, value);
809 break;
811 case 14: /* always */
812 case 15: /* always */
813 /* Use the ALWAYS condition, which will fold early.
814 * It doesn't matter what we use for the value. */
815 cond = TCG_COND_ALWAYS;
816 value = cpu_ZF;
817 goto no_invert;
819 default:
820 fprintf(stderr, "Bad condition code 0x%x\n", cc);
821 abort();
824 if (cc & 1) {
825 cond = tcg_invert_cond(cond);
828 no_invert:
829 cmp->cond = cond;
830 cmp->value = value;
831 cmp->value_global = global;
834 void arm_free_cc(DisasCompare *cmp)
836 if (!cmp->value_global) {
837 tcg_temp_free_i32(cmp->value);
841 void arm_jump_cc(DisasCompare *cmp, TCGLabel *label)
843 tcg_gen_brcondi_i32(cmp->cond, cmp->value, 0, label);
846 void arm_gen_test_cc(int cc, TCGLabel *label)
848 DisasCompare cmp;
849 arm_test_cc(&cmp, cc);
850 arm_jump_cc(&cmp, label);
851 arm_free_cc(&cmp);
854 static inline void gen_set_condexec(DisasContext *s)
856 if (s->condexec_mask) {
857 uint32_t val = (s->condexec_cond << 4) | (s->condexec_mask >> 1);
858 TCGv_i32 tmp = tcg_temp_new_i32();
859 tcg_gen_movi_i32(tmp, val);
860 store_cpu_field(tmp, condexec_bits);
864 static inline void gen_set_pc_im(DisasContext *s, target_ulong val)
866 tcg_gen_movi_i32(cpu_R[15], val);
869 /* Set PC and Thumb state from an immediate address. */
870 static inline void gen_bx_im(DisasContext *s, uint32_t addr)
872 TCGv_i32 tmp;
874 s->base.is_jmp = DISAS_JUMP;
875 if (s->thumb != (addr & 1)) {
876 tmp = tcg_temp_new_i32();
877 tcg_gen_movi_i32(tmp, addr & 1);
878 tcg_gen_st_i32(tmp, cpu_env, offsetof(CPUARMState, thumb));
879 tcg_temp_free_i32(tmp);
881 tcg_gen_movi_i32(cpu_R[15], addr & ~1);
884 /* Set PC and Thumb state from var. var is marked as dead. */
885 static inline void gen_bx(DisasContext *s, TCGv_i32 var)
887 s->base.is_jmp = DISAS_JUMP;
888 tcg_gen_andi_i32(cpu_R[15], var, ~1);
889 tcg_gen_andi_i32(var, var, 1);
890 store_cpu_field(var, thumb);
894 * Set PC and Thumb state from var. var is marked as dead.
895 * For M-profile CPUs, include logic to detect exception-return
896 * branches and handle them. This is needed for Thumb POP/LDM to PC, LDR to PC,
897 * and BX reg, and no others, and happens only for code in Handler mode.
898 * The Security Extension also requires us to check for the FNC_RETURN
899 * which signals a function return from non-secure state; this can happen
900 * in both Handler and Thread mode.
901 * To avoid having to do multiple comparisons in inline generated code,
902 * we make the check we do here loose, so it will match for EXC_RETURN
903 * in Thread mode. For system emulation do_v7m_exception_exit() checks
904 * for these spurious cases and returns without doing anything (giving
905 * the same behaviour as for a branch to a non-magic address).
907 * In linux-user mode it is unclear what the right behaviour for an
908 * attempted FNC_RETURN should be, because in real hardware this will go
909 * directly to Secure code (ie not the Linux kernel) which will then treat
910 * the error in any way it chooses. For QEMU we opt to make the FNC_RETURN
911 * attempt behave the way it would on a CPU without the security extension,
912 * which is to say "like a normal branch". That means we can simply treat
913 * all branches as normal with no magic address behaviour.
915 static inline void gen_bx_excret(DisasContext *s, TCGv_i32 var)
917 /* Generate the same code here as for a simple bx, but flag via
918 * s->base.is_jmp that we need to do the rest of the work later.
920 gen_bx(s, var);
921 #ifndef CONFIG_USER_ONLY
922 if (arm_dc_feature(s, ARM_FEATURE_M_SECURITY) ||
923 (s->v7m_handler_mode && arm_dc_feature(s, ARM_FEATURE_M))) {
924 s->base.is_jmp = DISAS_BX_EXCRET;
926 #endif
929 static inline void gen_bx_excret_final_code(DisasContext *s)
931 /* Generate the code to finish possible exception return and end the TB */
932 TCGLabel *excret_label = gen_new_label();
933 uint32_t min_magic;
935 if (arm_dc_feature(s, ARM_FEATURE_M_SECURITY)) {
936 /* Covers FNC_RETURN and EXC_RETURN magic */
937 min_magic = FNC_RETURN_MIN_MAGIC;
938 } else {
939 /* EXC_RETURN magic only */
940 min_magic = EXC_RETURN_MIN_MAGIC;
943 /* Is the new PC value in the magic range indicating exception return? */
944 tcg_gen_brcondi_i32(TCG_COND_GEU, cpu_R[15], min_magic, excret_label);
945 /* No: end the TB as we would for a DISAS_JMP */
946 if (is_singlestepping(s)) {
947 gen_singlestep_exception(s);
948 } else {
949 tcg_gen_exit_tb(NULL, 0);
951 gen_set_label(excret_label);
952 /* Yes: this is an exception return.
953 * At this point in runtime env->regs[15] and env->thumb will hold
954 * the exception-return magic number, which do_v7m_exception_exit()
955 * will read. Nothing else will be able to see those values because
956 * the cpu-exec main loop guarantees that we will always go straight
957 * from raising the exception to the exception-handling code.
959 * gen_ss_advance(s) does nothing on M profile currently but
960 * calling it is conceptually the right thing as we have executed
961 * this instruction (compare SWI, HVC, SMC handling).
963 gen_ss_advance(s);
964 gen_exception_internal(EXCP_EXCEPTION_EXIT);
967 static inline void gen_bxns(DisasContext *s, int rm)
969 TCGv_i32 var = load_reg(s, rm);
971 /* The bxns helper may raise an EXCEPTION_EXIT exception, so in theory
972 * we need to sync state before calling it, but:
973 * - we don't need to do gen_set_pc_im() because the bxns helper will
974 * always set the PC itself
975 * - we don't need to do gen_set_condexec() because BXNS is UNPREDICTABLE
976 * unless it's outside an IT block or the last insn in an IT block,
977 * so we know that condexec == 0 (already set at the top of the TB)
978 * is correct in the non-UNPREDICTABLE cases, and we can choose
979 * "zeroes the IT bits" as our UNPREDICTABLE behaviour otherwise.
981 gen_helper_v7m_bxns(cpu_env, var);
982 tcg_temp_free_i32(var);
983 s->base.is_jmp = DISAS_EXIT;
986 static inline void gen_blxns(DisasContext *s, int rm)
988 TCGv_i32 var = load_reg(s, rm);
990 /* We don't need to sync condexec state, for the same reason as bxns.
991 * We do however need to set the PC, because the blxns helper reads it.
992 * The blxns helper may throw an exception.
994 gen_set_pc_im(s, s->base.pc_next);
995 gen_helper_v7m_blxns(cpu_env, var);
996 tcg_temp_free_i32(var);
997 s->base.is_jmp = DISAS_EXIT;
1000 /* Variant of store_reg which uses branch&exchange logic when storing
1001 to r15 in ARM architecture v7 and above. The source must be a temporary
1002 and will be marked as dead. */
1003 static inline void store_reg_bx(DisasContext *s, int reg, TCGv_i32 var)
1005 if (reg == 15 && ENABLE_ARCH_7) {
1006 gen_bx(s, var);
1007 } else {
1008 store_reg(s, reg, var);
1012 /* Variant of store_reg which uses branch&exchange logic when storing
1013 * to r15 in ARM architecture v5T and above. This is used for storing
1014 * the results of a LDR/LDM/POP into r15, and corresponds to the cases
1015 * in the ARM ARM which use the LoadWritePC() pseudocode function. */
1016 static inline void store_reg_from_load(DisasContext *s, int reg, TCGv_i32 var)
1018 if (reg == 15 && ENABLE_ARCH_5) {
1019 gen_bx_excret(s, var);
1020 } else {
1021 store_reg(s, reg, var);
1025 #ifdef CONFIG_USER_ONLY
1026 #define IS_USER_ONLY 1
1027 #else
1028 #define IS_USER_ONLY 0
1029 #endif
1031 /* Abstractions of "generate code to do a guest load/store for
1032 * AArch32", where a vaddr is always 32 bits (and is zero
1033 * extended if we're a 64 bit core) and data is also
1034 * 32 bits unless specifically doing a 64 bit access.
1035 * These functions work like tcg_gen_qemu_{ld,st}* except
1036 * that the address argument is TCGv_i32 rather than TCGv.
1039 static inline TCGv gen_aa32_addr(DisasContext *s, TCGv_i32 a32, MemOp op)
1041 TCGv addr = tcg_temp_new();
1042 tcg_gen_extu_i32_tl(addr, a32);
1044 /* Not needed for user-mode BE32, where we use MO_BE instead. */
1045 if (!IS_USER_ONLY && s->sctlr_b && (op & MO_SIZE) < MO_32) {
1046 tcg_gen_xori_tl(addr, addr, 4 - (1 << (op & MO_SIZE)));
1048 return addr;
1051 static void gen_aa32_ld_i32(DisasContext *s, TCGv_i32 val, TCGv_i32 a32,
1052 int index, MemOp opc)
1054 TCGv addr;
1056 if (arm_dc_feature(s, ARM_FEATURE_M) &&
1057 !arm_dc_feature(s, ARM_FEATURE_M_MAIN)) {
1058 opc |= MO_ALIGN;
1061 addr = gen_aa32_addr(s, a32, opc);
1062 tcg_gen_qemu_ld_i32(val, addr, index, opc);
1063 tcg_temp_free(addr);
1066 static void gen_aa32_st_i32(DisasContext *s, TCGv_i32 val, TCGv_i32 a32,
1067 int index, MemOp opc)
1069 TCGv addr;
1071 if (arm_dc_feature(s, ARM_FEATURE_M) &&
1072 !arm_dc_feature(s, ARM_FEATURE_M_MAIN)) {
1073 opc |= MO_ALIGN;
1076 addr = gen_aa32_addr(s, a32, opc);
1077 tcg_gen_qemu_st_i32(val, addr, index, opc);
1078 tcg_temp_free(addr);
1081 #define DO_GEN_LD(SUFF, OPC) \
1082 static inline void gen_aa32_ld##SUFF(DisasContext *s, TCGv_i32 val, \
1083 TCGv_i32 a32, int index) \
1085 gen_aa32_ld_i32(s, val, a32, index, OPC | s->be_data); \
1087 static inline void gen_aa32_ld##SUFF##_iss(DisasContext *s, \
1088 TCGv_i32 val, \
1089 TCGv_i32 a32, int index, \
1090 ISSInfo issinfo) \
1092 gen_aa32_ld##SUFF(s, val, a32, index); \
1093 disas_set_da_iss(s, OPC, issinfo); \
1096 #define DO_GEN_ST(SUFF, OPC) \
1097 static inline void gen_aa32_st##SUFF(DisasContext *s, TCGv_i32 val, \
1098 TCGv_i32 a32, int index) \
1100 gen_aa32_st_i32(s, val, a32, index, OPC | s->be_data); \
1102 static inline void gen_aa32_st##SUFF##_iss(DisasContext *s, \
1103 TCGv_i32 val, \
1104 TCGv_i32 a32, int index, \
1105 ISSInfo issinfo) \
1107 gen_aa32_st##SUFF(s, val, a32, index); \
1108 disas_set_da_iss(s, OPC, issinfo | ISSIsWrite); \
1111 static inline void gen_aa32_frob64(DisasContext *s, TCGv_i64 val)
1113 /* Not needed for user-mode BE32, where we use MO_BE instead. */
1114 if (!IS_USER_ONLY && s->sctlr_b) {
1115 tcg_gen_rotri_i64(val, val, 32);
1119 static void gen_aa32_ld_i64(DisasContext *s, TCGv_i64 val, TCGv_i32 a32,
1120 int index, MemOp opc)
1122 TCGv addr = gen_aa32_addr(s, a32, opc);
1123 tcg_gen_qemu_ld_i64(val, addr, index, opc);
1124 gen_aa32_frob64(s, val);
1125 tcg_temp_free(addr);
1128 static inline void gen_aa32_ld64(DisasContext *s, TCGv_i64 val,
1129 TCGv_i32 a32, int index)
1131 gen_aa32_ld_i64(s, val, a32, index, MO_Q | s->be_data);
1134 static void gen_aa32_st_i64(DisasContext *s, TCGv_i64 val, TCGv_i32 a32,
1135 int index, MemOp opc)
1137 TCGv addr = gen_aa32_addr(s, a32, opc);
1139 /* Not needed for user-mode BE32, where we use MO_BE instead. */
1140 if (!IS_USER_ONLY && s->sctlr_b) {
1141 TCGv_i64 tmp = tcg_temp_new_i64();
1142 tcg_gen_rotri_i64(tmp, val, 32);
1143 tcg_gen_qemu_st_i64(tmp, addr, index, opc);
1144 tcg_temp_free_i64(tmp);
1145 } else {
1146 tcg_gen_qemu_st_i64(val, addr, index, opc);
1148 tcg_temp_free(addr);
1151 static inline void gen_aa32_st64(DisasContext *s, TCGv_i64 val,
1152 TCGv_i32 a32, int index)
1154 gen_aa32_st_i64(s, val, a32, index, MO_Q | s->be_data);
1157 DO_GEN_LD(8s, MO_SB)
1158 DO_GEN_LD(8u, MO_UB)
1159 DO_GEN_LD(16s, MO_SW)
1160 DO_GEN_LD(16u, MO_UW)
1161 DO_GEN_LD(32u, MO_UL)
1162 DO_GEN_ST(8, MO_UB)
1163 DO_GEN_ST(16, MO_UW)
1164 DO_GEN_ST(32, MO_UL)
1166 static inline void gen_hvc(DisasContext *s, int imm16)
1168 /* The pre HVC helper handles cases when HVC gets trapped
1169 * as an undefined insn by runtime configuration (ie before
1170 * the insn really executes).
1172 gen_set_pc_im(s, s->pc_curr);
1173 gen_helper_pre_hvc(cpu_env);
1174 /* Otherwise we will treat this as a real exception which
1175 * happens after execution of the insn. (The distinction matters
1176 * for the PC value reported to the exception handler and also
1177 * for single stepping.)
1179 s->svc_imm = imm16;
1180 gen_set_pc_im(s, s->base.pc_next);
1181 s->base.is_jmp = DISAS_HVC;
1184 static inline void gen_smc(DisasContext *s)
1186 /* As with HVC, we may take an exception either before or after
1187 * the insn executes.
1189 TCGv_i32 tmp;
1191 gen_set_pc_im(s, s->pc_curr);
1192 tmp = tcg_const_i32(syn_aa32_smc());
1193 gen_helper_pre_smc(cpu_env, tmp);
1194 tcg_temp_free_i32(tmp);
1195 gen_set_pc_im(s, s->base.pc_next);
1196 s->base.is_jmp = DISAS_SMC;
1199 static void gen_exception_internal_insn(DisasContext *s, uint32_t pc, int excp)
1201 gen_set_condexec(s);
1202 gen_set_pc_im(s, pc);
1203 gen_exception_internal(excp);
1204 s->base.is_jmp = DISAS_NORETURN;
1207 static void gen_exception_insn(DisasContext *s, uint32_t pc, int excp,
1208 int syn, uint32_t target_el)
1210 gen_set_condexec(s);
1211 gen_set_pc_im(s, pc);
1212 gen_exception(excp, syn, target_el);
1213 s->base.is_jmp = DISAS_NORETURN;
1216 static void gen_exception_bkpt_insn(DisasContext *s, uint32_t syn)
1218 TCGv_i32 tcg_syn;
1220 gen_set_condexec(s);
1221 gen_set_pc_im(s, s->pc_curr);
1222 tcg_syn = tcg_const_i32(syn);
1223 gen_helper_exception_bkpt_insn(cpu_env, tcg_syn);
1224 tcg_temp_free_i32(tcg_syn);
1225 s->base.is_jmp = DISAS_NORETURN;
1228 static void unallocated_encoding(DisasContext *s)
1230 /* Unallocated and reserved encodings are uncategorized */
1231 gen_exception_insn(s, s->pc_curr, EXCP_UDEF, syn_uncategorized(),
1232 default_exception_el(s));
1235 /* Force a TB lookup after an instruction that changes the CPU state. */
1236 static inline void gen_lookup_tb(DisasContext *s)
1238 tcg_gen_movi_i32(cpu_R[15], s->base.pc_next);
1239 s->base.is_jmp = DISAS_EXIT;
1242 static inline void gen_hlt(DisasContext *s, int imm)
1244 /* HLT. This has two purposes.
1245 * Architecturally, it is an external halting debug instruction.
1246 * Since QEMU doesn't implement external debug, we treat this as
1247 * it is required for halting debug disabled: it will UNDEF.
1248 * Secondly, "HLT 0x3C" is a T32 semihosting trap instruction,
1249 * and "HLT 0xF000" is an A32 semihosting syscall. These traps
1250 * must trigger semihosting even for ARMv7 and earlier, where
1251 * HLT was an undefined encoding.
1252 * In system mode, we don't allow userspace access to
1253 * semihosting, to provide some semblance of security
1254 * (and for consistency with our 32-bit semihosting).
1256 if (semihosting_enabled() &&
1257 #ifndef CONFIG_USER_ONLY
1258 s->current_el != 0 &&
1259 #endif
1260 (imm == (s->thumb ? 0x3c : 0xf000))) {
1261 gen_exception_internal_insn(s, s->base.pc_next, EXCP_SEMIHOST);
1262 return;
1265 unallocated_encoding(s);
1268 static inline void gen_add_data_offset(DisasContext *s, unsigned int insn,
1269 TCGv_i32 var)
1271 int val, rm, shift, shiftop;
1272 TCGv_i32 offset;
1274 if (!(insn & (1 << 25))) {
1275 /* immediate */
1276 val = insn & 0xfff;
1277 if (!(insn & (1 << 23)))
1278 val = -val;
1279 if (val != 0)
1280 tcg_gen_addi_i32(var, var, val);
1281 } else {
1282 /* shift/register */
1283 rm = (insn) & 0xf;
1284 shift = (insn >> 7) & 0x1f;
1285 shiftop = (insn >> 5) & 3;
1286 offset = load_reg(s, rm);
1287 gen_arm_shift_im(offset, shiftop, shift, 0);
1288 if (!(insn & (1 << 23)))
1289 tcg_gen_sub_i32(var, var, offset);
1290 else
1291 tcg_gen_add_i32(var, var, offset);
1292 tcg_temp_free_i32(offset);
1296 static inline void gen_add_datah_offset(DisasContext *s, unsigned int insn,
1297 int extra, TCGv_i32 var)
1299 int val, rm;
1300 TCGv_i32 offset;
1302 if (insn & (1 << 22)) {
1303 /* immediate */
1304 val = (insn & 0xf) | ((insn >> 4) & 0xf0);
1305 if (!(insn & (1 << 23)))
1306 val = -val;
1307 val += extra;
1308 if (val != 0)
1309 tcg_gen_addi_i32(var, var, val);
1310 } else {
1311 /* register */
1312 if (extra)
1313 tcg_gen_addi_i32(var, var, extra);
1314 rm = (insn) & 0xf;
1315 offset = load_reg(s, rm);
1316 if (!(insn & (1 << 23)))
1317 tcg_gen_sub_i32(var, var, offset);
1318 else
1319 tcg_gen_add_i32(var, var, offset);
1320 tcg_temp_free_i32(offset);
1324 static TCGv_ptr get_fpstatus_ptr(int neon)
1326 TCGv_ptr statusptr = tcg_temp_new_ptr();
1327 int offset;
1328 if (neon) {
1329 offset = offsetof(CPUARMState, vfp.standard_fp_status);
1330 } else {
1331 offset = offsetof(CPUARMState, vfp.fp_status);
1333 tcg_gen_addi_ptr(statusptr, cpu_env, offset);
1334 return statusptr;
1337 static inline long vfp_reg_offset(bool dp, unsigned reg)
1339 if (dp) {
1340 return offsetof(CPUARMState, vfp.zregs[reg >> 1].d[reg & 1]);
1341 } else {
1342 long ofs = offsetof(CPUARMState, vfp.zregs[reg >> 2].d[(reg >> 1) & 1]);
1343 if (reg & 1) {
1344 ofs += offsetof(CPU_DoubleU, l.upper);
1345 } else {
1346 ofs += offsetof(CPU_DoubleU, l.lower);
1348 return ofs;
1352 /* Return the offset of a 32-bit piece of a NEON register.
1353 zero is the least significant end of the register. */
1354 static inline long
1355 neon_reg_offset (int reg, int n)
1357 int sreg;
1358 sreg = reg * 2 + n;
1359 return vfp_reg_offset(0, sreg);
1362 /* Return the offset of a 2**SIZE piece of a NEON register, at index ELE,
1363 * where 0 is the least significant end of the register.
1365 static inline long
1366 neon_element_offset(int reg, int element, MemOp size)
1368 int element_size = 1 << size;
1369 int ofs = element * element_size;
1370 #ifdef HOST_WORDS_BIGENDIAN
1371 /* Calculate the offset assuming fully little-endian,
1372 * then XOR to account for the order of the 8-byte units.
1374 if (element_size < 8) {
1375 ofs ^= 8 - element_size;
1377 #endif
1378 return neon_reg_offset(reg, 0) + ofs;
1381 static TCGv_i32 neon_load_reg(int reg, int pass)
1383 TCGv_i32 tmp = tcg_temp_new_i32();
1384 tcg_gen_ld_i32(tmp, cpu_env, neon_reg_offset(reg, pass));
1385 return tmp;
1388 static void neon_load_element(TCGv_i32 var, int reg, int ele, MemOp mop)
1390 long offset = neon_element_offset(reg, ele, mop & MO_SIZE);
1392 switch (mop) {
1393 case MO_UB:
1394 tcg_gen_ld8u_i32(var, cpu_env, offset);
1395 break;
1396 case MO_UW:
1397 tcg_gen_ld16u_i32(var, cpu_env, offset);
1398 break;
1399 case MO_UL:
1400 tcg_gen_ld_i32(var, cpu_env, offset);
1401 break;
1402 default:
1403 g_assert_not_reached();
1407 static void neon_load_element64(TCGv_i64 var, int reg, int ele, MemOp mop)
1409 long offset = neon_element_offset(reg, ele, mop & MO_SIZE);
1411 switch (mop) {
1412 case MO_UB:
1413 tcg_gen_ld8u_i64(var, cpu_env, offset);
1414 break;
1415 case MO_UW:
1416 tcg_gen_ld16u_i64(var, cpu_env, offset);
1417 break;
1418 case MO_UL:
1419 tcg_gen_ld32u_i64(var, cpu_env, offset);
1420 break;
1421 case MO_Q:
1422 tcg_gen_ld_i64(var, cpu_env, offset);
1423 break;
1424 default:
1425 g_assert_not_reached();
1429 static void neon_store_reg(int reg, int pass, TCGv_i32 var)
1431 tcg_gen_st_i32(var, cpu_env, neon_reg_offset(reg, pass));
1432 tcg_temp_free_i32(var);
1435 static void neon_store_element(int reg, int ele, MemOp size, TCGv_i32 var)
1437 long offset = neon_element_offset(reg, ele, size);
1439 switch (size) {
1440 case MO_8:
1441 tcg_gen_st8_i32(var, cpu_env, offset);
1442 break;
1443 case MO_16:
1444 tcg_gen_st16_i32(var, cpu_env, offset);
1445 break;
1446 case MO_32:
1447 tcg_gen_st_i32(var, cpu_env, offset);
1448 break;
1449 default:
1450 g_assert_not_reached();
1454 static void neon_store_element64(int reg, int ele, MemOp size, TCGv_i64 var)
1456 long offset = neon_element_offset(reg, ele, size);
1458 switch (size) {
1459 case MO_8:
1460 tcg_gen_st8_i64(var, cpu_env, offset);
1461 break;
1462 case MO_16:
1463 tcg_gen_st16_i64(var, cpu_env, offset);
1464 break;
1465 case MO_32:
1466 tcg_gen_st32_i64(var, cpu_env, offset);
1467 break;
1468 case MO_64:
1469 tcg_gen_st_i64(var, cpu_env, offset);
1470 break;
1471 default:
1472 g_assert_not_reached();
1476 static inline void neon_load_reg64(TCGv_i64 var, int reg)
1478 tcg_gen_ld_i64(var, cpu_env, vfp_reg_offset(1, reg));
1481 static inline void neon_store_reg64(TCGv_i64 var, int reg)
1483 tcg_gen_st_i64(var, cpu_env, vfp_reg_offset(1, reg));
1486 static inline void neon_load_reg32(TCGv_i32 var, int reg)
1488 tcg_gen_ld_i32(var, cpu_env, vfp_reg_offset(false, reg));
1491 static inline void neon_store_reg32(TCGv_i32 var, int reg)
1493 tcg_gen_st_i32(var, cpu_env, vfp_reg_offset(false, reg));
1496 static TCGv_ptr vfp_reg_ptr(bool dp, int reg)
1498 TCGv_ptr ret = tcg_temp_new_ptr();
1499 tcg_gen_addi_ptr(ret, cpu_env, vfp_reg_offset(dp, reg));
1500 return ret;
1503 #define ARM_CP_RW_BIT (1 << 20)
1505 /* Include the VFP decoder */
1506 #include "translate-vfp.inc.c"
1508 static inline void iwmmxt_load_reg(TCGv_i64 var, int reg)
1510 tcg_gen_ld_i64(var, cpu_env, offsetof(CPUARMState, iwmmxt.regs[reg]));
1513 static inline void iwmmxt_store_reg(TCGv_i64 var, int reg)
1515 tcg_gen_st_i64(var, cpu_env, offsetof(CPUARMState, iwmmxt.regs[reg]));
1518 static inline TCGv_i32 iwmmxt_load_creg(int reg)
1520 TCGv_i32 var = tcg_temp_new_i32();
1521 tcg_gen_ld_i32(var, cpu_env, offsetof(CPUARMState, iwmmxt.cregs[reg]));
1522 return var;
1525 static inline void iwmmxt_store_creg(int reg, TCGv_i32 var)
1527 tcg_gen_st_i32(var, cpu_env, offsetof(CPUARMState, iwmmxt.cregs[reg]));
1528 tcg_temp_free_i32(var);
1531 static inline void gen_op_iwmmxt_movq_wRn_M0(int rn)
1533 iwmmxt_store_reg(cpu_M0, rn);
1536 static inline void gen_op_iwmmxt_movq_M0_wRn(int rn)
1538 iwmmxt_load_reg(cpu_M0, rn);
1541 static inline void gen_op_iwmmxt_orq_M0_wRn(int rn)
1543 iwmmxt_load_reg(cpu_V1, rn);
1544 tcg_gen_or_i64(cpu_M0, cpu_M0, cpu_V1);
1547 static inline void gen_op_iwmmxt_andq_M0_wRn(int rn)
1549 iwmmxt_load_reg(cpu_V1, rn);
1550 tcg_gen_and_i64(cpu_M0, cpu_M0, cpu_V1);
1553 static inline void gen_op_iwmmxt_xorq_M0_wRn(int rn)
1555 iwmmxt_load_reg(cpu_V1, rn);
1556 tcg_gen_xor_i64(cpu_M0, cpu_M0, cpu_V1);
1559 #define IWMMXT_OP(name) \
1560 static inline void gen_op_iwmmxt_##name##_M0_wRn(int rn) \
1562 iwmmxt_load_reg(cpu_V1, rn); \
1563 gen_helper_iwmmxt_##name(cpu_M0, cpu_M0, cpu_V1); \
1566 #define IWMMXT_OP_ENV(name) \
1567 static inline void gen_op_iwmmxt_##name##_M0_wRn(int rn) \
1569 iwmmxt_load_reg(cpu_V1, rn); \
1570 gen_helper_iwmmxt_##name(cpu_M0, cpu_env, cpu_M0, cpu_V1); \
1573 #define IWMMXT_OP_ENV_SIZE(name) \
1574 IWMMXT_OP_ENV(name##b) \
1575 IWMMXT_OP_ENV(name##w) \
1576 IWMMXT_OP_ENV(name##l)
1578 #define IWMMXT_OP_ENV1(name) \
1579 static inline void gen_op_iwmmxt_##name##_M0(void) \
1581 gen_helper_iwmmxt_##name(cpu_M0, cpu_env, cpu_M0); \
1584 IWMMXT_OP(maddsq)
1585 IWMMXT_OP(madduq)
1586 IWMMXT_OP(sadb)
1587 IWMMXT_OP(sadw)
1588 IWMMXT_OP(mulslw)
1589 IWMMXT_OP(mulshw)
1590 IWMMXT_OP(mululw)
1591 IWMMXT_OP(muluhw)
1592 IWMMXT_OP(macsw)
1593 IWMMXT_OP(macuw)
1595 IWMMXT_OP_ENV_SIZE(unpackl)
1596 IWMMXT_OP_ENV_SIZE(unpackh)
1598 IWMMXT_OP_ENV1(unpacklub)
1599 IWMMXT_OP_ENV1(unpackluw)
1600 IWMMXT_OP_ENV1(unpacklul)
1601 IWMMXT_OP_ENV1(unpackhub)
1602 IWMMXT_OP_ENV1(unpackhuw)
1603 IWMMXT_OP_ENV1(unpackhul)
1604 IWMMXT_OP_ENV1(unpacklsb)
1605 IWMMXT_OP_ENV1(unpacklsw)
1606 IWMMXT_OP_ENV1(unpacklsl)
1607 IWMMXT_OP_ENV1(unpackhsb)
1608 IWMMXT_OP_ENV1(unpackhsw)
1609 IWMMXT_OP_ENV1(unpackhsl)
1611 IWMMXT_OP_ENV_SIZE(cmpeq)
1612 IWMMXT_OP_ENV_SIZE(cmpgtu)
1613 IWMMXT_OP_ENV_SIZE(cmpgts)
1615 IWMMXT_OP_ENV_SIZE(mins)
1616 IWMMXT_OP_ENV_SIZE(minu)
1617 IWMMXT_OP_ENV_SIZE(maxs)
1618 IWMMXT_OP_ENV_SIZE(maxu)
1620 IWMMXT_OP_ENV_SIZE(subn)
1621 IWMMXT_OP_ENV_SIZE(addn)
1622 IWMMXT_OP_ENV_SIZE(subu)
1623 IWMMXT_OP_ENV_SIZE(addu)
1624 IWMMXT_OP_ENV_SIZE(subs)
1625 IWMMXT_OP_ENV_SIZE(adds)
1627 IWMMXT_OP_ENV(avgb0)
1628 IWMMXT_OP_ENV(avgb1)
1629 IWMMXT_OP_ENV(avgw0)
1630 IWMMXT_OP_ENV(avgw1)
1632 IWMMXT_OP_ENV(packuw)
1633 IWMMXT_OP_ENV(packul)
1634 IWMMXT_OP_ENV(packuq)
1635 IWMMXT_OP_ENV(packsw)
1636 IWMMXT_OP_ENV(packsl)
1637 IWMMXT_OP_ENV(packsq)
1639 static void gen_op_iwmmxt_set_mup(void)
1641 TCGv_i32 tmp;
1642 tmp = load_cpu_field(iwmmxt.cregs[ARM_IWMMXT_wCon]);
1643 tcg_gen_ori_i32(tmp, tmp, 2);
1644 store_cpu_field(tmp, iwmmxt.cregs[ARM_IWMMXT_wCon]);
1647 static void gen_op_iwmmxt_set_cup(void)
1649 TCGv_i32 tmp;
1650 tmp = load_cpu_field(iwmmxt.cregs[ARM_IWMMXT_wCon]);
1651 tcg_gen_ori_i32(tmp, tmp, 1);
1652 store_cpu_field(tmp, iwmmxt.cregs[ARM_IWMMXT_wCon]);
1655 static void gen_op_iwmmxt_setpsr_nz(void)
1657 TCGv_i32 tmp = tcg_temp_new_i32();
1658 gen_helper_iwmmxt_setpsr_nz(tmp, cpu_M0);
1659 store_cpu_field(tmp, iwmmxt.cregs[ARM_IWMMXT_wCASF]);
1662 static inline void gen_op_iwmmxt_addl_M0_wRn(int rn)
1664 iwmmxt_load_reg(cpu_V1, rn);
1665 tcg_gen_ext32u_i64(cpu_V1, cpu_V1);
1666 tcg_gen_add_i64(cpu_M0, cpu_M0, cpu_V1);
1669 static inline int gen_iwmmxt_address(DisasContext *s, uint32_t insn,
1670 TCGv_i32 dest)
1672 int rd;
1673 uint32_t offset;
1674 TCGv_i32 tmp;
1676 rd = (insn >> 16) & 0xf;
1677 tmp = load_reg(s, rd);
1679 offset = (insn & 0xff) << ((insn >> 7) & 2);
1680 if (insn & (1 << 24)) {
1681 /* Pre indexed */
1682 if (insn & (1 << 23))
1683 tcg_gen_addi_i32(tmp, tmp, offset);
1684 else
1685 tcg_gen_addi_i32(tmp, tmp, -offset);
1686 tcg_gen_mov_i32(dest, tmp);
1687 if (insn & (1 << 21))
1688 store_reg(s, rd, tmp);
1689 else
1690 tcg_temp_free_i32(tmp);
1691 } else if (insn & (1 << 21)) {
1692 /* Post indexed */
1693 tcg_gen_mov_i32(dest, tmp);
1694 if (insn & (1 << 23))
1695 tcg_gen_addi_i32(tmp, tmp, offset);
1696 else
1697 tcg_gen_addi_i32(tmp, tmp, -offset);
1698 store_reg(s, rd, tmp);
1699 } else if (!(insn & (1 << 23)))
1700 return 1;
1701 return 0;
1704 static inline int gen_iwmmxt_shift(uint32_t insn, uint32_t mask, TCGv_i32 dest)
1706 int rd = (insn >> 0) & 0xf;
1707 TCGv_i32 tmp;
1709 if (insn & (1 << 8)) {
1710 if (rd < ARM_IWMMXT_wCGR0 || rd > ARM_IWMMXT_wCGR3) {
1711 return 1;
1712 } else {
1713 tmp = iwmmxt_load_creg(rd);
1715 } else {
1716 tmp = tcg_temp_new_i32();
1717 iwmmxt_load_reg(cpu_V0, rd);
1718 tcg_gen_extrl_i64_i32(tmp, cpu_V0);
1720 tcg_gen_andi_i32(tmp, tmp, mask);
1721 tcg_gen_mov_i32(dest, tmp);
1722 tcg_temp_free_i32(tmp);
1723 return 0;
1726 /* Disassemble an iwMMXt instruction. Returns nonzero if an error occurred
1727 (ie. an undefined instruction). */
1728 static int disas_iwmmxt_insn(DisasContext *s, uint32_t insn)
1730 int rd, wrd;
1731 int rdhi, rdlo, rd0, rd1, i;
1732 TCGv_i32 addr;
1733 TCGv_i32 tmp, tmp2, tmp3;
1735 if ((insn & 0x0e000e00) == 0x0c000000) {
1736 if ((insn & 0x0fe00ff0) == 0x0c400000) {
1737 wrd = insn & 0xf;
1738 rdlo = (insn >> 12) & 0xf;
1739 rdhi = (insn >> 16) & 0xf;
1740 if (insn & ARM_CP_RW_BIT) { /* TMRRC */
1741 iwmmxt_load_reg(cpu_V0, wrd);
1742 tcg_gen_extrl_i64_i32(cpu_R[rdlo], cpu_V0);
1743 tcg_gen_extrh_i64_i32(cpu_R[rdhi], cpu_V0);
1744 } else { /* TMCRR */
1745 tcg_gen_concat_i32_i64(cpu_V0, cpu_R[rdlo], cpu_R[rdhi]);
1746 iwmmxt_store_reg(cpu_V0, wrd);
1747 gen_op_iwmmxt_set_mup();
1749 return 0;
1752 wrd = (insn >> 12) & 0xf;
1753 addr = tcg_temp_new_i32();
1754 if (gen_iwmmxt_address(s, insn, addr)) {
1755 tcg_temp_free_i32(addr);
1756 return 1;
1758 if (insn & ARM_CP_RW_BIT) {
1759 if ((insn >> 28) == 0xf) { /* WLDRW wCx */
1760 tmp = tcg_temp_new_i32();
1761 gen_aa32_ld32u(s, tmp, addr, get_mem_index(s));
1762 iwmmxt_store_creg(wrd, tmp);
1763 } else {
1764 i = 1;
1765 if (insn & (1 << 8)) {
1766 if (insn & (1 << 22)) { /* WLDRD */
1767 gen_aa32_ld64(s, cpu_M0, addr, get_mem_index(s));
1768 i = 0;
1769 } else { /* WLDRW wRd */
1770 tmp = tcg_temp_new_i32();
1771 gen_aa32_ld32u(s, tmp, addr, get_mem_index(s));
1773 } else {
1774 tmp = tcg_temp_new_i32();
1775 if (insn & (1 << 22)) { /* WLDRH */
1776 gen_aa32_ld16u(s, tmp, addr, get_mem_index(s));
1777 } else { /* WLDRB */
1778 gen_aa32_ld8u(s, tmp, addr, get_mem_index(s));
1781 if (i) {
1782 tcg_gen_extu_i32_i64(cpu_M0, tmp);
1783 tcg_temp_free_i32(tmp);
1785 gen_op_iwmmxt_movq_wRn_M0(wrd);
1787 } else {
1788 if ((insn >> 28) == 0xf) { /* WSTRW wCx */
1789 tmp = iwmmxt_load_creg(wrd);
1790 gen_aa32_st32(s, tmp, addr, get_mem_index(s));
1791 } else {
1792 gen_op_iwmmxt_movq_M0_wRn(wrd);
1793 tmp = tcg_temp_new_i32();
1794 if (insn & (1 << 8)) {
1795 if (insn & (1 << 22)) { /* WSTRD */
1796 gen_aa32_st64(s, cpu_M0, addr, get_mem_index(s));
1797 } else { /* WSTRW wRd */
1798 tcg_gen_extrl_i64_i32(tmp, cpu_M0);
1799 gen_aa32_st32(s, tmp, addr, get_mem_index(s));
1801 } else {
1802 if (insn & (1 << 22)) { /* WSTRH */
1803 tcg_gen_extrl_i64_i32(tmp, cpu_M0);
1804 gen_aa32_st16(s, tmp, addr, get_mem_index(s));
1805 } else { /* WSTRB */
1806 tcg_gen_extrl_i64_i32(tmp, cpu_M0);
1807 gen_aa32_st8(s, tmp, addr, get_mem_index(s));
1811 tcg_temp_free_i32(tmp);
1813 tcg_temp_free_i32(addr);
1814 return 0;
1817 if ((insn & 0x0f000000) != 0x0e000000)
1818 return 1;
1820 switch (((insn >> 12) & 0xf00) | ((insn >> 4) & 0xff)) {
1821 case 0x000: /* WOR */
1822 wrd = (insn >> 12) & 0xf;
1823 rd0 = (insn >> 0) & 0xf;
1824 rd1 = (insn >> 16) & 0xf;
1825 gen_op_iwmmxt_movq_M0_wRn(rd0);
1826 gen_op_iwmmxt_orq_M0_wRn(rd1);
1827 gen_op_iwmmxt_setpsr_nz();
1828 gen_op_iwmmxt_movq_wRn_M0(wrd);
1829 gen_op_iwmmxt_set_mup();
1830 gen_op_iwmmxt_set_cup();
1831 break;
1832 case 0x011: /* TMCR */
1833 if (insn & 0xf)
1834 return 1;
1835 rd = (insn >> 12) & 0xf;
1836 wrd = (insn >> 16) & 0xf;
1837 switch (wrd) {
1838 case ARM_IWMMXT_wCID:
1839 case ARM_IWMMXT_wCASF:
1840 break;
1841 case ARM_IWMMXT_wCon:
1842 gen_op_iwmmxt_set_cup();
1843 /* Fall through. */
1844 case ARM_IWMMXT_wCSSF:
1845 tmp = iwmmxt_load_creg(wrd);
1846 tmp2 = load_reg(s, rd);
1847 tcg_gen_andc_i32(tmp, tmp, tmp2);
1848 tcg_temp_free_i32(tmp2);
1849 iwmmxt_store_creg(wrd, tmp);
1850 break;
1851 case ARM_IWMMXT_wCGR0:
1852 case ARM_IWMMXT_wCGR1:
1853 case ARM_IWMMXT_wCGR2:
1854 case ARM_IWMMXT_wCGR3:
1855 gen_op_iwmmxt_set_cup();
1856 tmp = load_reg(s, rd);
1857 iwmmxt_store_creg(wrd, tmp);
1858 break;
1859 default:
1860 return 1;
1862 break;
1863 case 0x100: /* WXOR */
1864 wrd = (insn >> 12) & 0xf;
1865 rd0 = (insn >> 0) & 0xf;
1866 rd1 = (insn >> 16) & 0xf;
1867 gen_op_iwmmxt_movq_M0_wRn(rd0);
1868 gen_op_iwmmxt_xorq_M0_wRn(rd1);
1869 gen_op_iwmmxt_setpsr_nz();
1870 gen_op_iwmmxt_movq_wRn_M0(wrd);
1871 gen_op_iwmmxt_set_mup();
1872 gen_op_iwmmxt_set_cup();
1873 break;
1874 case 0x111: /* TMRC */
1875 if (insn & 0xf)
1876 return 1;
1877 rd = (insn >> 12) & 0xf;
1878 wrd = (insn >> 16) & 0xf;
1879 tmp = iwmmxt_load_creg(wrd);
1880 store_reg(s, rd, tmp);
1881 break;
1882 case 0x300: /* WANDN */
1883 wrd = (insn >> 12) & 0xf;
1884 rd0 = (insn >> 0) & 0xf;
1885 rd1 = (insn >> 16) & 0xf;
1886 gen_op_iwmmxt_movq_M0_wRn(rd0);
1887 tcg_gen_neg_i64(cpu_M0, cpu_M0);
1888 gen_op_iwmmxt_andq_M0_wRn(rd1);
1889 gen_op_iwmmxt_setpsr_nz();
1890 gen_op_iwmmxt_movq_wRn_M0(wrd);
1891 gen_op_iwmmxt_set_mup();
1892 gen_op_iwmmxt_set_cup();
1893 break;
1894 case 0x200: /* WAND */
1895 wrd = (insn >> 12) & 0xf;
1896 rd0 = (insn >> 0) & 0xf;
1897 rd1 = (insn >> 16) & 0xf;
1898 gen_op_iwmmxt_movq_M0_wRn(rd0);
1899 gen_op_iwmmxt_andq_M0_wRn(rd1);
1900 gen_op_iwmmxt_setpsr_nz();
1901 gen_op_iwmmxt_movq_wRn_M0(wrd);
1902 gen_op_iwmmxt_set_mup();
1903 gen_op_iwmmxt_set_cup();
1904 break;
1905 case 0x810: case 0xa10: /* WMADD */
1906 wrd = (insn >> 12) & 0xf;
1907 rd0 = (insn >> 0) & 0xf;
1908 rd1 = (insn >> 16) & 0xf;
1909 gen_op_iwmmxt_movq_M0_wRn(rd0);
1910 if (insn & (1 << 21))
1911 gen_op_iwmmxt_maddsq_M0_wRn(rd1);
1912 else
1913 gen_op_iwmmxt_madduq_M0_wRn(rd1);
1914 gen_op_iwmmxt_movq_wRn_M0(wrd);
1915 gen_op_iwmmxt_set_mup();
1916 break;
1917 case 0x10e: case 0x50e: case 0x90e: case 0xd0e: /* WUNPCKIL */
1918 wrd = (insn >> 12) & 0xf;
1919 rd0 = (insn >> 16) & 0xf;
1920 rd1 = (insn >> 0) & 0xf;
1921 gen_op_iwmmxt_movq_M0_wRn(rd0);
1922 switch ((insn >> 22) & 3) {
1923 case 0:
1924 gen_op_iwmmxt_unpacklb_M0_wRn(rd1);
1925 break;
1926 case 1:
1927 gen_op_iwmmxt_unpacklw_M0_wRn(rd1);
1928 break;
1929 case 2:
1930 gen_op_iwmmxt_unpackll_M0_wRn(rd1);
1931 break;
1932 case 3:
1933 return 1;
1935 gen_op_iwmmxt_movq_wRn_M0(wrd);
1936 gen_op_iwmmxt_set_mup();
1937 gen_op_iwmmxt_set_cup();
1938 break;
1939 case 0x10c: case 0x50c: case 0x90c: case 0xd0c: /* WUNPCKIH */
1940 wrd = (insn >> 12) & 0xf;
1941 rd0 = (insn >> 16) & 0xf;
1942 rd1 = (insn >> 0) & 0xf;
1943 gen_op_iwmmxt_movq_M0_wRn(rd0);
1944 switch ((insn >> 22) & 3) {
1945 case 0:
1946 gen_op_iwmmxt_unpackhb_M0_wRn(rd1);
1947 break;
1948 case 1:
1949 gen_op_iwmmxt_unpackhw_M0_wRn(rd1);
1950 break;
1951 case 2:
1952 gen_op_iwmmxt_unpackhl_M0_wRn(rd1);
1953 break;
1954 case 3:
1955 return 1;
1957 gen_op_iwmmxt_movq_wRn_M0(wrd);
1958 gen_op_iwmmxt_set_mup();
1959 gen_op_iwmmxt_set_cup();
1960 break;
1961 case 0x012: case 0x112: case 0x412: case 0x512: /* WSAD */
1962 wrd = (insn >> 12) & 0xf;
1963 rd0 = (insn >> 16) & 0xf;
1964 rd1 = (insn >> 0) & 0xf;
1965 gen_op_iwmmxt_movq_M0_wRn(rd0);
1966 if (insn & (1 << 22))
1967 gen_op_iwmmxt_sadw_M0_wRn(rd1);
1968 else
1969 gen_op_iwmmxt_sadb_M0_wRn(rd1);
1970 if (!(insn & (1 << 20)))
1971 gen_op_iwmmxt_addl_M0_wRn(wrd);
1972 gen_op_iwmmxt_movq_wRn_M0(wrd);
1973 gen_op_iwmmxt_set_mup();
1974 break;
1975 case 0x010: case 0x110: case 0x210: case 0x310: /* WMUL */
1976 wrd = (insn >> 12) & 0xf;
1977 rd0 = (insn >> 16) & 0xf;
1978 rd1 = (insn >> 0) & 0xf;
1979 gen_op_iwmmxt_movq_M0_wRn(rd0);
1980 if (insn & (1 << 21)) {
1981 if (insn & (1 << 20))
1982 gen_op_iwmmxt_mulshw_M0_wRn(rd1);
1983 else
1984 gen_op_iwmmxt_mulslw_M0_wRn(rd1);
1985 } else {
1986 if (insn & (1 << 20))
1987 gen_op_iwmmxt_muluhw_M0_wRn(rd1);
1988 else
1989 gen_op_iwmmxt_mululw_M0_wRn(rd1);
1991 gen_op_iwmmxt_movq_wRn_M0(wrd);
1992 gen_op_iwmmxt_set_mup();
1993 break;
1994 case 0x410: case 0x510: case 0x610: case 0x710: /* WMAC */
1995 wrd = (insn >> 12) & 0xf;
1996 rd0 = (insn >> 16) & 0xf;
1997 rd1 = (insn >> 0) & 0xf;
1998 gen_op_iwmmxt_movq_M0_wRn(rd0);
1999 if (insn & (1 << 21))
2000 gen_op_iwmmxt_macsw_M0_wRn(rd1);
2001 else
2002 gen_op_iwmmxt_macuw_M0_wRn(rd1);
2003 if (!(insn & (1 << 20))) {
2004 iwmmxt_load_reg(cpu_V1, wrd);
2005 tcg_gen_add_i64(cpu_M0, cpu_M0, cpu_V1);
2007 gen_op_iwmmxt_movq_wRn_M0(wrd);
2008 gen_op_iwmmxt_set_mup();
2009 break;
2010 case 0x006: case 0x406: case 0x806: case 0xc06: /* WCMPEQ */
2011 wrd = (insn >> 12) & 0xf;
2012 rd0 = (insn >> 16) & 0xf;
2013 rd1 = (insn >> 0) & 0xf;
2014 gen_op_iwmmxt_movq_M0_wRn(rd0);
2015 switch ((insn >> 22) & 3) {
2016 case 0:
2017 gen_op_iwmmxt_cmpeqb_M0_wRn(rd1);
2018 break;
2019 case 1:
2020 gen_op_iwmmxt_cmpeqw_M0_wRn(rd1);
2021 break;
2022 case 2:
2023 gen_op_iwmmxt_cmpeql_M0_wRn(rd1);
2024 break;
2025 case 3:
2026 return 1;
2028 gen_op_iwmmxt_movq_wRn_M0(wrd);
2029 gen_op_iwmmxt_set_mup();
2030 gen_op_iwmmxt_set_cup();
2031 break;
2032 case 0x800: case 0x900: case 0xc00: case 0xd00: /* WAVG2 */
2033 wrd = (insn >> 12) & 0xf;
2034 rd0 = (insn >> 16) & 0xf;
2035 rd1 = (insn >> 0) & 0xf;
2036 gen_op_iwmmxt_movq_M0_wRn(rd0);
2037 if (insn & (1 << 22)) {
2038 if (insn & (1 << 20))
2039 gen_op_iwmmxt_avgw1_M0_wRn(rd1);
2040 else
2041 gen_op_iwmmxt_avgw0_M0_wRn(rd1);
2042 } else {
2043 if (insn & (1 << 20))
2044 gen_op_iwmmxt_avgb1_M0_wRn(rd1);
2045 else
2046 gen_op_iwmmxt_avgb0_M0_wRn(rd1);
2048 gen_op_iwmmxt_movq_wRn_M0(wrd);
2049 gen_op_iwmmxt_set_mup();
2050 gen_op_iwmmxt_set_cup();
2051 break;
2052 case 0x802: case 0x902: case 0xa02: case 0xb02: /* WALIGNR */
2053 wrd = (insn >> 12) & 0xf;
2054 rd0 = (insn >> 16) & 0xf;
2055 rd1 = (insn >> 0) & 0xf;
2056 gen_op_iwmmxt_movq_M0_wRn(rd0);
2057 tmp = iwmmxt_load_creg(ARM_IWMMXT_wCGR0 + ((insn >> 20) & 3));
2058 tcg_gen_andi_i32(tmp, tmp, 7);
2059 iwmmxt_load_reg(cpu_V1, rd1);
2060 gen_helper_iwmmxt_align(cpu_M0, cpu_M0, cpu_V1, tmp);
2061 tcg_temp_free_i32(tmp);
2062 gen_op_iwmmxt_movq_wRn_M0(wrd);
2063 gen_op_iwmmxt_set_mup();
2064 break;
2065 case 0x601: case 0x605: case 0x609: case 0x60d: /* TINSR */
2066 if (((insn >> 6) & 3) == 3)
2067 return 1;
2068 rd = (insn >> 12) & 0xf;
2069 wrd = (insn >> 16) & 0xf;
2070 tmp = load_reg(s, rd);
2071 gen_op_iwmmxt_movq_M0_wRn(wrd);
2072 switch ((insn >> 6) & 3) {
2073 case 0:
2074 tmp2 = tcg_const_i32(0xff);
2075 tmp3 = tcg_const_i32((insn & 7) << 3);
2076 break;
2077 case 1:
2078 tmp2 = tcg_const_i32(0xffff);
2079 tmp3 = tcg_const_i32((insn & 3) << 4);
2080 break;
2081 case 2:
2082 tmp2 = tcg_const_i32(0xffffffff);
2083 tmp3 = tcg_const_i32((insn & 1) << 5);
2084 break;
2085 default:
2086 tmp2 = NULL;
2087 tmp3 = NULL;
2089 gen_helper_iwmmxt_insr(cpu_M0, cpu_M0, tmp, tmp2, tmp3);
2090 tcg_temp_free_i32(tmp3);
2091 tcg_temp_free_i32(tmp2);
2092 tcg_temp_free_i32(tmp);
2093 gen_op_iwmmxt_movq_wRn_M0(wrd);
2094 gen_op_iwmmxt_set_mup();
2095 break;
2096 case 0x107: case 0x507: case 0x907: case 0xd07: /* TEXTRM */
2097 rd = (insn >> 12) & 0xf;
2098 wrd = (insn >> 16) & 0xf;
2099 if (rd == 15 || ((insn >> 22) & 3) == 3)
2100 return 1;
2101 gen_op_iwmmxt_movq_M0_wRn(wrd);
2102 tmp = tcg_temp_new_i32();
2103 switch ((insn >> 22) & 3) {
2104 case 0:
2105 tcg_gen_shri_i64(cpu_M0, cpu_M0, (insn & 7) << 3);
2106 tcg_gen_extrl_i64_i32(tmp, cpu_M0);
2107 if (insn & 8) {
2108 tcg_gen_ext8s_i32(tmp, tmp);
2109 } else {
2110 tcg_gen_andi_i32(tmp, tmp, 0xff);
2112 break;
2113 case 1:
2114 tcg_gen_shri_i64(cpu_M0, cpu_M0, (insn & 3) << 4);
2115 tcg_gen_extrl_i64_i32(tmp, cpu_M0);
2116 if (insn & 8) {
2117 tcg_gen_ext16s_i32(tmp, tmp);
2118 } else {
2119 tcg_gen_andi_i32(tmp, tmp, 0xffff);
2121 break;
2122 case 2:
2123 tcg_gen_shri_i64(cpu_M0, cpu_M0, (insn & 1) << 5);
2124 tcg_gen_extrl_i64_i32(tmp, cpu_M0);
2125 break;
2127 store_reg(s, rd, tmp);
2128 break;
2129 case 0x117: case 0x517: case 0x917: case 0xd17: /* TEXTRC */
2130 if ((insn & 0x000ff008) != 0x0003f000 || ((insn >> 22) & 3) == 3)
2131 return 1;
2132 tmp = iwmmxt_load_creg(ARM_IWMMXT_wCASF);
2133 switch ((insn >> 22) & 3) {
2134 case 0:
2135 tcg_gen_shri_i32(tmp, tmp, ((insn & 7) << 2) + 0);
2136 break;
2137 case 1:
2138 tcg_gen_shri_i32(tmp, tmp, ((insn & 3) << 3) + 4);
2139 break;
2140 case 2:
2141 tcg_gen_shri_i32(tmp, tmp, ((insn & 1) << 4) + 12);
2142 break;
2144 tcg_gen_shli_i32(tmp, tmp, 28);
2145 gen_set_nzcv(tmp);
2146 tcg_temp_free_i32(tmp);
2147 break;
2148 case 0x401: case 0x405: case 0x409: case 0x40d: /* TBCST */
2149 if (((insn >> 6) & 3) == 3)
2150 return 1;
2151 rd = (insn >> 12) & 0xf;
2152 wrd = (insn >> 16) & 0xf;
2153 tmp = load_reg(s, rd);
2154 switch ((insn >> 6) & 3) {
2155 case 0:
2156 gen_helper_iwmmxt_bcstb(cpu_M0, tmp);
2157 break;
2158 case 1:
2159 gen_helper_iwmmxt_bcstw(cpu_M0, tmp);
2160 break;
2161 case 2:
2162 gen_helper_iwmmxt_bcstl(cpu_M0, tmp);
2163 break;
2165 tcg_temp_free_i32(tmp);
2166 gen_op_iwmmxt_movq_wRn_M0(wrd);
2167 gen_op_iwmmxt_set_mup();
2168 break;
2169 case 0x113: case 0x513: case 0x913: case 0xd13: /* TANDC */
2170 if ((insn & 0x000ff00f) != 0x0003f000 || ((insn >> 22) & 3) == 3)
2171 return 1;
2172 tmp = iwmmxt_load_creg(ARM_IWMMXT_wCASF);
2173 tmp2 = tcg_temp_new_i32();
2174 tcg_gen_mov_i32(tmp2, tmp);
2175 switch ((insn >> 22) & 3) {
2176 case 0:
2177 for (i = 0; i < 7; i ++) {
2178 tcg_gen_shli_i32(tmp2, tmp2, 4);
2179 tcg_gen_and_i32(tmp, tmp, tmp2);
2181 break;
2182 case 1:
2183 for (i = 0; i < 3; i ++) {
2184 tcg_gen_shli_i32(tmp2, tmp2, 8);
2185 tcg_gen_and_i32(tmp, tmp, tmp2);
2187 break;
2188 case 2:
2189 tcg_gen_shli_i32(tmp2, tmp2, 16);
2190 tcg_gen_and_i32(tmp, tmp, tmp2);
2191 break;
2193 gen_set_nzcv(tmp);
2194 tcg_temp_free_i32(tmp2);
2195 tcg_temp_free_i32(tmp);
2196 break;
2197 case 0x01c: case 0x41c: case 0x81c: case 0xc1c: /* WACC */
2198 wrd = (insn >> 12) & 0xf;
2199 rd0 = (insn >> 16) & 0xf;
2200 gen_op_iwmmxt_movq_M0_wRn(rd0);
2201 switch ((insn >> 22) & 3) {
2202 case 0:
2203 gen_helper_iwmmxt_addcb(cpu_M0, cpu_M0);
2204 break;
2205 case 1:
2206 gen_helper_iwmmxt_addcw(cpu_M0, cpu_M0);
2207 break;
2208 case 2:
2209 gen_helper_iwmmxt_addcl(cpu_M0, cpu_M0);
2210 break;
2211 case 3:
2212 return 1;
2214 gen_op_iwmmxt_movq_wRn_M0(wrd);
2215 gen_op_iwmmxt_set_mup();
2216 break;
2217 case 0x115: case 0x515: case 0x915: case 0xd15: /* TORC */
2218 if ((insn & 0x000ff00f) != 0x0003f000 || ((insn >> 22) & 3) == 3)
2219 return 1;
2220 tmp = iwmmxt_load_creg(ARM_IWMMXT_wCASF);
2221 tmp2 = tcg_temp_new_i32();
2222 tcg_gen_mov_i32(tmp2, tmp);
2223 switch ((insn >> 22) & 3) {
2224 case 0:
2225 for (i = 0; i < 7; i ++) {
2226 tcg_gen_shli_i32(tmp2, tmp2, 4);
2227 tcg_gen_or_i32(tmp, tmp, tmp2);
2229 break;
2230 case 1:
2231 for (i = 0; i < 3; i ++) {
2232 tcg_gen_shli_i32(tmp2, tmp2, 8);
2233 tcg_gen_or_i32(tmp, tmp, tmp2);
2235 break;
2236 case 2:
2237 tcg_gen_shli_i32(tmp2, tmp2, 16);
2238 tcg_gen_or_i32(tmp, tmp, tmp2);
2239 break;
2241 gen_set_nzcv(tmp);
2242 tcg_temp_free_i32(tmp2);
2243 tcg_temp_free_i32(tmp);
2244 break;
2245 case 0x103: case 0x503: case 0x903: case 0xd03: /* TMOVMSK */
2246 rd = (insn >> 12) & 0xf;
2247 rd0 = (insn >> 16) & 0xf;
2248 if ((insn & 0xf) != 0 || ((insn >> 22) & 3) == 3)
2249 return 1;
2250 gen_op_iwmmxt_movq_M0_wRn(rd0);
2251 tmp = tcg_temp_new_i32();
2252 switch ((insn >> 22) & 3) {
2253 case 0:
2254 gen_helper_iwmmxt_msbb(tmp, cpu_M0);
2255 break;
2256 case 1:
2257 gen_helper_iwmmxt_msbw(tmp, cpu_M0);
2258 break;
2259 case 2:
2260 gen_helper_iwmmxt_msbl(tmp, cpu_M0);
2261 break;
2263 store_reg(s, rd, tmp);
2264 break;
2265 case 0x106: case 0x306: case 0x506: case 0x706: /* WCMPGT */
2266 case 0x906: case 0xb06: case 0xd06: case 0xf06:
2267 wrd = (insn >> 12) & 0xf;
2268 rd0 = (insn >> 16) & 0xf;
2269 rd1 = (insn >> 0) & 0xf;
2270 gen_op_iwmmxt_movq_M0_wRn(rd0);
2271 switch ((insn >> 22) & 3) {
2272 case 0:
2273 if (insn & (1 << 21))
2274 gen_op_iwmmxt_cmpgtsb_M0_wRn(rd1);
2275 else
2276 gen_op_iwmmxt_cmpgtub_M0_wRn(rd1);
2277 break;
2278 case 1:
2279 if (insn & (1 << 21))
2280 gen_op_iwmmxt_cmpgtsw_M0_wRn(rd1);
2281 else
2282 gen_op_iwmmxt_cmpgtuw_M0_wRn(rd1);
2283 break;
2284 case 2:
2285 if (insn & (1 << 21))
2286 gen_op_iwmmxt_cmpgtsl_M0_wRn(rd1);
2287 else
2288 gen_op_iwmmxt_cmpgtul_M0_wRn(rd1);
2289 break;
2290 case 3:
2291 return 1;
2293 gen_op_iwmmxt_movq_wRn_M0(wrd);
2294 gen_op_iwmmxt_set_mup();
2295 gen_op_iwmmxt_set_cup();
2296 break;
2297 case 0x00e: case 0x20e: case 0x40e: case 0x60e: /* WUNPCKEL */
2298 case 0x80e: case 0xa0e: case 0xc0e: case 0xe0e:
2299 wrd = (insn >> 12) & 0xf;
2300 rd0 = (insn >> 16) & 0xf;
2301 gen_op_iwmmxt_movq_M0_wRn(rd0);
2302 switch ((insn >> 22) & 3) {
2303 case 0:
2304 if (insn & (1 << 21))
2305 gen_op_iwmmxt_unpacklsb_M0();
2306 else
2307 gen_op_iwmmxt_unpacklub_M0();
2308 break;
2309 case 1:
2310 if (insn & (1 << 21))
2311 gen_op_iwmmxt_unpacklsw_M0();
2312 else
2313 gen_op_iwmmxt_unpackluw_M0();
2314 break;
2315 case 2:
2316 if (insn & (1 << 21))
2317 gen_op_iwmmxt_unpacklsl_M0();
2318 else
2319 gen_op_iwmmxt_unpacklul_M0();
2320 break;
2321 case 3:
2322 return 1;
2324 gen_op_iwmmxt_movq_wRn_M0(wrd);
2325 gen_op_iwmmxt_set_mup();
2326 gen_op_iwmmxt_set_cup();
2327 break;
2328 case 0x00c: case 0x20c: case 0x40c: case 0x60c: /* WUNPCKEH */
2329 case 0x80c: case 0xa0c: case 0xc0c: case 0xe0c:
2330 wrd = (insn >> 12) & 0xf;
2331 rd0 = (insn >> 16) & 0xf;
2332 gen_op_iwmmxt_movq_M0_wRn(rd0);
2333 switch ((insn >> 22) & 3) {
2334 case 0:
2335 if (insn & (1 << 21))
2336 gen_op_iwmmxt_unpackhsb_M0();
2337 else
2338 gen_op_iwmmxt_unpackhub_M0();
2339 break;
2340 case 1:
2341 if (insn & (1 << 21))
2342 gen_op_iwmmxt_unpackhsw_M0();
2343 else
2344 gen_op_iwmmxt_unpackhuw_M0();
2345 break;
2346 case 2:
2347 if (insn & (1 << 21))
2348 gen_op_iwmmxt_unpackhsl_M0();
2349 else
2350 gen_op_iwmmxt_unpackhul_M0();
2351 break;
2352 case 3:
2353 return 1;
2355 gen_op_iwmmxt_movq_wRn_M0(wrd);
2356 gen_op_iwmmxt_set_mup();
2357 gen_op_iwmmxt_set_cup();
2358 break;
2359 case 0x204: case 0x604: case 0xa04: case 0xe04: /* WSRL */
2360 case 0x214: case 0x614: case 0xa14: case 0xe14:
2361 if (((insn >> 22) & 3) == 0)
2362 return 1;
2363 wrd = (insn >> 12) & 0xf;
2364 rd0 = (insn >> 16) & 0xf;
2365 gen_op_iwmmxt_movq_M0_wRn(rd0);
2366 tmp = tcg_temp_new_i32();
2367 if (gen_iwmmxt_shift(insn, 0xff, tmp)) {
2368 tcg_temp_free_i32(tmp);
2369 return 1;
2371 switch ((insn >> 22) & 3) {
2372 case 1:
2373 gen_helper_iwmmxt_srlw(cpu_M0, cpu_env, cpu_M0, tmp);
2374 break;
2375 case 2:
2376 gen_helper_iwmmxt_srll(cpu_M0, cpu_env, cpu_M0, tmp);
2377 break;
2378 case 3:
2379 gen_helper_iwmmxt_srlq(cpu_M0, cpu_env, cpu_M0, tmp);
2380 break;
2382 tcg_temp_free_i32(tmp);
2383 gen_op_iwmmxt_movq_wRn_M0(wrd);
2384 gen_op_iwmmxt_set_mup();
2385 gen_op_iwmmxt_set_cup();
2386 break;
2387 case 0x004: case 0x404: case 0x804: case 0xc04: /* WSRA */
2388 case 0x014: case 0x414: case 0x814: case 0xc14:
2389 if (((insn >> 22) & 3) == 0)
2390 return 1;
2391 wrd = (insn >> 12) & 0xf;
2392 rd0 = (insn >> 16) & 0xf;
2393 gen_op_iwmmxt_movq_M0_wRn(rd0);
2394 tmp = tcg_temp_new_i32();
2395 if (gen_iwmmxt_shift(insn, 0xff, tmp)) {
2396 tcg_temp_free_i32(tmp);
2397 return 1;
2399 switch ((insn >> 22) & 3) {
2400 case 1:
2401 gen_helper_iwmmxt_sraw(cpu_M0, cpu_env, cpu_M0, tmp);
2402 break;
2403 case 2:
2404 gen_helper_iwmmxt_sral(cpu_M0, cpu_env, cpu_M0, tmp);
2405 break;
2406 case 3:
2407 gen_helper_iwmmxt_sraq(cpu_M0, cpu_env, cpu_M0, tmp);
2408 break;
2410 tcg_temp_free_i32(tmp);
2411 gen_op_iwmmxt_movq_wRn_M0(wrd);
2412 gen_op_iwmmxt_set_mup();
2413 gen_op_iwmmxt_set_cup();
2414 break;
2415 case 0x104: case 0x504: case 0x904: case 0xd04: /* WSLL */
2416 case 0x114: case 0x514: case 0x914: case 0xd14:
2417 if (((insn >> 22) & 3) == 0)
2418 return 1;
2419 wrd = (insn >> 12) & 0xf;
2420 rd0 = (insn >> 16) & 0xf;
2421 gen_op_iwmmxt_movq_M0_wRn(rd0);
2422 tmp = tcg_temp_new_i32();
2423 if (gen_iwmmxt_shift(insn, 0xff, tmp)) {
2424 tcg_temp_free_i32(tmp);
2425 return 1;
2427 switch ((insn >> 22) & 3) {
2428 case 1:
2429 gen_helper_iwmmxt_sllw(cpu_M0, cpu_env, cpu_M0, tmp);
2430 break;
2431 case 2:
2432 gen_helper_iwmmxt_slll(cpu_M0, cpu_env, cpu_M0, tmp);
2433 break;
2434 case 3:
2435 gen_helper_iwmmxt_sllq(cpu_M0, cpu_env, cpu_M0, tmp);
2436 break;
2438 tcg_temp_free_i32(tmp);
2439 gen_op_iwmmxt_movq_wRn_M0(wrd);
2440 gen_op_iwmmxt_set_mup();
2441 gen_op_iwmmxt_set_cup();
2442 break;
2443 case 0x304: case 0x704: case 0xb04: case 0xf04: /* WROR */
2444 case 0x314: case 0x714: case 0xb14: case 0xf14:
2445 if (((insn >> 22) & 3) == 0)
2446 return 1;
2447 wrd = (insn >> 12) & 0xf;
2448 rd0 = (insn >> 16) & 0xf;
2449 gen_op_iwmmxt_movq_M0_wRn(rd0);
2450 tmp = tcg_temp_new_i32();
2451 switch ((insn >> 22) & 3) {
2452 case 1:
2453 if (gen_iwmmxt_shift(insn, 0xf, tmp)) {
2454 tcg_temp_free_i32(tmp);
2455 return 1;
2457 gen_helper_iwmmxt_rorw(cpu_M0, cpu_env, cpu_M0, tmp);
2458 break;
2459 case 2:
2460 if (gen_iwmmxt_shift(insn, 0x1f, tmp)) {
2461 tcg_temp_free_i32(tmp);
2462 return 1;
2464 gen_helper_iwmmxt_rorl(cpu_M0, cpu_env, cpu_M0, tmp);
2465 break;
2466 case 3:
2467 if (gen_iwmmxt_shift(insn, 0x3f, tmp)) {
2468 tcg_temp_free_i32(tmp);
2469 return 1;
2471 gen_helper_iwmmxt_rorq(cpu_M0, cpu_env, cpu_M0, tmp);
2472 break;
2474 tcg_temp_free_i32(tmp);
2475 gen_op_iwmmxt_movq_wRn_M0(wrd);
2476 gen_op_iwmmxt_set_mup();
2477 gen_op_iwmmxt_set_cup();
2478 break;
2479 case 0x116: case 0x316: case 0x516: case 0x716: /* WMIN */
2480 case 0x916: case 0xb16: case 0xd16: case 0xf16:
2481 wrd = (insn >> 12) & 0xf;
2482 rd0 = (insn >> 16) & 0xf;
2483 rd1 = (insn >> 0) & 0xf;
2484 gen_op_iwmmxt_movq_M0_wRn(rd0);
2485 switch ((insn >> 22) & 3) {
2486 case 0:
2487 if (insn & (1 << 21))
2488 gen_op_iwmmxt_minsb_M0_wRn(rd1);
2489 else
2490 gen_op_iwmmxt_minub_M0_wRn(rd1);
2491 break;
2492 case 1:
2493 if (insn & (1 << 21))
2494 gen_op_iwmmxt_minsw_M0_wRn(rd1);
2495 else
2496 gen_op_iwmmxt_minuw_M0_wRn(rd1);
2497 break;
2498 case 2:
2499 if (insn & (1 << 21))
2500 gen_op_iwmmxt_minsl_M0_wRn(rd1);
2501 else
2502 gen_op_iwmmxt_minul_M0_wRn(rd1);
2503 break;
2504 case 3:
2505 return 1;
2507 gen_op_iwmmxt_movq_wRn_M0(wrd);
2508 gen_op_iwmmxt_set_mup();
2509 break;
2510 case 0x016: case 0x216: case 0x416: case 0x616: /* WMAX */
2511 case 0x816: case 0xa16: case 0xc16: case 0xe16:
2512 wrd = (insn >> 12) & 0xf;
2513 rd0 = (insn >> 16) & 0xf;
2514 rd1 = (insn >> 0) & 0xf;
2515 gen_op_iwmmxt_movq_M0_wRn(rd0);
2516 switch ((insn >> 22) & 3) {
2517 case 0:
2518 if (insn & (1 << 21))
2519 gen_op_iwmmxt_maxsb_M0_wRn(rd1);
2520 else
2521 gen_op_iwmmxt_maxub_M0_wRn(rd1);
2522 break;
2523 case 1:
2524 if (insn & (1 << 21))
2525 gen_op_iwmmxt_maxsw_M0_wRn(rd1);
2526 else
2527 gen_op_iwmmxt_maxuw_M0_wRn(rd1);
2528 break;
2529 case 2:
2530 if (insn & (1 << 21))
2531 gen_op_iwmmxt_maxsl_M0_wRn(rd1);
2532 else
2533 gen_op_iwmmxt_maxul_M0_wRn(rd1);
2534 break;
2535 case 3:
2536 return 1;
2538 gen_op_iwmmxt_movq_wRn_M0(wrd);
2539 gen_op_iwmmxt_set_mup();
2540 break;
2541 case 0x002: case 0x102: case 0x202: case 0x302: /* WALIGNI */
2542 case 0x402: case 0x502: case 0x602: case 0x702:
2543 wrd = (insn >> 12) & 0xf;
2544 rd0 = (insn >> 16) & 0xf;
2545 rd1 = (insn >> 0) & 0xf;
2546 gen_op_iwmmxt_movq_M0_wRn(rd0);
2547 tmp = tcg_const_i32((insn >> 20) & 3);
2548 iwmmxt_load_reg(cpu_V1, rd1);
2549 gen_helper_iwmmxt_align(cpu_M0, cpu_M0, cpu_V1, tmp);
2550 tcg_temp_free_i32(tmp);
2551 gen_op_iwmmxt_movq_wRn_M0(wrd);
2552 gen_op_iwmmxt_set_mup();
2553 break;
2554 case 0x01a: case 0x11a: case 0x21a: case 0x31a: /* WSUB */
2555 case 0x41a: case 0x51a: case 0x61a: case 0x71a:
2556 case 0x81a: case 0x91a: case 0xa1a: case 0xb1a:
2557 case 0xc1a: case 0xd1a: case 0xe1a: case 0xf1a:
2558 wrd = (insn >> 12) & 0xf;
2559 rd0 = (insn >> 16) & 0xf;
2560 rd1 = (insn >> 0) & 0xf;
2561 gen_op_iwmmxt_movq_M0_wRn(rd0);
2562 switch ((insn >> 20) & 0xf) {
2563 case 0x0:
2564 gen_op_iwmmxt_subnb_M0_wRn(rd1);
2565 break;
2566 case 0x1:
2567 gen_op_iwmmxt_subub_M0_wRn(rd1);
2568 break;
2569 case 0x3:
2570 gen_op_iwmmxt_subsb_M0_wRn(rd1);
2571 break;
2572 case 0x4:
2573 gen_op_iwmmxt_subnw_M0_wRn(rd1);
2574 break;
2575 case 0x5:
2576 gen_op_iwmmxt_subuw_M0_wRn(rd1);
2577 break;
2578 case 0x7:
2579 gen_op_iwmmxt_subsw_M0_wRn(rd1);
2580 break;
2581 case 0x8:
2582 gen_op_iwmmxt_subnl_M0_wRn(rd1);
2583 break;
2584 case 0x9:
2585 gen_op_iwmmxt_subul_M0_wRn(rd1);
2586 break;
2587 case 0xb:
2588 gen_op_iwmmxt_subsl_M0_wRn(rd1);
2589 break;
2590 default:
2591 return 1;
2593 gen_op_iwmmxt_movq_wRn_M0(wrd);
2594 gen_op_iwmmxt_set_mup();
2595 gen_op_iwmmxt_set_cup();
2596 break;
2597 case 0x01e: case 0x11e: case 0x21e: case 0x31e: /* WSHUFH */
2598 case 0x41e: case 0x51e: case 0x61e: case 0x71e:
2599 case 0x81e: case 0x91e: case 0xa1e: case 0xb1e:
2600 case 0xc1e: case 0xd1e: case 0xe1e: case 0xf1e:
2601 wrd = (insn >> 12) & 0xf;
2602 rd0 = (insn >> 16) & 0xf;
2603 gen_op_iwmmxt_movq_M0_wRn(rd0);
2604 tmp = tcg_const_i32(((insn >> 16) & 0xf0) | (insn & 0x0f));
2605 gen_helper_iwmmxt_shufh(cpu_M0, cpu_env, cpu_M0, tmp);
2606 tcg_temp_free_i32(tmp);
2607 gen_op_iwmmxt_movq_wRn_M0(wrd);
2608 gen_op_iwmmxt_set_mup();
2609 gen_op_iwmmxt_set_cup();
2610 break;
2611 case 0x018: case 0x118: case 0x218: case 0x318: /* WADD */
2612 case 0x418: case 0x518: case 0x618: case 0x718:
2613 case 0x818: case 0x918: case 0xa18: case 0xb18:
2614 case 0xc18: case 0xd18: case 0xe18: case 0xf18:
2615 wrd = (insn >> 12) & 0xf;
2616 rd0 = (insn >> 16) & 0xf;
2617 rd1 = (insn >> 0) & 0xf;
2618 gen_op_iwmmxt_movq_M0_wRn(rd0);
2619 switch ((insn >> 20) & 0xf) {
2620 case 0x0:
2621 gen_op_iwmmxt_addnb_M0_wRn(rd1);
2622 break;
2623 case 0x1:
2624 gen_op_iwmmxt_addub_M0_wRn(rd1);
2625 break;
2626 case 0x3:
2627 gen_op_iwmmxt_addsb_M0_wRn(rd1);
2628 break;
2629 case 0x4:
2630 gen_op_iwmmxt_addnw_M0_wRn(rd1);
2631 break;
2632 case 0x5:
2633 gen_op_iwmmxt_adduw_M0_wRn(rd1);
2634 break;
2635 case 0x7:
2636 gen_op_iwmmxt_addsw_M0_wRn(rd1);
2637 break;
2638 case 0x8:
2639 gen_op_iwmmxt_addnl_M0_wRn(rd1);
2640 break;
2641 case 0x9:
2642 gen_op_iwmmxt_addul_M0_wRn(rd1);
2643 break;
2644 case 0xb:
2645 gen_op_iwmmxt_addsl_M0_wRn(rd1);
2646 break;
2647 default:
2648 return 1;
2650 gen_op_iwmmxt_movq_wRn_M0(wrd);
2651 gen_op_iwmmxt_set_mup();
2652 gen_op_iwmmxt_set_cup();
2653 break;
2654 case 0x008: case 0x108: case 0x208: case 0x308: /* WPACK */
2655 case 0x408: case 0x508: case 0x608: case 0x708:
2656 case 0x808: case 0x908: case 0xa08: case 0xb08:
2657 case 0xc08: case 0xd08: case 0xe08: case 0xf08:
2658 if (!(insn & (1 << 20)) || ((insn >> 22) & 3) == 0)
2659 return 1;
2660 wrd = (insn >> 12) & 0xf;
2661 rd0 = (insn >> 16) & 0xf;
2662 rd1 = (insn >> 0) & 0xf;
2663 gen_op_iwmmxt_movq_M0_wRn(rd0);
2664 switch ((insn >> 22) & 3) {
2665 case 1:
2666 if (insn & (1 << 21))
2667 gen_op_iwmmxt_packsw_M0_wRn(rd1);
2668 else
2669 gen_op_iwmmxt_packuw_M0_wRn(rd1);
2670 break;
2671 case 2:
2672 if (insn & (1 << 21))
2673 gen_op_iwmmxt_packsl_M0_wRn(rd1);
2674 else
2675 gen_op_iwmmxt_packul_M0_wRn(rd1);
2676 break;
2677 case 3:
2678 if (insn & (1 << 21))
2679 gen_op_iwmmxt_packsq_M0_wRn(rd1);
2680 else
2681 gen_op_iwmmxt_packuq_M0_wRn(rd1);
2682 break;
2684 gen_op_iwmmxt_movq_wRn_M0(wrd);
2685 gen_op_iwmmxt_set_mup();
2686 gen_op_iwmmxt_set_cup();
2687 break;
2688 case 0x201: case 0x203: case 0x205: case 0x207:
2689 case 0x209: case 0x20b: case 0x20d: case 0x20f:
2690 case 0x211: case 0x213: case 0x215: case 0x217:
2691 case 0x219: case 0x21b: case 0x21d: case 0x21f:
2692 wrd = (insn >> 5) & 0xf;
2693 rd0 = (insn >> 12) & 0xf;
2694 rd1 = (insn >> 0) & 0xf;
2695 if (rd0 == 0xf || rd1 == 0xf)
2696 return 1;
2697 gen_op_iwmmxt_movq_M0_wRn(wrd);
2698 tmp = load_reg(s, rd0);
2699 tmp2 = load_reg(s, rd1);
2700 switch ((insn >> 16) & 0xf) {
2701 case 0x0: /* TMIA */
2702 gen_helper_iwmmxt_muladdsl(cpu_M0, cpu_M0, tmp, tmp2);
2703 break;
2704 case 0x8: /* TMIAPH */
2705 gen_helper_iwmmxt_muladdsw(cpu_M0, cpu_M0, tmp, tmp2);
2706 break;
2707 case 0xc: case 0xd: case 0xe: case 0xf: /* TMIAxy */
2708 if (insn & (1 << 16))
2709 tcg_gen_shri_i32(tmp, tmp, 16);
2710 if (insn & (1 << 17))
2711 tcg_gen_shri_i32(tmp2, tmp2, 16);
2712 gen_helper_iwmmxt_muladdswl(cpu_M0, cpu_M0, tmp, tmp2);
2713 break;
2714 default:
2715 tcg_temp_free_i32(tmp2);
2716 tcg_temp_free_i32(tmp);
2717 return 1;
2719 tcg_temp_free_i32(tmp2);
2720 tcg_temp_free_i32(tmp);
2721 gen_op_iwmmxt_movq_wRn_M0(wrd);
2722 gen_op_iwmmxt_set_mup();
2723 break;
2724 default:
2725 return 1;
2728 return 0;
2731 /* Disassemble an XScale DSP instruction. Returns nonzero if an error occurred
2732 (ie. an undefined instruction). */
2733 static int disas_dsp_insn(DisasContext *s, uint32_t insn)
2735 int acc, rd0, rd1, rdhi, rdlo;
2736 TCGv_i32 tmp, tmp2;
2738 if ((insn & 0x0ff00f10) == 0x0e200010) {
2739 /* Multiply with Internal Accumulate Format */
2740 rd0 = (insn >> 12) & 0xf;
2741 rd1 = insn & 0xf;
2742 acc = (insn >> 5) & 7;
2744 if (acc != 0)
2745 return 1;
2747 tmp = load_reg(s, rd0);
2748 tmp2 = load_reg(s, rd1);
2749 switch ((insn >> 16) & 0xf) {
2750 case 0x0: /* MIA */
2751 gen_helper_iwmmxt_muladdsl(cpu_M0, cpu_M0, tmp, tmp2);
2752 break;
2753 case 0x8: /* MIAPH */
2754 gen_helper_iwmmxt_muladdsw(cpu_M0, cpu_M0, tmp, tmp2);
2755 break;
2756 case 0xc: /* MIABB */
2757 case 0xd: /* MIABT */
2758 case 0xe: /* MIATB */
2759 case 0xf: /* MIATT */
2760 if (insn & (1 << 16))
2761 tcg_gen_shri_i32(tmp, tmp, 16);
2762 if (insn & (1 << 17))
2763 tcg_gen_shri_i32(tmp2, tmp2, 16);
2764 gen_helper_iwmmxt_muladdswl(cpu_M0, cpu_M0, tmp, tmp2);
2765 break;
2766 default:
2767 return 1;
2769 tcg_temp_free_i32(tmp2);
2770 tcg_temp_free_i32(tmp);
2772 gen_op_iwmmxt_movq_wRn_M0(acc);
2773 return 0;
2776 if ((insn & 0x0fe00ff8) == 0x0c400000) {
2777 /* Internal Accumulator Access Format */
2778 rdhi = (insn >> 16) & 0xf;
2779 rdlo = (insn >> 12) & 0xf;
2780 acc = insn & 7;
2782 if (acc != 0)
2783 return 1;
2785 if (insn & ARM_CP_RW_BIT) { /* MRA */
2786 iwmmxt_load_reg(cpu_V0, acc);
2787 tcg_gen_extrl_i64_i32(cpu_R[rdlo], cpu_V0);
2788 tcg_gen_extrh_i64_i32(cpu_R[rdhi], cpu_V0);
2789 tcg_gen_andi_i32(cpu_R[rdhi], cpu_R[rdhi], (1 << (40 - 32)) - 1);
2790 } else { /* MAR */
2791 tcg_gen_concat_i32_i64(cpu_V0, cpu_R[rdlo], cpu_R[rdhi]);
2792 iwmmxt_store_reg(cpu_V0, acc);
2794 return 0;
2797 return 1;
2800 #define VFP_REG_SHR(x, n) (((n) > 0) ? (x) >> (n) : (x) << -(n))
2801 #define VFP_SREG(insn, bigbit, smallbit) \
2802 ((VFP_REG_SHR(insn, bigbit - 1) & 0x1e) | (((insn) >> (smallbit)) & 1))
2803 #define VFP_DREG(reg, insn, bigbit, smallbit) do { \
2804 if (arm_dc_feature(s, ARM_FEATURE_VFP3)) { \
2805 reg = (((insn) >> (bigbit)) & 0x0f) \
2806 | (((insn) >> ((smallbit) - 4)) & 0x10); \
2807 } else { \
2808 if (insn & (1 << (smallbit))) \
2809 return 1; \
2810 reg = ((insn) >> (bigbit)) & 0x0f; \
2811 }} while (0)
2813 #define VFP_SREG_D(insn) VFP_SREG(insn, 12, 22)
2814 #define VFP_DREG_D(reg, insn) VFP_DREG(reg, insn, 12, 22)
2815 #define VFP_SREG_N(insn) VFP_SREG(insn, 16, 7)
2816 #define VFP_DREG_N(reg, insn) VFP_DREG(reg, insn, 16, 7)
2817 #define VFP_SREG_M(insn) VFP_SREG(insn, 0, 5)
2818 #define VFP_DREG_M(reg, insn) VFP_DREG(reg, insn, 0, 5)
2820 static void gen_neon_dup_low16(TCGv_i32 var)
2822 TCGv_i32 tmp = tcg_temp_new_i32();
2823 tcg_gen_ext16u_i32(var, var);
2824 tcg_gen_shli_i32(tmp, var, 16);
2825 tcg_gen_or_i32(var, var, tmp);
2826 tcg_temp_free_i32(tmp);
2829 static void gen_neon_dup_high16(TCGv_i32 var)
2831 TCGv_i32 tmp = tcg_temp_new_i32();
2832 tcg_gen_andi_i32(var, var, 0xffff0000);
2833 tcg_gen_shri_i32(tmp, var, 16);
2834 tcg_gen_or_i32(var, var, tmp);
2835 tcg_temp_free_i32(tmp);
2839 * Disassemble a VFP instruction. Returns nonzero if an error occurred
2840 * (ie. an undefined instruction).
2842 static int disas_vfp_insn(DisasContext *s, uint32_t insn)
2844 if (!arm_dc_feature(s, ARM_FEATURE_VFP)) {
2845 return 1;
2849 * If the decodetree decoder handles this insn it will always
2850 * emit code to either execute the insn or generate an appropriate
2851 * exception; so we don't need to ever return non-zero to tell
2852 * the calling code to emit an UNDEF exception.
2854 if (extract32(insn, 28, 4) == 0xf) {
2855 if (disas_vfp_uncond(s, insn)) {
2856 return 0;
2858 } else {
2859 if (disas_vfp(s, insn)) {
2860 return 0;
2863 /* If the decodetree decoder didn't handle this insn, it must be UNDEF */
2864 return 1;
2867 static inline bool use_goto_tb(DisasContext *s, target_ulong dest)
2869 #ifndef CONFIG_USER_ONLY
2870 return (s->base.tb->pc & TARGET_PAGE_MASK) == (dest & TARGET_PAGE_MASK) ||
2871 ((s->base.pc_next - 1) & TARGET_PAGE_MASK) == (dest & TARGET_PAGE_MASK);
2872 #else
2873 return true;
2874 #endif
2877 static void gen_goto_ptr(void)
2879 tcg_gen_lookup_and_goto_ptr();
2882 /* This will end the TB but doesn't guarantee we'll return to
2883 * cpu_loop_exec. Any live exit_requests will be processed as we
2884 * enter the next TB.
2886 static void gen_goto_tb(DisasContext *s, int n, target_ulong dest)
2888 if (use_goto_tb(s, dest)) {
2889 tcg_gen_goto_tb(n);
2890 gen_set_pc_im(s, dest);
2891 tcg_gen_exit_tb(s->base.tb, n);
2892 } else {
2893 gen_set_pc_im(s, dest);
2894 gen_goto_ptr();
2896 s->base.is_jmp = DISAS_NORETURN;
2899 static inline void gen_jmp (DisasContext *s, uint32_t dest)
2901 if (unlikely(is_singlestepping(s))) {
2902 /* An indirect jump so that we still trigger the debug exception. */
2903 if (s->thumb)
2904 dest |= 1;
2905 gen_bx_im(s, dest);
2906 } else {
2907 gen_goto_tb(s, 0, dest);
2911 static inline void gen_mulxy(TCGv_i32 t0, TCGv_i32 t1, int x, int y)
2913 if (x)
2914 tcg_gen_sari_i32(t0, t0, 16);
2915 else
2916 gen_sxth(t0);
2917 if (y)
2918 tcg_gen_sari_i32(t1, t1, 16);
2919 else
2920 gen_sxth(t1);
2921 tcg_gen_mul_i32(t0, t0, t1);
2924 /* Return the mask of PSR bits set by a MSR instruction. */
2925 static uint32_t msr_mask(DisasContext *s, int flags, int spsr)
2927 uint32_t mask;
2929 mask = 0;
2930 if (flags & (1 << 0))
2931 mask |= 0xff;
2932 if (flags & (1 << 1))
2933 mask |= 0xff00;
2934 if (flags & (1 << 2))
2935 mask |= 0xff0000;
2936 if (flags & (1 << 3))
2937 mask |= 0xff000000;
2939 /* Mask out undefined bits. */
2940 mask &= ~CPSR_RESERVED;
2941 if (!arm_dc_feature(s, ARM_FEATURE_V4T)) {
2942 mask &= ~CPSR_T;
2944 if (!arm_dc_feature(s, ARM_FEATURE_V5)) {
2945 mask &= ~CPSR_Q; /* V5TE in reality*/
2947 if (!arm_dc_feature(s, ARM_FEATURE_V6)) {
2948 mask &= ~(CPSR_E | CPSR_GE);
2950 if (!arm_dc_feature(s, ARM_FEATURE_THUMB2)) {
2951 mask &= ~CPSR_IT;
2953 /* Mask out execution state and reserved bits. */
2954 if (!spsr) {
2955 mask &= ~(CPSR_EXEC | CPSR_RESERVED);
2957 /* Mask out privileged bits. */
2958 if (IS_USER(s))
2959 mask &= CPSR_USER;
2960 return mask;
2963 /* Returns nonzero if access to the PSR is not permitted. Marks t0 as dead. */
2964 static int gen_set_psr(DisasContext *s, uint32_t mask, int spsr, TCGv_i32 t0)
2966 TCGv_i32 tmp;
2967 if (spsr) {
2968 /* ??? This is also undefined in system mode. */
2969 if (IS_USER(s))
2970 return 1;
2972 tmp = load_cpu_field(spsr);
2973 tcg_gen_andi_i32(tmp, tmp, ~mask);
2974 tcg_gen_andi_i32(t0, t0, mask);
2975 tcg_gen_or_i32(tmp, tmp, t0);
2976 store_cpu_field(tmp, spsr);
2977 } else {
2978 gen_set_cpsr(t0, mask);
2980 tcg_temp_free_i32(t0);
2981 gen_lookup_tb(s);
2982 return 0;
2985 /* Returns nonzero if access to the PSR is not permitted. */
2986 static int gen_set_psr_im(DisasContext *s, uint32_t mask, int spsr, uint32_t val)
2988 TCGv_i32 tmp;
2989 tmp = tcg_temp_new_i32();
2990 tcg_gen_movi_i32(tmp, val);
2991 return gen_set_psr(s, mask, spsr, tmp);
2994 static bool msr_banked_access_decode(DisasContext *s, int r, int sysm, int rn,
2995 int *tgtmode, int *regno)
2997 /* Decode the r and sysm fields of MSR/MRS banked accesses into
2998 * the target mode and register number, and identify the various
2999 * unpredictable cases.
3000 * MSR (banked) and MRS (banked) are CONSTRAINED UNPREDICTABLE if:
3001 * + executed in user mode
3002 * + using R15 as the src/dest register
3003 * + accessing an unimplemented register
3004 * + accessing a register that's inaccessible at current PL/security state*
3005 * + accessing a register that you could access with a different insn
3006 * We choose to UNDEF in all these cases.
3007 * Since we don't know which of the various AArch32 modes we are in
3008 * we have to defer some checks to runtime.
3009 * Accesses to Monitor mode registers from Secure EL1 (which implies
3010 * that EL3 is AArch64) must trap to EL3.
3012 * If the access checks fail this function will emit code to take
3013 * an exception and return false. Otherwise it will return true,
3014 * and set *tgtmode and *regno appropriately.
3016 int exc_target = default_exception_el(s);
3018 /* These instructions are present only in ARMv8, or in ARMv7 with the
3019 * Virtualization Extensions.
3021 if (!arm_dc_feature(s, ARM_FEATURE_V8) &&
3022 !arm_dc_feature(s, ARM_FEATURE_EL2)) {
3023 goto undef;
3026 if (IS_USER(s) || rn == 15) {
3027 goto undef;
3030 /* The table in the v8 ARM ARM section F5.2.3 describes the encoding
3031 * of registers into (r, sysm).
3033 if (r) {
3034 /* SPSRs for other modes */
3035 switch (sysm) {
3036 case 0xe: /* SPSR_fiq */
3037 *tgtmode = ARM_CPU_MODE_FIQ;
3038 break;
3039 case 0x10: /* SPSR_irq */
3040 *tgtmode = ARM_CPU_MODE_IRQ;
3041 break;
3042 case 0x12: /* SPSR_svc */
3043 *tgtmode = ARM_CPU_MODE_SVC;
3044 break;
3045 case 0x14: /* SPSR_abt */
3046 *tgtmode = ARM_CPU_MODE_ABT;
3047 break;
3048 case 0x16: /* SPSR_und */
3049 *tgtmode = ARM_CPU_MODE_UND;
3050 break;
3051 case 0x1c: /* SPSR_mon */
3052 *tgtmode = ARM_CPU_MODE_MON;
3053 break;
3054 case 0x1e: /* SPSR_hyp */
3055 *tgtmode = ARM_CPU_MODE_HYP;
3056 break;
3057 default: /* unallocated */
3058 goto undef;
3060 /* We arbitrarily assign SPSR a register number of 16. */
3061 *regno = 16;
3062 } else {
3063 /* general purpose registers for other modes */
3064 switch (sysm) {
3065 case 0x0 ... 0x6: /* 0b00xxx : r8_usr ... r14_usr */
3066 *tgtmode = ARM_CPU_MODE_USR;
3067 *regno = sysm + 8;
3068 break;
3069 case 0x8 ... 0xe: /* 0b01xxx : r8_fiq ... r14_fiq */
3070 *tgtmode = ARM_CPU_MODE_FIQ;
3071 *regno = sysm;
3072 break;
3073 case 0x10 ... 0x11: /* 0b1000x : r14_irq, r13_irq */
3074 *tgtmode = ARM_CPU_MODE_IRQ;
3075 *regno = sysm & 1 ? 13 : 14;
3076 break;
3077 case 0x12 ... 0x13: /* 0b1001x : r14_svc, r13_svc */
3078 *tgtmode = ARM_CPU_MODE_SVC;
3079 *regno = sysm & 1 ? 13 : 14;
3080 break;
3081 case 0x14 ... 0x15: /* 0b1010x : r14_abt, r13_abt */
3082 *tgtmode = ARM_CPU_MODE_ABT;
3083 *regno = sysm & 1 ? 13 : 14;
3084 break;
3085 case 0x16 ... 0x17: /* 0b1011x : r14_und, r13_und */
3086 *tgtmode = ARM_CPU_MODE_UND;
3087 *regno = sysm & 1 ? 13 : 14;
3088 break;
3089 case 0x1c ... 0x1d: /* 0b1110x : r14_mon, r13_mon */
3090 *tgtmode = ARM_CPU_MODE_MON;
3091 *regno = sysm & 1 ? 13 : 14;
3092 break;
3093 case 0x1e ... 0x1f: /* 0b1111x : elr_hyp, r13_hyp */
3094 *tgtmode = ARM_CPU_MODE_HYP;
3095 /* Arbitrarily pick 17 for ELR_Hyp (which is not a banked LR!) */
3096 *regno = sysm & 1 ? 13 : 17;
3097 break;
3098 default: /* unallocated */
3099 goto undef;
3103 /* Catch the 'accessing inaccessible register' cases we can detect
3104 * at translate time.
3106 switch (*tgtmode) {
3107 case ARM_CPU_MODE_MON:
3108 if (!arm_dc_feature(s, ARM_FEATURE_EL3) || s->ns) {
3109 goto undef;
3111 if (s->current_el == 1) {
3112 /* If we're in Secure EL1 (which implies that EL3 is AArch64)
3113 * then accesses to Mon registers trap to EL3
3115 exc_target = 3;
3116 goto undef;
3118 break;
3119 case ARM_CPU_MODE_HYP:
3121 * SPSR_hyp and r13_hyp can only be accessed from Monitor mode
3122 * (and so we can forbid accesses from EL2 or below). elr_hyp
3123 * can be accessed also from Hyp mode, so forbid accesses from
3124 * EL0 or EL1.
3126 if (!arm_dc_feature(s, ARM_FEATURE_EL2) || s->current_el < 2 ||
3127 (s->current_el < 3 && *regno != 17)) {
3128 goto undef;
3130 break;
3131 default:
3132 break;
3135 return true;
3137 undef:
3138 /* If we get here then some access check did not pass */
3139 gen_exception_insn(s, s->pc_curr, EXCP_UDEF,
3140 syn_uncategorized(), exc_target);
3141 return false;
3144 static void gen_msr_banked(DisasContext *s, int r, int sysm, int rn)
3146 TCGv_i32 tcg_reg, tcg_tgtmode, tcg_regno;
3147 int tgtmode = 0, regno = 0;
3149 if (!msr_banked_access_decode(s, r, sysm, rn, &tgtmode, &regno)) {
3150 return;
3153 /* Sync state because msr_banked() can raise exceptions */
3154 gen_set_condexec(s);
3155 gen_set_pc_im(s, s->pc_curr);
3156 tcg_reg = load_reg(s, rn);
3157 tcg_tgtmode = tcg_const_i32(tgtmode);
3158 tcg_regno = tcg_const_i32(regno);
3159 gen_helper_msr_banked(cpu_env, tcg_reg, tcg_tgtmode, tcg_regno);
3160 tcg_temp_free_i32(tcg_tgtmode);
3161 tcg_temp_free_i32(tcg_regno);
3162 tcg_temp_free_i32(tcg_reg);
3163 s->base.is_jmp = DISAS_UPDATE;
3166 static void gen_mrs_banked(DisasContext *s, int r, int sysm, int rn)
3168 TCGv_i32 tcg_reg, tcg_tgtmode, tcg_regno;
3169 int tgtmode = 0, regno = 0;
3171 if (!msr_banked_access_decode(s, r, sysm, rn, &tgtmode, &regno)) {
3172 return;
3175 /* Sync state because mrs_banked() can raise exceptions */
3176 gen_set_condexec(s);
3177 gen_set_pc_im(s, s->pc_curr);
3178 tcg_reg = tcg_temp_new_i32();
3179 tcg_tgtmode = tcg_const_i32(tgtmode);
3180 tcg_regno = tcg_const_i32(regno);
3181 gen_helper_mrs_banked(tcg_reg, cpu_env, tcg_tgtmode, tcg_regno);
3182 tcg_temp_free_i32(tcg_tgtmode);
3183 tcg_temp_free_i32(tcg_regno);
3184 store_reg(s, rn, tcg_reg);
3185 s->base.is_jmp = DISAS_UPDATE;
3188 /* Store value to PC as for an exception return (ie don't
3189 * mask bits). The subsequent call to gen_helper_cpsr_write_eret()
3190 * will do the masking based on the new value of the Thumb bit.
3192 static void store_pc_exc_ret(DisasContext *s, TCGv_i32 pc)
3194 tcg_gen_mov_i32(cpu_R[15], pc);
3195 tcg_temp_free_i32(pc);
3198 /* Generate a v6 exception return. Marks both values as dead. */
3199 static void gen_rfe(DisasContext *s, TCGv_i32 pc, TCGv_i32 cpsr)
3201 store_pc_exc_ret(s, pc);
3202 /* The cpsr_write_eret helper will mask the low bits of PC
3203 * appropriately depending on the new Thumb bit, so it must
3204 * be called after storing the new PC.
3206 if (tb_cflags(s->base.tb) & CF_USE_ICOUNT) {
3207 gen_io_start();
3209 gen_helper_cpsr_write_eret(cpu_env, cpsr);
3210 tcg_temp_free_i32(cpsr);
3211 /* Must exit loop to check un-masked IRQs */
3212 s->base.is_jmp = DISAS_EXIT;
3215 /* Generate an old-style exception return. Marks pc as dead. */
3216 static void gen_exception_return(DisasContext *s, TCGv_i32 pc)
3218 gen_rfe(s, pc, load_cpu_field(spsr));
3222 * For WFI we will halt the vCPU until an IRQ. For WFE and YIELD we
3223 * only call the helper when running single threaded TCG code to ensure
3224 * the next round-robin scheduled vCPU gets a crack. In MTTCG mode we
3225 * just skip this instruction. Currently the SEV/SEVL instructions
3226 * which are *one* of many ways to wake the CPU from WFE are not
3227 * implemented so we can't sleep like WFI does.
3229 static void gen_nop_hint(DisasContext *s, int val)
3231 switch (val) {
3232 /* When running in MTTCG we don't generate jumps to the yield and
3233 * WFE helpers as it won't affect the scheduling of other vCPUs.
3234 * If we wanted to more completely model WFE/SEV so we don't busy
3235 * spin unnecessarily we would need to do something more involved.
3237 case 1: /* yield */
3238 if (!(tb_cflags(s->base.tb) & CF_PARALLEL)) {
3239 gen_set_pc_im(s, s->base.pc_next);
3240 s->base.is_jmp = DISAS_YIELD;
3242 break;
3243 case 3: /* wfi */
3244 gen_set_pc_im(s, s->base.pc_next);
3245 s->base.is_jmp = DISAS_WFI;
3246 break;
3247 case 2: /* wfe */
3248 if (!(tb_cflags(s->base.tb) & CF_PARALLEL)) {
3249 gen_set_pc_im(s, s->base.pc_next);
3250 s->base.is_jmp = DISAS_WFE;
3252 break;
3253 case 4: /* sev */
3254 case 5: /* sevl */
3255 /* TODO: Implement SEV, SEVL and WFE. May help SMP performance. */
3256 default: /* nop */
3257 break;
3261 #define CPU_V001 cpu_V0, cpu_V0, cpu_V1
3263 static inline void gen_neon_add(int size, TCGv_i32 t0, TCGv_i32 t1)
3265 switch (size) {
3266 case 0: gen_helper_neon_add_u8(t0, t0, t1); break;
3267 case 1: gen_helper_neon_add_u16(t0, t0, t1); break;
3268 case 2: tcg_gen_add_i32(t0, t0, t1); break;
3269 default: abort();
3273 static inline void gen_neon_rsb(int size, TCGv_i32 t0, TCGv_i32 t1)
3275 switch (size) {
3276 case 0: gen_helper_neon_sub_u8(t0, t1, t0); break;
3277 case 1: gen_helper_neon_sub_u16(t0, t1, t0); break;
3278 case 2: tcg_gen_sub_i32(t0, t1, t0); break;
3279 default: return;
3283 /* 32-bit pairwise ops end up the same as the elementwise versions. */
3284 #define gen_helper_neon_pmax_s32 tcg_gen_smax_i32
3285 #define gen_helper_neon_pmax_u32 tcg_gen_umax_i32
3286 #define gen_helper_neon_pmin_s32 tcg_gen_smin_i32
3287 #define gen_helper_neon_pmin_u32 tcg_gen_umin_i32
3289 #define GEN_NEON_INTEGER_OP_ENV(name) do { \
3290 switch ((size << 1) | u) { \
3291 case 0: \
3292 gen_helper_neon_##name##_s8(tmp, cpu_env, tmp, tmp2); \
3293 break; \
3294 case 1: \
3295 gen_helper_neon_##name##_u8(tmp, cpu_env, tmp, tmp2); \
3296 break; \
3297 case 2: \
3298 gen_helper_neon_##name##_s16(tmp, cpu_env, tmp, tmp2); \
3299 break; \
3300 case 3: \
3301 gen_helper_neon_##name##_u16(tmp, cpu_env, tmp, tmp2); \
3302 break; \
3303 case 4: \
3304 gen_helper_neon_##name##_s32(tmp, cpu_env, tmp, tmp2); \
3305 break; \
3306 case 5: \
3307 gen_helper_neon_##name##_u32(tmp, cpu_env, tmp, tmp2); \
3308 break; \
3309 default: return 1; \
3310 }} while (0)
3312 #define GEN_NEON_INTEGER_OP(name) do { \
3313 switch ((size << 1) | u) { \
3314 case 0: \
3315 gen_helper_neon_##name##_s8(tmp, tmp, tmp2); \
3316 break; \
3317 case 1: \
3318 gen_helper_neon_##name##_u8(tmp, tmp, tmp2); \
3319 break; \
3320 case 2: \
3321 gen_helper_neon_##name##_s16(tmp, tmp, tmp2); \
3322 break; \
3323 case 3: \
3324 gen_helper_neon_##name##_u16(tmp, tmp, tmp2); \
3325 break; \
3326 case 4: \
3327 gen_helper_neon_##name##_s32(tmp, tmp, tmp2); \
3328 break; \
3329 case 5: \
3330 gen_helper_neon_##name##_u32(tmp, tmp, tmp2); \
3331 break; \
3332 default: return 1; \
3333 }} while (0)
3335 static TCGv_i32 neon_load_scratch(int scratch)
3337 TCGv_i32 tmp = tcg_temp_new_i32();
3338 tcg_gen_ld_i32(tmp, cpu_env, offsetof(CPUARMState, vfp.scratch[scratch]));
3339 return tmp;
3342 static void neon_store_scratch(int scratch, TCGv_i32 var)
3344 tcg_gen_st_i32(var, cpu_env, offsetof(CPUARMState, vfp.scratch[scratch]));
3345 tcg_temp_free_i32(var);
3348 static inline TCGv_i32 neon_get_scalar(int size, int reg)
3350 TCGv_i32 tmp;
3351 if (size == 1) {
3352 tmp = neon_load_reg(reg & 7, reg >> 4);
3353 if (reg & 8) {
3354 gen_neon_dup_high16(tmp);
3355 } else {
3356 gen_neon_dup_low16(tmp);
3358 } else {
3359 tmp = neon_load_reg(reg & 15, reg >> 4);
3361 return tmp;
3364 static int gen_neon_unzip(int rd, int rm, int size, int q)
3366 TCGv_ptr pd, pm;
3368 if (!q && size == 2) {
3369 return 1;
3371 pd = vfp_reg_ptr(true, rd);
3372 pm = vfp_reg_ptr(true, rm);
3373 if (q) {
3374 switch (size) {
3375 case 0:
3376 gen_helper_neon_qunzip8(pd, pm);
3377 break;
3378 case 1:
3379 gen_helper_neon_qunzip16(pd, pm);
3380 break;
3381 case 2:
3382 gen_helper_neon_qunzip32(pd, pm);
3383 break;
3384 default:
3385 abort();
3387 } else {
3388 switch (size) {
3389 case 0:
3390 gen_helper_neon_unzip8(pd, pm);
3391 break;
3392 case 1:
3393 gen_helper_neon_unzip16(pd, pm);
3394 break;
3395 default:
3396 abort();
3399 tcg_temp_free_ptr(pd);
3400 tcg_temp_free_ptr(pm);
3401 return 0;
3404 static int gen_neon_zip(int rd, int rm, int size, int q)
3406 TCGv_ptr pd, pm;
3408 if (!q && size == 2) {
3409 return 1;
3411 pd = vfp_reg_ptr(true, rd);
3412 pm = vfp_reg_ptr(true, rm);
3413 if (q) {
3414 switch (size) {
3415 case 0:
3416 gen_helper_neon_qzip8(pd, pm);
3417 break;
3418 case 1:
3419 gen_helper_neon_qzip16(pd, pm);
3420 break;
3421 case 2:
3422 gen_helper_neon_qzip32(pd, pm);
3423 break;
3424 default:
3425 abort();
3427 } else {
3428 switch (size) {
3429 case 0:
3430 gen_helper_neon_zip8(pd, pm);
3431 break;
3432 case 1:
3433 gen_helper_neon_zip16(pd, pm);
3434 break;
3435 default:
3436 abort();
3439 tcg_temp_free_ptr(pd);
3440 tcg_temp_free_ptr(pm);
3441 return 0;
3444 static void gen_neon_trn_u8(TCGv_i32 t0, TCGv_i32 t1)
3446 TCGv_i32 rd, tmp;
3448 rd = tcg_temp_new_i32();
3449 tmp = tcg_temp_new_i32();
3451 tcg_gen_shli_i32(rd, t0, 8);
3452 tcg_gen_andi_i32(rd, rd, 0xff00ff00);
3453 tcg_gen_andi_i32(tmp, t1, 0x00ff00ff);
3454 tcg_gen_or_i32(rd, rd, tmp);
3456 tcg_gen_shri_i32(t1, t1, 8);
3457 tcg_gen_andi_i32(t1, t1, 0x00ff00ff);
3458 tcg_gen_andi_i32(tmp, t0, 0xff00ff00);
3459 tcg_gen_or_i32(t1, t1, tmp);
3460 tcg_gen_mov_i32(t0, rd);
3462 tcg_temp_free_i32(tmp);
3463 tcg_temp_free_i32(rd);
3466 static void gen_neon_trn_u16(TCGv_i32 t0, TCGv_i32 t1)
3468 TCGv_i32 rd, tmp;
3470 rd = tcg_temp_new_i32();
3471 tmp = tcg_temp_new_i32();
3473 tcg_gen_shli_i32(rd, t0, 16);
3474 tcg_gen_andi_i32(tmp, t1, 0xffff);
3475 tcg_gen_or_i32(rd, rd, tmp);
3476 tcg_gen_shri_i32(t1, t1, 16);
3477 tcg_gen_andi_i32(tmp, t0, 0xffff0000);
3478 tcg_gen_or_i32(t1, t1, tmp);
3479 tcg_gen_mov_i32(t0, rd);
3481 tcg_temp_free_i32(tmp);
3482 tcg_temp_free_i32(rd);
3486 static struct {
3487 int nregs;
3488 int interleave;
3489 int spacing;
3490 } const neon_ls_element_type[11] = {
3491 {1, 4, 1},
3492 {1, 4, 2},
3493 {4, 1, 1},
3494 {2, 2, 2},
3495 {1, 3, 1},
3496 {1, 3, 2},
3497 {3, 1, 1},
3498 {1, 1, 1},
3499 {1, 2, 1},
3500 {1, 2, 2},
3501 {2, 1, 1}
3504 /* Translate a NEON load/store element instruction. Return nonzero if the
3505 instruction is invalid. */
3506 static int disas_neon_ls_insn(DisasContext *s, uint32_t insn)
3508 int rd, rn, rm;
3509 int op;
3510 int nregs;
3511 int interleave;
3512 int spacing;
3513 int stride;
3514 int size;
3515 int reg;
3516 int load;
3517 int n;
3518 int vec_size;
3519 int mmu_idx;
3520 MemOp endian;
3521 TCGv_i32 addr;
3522 TCGv_i32 tmp;
3523 TCGv_i32 tmp2;
3524 TCGv_i64 tmp64;
3526 /* FIXME: this access check should not take precedence over UNDEF
3527 * for invalid encodings; we will generate incorrect syndrome information
3528 * for attempts to execute invalid vfp/neon encodings with FP disabled.
3530 if (s->fp_excp_el) {
3531 gen_exception_insn(s, s->pc_curr, EXCP_UDEF,
3532 syn_simd_access_trap(1, 0xe, false), s->fp_excp_el);
3533 return 0;
3536 if (!s->vfp_enabled)
3537 return 1;
3538 VFP_DREG_D(rd, insn);
3539 rn = (insn >> 16) & 0xf;
3540 rm = insn & 0xf;
3541 load = (insn & (1 << 21)) != 0;
3542 endian = s->be_data;
3543 mmu_idx = get_mem_index(s);
3544 if ((insn & (1 << 23)) == 0) {
3545 /* Load store all elements. */
3546 op = (insn >> 8) & 0xf;
3547 size = (insn >> 6) & 3;
3548 if (op > 10)
3549 return 1;
3550 /* Catch UNDEF cases for bad values of align field */
3551 switch (op & 0xc) {
3552 case 4:
3553 if (((insn >> 5) & 1) == 1) {
3554 return 1;
3556 break;
3557 case 8:
3558 if (((insn >> 4) & 3) == 3) {
3559 return 1;
3561 break;
3562 default:
3563 break;
3565 nregs = neon_ls_element_type[op].nregs;
3566 interleave = neon_ls_element_type[op].interleave;
3567 spacing = neon_ls_element_type[op].spacing;
3568 if (size == 3 && (interleave | spacing) != 1) {
3569 return 1;
3571 /* For our purposes, bytes are always little-endian. */
3572 if (size == 0) {
3573 endian = MO_LE;
3575 /* Consecutive little-endian elements from a single register
3576 * can be promoted to a larger little-endian operation.
3578 if (interleave == 1 && endian == MO_LE) {
3579 size = 3;
3581 tmp64 = tcg_temp_new_i64();
3582 addr = tcg_temp_new_i32();
3583 tmp2 = tcg_const_i32(1 << size);
3584 load_reg_var(s, addr, rn);
3585 for (reg = 0; reg < nregs; reg++) {
3586 for (n = 0; n < 8 >> size; n++) {
3587 int xs;
3588 for (xs = 0; xs < interleave; xs++) {
3589 int tt = rd + reg + spacing * xs;
3591 if (load) {
3592 gen_aa32_ld_i64(s, tmp64, addr, mmu_idx, endian | size);
3593 neon_store_element64(tt, n, size, tmp64);
3594 } else {
3595 neon_load_element64(tmp64, tt, n, size);
3596 gen_aa32_st_i64(s, tmp64, addr, mmu_idx, endian | size);
3598 tcg_gen_add_i32(addr, addr, tmp2);
3602 tcg_temp_free_i32(addr);
3603 tcg_temp_free_i32(tmp2);
3604 tcg_temp_free_i64(tmp64);
3605 stride = nregs * interleave * 8;
3606 } else {
3607 size = (insn >> 10) & 3;
3608 if (size == 3) {
3609 /* Load single element to all lanes. */
3610 int a = (insn >> 4) & 1;
3611 if (!load) {
3612 return 1;
3614 size = (insn >> 6) & 3;
3615 nregs = ((insn >> 8) & 3) + 1;
3617 if (size == 3) {
3618 if (nregs != 4 || a == 0) {
3619 return 1;
3621 /* For VLD4 size==3 a == 1 means 32 bits at 16 byte alignment */
3622 size = 2;
3624 if (nregs == 1 && a == 1 && size == 0) {
3625 return 1;
3627 if (nregs == 3 && a == 1) {
3628 return 1;
3630 addr = tcg_temp_new_i32();
3631 load_reg_var(s, addr, rn);
3633 /* VLD1 to all lanes: bit 5 indicates how many Dregs to write.
3634 * VLD2/3/4 to all lanes: bit 5 indicates register stride.
3636 stride = (insn & (1 << 5)) ? 2 : 1;
3637 vec_size = nregs == 1 ? stride * 8 : 8;
3639 tmp = tcg_temp_new_i32();
3640 for (reg = 0; reg < nregs; reg++) {
3641 gen_aa32_ld_i32(s, tmp, addr, get_mem_index(s),
3642 s->be_data | size);
3643 if ((rd & 1) && vec_size == 16) {
3644 /* We cannot write 16 bytes at once because the
3645 * destination is unaligned.
3647 tcg_gen_gvec_dup_i32(size, neon_reg_offset(rd, 0),
3648 8, 8, tmp);
3649 tcg_gen_gvec_mov(0, neon_reg_offset(rd + 1, 0),
3650 neon_reg_offset(rd, 0), 8, 8);
3651 } else {
3652 tcg_gen_gvec_dup_i32(size, neon_reg_offset(rd, 0),
3653 vec_size, vec_size, tmp);
3655 tcg_gen_addi_i32(addr, addr, 1 << size);
3656 rd += stride;
3658 tcg_temp_free_i32(tmp);
3659 tcg_temp_free_i32(addr);
3660 stride = (1 << size) * nregs;
3661 } else {
3662 /* Single element. */
3663 int idx = (insn >> 4) & 0xf;
3664 int reg_idx;
3665 switch (size) {
3666 case 0:
3667 reg_idx = (insn >> 5) & 7;
3668 stride = 1;
3669 break;
3670 case 1:
3671 reg_idx = (insn >> 6) & 3;
3672 stride = (insn & (1 << 5)) ? 2 : 1;
3673 break;
3674 case 2:
3675 reg_idx = (insn >> 7) & 1;
3676 stride = (insn & (1 << 6)) ? 2 : 1;
3677 break;
3678 default:
3679 abort();
3681 nregs = ((insn >> 8) & 3) + 1;
3682 /* Catch the UNDEF cases. This is unavoidably a bit messy. */
3683 switch (nregs) {
3684 case 1:
3685 if (((idx & (1 << size)) != 0) ||
3686 (size == 2 && ((idx & 3) == 1 || (idx & 3) == 2))) {
3687 return 1;
3689 break;
3690 case 3:
3691 if ((idx & 1) != 0) {
3692 return 1;
3694 /* fall through */
3695 case 2:
3696 if (size == 2 && (idx & 2) != 0) {
3697 return 1;
3699 break;
3700 case 4:
3701 if ((size == 2) && ((idx & 3) == 3)) {
3702 return 1;
3704 break;
3705 default:
3706 abort();
3708 if ((rd + stride * (nregs - 1)) > 31) {
3709 /* Attempts to write off the end of the register file
3710 * are UNPREDICTABLE; we choose to UNDEF because otherwise
3711 * the neon_load_reg() would write off the end of the array.
3713 return 1;
3715 tmp = tcg_temp_new_i32();
3716 addr = tcg_temp_new_i32();
3717 load_reg_var(s, addr, rn);
3718 for (reg = 0; reg < nregs; reg++) {
3719 if (load) {
3720 gen_aa32_ld_i32(s, tmp, addr, get_mem_index(s),
3721 s->be_data | size);
3722 neon_store_element(rd, reg_idx, size, tmp);
3723 } else { /* Store */
3724 neon_load_element(tmp, rd, reg_idx, size);
3725 gen_aa32_st_i32(s, tmp, addr, get_mem_index(s),
3726 s->be_data | size);
3728 rd += stride;
3729 tcg_gen_addi_i32(addr, addr, 1 << size);
3731 tcg_temp_free_i32(addr);
3732 tcg_temp_free_i32(tmp);
3733 stride = nregs * (1 << size);
3736 if (rm != 15) {
3737 TCGv_i32 base;
3739 base = load_reg(s, rn);
3740 if (rm == 13) {
3741 tcg_gen_addi_i32(base, base, stride);
3742 } else {
3743 TCGv_i32 index;
3744 index = load_reg(s, rm);
3745 tcg_gen_add_i32(base, base, index);
3746 tcg_temp_free_i32(index);
3748 store_reg(s, rn, base);
3750 return 0;
3753 static inline void gen_neon_narrow(int size, TCGv_i32 dest, TCGv_i64 src)
3755 switch (size) {
3756 case 0: gen_helper_neon_narrow_u8(dest, src); break;
3757 case 1: gen_helper_neon_narrow_u16(dest, src); break;
3758 case 2: tcg_gen_extrl_i64_i32(dest, src); break;
3759 default: abort();
3763 static inline void gen_neon_narrow_sats(int size, TCGv_i32 dest, TCGv_i64 src)
3765 switch (size) {
3766 case 0: gen_helper_neon_narrow_sat_s8(dest, cpu_env, src); break;
3767 case 1: gen_helper_neon_narrow_sat_s16(dest, cpu_env, src); break;
3768 case 2: gen_helper_neon_narrow_sat_s32(dest, cpu_env, src); break;
3769 default: abort();
3773 static inline void gen_neon_narrow_satu(int size, TCGv_i32 dest, TCGv_i64 src)
3775 switch (size) {
3776 case 0: gen_helper_neon_narrow_sat_u8(dest, cpu_env, src); break;
3777 case 1: gen_helper_neon_narrow_sat_u16(dest, cpu_env, src); break;
3778 case 2: gen_helper_neon_narrow_sat_u32(dest, cpu_env, src); break;
3779 default: abort();
3783 static inline void gen_neon_unarrow_sats(int size, TCGv_i32 dest, TCGv_i64 src)
3785 switch (size) {
3786 case 0: gen_helper_neon_unarrow_sat8(dest, cpu_env, src); break;
3787 case 1: gen_helper_neon_unarrow_sat16(dest, cpu_env, src); break;
3788 case 2: gen_helper_neon_unarrow_sat32(dest, cpu_env, src); break;
3789 default: abort();
3793 static inline void gen_neon_shift_narrow(int size, TCGv_i32 var, TCGv_i32 shift,
3794 int q, int u)
3796 if (q) {
3797 if (u) {
3798 switch (size) {
3799 case 1: gen_helper_neon_rshl_u16(var, var, shift); break;
3800 case 2: gen_helper_neon_rshl_u32(var, var, shift); break;
3801 default: abort();
3803 } else {
3804 switch (size) {
3805 case 1: gen_helper_neon_rshl_s16(var, var, shift); break;
3806 case 2: gen_helper_neon_rshl_s32(var, var, shift); break;
3807 default: abort();
3810 } else {
3811 if (u) {
3812 switch (size) {
3813 case 1: gen_helper_neon_shl_u16(var, var, shift); break;
3814 case 2: gen_helper_neon_shl_u32(var, var, shift); break;
3815 default: abort();
3817 } else {
3818 switch (size) {
3819 case 1: gen_helper_neon_shl_s16(var, var, shift); break;
3820 case 2: gen_helper_neon_shl_s32(var, var, shift); break;
3821 default: abort();
3827 static inline void gen_neon_widen(TCGv_i64 dest, TCGv_i32 src, int size, int u)
3829 if (u) {
3830 switch (size) {
3831 case 0: gen_helper_neon_widen_u8(dest, src); break;
3832 case 1: gen_helper_neon_widen_u16(dest, src); break;
3833 case 2: tcg_gen_extu_i32_i64(dest, src); break;
3834 default: abort();
3836 } else {
3837 switch (size) {
3838 case 0: gen_helper_neon_widen_s8(dest, src); break;
3839 case 1: gen_helper_neon_widen_s16(dest, src); break;
3840 case 2: tcg_gen_ext_i32_i64(dest, src); break;
3841 default: abort();
3844 tcg_temp_free_i32(src);
3847 static inline void gen_neon_addl(int size)
3849 switch (size) {
3850 case 0: gen_helper_neon_addl_u16(CPU_V001); break;
3851 case 1: gen_helper_neon_addl_u32(CPU_V001); break;
3852 case 2: tcg_gen_add_i64(CPU_V001); break;
3853 default: abort();
3857 static inline void gen_neon_subl(int size)
3859 switch (size) {
3860 case 0: gen_helper_neon_subl_u16(CPU_V001); break;
3861 case 1: gen_helper_neon_subl_u32(CPU_V001); break;
3862 case 2: tcg_gen_sub_i64(CPU_V001); break;
3863 default: abort();
3867 static inline void gen_neon_negl(TCGv_i64 var, int size)
3869 switch (size) {
3870 case 0: gen_helper_neon_negl_u16(var, var); break;
3871 case 1: gen_helper_neon_negl_u32(var, var); break;
3872 case 2:
3873 tcg_gen_neg_i64(var, var);
3874 break;
3875 default: abort();
3879 static inline void gen_neon_addl_saturate(TCGv_i64 op0, TCGv_i64 op1, int size)
3881 switch (size) {
3882 case 1: gen_helper_neon_addl_saturate_s32(op0, cpu_env, op0, op1); break;
3883 case 2: gen_helper_neon_addl_saturate_s64(op0, cpu_env, op0, op1); break;
3884 default: abort();
3888 static inline void gen_neon_mull(TCGv_i64 dest, TCGv_i32 a, TCGv_i32 b,
3889 int size, int u)
3891 TCGv_i64 tmp;
3893 switch ((size << 1) | u) {
3894 case 0: gen_helper_neon_mull_s8(dest, a, b); break;
3895 case 1: gen_helper_neon_mull_u8(dest, a, b); break;
3896 case 2: gen_helper_neon_mull_s16(dest, a, b); break;
3897 case 3: gen_helper_neon_mull_u16(dest, a, b); break;
3898 case 4:
3899 tmp = gen_muls_i64_i32(a, b);
3900 tcg_gen_mov_i64(dest, tmp);
3901 tcg_temp_free_i64(tmp);
3902 break;
3903 case 5:
3904 tmp = gen_mulu_i64_i32(a, b);
3905 tcg_gen_mov_i64(dest, tmp);
3906 tcg_temp_free_i64(tmp);
3907 break;
3908 default: abort();
3911 /* gen_helper_neon_mull_[su]{8|16} do not free their parameters.
3912 Don't forget to clean them now. */
3913 if (size < 2) {
3914 tcg_temp_free_i32(a);
3915 tcg_temp_free_i32(b);
3919 static void gen_neon_narrow_op(int op, int u, int size,
3920 TCGv_i32 dest, TCGv_i64 src)
3922 if (op) {
3923 if (u) {
3924 gen_neon_unarrow_sats(size, dest, src);
3925 } else {
3926 gen_neon_narrow(size, dest, src);
3928 } else {
3929 if (u) {
3930 gen_neon_narrow_satu(size, dest, src);
3931 } else {
3932 gen_neon_narrow_sats(size, dest, src);
3937 /* Symbolic constants for op fields for Neon 3-register same-length.
3938 * The values correspond to bits [11:8,4]; see the ARM ARM DDI0406B
3939 * table A7-9.
3941 #define NEON_3R_VHADD 0
3942 #define NEON_3R_VQADD 1
3943 #define NEON_3R_VRHADD 2
3944 #define NEON_3R_LOGIC 3 /* VAND,VBIC,VORR,VMOV,VORN,VEOR,VBIF,VBIT,VBSL */
3945 #define NEON_3R_VHSUB 4
3946 #define NEON_3R_VQSUB 5
3947 #define NEON_3R_VCGT 6
3948 #define NEON_3R_VCGE 7
3949 #define NEON_3R_VSHL 8
3950 #define NEON_3R_VQSHL 9
3951 #define NEON_3R_VRSHL 10
3952 #define NEON_3R_VQRSHL 11
3953 #define NEON_3R_VMAX 12
3954 #define NEON_3R_VMIN 13
3955 #define NEON_3R_VABD 14
3956 #define NEON_3R_VABA 15
3957 #define NEON_3R_VADD_VSUB 16
3958 #define NEON_3R_VTST_VCEQ 17
3959 #define NEON_3R_VML 18 /* VMLA, VMLS */
3960 #define NEON_3R_VMUL 19
3961 #define NEON_3R_VPMAX 20
3962 #define NEON_3R_VPMIN 21
3963 #define NEON_3R_VQDMULH_VQRDMULH 22
3964 #define NEON_3R_VPADD_VQRDMLAH 23
3965 #define NEON_3R_SHA 24 /* SHA1C,SHA1P,SHA1M,SHA1SU0,SHA256H{2},SHA256SU1 */
3966 #define NEON_3R_VFM_VQRDMLSH 25 /* VFMA, VFMS, VQRDMLSH */
3967 #define NEON_3R_FLOAT_ARITH 26 /* float VADD, VSUB, VPADD, VABD */
3968 #define NEON_3R_FLOAT_MULTIPLY 27 /* float VMLA, VMLS, VMUL */
3969 #define NEON_3R_FLOAT_CMP 28 /* float VCEQ, VCGE, VCGT */
3970 #define NEON_3R_FLOAT_ACMP 29 /* float VACGE, VACGT, VACLE, VACLT */
3971 #define NEON_3R_FLOAT_MINMAX 30 /* float VMIN, VMAX */
3972 #define NEON_3R_FLOAT_MISC 31 /* float VRECPS, VRSQRTS, VMAXNM/MINNM */
3974 static const uint8_t neon_3r_sizes[] = {
3975 [NEON_3R_VHADD] = 0x7,
3976 [NEON_3R_VQADD] = 0xf,
3977 [NEON_3R_VRHADD] = 0x7,
3978 [NEON_3R_LOGIC] = 0xf, /* size field encodes op type */
3979 [NEON_3R_VHSUB] = 0x7,
3980 [NEON_3R_VQSUB] = 0xf,
3981 [NEON_3R_VCGT] = 0x7,
3982 [NEON_3R_VCGE] = 0x7,
3983 [NEON_3R_VSHL] = 0xf,
3984 [NEON_3R_VQSHL] = 0xf,
3985 [NEON_3R_VRSHL] = 0xf,
3986 [NEON_3R_VQRSHL] = 0xf,
3987 [NEON_3R_VMAX] = 0x7,
3988 [NEON_3R_VMIN] = 0x7,
3989 [NEON_3R_VABD] = 0x7,
3990 [NEON_3R_VABA] = 0x7,
3991 [NEON_3R_VADD_VSUB] = 0xf,
3992 [NEON_3R_VTST_VCEQ] = 0x7,
3993 [NEON_3R_VML] = 0x7,
3994 [NEON_3R_VMUL] = 0x7,
3995 [NEON_3R_VPMAX] = 0x7,
3996 [NEON_3R_VPMIN] = 0x7,
3997 [NEON_3R_VQDMULH_VQRDMULH] = 0x6,
3998 [NEON_3R_VPADD_VQRDMLAH] = 0x7,
3999 [NEON_3R_SHA] = 0xf, /* size field encodes op type */
4000 [NEON_3R_VFM_VQRDMLSH] = 0x7, /* For VFM, size bit 1 encodes op */
4001 [NEON_3R_FLOAT_ARITH] = 0x5, /* size bit 1 encodes op */
4002 [NEON_3R_FLOAT_MULTIPLY] = 0x5, /* size bit 1 encodes op */
4003 [NEON_3R_FLOAT_CMP] = 0x5, /* size bit 1 encodes op */
4004 [NEON_3R_FLOAT_ACMP] = 0x5, /* size bit 1 encodes op */
4005 [NEON_3R_FLOAT_MINMAX] = 0x5, /* size bit 1 encodes op */
4006 [NEON_3R_FLOAT_MISC] = 0x5, /* size bit 1 encodes op */
4009 /* Symbolic constants for op fields for Neon 2-register miscellaneous.
4010 * The values correspond to bits [17:16,10:7]; see the ARM ARM DDI0406B
4011 * table A7-13.
4013 #define NEON_2RM_VREV64 0
4014 #define NEON_2RM_VREV32 1
4015 #define NEON_2RM_VREV16 2
4016 #define NEON_2RM_VPADDL 4
4017 #define NEON_2RM_VPADDL_U 5
4018 #define NEON_2RM_AESE 6 /* Includes AESD */
4019 #define NEON_2RM_AESMC 7 /* Includes AESIMC */
4020 #define NEON_2RM_VCLS 8
4021 #define NEON_2RM_VCLZ 9
4022 #define NEON_2RM_VCNT 10
4023 #define NEON_2RM_VMVN 11
4024 #define NEON_2RM_VPADAL 12
4025 #define NEON_2RM_VPADAL_U 13
4026 #define NEON_2RM_VQABS 14
4027 #define NEON_2RM_VQNEG 15
4028 #define NEON_2RM_VCGT0 16
4029 #define NEON_2RM_VCGE0 17
4030 #define NEON_2RM_VCEQ0 18
4031 #define NEON_2RM_VCLE0 19
4032 #define NEON_2RM_VCLT0 20
4033 #define NEON_2RM_SHA1H 21
4034 #define NEON_2RM_VABS 22
4035 #define NEON_2RM_VNEG 23
4036 #define NEON_2RM_VCGT0_F 24
4037 #define NEON_2RM_VCGE0_F 25
4038 #define NEON_2RM_VCEQ0_F 26
4039 #define NEON_2RM_VCLE0_F 27
4040 #define NEON_2RM_VCLT0_F 28
4041 #define NEON_2RM_VABS_F 30
4042 #define NEON_2RM_VNEG_F 31
4043 #define NEON_2RM_VSWP 32
4044 #define NEON_2RM_VTRN 33
4045 #define NEON_2RM_VUZP 34
4046 #define NEON_2RM_VZIP 35
4047 #define NEON_2RM_VMOVN 36 /* Includes VQMOVN, VQMOVUN */
4048 #define NEON_2RM_VQMOVN 37 /* Includes VQMOVUN */
4049 #define NEON_2RM_VSHLL 38
4050 #define NEON_2RM_SHA1SU1 39 /* Includes SHA256SU0 */
4051 #define NEON_2RM_VRINTN 40
4052 #define NEON_2RM_VRINTX 41
4053 #define NEON_2RM_VRINTA 42
4054 #define NEON_2RM_VRINTZ 43
4055 #define NEON_2RM_VCVT_F16_F32 44
4056 #define NEON_2RM_VRINTM 45
4057 #define NEON_2RM_VCVT_F32_F16 46
4058 #define NEON_2RM_VRINTP 47
4059 #define NEON_2RM_VCVTAU 48
4060 #define NEON_2RM_VCVTAS 49
4061 #define NEON_2RM_VCVTNU 50
4062 #define NEON_2RM_VCVTNS 51
4063 #define NEON_2RM_VCVTPU 52
4064 #define NEON_2RM_VCVTPS 53
4065 #define NEON_2RM_VCVTMU 54
4066 #define NEON_2RM_VCVTMS 55
4067 #define NEON_2RM_VRECPE 56
4068 #define NEON_2RM_VRSQRTE 57
4069 #define NEON_2RM_VRECPE_F 58
4070 #define NEON_2RM_VRSQRTE_F 59
4071 #define NEON_2RM_VCVT_FS 60
4072 #define NEON_2RM_VCVT_FU 61
4073 #define NEON_2RM_VCVT_SF 62
4074 #define NEON_2RM_VCVT_UF 63
4076 static bool neon_2rm_is_v8_op(int op)
4078 /* Return true if this neon 2reg-misc op is ARMv8 and up */
4079 switch (op) {
4080 case NEON_2RM_VRINTN:
4081 case NEON_2RM_VRINTA:
4082 case NEON_2RM_VRINTM:
4083 case NEON_2RM_VRINTP:
4084 case NEON_2RM_VRINTZ:
4085 case NEON_2RM_VRINTX:
4086 case NEON_2RM_VCVTAU:
4087 case NEON_2RM_VCVTAS:
4088 case NEON_2RM_VCVTNU:
4089 case NEON_2RM_VCVTNS:
4090 case NEON_2RM_VCVTPU:
4091 case NEON_2RM_VCVTPS:
4092 case NEON_2RM_VCVTMU:
4093 case NEON_2RM_VCVTMS:
4094 return true;
4095 default:
4096 return false;
4100 /* Each entry in this array has bit n set if the insn allows
4101 * size value n (otherwise it will UNDEF). Since unallocated
4102 * op values will have no bits set they always UNDEF.
4104 static const uint8_t neon_2rm_sizes[] = {
4105 [NEON_2RM_VREV64] = 0x7,
4106 [NEON_2RM_VREV32] = 0x3,
4107 [NEON_2RM_VREV16] = 0x1,
4108 [NEON_2RM_VPADDL] = 0x7,
4109 [NEON_2RM_VPADDL_U] = 0x7,
4110 [NEON_2RM_AESE] = 0x1,
4111 [NEON_2RM_AESMC] = 0x1,
4112 [NEON_2RM_VCLS] = 0x7,
4113 [NEON_2RM_VCLZ] = 0x7,
4114 [NEON_2RM_VCNT] = 0x1,
4115 [NEON_2RM_VMVN] = 0x1,
4116 [NEON_2RM_VPADAL] = 0x7,
4117 [NEON_2RM_VPADAL_U] = 0x7,
4118 [NEON_2RM_VQABS] = 0x7,
4119 [NEON_2RM_VQNEG] = 0x7,
4120 [NEON_2RM_VCGT0] = 0x7,
4121 [NEON_2RM_VCGE0] = 0x7,
4122 [NEON_2RM_VCEQ0] = 0x7,
4123 [NEON_2RM_VCLE0] = 0x7,
4124 [NEON_2RM_VCLT0] = 0x7,
4125 [NEON_2RM_SHA1H] = 0x4,
4126 [NEON_2RM_VABS] = 0x7,
4127 [NEON_2RM_VNEG] = 0x7,
4128 [NEON_2RM_VCGT0_F] = 0x4,
4129 [NEON_2RM_VCGE0_F] = 0x4,
4130 [NEON_2RM_VCEQ0_F] = 0x4,
4131 [NEON_2RM_VCLE0_F] = 0x4,
4132 [NEON_2RM_VCLT0_F] = 0x4,
4133 [NEON_2RM_VABS_F] = 0x4,
4134 [NEON_2RM_VNEG_F] = 0x4,
4135 [NEON_2RM_VSWP] = 0x1,
4136 [NEON_2RM_VTRN] = 0x7,
4137 [NEON_2RM_VUZP] = 0x7,
4138 [NEON_2RM_VZIP] = 0x7,
4139 [NEON_2RM_VMOVN] = 0x7,
4140 [NEON_2RM_VQMOVN] = 0x7,
4141 [NEON_2RM_VSHLL] = 0x7,
4142 [NEON_2RM_SHA1SU1] = 0x4,
4143 [NEON_2RM_VRINTN] = 0x4,
4144 [NEON_2RM_VRINTX] = 0x4,
4145 [NEON_2RM_VRINTA] = 0x4,
4146 [NEON_2RM_VRINTZ] = 0x4,
4147 [NEON_2RM_VCVT_F16_F32] = 0x2,
4148 [NEON_2RM_VRINTM] = 0x4,
4149 [NEON_2RM_VCVT_F32_F16] = 0x2,
4150 [NEON_2RM_VRINTP] = 0x4,
4151 [NEON_2RM_VCVTAU] = 0x4,
4152 [NEON_2RM_VCVTAS] = 0x4,
4153 [NEON_2RM_VCVTNU] = 0x4,
4154 [NEON_2RM_VCVTNS] = 0x4,
4155 [NEON_2RM_VCVTPU] = 0x4,
4156 [NEON_2RM_VCVTPS] = 0x4,
4157 [NEON_2RM_VCVTMU] = 0x4,
4158 [NEON_2RM_VCVTMS] = 0x4,
4159 [NEON_2RM_VRECPE] = 0x4,
4160 [NEON_2RM_VRSQRTE] = 0x4,
4161 [NEON_2RM_VRECPE_F] = 0x4,
4162 [NEON_2RM_VRSQRTE_F] = 0x4,
4163 [NEON_2RM_VCVT_FS] = 0x4,
4164 [NEON_2RM_VCVT_FU] = 0x4,
4165 [NEON_2RM_VCVT_SF] = 0x4,
4166 [NEON_2RM_VCVT_UF] = 0x4,
4170 /* Expand v8.1 simd helper. */
4171 static int do_v81_helper(DisasContext *s, gen_helper_gvec_3_ptr *fn,
4172 int q, int rd, int rn, int rm)
4174 if (dc_isar_feature(aa32_rdm, s)) {
4175 int opr_sz = (1 + q) * 8;
4176 tcg_gen_gvec_3_ptr(vfp_reg_offset(1, rd),
4177 vfp_reg_offset(1, rn),
4178 vfp_reg_offset(1, rm), cpu_env,
4179 opr_sz, opr_sz, 0, fn);
4180 return 0;
4182 return 1;
4185 static void gen_ssra8_i64(TCGv_i64 d, TCGv_i64 a, int64_t shift)
4187 tcg_gen_vec_sar8i_i64(a, a, shift);
4188 tcg_gen_vec_add8_i64(d, d, a);
4191 static void gen_ssra16_i64(TCGv_i64 d, TCGv_i64 a, int64_t shift)
4193 tcg_gen_vec_sar16i_i64(a, a, shift);
4194 tcg_gen_vec_add16_i64(d, d, a);
4197 static void gen_ssra32_i32(TCGv_i32 d, TCGv_i32 a, int32_t shift)
4199 tcg_gen_sari_i32(a, a, shift);
4200 tcg_gen_add_i32(d, d, a);
4203 static void gen_ssra64_i64(TCGv_i64 d, TCGv_i64 a, int64_t shift)
4205 tcg_gen_sari_i64(a, a, shift);
4206 tcg_gen_add_i64(d, d, a);
4209 static void gen_ssra_vec(unsigned vece, TCGv_vec d, TCGv_vec a, int64_t sh)
4211 tcg_gen_sari_vec(vece, a, a, sh);
4212 tcg_gen_add_vec(vece, d, d, a);
4215 static const TCGOpcode vecop_list_ssra[] = {
4216 INDEX_op_sari_vec, INDEX_op_add_vec, 0
4219 const GVecGen2i ssra_op[4] = {
4220 { .fni8 = gen_ssra8_i64,
4221 .fniv = gen_ssra_vec,
4222 .load_dest = true,
4223 .opt_opc = vecop_list_ssra,
4224 .vece = MO_8 },
4225 { .fni8 = gen_ssra16_i64,
4226 .fniv = gen_ssra_vec,
4227 .load_dest = true,
4228 .opt_opc = vecop_list_ssra,
4229 .vece = MO_16 },
4230 { .fni4 = gen_ssra32_i32,
4231 .fniv = gen_ssra_vec,
4232 .load_dest = true,
4233 .opt_opc = vecop_list_ssra,
4234 .vece = MO_32 },
4235 { .fni8 = gen_ssra64_i64,
4236 .fniv = gen_ssra_vec,
4237 .prefer_i64 = TCG_TARGET_REG_BITS == 64,
4238 .opt_opc = vecop_list_ssra,
4239 .load_dest = true,
4240 .vece = MO_64 },
4243 static void gen_usra8_i64(TCGv_i64 d, TCGv_i64 a, int64_t shift)
4245 tcg_gen_vec_shr8i_i64(a, a, shift);
4246 tcg_gen_vec_add8_i64(d, d, a);
4249 static void gen_usra16_i64(TCGv_i64 d, TCGv_i64 a, int64_t shift)
4251 tcg_gen_vec_shr16i_i64(a, a, shift);
4252 tcg_gen_vec_add16_i64(d, d, a);
4255 static void gen_usra32_i32(TCGv_i32 d, TCGv_i32 a, int32_t shift)
4257 tcg_gen_shri_i32(a, a, shift);
4258 tcg_gen_add_i32(d, d, a);
4261 static void gen_usra64_i64(TCGv_i64 d, TCGv_i64 a, int64_t shift)
4263 tcg_gen_shri_i64(a, a, shift);
4264 tcg_gen_add_i64(d, d, a);
4267 static void gen_usra_vec(unsigned vece, TCGv_vec d, TCGv_vec a, int64_t sh)
4269 tcg_gen_shri_vec(vece, a, a, sh);
4270 tcg_gen_add_vec(vece, d, d, a);
4273 static const TCGOpcode vecop_list_usra[] = {
4274 INDEX_op_shri_vec, INDEX_op_add_vec, 0
4277 const GVecGen2i usra_op[4] = {
4278 { .fni8 = gen_usra8_i64,
4279 .fniv = gen_usra_vec,
4280 .load_dest = true,
4281 .opt_opc = vecop_list_usra,
4282 .vece = MO_8, },
4283 { .fni8 = gen_usra16_i64,
4284 .fniv = gen_usra_vec,
4285 .load_dest = true,
4286 .opt_opc = vecop_list_usra,
4287 .vece = MO_16, },
4288 { .fni4 = gen_usra32_i32,
4289 .fniv = gen_usra_vec,
4290 .load_dest = true,
4291 .opt_opc = vecop_list_usra,
4292 .vece = MO_32, },
4293 { .fni8 = gen_usra64_i64,
4294 .fniv = gen_usra_vec,
4295 .prefer_i64 = TCG_TARGET_REG_BITS == 64,
4296 .load_dest = true,
4297 .opt_opc = vecop_list_usra,
4298 .vece = MO_64, },
4301 static void gen_shr8_ins_i64(TCGv_i64 d, TCGv_i64 a, int64_t shift)
4303 uint64_t mask = dup_const(MO_8, 0xff >> shift);
4304 TCGv_i64 t = tcg_temp_new_i64();
4306 tcg_gen_shri_i64(t, a, shift);
4307 tcg_gen_andi_i64(t, t, mask);
4308 tcg_gen_andi_i64(d, d, ~mask);
4309 tcg_gen_or_i64(d, d, t);
4310 tcg_temp_free_i64(t);
4313 static void gen_shr16_ins_i64(TCGv_i64 d, TCGv_i64 a, int64_t shift)
4315 uint64_t mask = dup_const(MO_16, 0xffff >> shift);
4316 TCGv_i64 t = tcg_temp_new_i64();
4318 tcg_gen_shri_i64(t, a, shift);
4319 tcg_gen_andi_i64(t, t, mask);
4320 tcg_gen_andi_i64(d, d, ~mask);
4321 tcg_gen_or_i64(d, d, t);
4322 tcg_temp_free_i64(t);
4325 static void gen_shr32_ins_i32(TCGv_i32 d, TCGv_i32 a, int32_t shift)
4327 tcg_gen_shri_i32(a, a, shift);
4328 tcg_gen_deposit_i32(d, d, a, 0, 32 - shift);
4331 static void gen_shr64_ins_i64(TCGv_i64 d, TCGv_i64 a, int64_t shift)
4333 tcg_gen_shri_i64(a, a, shift);
4334 tcg_gen_deposit_i64(d, d, a, 0, 64 - shift);
4337 static void gen_shr_ins_vec(unsigned vece, TCGv_vec d, TCGv_vec a, int64_t sh)
4339 if (sh == 0) {
4340 tcg_gen_mov_vec(d, a);
4341 } else {
4342 TCGv_vec t = tcg_temp_new_vec_matching(d);
4343 TCGv_vec m = tcg_temp_new_vec_matching(d);
4345 tcg_gen_dupi_vec(vece, m, MAKE_64BIT_MASK((8 << vece) - sh, sh));
4346 tcg_gen_shri_vec(vece, t, a, sh);
4347 tcg_gen_and_vec(vece, d, d, m);
4348 tcg_gen_or_vec(vece, d, d, t);
4350 tcg_temp_free_vec(t);
4351 tcg_temp_free_vec(m);
4355 static const TCGOpcode vecop_list_sri[] = { INDEX_op_shri_vec, 0 };
4357 const GVecGen2i sri_op[4] = {
4358 { .fni8 = gen_shr8_ins_i64,
4359 .fniv = gen_shr_ins_vec,
4360 .load_dest = true,
4361 .opt_opc = vecop_list_sri,
4362 .vece = MO_8 },
4363 { .fni8 = gen_shr16_ins_i64,
4364 .fniv = gen_shr_ins_vec,
4365 .load_dest = true,
4366 .opt_opc = vecop_list_sri,
4367 .vece = MO_16 },
4368 { .fni4 = gen_shr32_ins_i32,
4369 .fniv = gen_shr_ins_vec,
4370 .load_dest = true,
4371 .opt_opc = vecop_list_sri,
4372 .vece = MO_32 },
4373 { .fni8 = gen_shr64_ins_i64,
4374 .fniv = gen_shr_ins_vec,
4375 .prefer_i64 = TCG_TARGET_REG_BITS == 64,
4376 .load_dest = true,
4377 .opt_opc = vecop_list_sri,
4378 .vece = MO_64 },
4381 static void gen_shl8_ins_i64(TCGv_i64 d, TCGv_i64 a, int64_t shift)
4383 uint64_t mask = dup_const(MO_8, 0xff << shift);
4384 TCGv_i64 t = tcg_temp_new_i64();
4386 tcg_gen_shli_i64(t, a, shift);
4387 tcg_gen_andi_i64(t, t, mask);
4388 tcg_gen_andi_i64(d, d, ~mask);
4389 tcg_gen_or_i64(d, d, t);
4390 tcg_temp_free_i64(t);
4393 static void gen_shl16_ins_i64(TCGv_i64 d, TCGv_i64 a, int64_t shift)
4395 uint64_t mask = dup_const(MO_16, 0xffff << shift);
4396 TCGv_i64 t = tcg_temp_new_i64();
4398 tcg_gen_shli_i64(t, a, shift);
4399 tcg_gen_andi_i64(t, t, mask);
4400 tcg_gen_andi_i64(d, d, ~mask);
4401 tcg_gen_or_i64(d, d, t);
4402 tcg_temp_free_i64(t);
4405 static void gen_shl32_ins_i32(TCGv_i32 d, TCGv_i32 a, int32_t shift)
4407 tcg_gen_deposit_i32(d, d, a, shift, 32 - shift);
4410 static void gen_shl64_ins_i64(TCGv_i64 d, TCGv_i64 a, int64_t shift)
4412 tcg_gen_deposit_i64(d, d, a, shift, 64 - shift);
4415 static void gen_shl_ins_vec(unsigned vece, TCGv_vec d, TCGv_vec a, int64_t sh)
4417 if (sh == 0) {
4418 tcg_gen_mov_vec(d, a);
4419 } else {
4420 TCGv_vec t = tcg_temp_new_vec_matching(d);
4421 TCGv_vec m = tcg_temp_new_vec_matching(d);
4423 tcg_gen_dupi_vec(vece, m, MAKE_64BIT_MASK(0, sh));
4424 tcg_gen_shli_vec(vece, t, a, sh);
4425 tcg_gen_and_vec(vece, d, d, m);
4426 tcg_gen_or_vec(vece, d, d, t);
4428 tcg_temp_free_vec(t);
4429 tcg_temp_free_vec(m);
4433 static const TCGOpcode vecop_list_sli[] = { INDEX_op_shli_vec, 0 };
4435 const GVecGen2i sli_op[4] = {
4436 { .fni8 = gen_shl8_ins_i64,
4437 .fniv = gen_shl_ins_vec,
4438 .load_dest = true,
4439 .opt_opc = vecop_list_sli,
4440 .vece = MO_8 },
4441 { .fni8 = gen_shl16_ins_i64,
4442 .fniv = gen_shl_ins_vec,
4443 .load_dest = true,
4444 .opt_opc = vecop_list_sli,
4445 .vece = MO_16 },
4446 { .fni4 = gen_shl32_ins_i32,
4447 .fniv = gen_shl_ins_vec,
4448 .load_dest = true,
4449 .opt_opc = vecop_list_sli,
4450 .vece = MO_32 },
4451 { .fni8 = gen_shl64_ins_i64,
4452 .fniv = gen_shl_ins_vec,
4453 .prefer_i64 = TCG_TARGET_REG_BITS == 64,
4454 .load_dest = true,
4455 .opt_opc = vecop_list_sli,
4456 .vece = MO_64 },
4459 static void gen_mla8_i32(TCGv_i32 d, TCGv_i32 a, TCGv_i32 b)
4461 gen_helper_neon_mul_u8(a, a, b);
4462 gen_helper_neon_add_u8(d, d, a);
4465 static void gen_mls8_i32(TCGv_i32 d, TCGv_i32 a, TCGv_i32 b)
4467 gen_helper_neon_mul_u8(a, a, b);
4468 gen_helper_neon_sub_u8(d, d, a);
4471 static void gen_mla16_i32(TCGv_i32 d, TCGv_i32 a, TCGv_i32 b)
4473 gen_helper_neon_mul_u16(a, a, b);
4474 gen_helper_neon_add_u16(d, d, a);
4477 static void gen_mls16_i32(TCGv_i32 d, TCGv_i32 a, TCGv_i32 b)
4479 gen_helper_neon_mul_u16(a, a, b);
4480 gen_helper_neon_sub_u16(d, d, a);
4483 static void gen_mla32_i32(TCGv_i32 d, TCGv_i32 a, TCGv_i32 b)
4485 tcg_gen_mul_i32(a, a, b);
4486 tcg_gen_add_i32(d, d, a);
4489 static void gen_mls32_i32(TCGv_i32 d, TCGv_i32 a, TCGv_i32 b)
4491 tcg_gen_mul_i32(a, a, b);
4492 tcg_gen_sub_i32(d, d, a);
4495 static void gen_mla64_i64(TCGv_i64 d, TCGv_i64 a, TCGv_i64 b)
4497 tcg_gen_mul_i64(a, a, b);
4498 tcg_gen_add_i64(d, d, a);
4501 static void gen_mls64_i64(TCGv_i64 d, TCGv_i64 a, TCGv_i64 b)
4503 tcg_gen_mul_i64(a, a, b);
4504 tcg_gen_sub_i64(d, d, a);
4507 static void gen_mla_vec(unsigned vece, TCGv_vec d, TCGv_vec a, TCGv_vec b)
4509 tcg_gen_mul_vec(vece, a, a, b);
4510 tcg_gen_add_vec(vece, d, d, a);
4513 static void gen_mls_vec(unsigned vece, TCGv_vec d, TCGv_vec a, TCGv_vec b)
4515 tcg_gen_mul_vec(vece, a, a, b);
4516 tcg_gen_sub_vec(vece, d, d, a);
4519 /* Note that while NEON does not support VMLA and VMLS as 64-bit ops,
4520 * these tables are shared with AArch64 which does support them.
4523 static const TCGOpcode vecop_list_mla[] = {
4524 INDEX_op_mul_vec, INDEX_op_add_vec, 0
4527 static const TCGOpcode vecop_list_mls[] = {
4528 INDEX_op_mul_vec, INDEX_op_sub_vec, 0
4531 const GVecGen3 mla_op[4] = {
4532 { .fni4 = gen_mla8_i32,
4533 .fniv = gen_mla_vec,
4534 .load_dest = true,
4535 .opt_opc = vecop_list_mla,
4536 .vece = MO_8 },
4537 { .fni4 = gen_mla16_i32,
4538 .fniv = gen_mla_vec,
4539 .load_dest = true,
4540 .opt_opc = vecop_list_mla,
4541 .vece = MO_16 },
4542 { .fni4 = gen_mla32_i32,
4543 .fniv = gen_mla_vec,
4544 .load_dest = true,
4545 .opt_opc = vecop_list_mla,
4546 .vece = MO_32 },
4547 { .fni8 = gen_mla64_i64,
4548 .fniv = gen_mla_vec,
4549 .prefer_i64 = TCG_TARGET_REG_BITS == 64,
4550 .load_dest = true,
4551 .opt_opc = vecop_list_mla,
4552 .vece = MO_64 },
4555 const GVecGen3 mls_op[4] = {
4556 { .fni4 = gen_mls8_i32,
4557 .fniv = gen_mls_vec,
4558 .load_dest = true,
4559 .opt_opc = vecop_list_mls,
4560 .vece = MO_8 },
4561 { .fni4 = gen_mls16_i32,
4562 .fniv = gen_mls_vec,
4563 .load_dest = true,
4564 .opt_opc = vecop_list_mls,
4565 .vece = MO_16 },
4566 { .fni4 = gen_mls32_i32,
4567 .fniv = gen_mls_vec,
4568 .load_dest = true,
4569 .opt_opc = vecop_list_mls,
4570 .vece = MO_32 },
4571 { .fni8 = gen_mls64_i64,
4572 .fniv = gen_mls_vec,
4573 .prefer_i64 = TCG_TARGET_REG_BITS == 64,
4574 .load_dest = true,
4575 .opt_opc = vecop_list_mls,
4576 .vece = MO_64 },
4579 /* CMTST : test is "if (X & Y != 0)". */
4580 static void gen_cmtst_i32(TCGv_i32 d, TCGv_i32 a, TCGv_i32 b)
4582 tcg_gen_and_i32(d, a, b);
4583 tcg_gen_setcondi_i32(TCG_COND_NE, d, d, 0);
4584 tcg_gen_neg_i32(d, d);
4587 void gen_cmtst_i64(TCGv_i64 d, TCGv_i64 a, TCGv_i64 b)
4589 tcg_gen_and_i64(d, a, b);
4590 tcg_gen_setcondi_i64(TCG_COND_NE, d, d, 0);
4591 tcg_gen_neg_i64(d, d);
4594 static void gen_cmtst_vec(unsigned vece, TCGv_vec d, TCGv_vec a, TCGv_vec b)
4596 tcg_gen_and_vec(vece, d, a, b);
4597 tcg_gen_dupi_vec(vece, a, 0);
4598 tcg_gen_cmp_vec(TCG_COND_NE, vece, d, d, a);
4601 static const TCGOpcode vecop_list_cmtst[] = { INDEX_op_cmp_vec, 0 };
4603 const GVecGen3 cmtst_op[4] = {
4604 { .fni4 = gen_helper_neon_tst_u8,
4605 .fniv = gen_cmtst_vec,
4606 .opt_opc = vecop_list_cmtst,
4607 .vece = MO_8 },
4608 { .fni4 = gen_helper_neon_tst_u16,
4609 .fniv = gen_cmtst_vec,
4610 .opt_opc = vecop_list_cmtst,
4611 .vece = MO_16 },
4612 { .fni4 = gen_cmtst_i32,
4613 .fniv = gen_cmtst_vec,
4614 .opt_opc = vecop_list_cmtst,
4615 .vece = MO_32 },
4616 { .fni8 = gen_cmtst_i64,
4617 .fniv = gen_cmtst_vec,
4618 .prefer_i64 = TCG_TARGET_REG_BITS == 64,
4619 .opt_opc = vecop_list_cmtst,
4620 .vece = MO_64 },
4623 static void gen_uqadd_vec(unsigned vece, TCGv_vec t, TCGv_vec sat,
4624 TCGv_vec a, TCGv_vec b)
4626 TCGv_vec x = tcg_temp_new_vec_matching(t);
4627 tcg_gen_add_vec(vece, x, a, b);
4628 tcg_gen_usadd_vec(vece, t, a, b);
4629 tcg_gen_cmp_vec(TCG_COND_NE, vece, x, x, t);
4630 tcg_gen_or_vec(vece, sat, sat, x);
4631 tcg_temp_free_vec(x);
4634 static const TCGOpcode vecop_list_uqadd[] = {
4635 INDEX_op_usadd_vec, INDEX_op_cmp_vec, INDEX_op_add_vec, 0
4638 const GVecGen4 uqadd_op[4] = {
4639 { .fniv = gen_uqadd_vec,
4640 .fno = gen_helper_gvec_uqadd_b,
4641 .write_aofs = true,
4642 .opt_opc = vecop_list_uqadd,
4643 .vece = MO_8 },
4644 { .fniv = gen_uqadd_vec,
4645 .fno = gen_helper_gvec_uqadd_h,
4646 .write_aofs = true,
4647 .opt_opc = vecop_list_uqadd,
4648 .vece = MO_16 },
4649 { .fniv = gen_uqadd_vec,
4650 .fno = gen_helper_gvec_uqadd_s,
4651 .write_aofs = true,
4652 .opt_opc = vecop_list_uqadd,
4653 .vece = MO_32 },
4654 { .fniv = gen_uqadd_vec,
4655 .fno = gen_helper_gvec_uqadd_d,
4656 .write_aofs = true,
4657 .opt_opc = vecop_list_uqadd,
4658 .vece = MO_64 },
4661 static void gen_sqadd_vec(unsigned vece, TCGv_vec t, TCGv_vec sat,
4662 TCGv_vec a, TCGv_vec b)
4664 TCGv_vec x = tcg_temp_new_vec_matching(t);
4665 tcg_gen_add_vec(vece, x, a, b);
4666 tcg_gen_ssadd_vec(vece, t, a, b);
4667 tcg_gen_cmp_vec(TCG_COND_NE, vece, x, x, t);
4668 tcg_gen_or_vec(vece, sat, sat, x);
4669 tcg_temp_free_vec(x);
4672 static const TCGOpcode vecop_list_sqadd[] = {
4673 INDEX_op_ssadd_vec, INDEX_op_cmp_vec, INDEX_op_add_vec, 0
4676 const GVecGen4 sqadd_op[4] = {
4677 { .fniv = gen_sqadd_vec,
4678 .fno = gen_helper_gvec_sqadd_b,
4679 .opt_opc = vecop_list_sqadd,
4680 .write_aofs = true,
4681 .vece = MO_8 },
4682 { .fniv = gen_sqadd_vec,
4683 .fno = gen_helper_gvec_sqadd_h,
4684 .opt_opc = vecop_list_sqadd,
4685 .write_aofs = true,
4686 .vece = MO_16 },
4687 { .fniv = gen_sqadd_vec,
4688 .fno = gen_helper_gvec_sqadd_s,
4689 .opt_opc = vecop_list_sqadd,
4690 .write_aofs = true,
4691 .vece = MO_32 },
4692 { .fniv = gen_sqadd_vec,
4693 .fno = gen_helper_gvec_sqadd_d,
4694 .opt_opc = vecop_list_sqadd,
4695 .write_aofs = true,
4696 .vece = MO_64 },
4699 static void gen_uqsub_vec(unsigned vece, TCGv_vec t, TCGv_vec sat,
4700 TCGv_vec a, TCGv_vec b)
4702 TCGv_vec x = tcg_temp_new_vec_matching(t);
4703 tcg_gen_sub_vec(vece, x, a, b);
4704 tcg_gen_ussub_vec(vece, t, a, b);
4705 tcg_gen_cmp_vec(TCG_COND_NE, vece, x, x, t);
4706 tcg_gen_or_vec(vece, sat, sat, x);
4707 tcg_temp_free_vec(x);
4710 static const TCGOpcode vecop_list_uqsub[] = {
4711 INDEX_op_ussub_vec, INDEX_op_cmp_vec, INDEX_op_sub_vec, 0
4714 const GVecGen4 uqsub_op[4] = {
4715 { .fniv = gen_uqsub_vec,
4716 .fno = gen_helper_gvec_uqsub_b,
4717 .opt_opc = vecop_list_uqsub,
4718 .write_aofs = true,
4719 .vece = MO_8 },
4720 { .fniv = gen_uqsub_vec,
4721 .fno = gen_helper_gvec_uqsub_h,
4722 .opt_opc = vecop_list_uqsub,
4723 .write_aofs = true,
4724 .vece = MO_16 },
4725 { .fniv = gen_uqsub_vec,
4726 .fno = gen_helper_gvec_uqsub_s,
4727 .opt_opc = vecop_list_uqsub,
4728 .write_aofs = true,
4729 .vece = MO_32 },
4730 { .fniv = gen_uqsub_vec,
4731 .fno = gen_helper_gvec_uqsub_d,
4732 .opt_opc = vecop_list_uqsub,
4733 .write_aofs = true,
4734 .vece = MO_64 },
4737 static void gen_sqsub_vec(unsigned vece, TCGv_vec t, TCGv_vec sat,
4738 TCGv_vec a, TCGv_vec b)
4740 TCGv_vec x = tcg_temp_new_vec_matching(t);
4741 tcg_gen_sub_vec(vece, x, a, b);
4742 tcg_gen_sssub_vec(vece, t, a, b);
4743 tcg_gen_cmp_vec(TCG_COND_NE, vece, x, x, t);
4744 tcg_gen_or_vec(vece, sat, sat, x);
4745 tcg_temp_free_vec(x);
4748 static const TCGOpcode vecop_list_sqsub[] = {
4749 INDEX_op_sssub_vec, INDEX_op_cmp_vec, INDEX_op_sub_vec, 0
4752 const GVecGen4 sqsub_op[4] = {
4753 { .fniv = gen_sqsub_vec,
4754 .fno = gen_helper_gvec_sqsub_b,
4755 .opt_opc = vecop_list_sqsub,
4756 .write_aofs = true,
4757 .vece = MO_8 },
4758 { .fniv = gen_sqsub_vec,
4759 .fno = gen_helper_gvec_sqsub_h,
4760 .opt_opc = vecop_list_sqsub,
4761 .write_aofs = true,
4762 .vece = MO_16 },
4763 { .fniv = gen_sqsub_vec,
4764 .fno = gen_helper_gvec_sqsub_s,
4765 .opt_opc = vecop_list_sqsub,
4766 .write_aofs = true,
4767 .vece = MO_32 },
4768 { .fniv = gen_sqsub_vec,
4769 .fno = gen_helper_gvec_sqsub_d,
4770 .opt_opc = vecop_list_sqsub,
4771 .write_aofs = true,
4772 .vece = MO_64 },
4775 /* Translate a NEON data processing instruction. Return nonzero if the
4776 instruction is invalid.
4777 We process data in a mixture of 32-bit and 64-bit chunks.
4778 Mostly we use 32-bit chunks so we can use normal scalar instructions. */
4780 static int disas_neon_data_insn(DisasContext *s, uint32_t insn)
4782 int op;
4783 int q;
4784 int rd, rn, rm, rd_ofs, rn_ofs, rm_ofs;
4785 int size;
4786 int shift;
4787 int pass;
4788 int count;
4789 int pairwise;
4790 int u;
4791 int vec_size;
4792 uint32_t imm;
4793 TCGv_i32 tmp, tmp2, tmp3, tmp4, tmp5;
4794 TCGv_ptr ptr1, ptr2, ptr3;
4795 TCGv_i64 tmp64;
4797 /* FIXME: this access check should not take precedence over UNDEF
4798 * for invalid encodings; we will generate incorrect syndrome information
4799 * for attempts to execute invalid vfp/neon encodings with FP disabled.
4801 if (s->fp_excp_el) {
4802 gen_exception_insn(s, s->pc_curr, EXCP_UDEF,
4803 syn_simd_access_trap(1, 0xe, false), s->fp_excp_el);
4804 return 0;
4807 if (!s->vfp_enabled)
4808 return 1;
4809 q = (insn & (1 << 6)) != 0;
4810 u = (insn >> 24) & 1;
4811 VFP_DREG_D(rd, insn);
4812 VFP_DREG_N(rn, insn);
4813 VFP_DREG_M(rm, insn);
4814 size = (insn >> 20) & 3;
4815 vec_size = q ? 16 : 8;
4816 rd_ofs = neon_reg_offset(rd, 0);
4817 rn_ofs = neon_reg_offset(rn, 0);
4818 rm_ofs = neon_reg_offset(rm, 0);
4820 if ((insn & (1 << 23)) == 0) {
4821 /* Three register same length. */
4822 op = ((insn >> 7) & 0x1e) | ((insn >> 4) & 1);
4823 /* Catch invalid op and bad size combinations: UNDEF */
4824 if ((neon_3r_sizes[op] & (1 << size)) == 0) {
4825 return 1;
4827 /* All insns of this form UNDEF for either this condition or the
4828 * superset of cases "Q==1"; we catch the latter later.
4830 if (q && ((rd | rn | rm) & 1)) {
4831 return 1;
4833 switch (op) {
4834 case NEON_3R_SHA:
4835 /* The SHA-1/SHA-256 3-register instructions require special
4836 * treatment here, as their size field is overloaded as an
4837 * op type selector, and they all consume their input in a
4838 * single pass.
4840 if (!q) {
4841 return 1;
4843 if (!u) { /* SHA-1 */
4844 if (!dc_isar_feature(aa32_sha1, s)) {
4845 return 1;
4847 ptr1 = vfp_reg_ptr(true, rd);
4848 ptr2 = vfp_reg_ptr(true, rn);
4849 ptr3 = vfp_reg_ptr(true, rm);
4850 tmp4 = tcg_const_i32(size);
4851 gen_helper_crypto_sha1_3reg(ptr1, ptr2, ptr3, tmp4);
4852 tcg_temp_free_i32(tmp4);
4853 } else { /* SHA-256 */
4854 if (!dc_isar_feature(aa32_sha2, s) || size == 3) {
4855 return 1;
4857 ptr1 = vfp_reg_ptr(true, rd);
4858 ptr2 = vfp_reg_ptr(true, rn);
4859 ptr3 = vfp_reg_ptr(true, rm);
4860 switch (size) {
4861 case 0:
4862 gen_helper_crypto_sha256h(ptr1, ptr2, ptr3);
4863 break;
4864 case 1:
4865 gen_helper_crypto_sha256h2(ptr1, ptr2, ptr3);
4866 break;
4867 case 2:
4868 gen_helper_crypto_sha256su1(ptr1, ptr2, ptr3);
4869 break;
4872 tcg_temp_free_ptr(ptr1);
4873 tcg_temp_free_ptr(ptr2);
4874 tcg_temp_free_ptr(ptr3);
4875 return 0;
4877 case NEON_3R_VPADD_VQRDMLAH:
4878 if (!u) {
4879 break; /* VPADD */
4881 /* VQRDMLAH */
4882 switch (size) {
4883 case 1:
4884 return do_v81_helper(s, gen_helper_gvec_qrdmlah_s16,
4885 q, rd, rn, rm);
4886 case 2:
4887 return do_v81_helper(s, gen_helper_gvec_qrdmlah_s32,
4888 q, rd, rn, rm);
4890 return 1;
4892 case NEON_3R_VFM_VQRDMLSH:
4893 if (!u) {
4894 /* VFM, VFMS */
4895 if (size == 1) {
4896 return 1;
4898 break;
4900 /* VQRDMLSH */
4901 switch (size) {
4902 case 1:
4903 return do_v81_helper(s, gen_helper_gvec_qrdmlsh_s16,
4904 q, rd, rn, rm);
4905 case 2:
4906 return do_v81_helper(s, gen_helper_gvec_qrdmlsh_s32,
4907 q, rd, rn, rm);
4909 return 1;
4911 case NEON_3R_LOGIC: /* Logic ops. */
4912 switch ((u << 2) | size) {
4913 case 0: /* VAND */
4914 tcg_gen_gvec_and(0, rd_ofs, rn_ofs, rm_ofs,
4915 vec_size, vec_size);
4916 break;
4917 case 1: /* VBIC */
4918 tcg_gen_gvec_andc(0, rd_ofs, rn_ofs, rm_ofs,
4919 vec_size, vec_size);
4920 break;
4921 case 2: /* VORR */
4922 tcg_gen_gvec_or(0, rd_ofs, rn_ofs, rm_ofs,
4923 vec_size, vec_size);
4924 break;
4925 case 3: /* VORN */
4926 tcg_gen_gvec_orc(0, rd_ofs, rn_ofs, rm_ofs,
4927 vec_size, vec_size);
4928 break;
4929 case 4: /* VEOR */
4930 tcg_gen_gvec_xor(0, rd_ofs, rn_ofs, rm_ofs,
4931 vec_size, vec_size);
4932 break;
4933 case 5: /* VBSL */
4934 tcg_gen_gvec_bitsel(MO_8, rd_ofs, rd_ofs, rn_ofs, rm_ofs,
4935 vec_size, vec_size);
4936 break;
4937 case 6: /* VBIT */
4938 tcg_gen_gvec_bitsel(MO_8, rd_ofs, rm_ofs, rn_ofs, rd_ofs,
4939 vec_size, vec_size);
4940 break;
4941 case 7: /* VBIF */
4942 tcg_gen_gvec_bitsel(MO_8, rd_ofs, rm_ofs, rd_ofs, rn_ofs,
4943 vec_size, vec_size);
4944 break;
4946 return 0;
4948 case NEON_3R_VADD_VSUB:
4949 if (u) {
4950 tcg_gen_gvec_sub(size, rd_ofs, rn_ofs, rm_ofs,
4951 vec_size, vec_size);
4952 } else {
4953 tcg_gen_gvec_add(size, rd_ofs, rn_ofs, rm_ofs,
4954 vec_size, vec_size);
4956 return 0;
4958 case NEON_3R_VQADD:
4959 tcg_gen_gvec_4(rd_ofs, offsetof(CPUARMState, vfp.qc),
4960 rn_ofs, rm_ofs, vec_size, vec_size,
4961 (u ? uqadd_op : sqadd_op) + size);
4962 return 0;
4964 case NEON_3R_VQSUB:
4965 tcg_gen_gvec_4(rd_ofs, offsetof(CPUARMState, vfp.qc),
4966 rn_ofs, rm_ofs, vec_size, vec_size,
4967 (u ? uqsub_op : sqsub_op) + size);
4968 return 0;
4970 case NEON_3R_VMUL: /* VMUL */
4971 if (u) {
4972 /* Polynomial case allows only P8 and is handled below. */
4973 if (size != 0) {
4974 return 1;
4976 } else {
4977 tcg_gen_gvec_mul(size, rd_ofs, rn_ofs, rm_ofs,
4978 vec_size, vec_size);
4979 return 0;
4981 break;
4983 case NEON_3R_VML: /* VMLA, VMLS */
4984 tcg_gen_gvec_3(rd_ofs, rn_ofs, rm_ofs, vec_size, vec_size,
4985 u ? &mls_op[size] : &mla_op[size]);
4986 return 0;
4988 case NEON_3R_VTST_VCEQ:
4989 if (u) { /* VCEQ */
4990 tcg_gen_gvec_cmp(TCG_COND_EQ, size, rd_ofs, rn_ofs, rm_ofs,
4991 vec_size, vec_size);
4992 } else { /* VTST */
4993 tcg_gen_gvec_3(rd_ofs, rn_ofs, rm_ofs,
4994 vec_size, vec_size, &cmtst_op[size]);
4996 return 0;
4998 case NEON_3R_VCGT:
4999 tcg_gen_gvec_cmp(u ? TCG_COND_GTU : TCG_COND_GT, size,
5000 rd_ofs, rn_ofs, rm_ofs, vec_size, vec_size);
5001 return 0;
5003 case NEON_3R_VCGE:
5004 tcg_gen_gvec_cmp(u ? TCG_COND_GEU : TCG_COND_GE, size,
5005 rd_ofs, rn_ofs, rm_ofs, vec_size, vec_size);
5006 return 0;
5008 case NEON_3R_VMAX:
5009 if (u) {
5010 tcg_gen_gvec_umax(size, rd_ofs, rn_ofs, rm_ofs,
5011 vec_size, vec_size);
5012 } else {
5013 tcg_gen_gvec_smax(size, rd_ofs, rn_ofs, rm_ofs,
5014 vec_size, vec_size);
5016 return 0;
5017 case NEON_3R_VMIN:
5018 if (u) {
5019 tcg_gen_gvec_umin(size, rd_ofs, rn_ofs, rm_ofs,
5020 vec_size, vec_size);
5021 } else {
5022 tcg_gen_gvec_smin(size, rd_ofs, rn_ofs, rm_ofs,
5023 vec_size, vec_size);
5025 return 0;
5028 if (size == 3) {
5029 /* 64-bit element instructions. */
5030 for (pass = 0; pass < (q ? 2 : 1); pass++) {
5031 neon_load_reg64(cpu_V0, rn + pass);
5032 neon_load_reg64(cpu_V1, rm + pass);
5033 switch (op) {
5034 case NEON_3R_VSHL:
5035 if (u) {
5036 gen_helper_neon_shl_u64(cpu_V0, cpu_V1, cpu_V0);
5037 } else {
5038 gen_helper_neon_shl_s64(cpu_V0, cpu_V1, cpu_V0);
5040 break;
5041 case NEON_3R_VQSHL:
5042 if (u) {
5043 gen_helper_neon_qshl_u64(cpu_V0, cpu_env,
5044 cpu_V1, cpu_V0);
5045 } else {
5046 gen_helper_neon_qshl_s64(cpu_V0, cpu_env,
5047 cpu_V1, cpu_V0);
5049 break;
5050 case NEON_3R_VRSHL:
5051 if (u) {
5052 gen_helper_neon_rshl_u64(cpu_V0, cpu_V1, cpu_V0);
5053 } else {
5054 gen_helper_neon_rshl_s64(cpu_V0, cpu_V1, cpu_V0);
5056 break;
5057 case NEON_3R_VQRSHL:
5058 if (u) {
5059 gen_helper_neon_qrshl_u64(cpu_V0, cpu_env,
5060 cpu_V1, cpu_V0);
5061 } else {
5062 gen_helper_neon_qrshl_s64(cpu_V0, cpu_env,
5063 cpu_V1, cpu_V0);
5065 break;
5066 default:
5067 abort();
5069 neon_store_reg64(cpu_V0, rd + pass);
5071 return 0;
5073 pairwise = 0;
5074 switch (op) {
5075 case NEON_3R_VSHL:
5076 case NEON_3R_VQSHL:
5077 case NEON_3R_VRSHL:
5078 case NEON_3R_VQRSHL:
5080 int rtmp;
5081 /* Shift instruction operands are reversed. */
5082 rtmp = rn;
5083 rn = rm;
5084 rm = rtmp;
5086 break;
5087 case NEON_3R_VPADD_VQRDMLAH:
5088 case NEON_3R_VPMAX:
5089 case NEON_3R_VPMIN:
5090 pairwise = 1;
5091 break;
5092 case NEON_3R_FLOAT_ARITH:
5093 pairwise = (u && size < 2); /* if VPADD (float) */
5094 break;
5095 case NEON_3R_FLOAT_MINMAX:
5096 pairwise = u; /* if VPMIN/VPMAX (float) */
5097 break;
5098 case NEON_3R_FLOAT_CMP:
5099 if (!u && size) {
5100 /* no encoding for U=0 C=1x */
5101 return 1;
5103 break;
5104 case NEON_3R_FLOAT_ACMP:
5105 if (!u) {
5106 return 1;
5108 break;
5109 case NEON_3R_FLOAT_MISC:
5110 /* VMAXNM/VMINNM in ARMv8 */
5111 if (u && !arm_dc_feature(s, ARM_FEATURE_V8)) {
5112 return 1;
5114 break;
5115 case NEON_3R_VFM_VQRDMLSH:
5116 if (!arm_dc_feature(s, ARM_FEATURE_VFP4)) {
5117 return 1;
5119 break;
5120 default:
5121 break;
5124 if (pairwise && q) {
5125 /* All the pairwise insns UNDEF if Q is set */
5126 return 1;
5129 for (pass = 0; pass < (q ? 4 : 2); pass++) {
5131 if (pairwise) {
5132 /* Pairwise. */
5133 if (pass < 1) {
5134 tmp = neon_load_reg(rn, 0);
5135 tmp2 = neon_load_reg(rn, 1);
5136 } else {
5137 tmp = neon_load_reg(rm, 0);
5138 tmp2 = neon_load_reg(rm, 1);
5140 } else {
5141 /* Elementwise. */
5142 tmp = neon_load_reg(rn, pass);
5143 tmp2 = neon_load_reg(rm, pass);
5145 switch (op) {
5146 case NEON_3R_VHADD:
5147 GEN_NEON_INTEGER_OP(hadd);
5148 break;
5149 case NEON_3R_VRHADD:
5150 GEN_NEON_INTEGER_OP(rhadd);
5151 break;
5152 case NEON_3R_VHSUB:
5153 GEN_NEON_INTEGER_OP(hsub);
5154 break;
5155 case NEON_3R_VSHL:
5156 GEN_NEON_INTEGER_OP(shl);
5157 break;
5158 case NEON_3R_VQSHL:
5159 GEN_NEON_INTEGER_OP_ENV(qshl);
5160 break;
5161 case NEON_3R_VRSHL:
5162 GEN_NEON_INTEGER_OP(rshl);
5163 break;
5164 case NEON_3R_VQRSHL:
5165 GEN_NEON_INTEGER_OP_ENV(qrshl);
5166 break;
5167 case NEON_3R_VABD:
5168 GEN_NEON_INTEGER_OP(abd);
5169 break;
5170 case NEON_3R_VABA:
5171 GEN_NEON_INTEGER_OP(abd);
5172 tcg_temp_free_i32(tmp2);
5173 tmp2 = neon_load_reg(rd, pass);
5174 gen_neon_add(size, tmp, tmp2);
5175 break;
5176 case NEON_3R_VMUL:
5177 /* VMUL.P8; other cases already eliminated. */
5178 gen_helper_neon_mul_p8(tmp, tmp, tmp2);
5179 break;
5180 case NEON_3R_VPMAX:
5181 GEN_NEON_INTEGER_OP(pmax);
5182 break;
5183 case NEON_3R_VPMIN:
5184 GEN_NEON_INTEGER_OP(pmin);
5185 break;
5186 case NEON_3R_VQDMULH_VQRDMULH: /* Multiply high. */
5187 if (!u) { /* VQDMULH */
5188 switch (size) {
5189 case 1:
5190 gen_helper_neon_qdmulh_s16(tmp, cpu_env, tmp, tmp2);
5191 break;
5192 case 2:
5193 gen_helper_neon_qdmulh_s32(tmp, cpu_env, tmp, tmp2);
5194 break;
5195 default: abort();
5197 } else { /* VQRDMULH */
5198 switch (size) {
5199 case 1:
5200 gen_helper_neon_qrdmulh_s16(tmp, cpu_env, tmp, tmp2);
5201 break;
5202 case 2:
5203 gen_helper_neon_qrdmulh_s32(tmp, cpu_env, tmp, tmp2);
5204 break;
5205 default: abort();
5208 break;
5209 case NEON_3R_VPADD_VQRDMLAH:
5210 switch (size) {
5211 case 0: gen_helper_neon_padd_u8(tmp, tmp, tmp2); break;
5212 case 1: gen_helper_neon_padd_u16(tmp, tmp, tmp2); break;
5213 case 2: tcg_gen_add_i32(tmp, tmp, tmp2); break;
5214 default: abort();
5216 break;
5217 case NEON_3R_FLOAT_ARITH: /* Floating point arithmetic. */
5219 TCGv_ptr fpstatus = get_fpstatus_ptr(1);
5220 switch ((u << 2) | size) {
5221 case 0: /* VADD */
5222 case 4: /* VPADD */
5223 gen_helper_vfp_adds(tmp, tmp, tmp2, fpstatus);
5224 break;
5225 case 2: /* VSUB */
5226 gen_helper_vfp_subs(tmp, tmp, tmp2, fpstatus);
5227 break;
5228 case 6: /* VABD */
5229 gen_helper_neon_abd_f32(tmp, tmp, tmp2, fpstatus);
5230 break;
5231 default:
5232 abort();
5234 tcg_temp_free_ptr(fpstatus);
5235 break;
5237 case NEON_3R_FLOAT_MULTIPLY:
5239 TCGv_ptr fpstatus = get_fpstatus_ptr(1);
5240 gen_helper_vfp_muls(tmp, tmp, tmp2, fpstatus);
5241 if (!u) {
5242 tcg_temp_free_i32(tmp2);
5243 tmp2 = neon_load_reg(rd, pass);
5244 if (size == 0) {
5245 gen_helper_vfp_adds(tmp, tmp, tmp2, fpstatus);
5246 } else {
5247 gen_helper_vfp_subs(tmp, tmp2, tmp, fpstatus);
5250 tcg_temp_free_ptr(fpstatus);
5251 break;
5253 case NEON_3R_FLOAT_CMP:
5255 TCGv_ptr fpstatus = get_fpstatus_ptr(1);
5256 if (!u) {
5257 gen_helper_neon_ceq_f32(tmp, tmp, tmp2, fpstatus);
5258 } else {
5259 if (size == 0) {
5260 gen_helper_neon_cge_f32(tmp, tmp, tmp2, fpstatus);
5261 } else {
5262 gen_helper_neon_cgt_f32(tmp, tmp, tmp2, fpstatus);
5265 tcg_temp_free_ptr(fpstatus);
5266 break;
5268 case NEON_3R_FLOAT_ACMP:
5270 TCGv_ptr fpstatus = get_fpstatus_ptr(1);
5271 if (size == 0) {
5272 gen_helper_neon_acge_f32(tmp, tmp, tmp2, fpstatus);
5273 } else {
5274 gen_helper_neon_acgt_f32(tmp, tmp, tmp2, fpstatus);
5276 tcg_temp_free_ptr(fpstatus);
5277 break;
5279 case NEON_3R_FLOAT_MINMAX:
5281 TCGv_ptr fpstatus = get_fpstatus_ptr(1);
5282 if (size == 0) {
5283 gen_helper_vfp_maxs(tmp, tmp, tmp2, fpstatus);
5284 } else {
5285 gen_helper_vfp_mins(tmp, tmp, tmp2, fpstatus);
5287 tcg_temp_free_ptr(fpstatus);
5288 break;
5290 case NEON_3R_FLOAT_MISC:
5291 if (u) {
5292 /* VMAXNM/VMINNM */
5293 TCGv_ptr fpstatus = get_fpstatus_ptr(1);
5294 if (size == 0) {
5295 gen_helper_vfp_maxnums(tmp, tmp, tmp2, fpstatus);
5296 } else {
5297 gen_helper_vfp_minnums(tmp, tmp, tmp2, fpstatus);
5299 tcg_temp_free_ptr(fpstatus);
5300 } else {
5301 if (size == 0) {
5302 gen_helper_recps_f32(tmp, tmp, tmp2, cpu_env);
5303 } else {
5304 gen_helper_rsqrts_f32(tmp, tmp, tmp2, cpu_env);
5307 break;
5308 case NEON_3R_VFM_VQRDMLSH:
5310 /* VFMA, VFMS: fused multiply-add */
5311 TCGv_ptr fpstatus = get_fpstatus_ptr(1);
5312 TCGv_i32 tmp3 = neon_load_reg(rd, pass);
5313 if (size) {
5314 /* VFMS */
5315 gen_helper_vfp_negs(tmp, tmp);
5317 gen_helper_vfp_muladds(tmp, tmp, tmp2, tmp3, fpstatus);
5318 tcg_temp_free_i32(tmp3);
5319 tcg_temp_free_ptr(fpstatus);
5320 break;
5322 default:
5323 abort();
5325 tcg_temp_free_i32(tmp2);
5327 /* Save the result. For elementwise operations we can put it
5328 straight into the destination register. For pairwise operations
5329 we have to be careful to avoid clobbering the source operands. */
5330 if (pairwise && rd == rm) {
5331 neon_store_scratch(pass, tmp);
5332 } else {
5333 neon_store_reg(rd, pass, tmp);
5336 } /* for pass */
5337 if (pairwise && rd == rm) {
5338 for (pass = 0; pass < (q ? 4 : 2); pass++) {
5339 tmp = neon_load_scratch(pass);
5340 neon_store_reg(rd, pass, tmp);
5343 /* End of 3 register same size operations. */
5344 } else if (insn & (1 << 4)) {
5345 if ((insn & 0x00380080) != 0) {
5346 /* Two registers and shift. */
5347 op = (insn >> 8) & 0xf;
5348 if (insn & (1 << 7)) {
5349 /* 64-bit shift. */
5350 if (op > 7) {
5351 return 1;
5353 size = 3;
5354 } else {
5355 size = 2;
5356 while ((insn & (1 << (size + 19))) == 0)
5357 size--;
5359 shift = (insn >> 16) & ((1 << (3 + size)) - 1);
5360 if (op < 8) {
5361 /* Shift by immediate:
5362 VSHR, VSRA, VRSHR, VRSRA, VSRI, VSHL, VQSHL, VQSHLU. */
5363 if (q && ((rd | rm) & 1)) {
5364 return 1;
5366 if (!u && (op == 4 || op == 6)) {
5367 return 1;
5369 /* Right shifts are encoded as N - shift, where N is the
5370 element size in bits. */
5371 if (op <= 4) {
5372 shift = shift - (1 << (size + 3));
5375 switch (op) {
5376 case 0: /* VSHR */
5377 /* Right shift comes here negative. */
5378 shift = -shift;
5379 /* Shifts larger than the element size are architecturally
5380 * valid. Unsigned results in all zeros; signed results
5381 * in all sign bits.
5383 if (!u) {
5384 tcg_gen_gvec_sari(size, rd_ofs, rm_ofs,
5385 MIN(shift, (8 << size) - 1),
5386 vec_size, vec_size);
5387 } else if (shift >= 8 << size) {
5388 tcg_gen_gvec_dup8i(rd_ofs, vec_size, vec_size, 0);
5389 } else {
5390 tcg_gen_gvec_shri(size, rd_ofs, rm_ofs, shift,
5391 vec_size, vec_size);
5393 return 0;
5395 case 1: /* VSRA */
5396 /* Right shift comes here negative. */
5397 shift = -shift;
5398 /* Shifts larger than the element size are architecturally
5399 * valid. Unsigned results in all zeros; signed results
5400 * in all sign bits.
5402 if (!u) {
5403 tcg_gen_gvec_2i(rd_ofs, rm_ofs, vec_size, vec_size,
5404 MIN(shift, (8 << size) - 1),
5405 &ssra_op[size]);
5406 } else if (shift >= 8 << size) {
5407 /* rd += 0 */
5408 } else {
5409 tcg_gen_gvec_2i(rd_ofs, rm_ofs, vec_size, vec_size,
5410 shift, &usra_op[size]);
5412 return 0;
5414 case 4: /* VSRI */
5415 if (!u) {
5416 return 1;
5418 /* Right shift comes here negative. */
5419 shift = -shift;
5420 /* Shift out of range leaves destination unchanged. */
5421 if (shift < 8 << size) {
5422 tcg_gen_gvec_2i(rd_ofs, rm_ofs, vec_size, vec_size,
5423 shift, &sri_op[size]);
5425 return 0;
5427 case 5: /* VSHL, VSLI */
5428 if (u) { /* VSLI */
5429 /* Shift out of range leaves destination unchanged. */
5430 if (shift < 8 << size) {
5431 tcg_gen_gvec_2i(rd_ofs, rm_ofs, vec_size,
5432 vec_size, shift, &sli_op[size]);
5434 } else { /* VSHL */
5435 /* Shifts larger than the element size are
5436 * architecturally valid and results in zero.
5438 if (shift >= 8 << size) {
5439 tcg_gen_gvec_dup8i(rd_ofs, vec_size, vec_size, 0);
5440 } else {
5441 tcg_gen_gvec_shli(size, rd_ofs, rm_ofs, shift,
5442 vec_size, vec_size);
5445 return 0;
5448 if (size == 3) {
5449 count = q + 1;
5450 } else {
5451 count = q ? 4: 2;
5454 /* To avoid excessive duplication of ops we implement shift
5455 * by immediate using the variable shift operations.
5457 imm = dup_const(size, shift);
5459 for (pass = 0; pass < count; pass++) {
5460 if (size == 3) {
5461 neon_load_reg64(cpu_V0, rm + pass);
5462 tcg_gen_movi_i64(cpu_V1, imm);
5463 switch (op) {
5464 case 2: /* VRSHR */
5465 case 3: /* VRSRA */
5466 if (u)
5467 gen_helper_neon_rshl_u64(cpu_V0, cpu_V0, cpu_V1);
5468 else
5469 gen_helper_neon_rshl_s64(cpu_V0, cpu_V0, cpu_V1);
5470 break;
5471 case 6: /* VQSHLU */
5472 gen_helper_neon_qshlu_s64(cpu_V0, cpu_env,
5473 cpu_V0, cpu_V1);
5474 break;
5475 case 7: /* VQSHL */
5476 if (u) {
5477 gen_helper_neon_qshl_u64(cpu_V0, cpu_env,
5478 cpu_V0, cpu_V1);
5479 } else {
5480 gen_helper_neon_qshl_s64(cpu_V0, cpu_env,
5481 cpu_V0, cpu_V1);
5483 break;
5484 default:
5485 g_assert_not_reached();
5487 if (op == 3) {
5488 /* Accumulate. */
5489 neon_load_reg64(cpu_V1, rd + pass);
5490 tcg_gen_add_i64(cpu_V0, cpu_V0, cpu_V1);
5492 neon_store_reg64(cpu_V0, rd + pass);
5493 } else { /* size < 3 */
5494 /* Operands in T0 and T1. */
5495 tmp = neon_load_reg(rm, pass);
5496 tmp2 = tcg_temp_new_i32();
5497 tcg_gen_movi_i32(tmp2, imm);
5498 switch (op) {
5499 case 2: /* VRSHR */
5500 case 3: /* VRSRA */
5501 GEN_NEON_INTEGER_OP(rshl);
5502 break;
5503 case 6: /* VQSHLU */
5504 switch (size) {
5505 case 0:
5506 gen_helper_neon_qshlu_s8(tmp, cpu_env,
5507 tmp, tmp2);
5508 break;
5509 case 1:
5510 gen_helper_neon_qshlu_s16(tmp, cpu_env,
5511 tmp, tmp2);
5512 break;
5513 case 2:
5514 gen_helper_neon_qshlu_s32(tmp, cpu_env,
5515 tmp, tmp2);
5516 break;
5517 default:
5518 abort();
5520 break;
5521 case 7: /* VQSHL */
5522 GEN_NEON_INTEGER_OP_ENV(qshl);
5523 break;
5524 default:
5525 g_assert_not_reached();
5527 tcg_temp_free_i32(tmp2);
5529 if (op == 3) {
5530 /* Accumulate. */
5531 tmp2 = neon_load_reg(rd, pass);
5532 gen_neon_add(size, tmp, tmp2);
5533 tcg_temp_free_i32(tmp2);
5535 neon_store_reg(rd, pass, tmp);
5537 } /* for pass */
5538 } else if (op < 10) {
5539 /* Shift by immediate and narrow:
5540 VSHRN, VRSHRN, VQSHRN, VQRSHRN. */
5541 int input_unsigned = (op == 8) ? !u : u;
5542 if (rm & 1) {
5543 return 1;
5545 shift = shift - (1 << (size + 3));
5546 size++;
5547 if (size == 3) {
5548 tmp64 = tcg_const_i64(shift);
5549 neon_load_reg64(cpu_V0, rm);
5550 neon_load_reg64(cpu_V1, rm + 1);
5551 for (pass = 0; pass < 2; pass++) {
5552 TCGv_i64 in;
5553 if (pass == 0) {
5554 in = cpu_V0;
5555 } else {
5556 in = cpu_V1;
5558 if (q) {
5559 if (input_unsigned) {
5560 gen_helper_neon_rshl_u64(cpu_V0, in, tmp64);
5561 } else {
5562 gen_helper_neon_rshl_s64(cpu_V0, in, tmp64);
5564 } else {
5565 if (input_unsigned) {
5566 gen_helper_neon_shl_u64(cpu_V0, in, tmp64);
5567 } else {
5568 gen_helper_neon_shl_s64(cpu_V0, in, tmp64);
5571 tmp = tcg_temp_new_i32();
5572 gen_neon_narrow_op(op == 8, u, size - 1, tmp, cpu_V0);
5573 neon_store_reg(rd, pass, tmp);
5574 } /* for pass */
5575 tcg_temp_free_i64(tmp64);
5576 } else {
5577 if (size == 1) {
5578 imm = (uint16_t)shift;
5579 imm |= imm << 16;
5580 } else {
5581 /* size == 2 */
5582 imm = (uint32_t)shift;
5584 tmp2 = tcg_const_i32(imm);
5585 tmp4 = neon_load_reg(rm + 1, 0);
5586 tmp5 = neon_load_reg(rm + 1, 1);
5587 for (pass = 0; pass < 2; pass++) {
5588 if (pass == 0) {
5589 tmp = neon_load_reg(rm, 0);
5590 } else {
5591 tmp = tmp4;
5593 gen_neon_shift_narrow(size, tmp, tmp2, q,
5594 input_unsigned);
5595 if (pass == 0) {
5596 tmp3 = neon_load_reg(rm, 1);
5597 } else {
5598 tmp3 = tmp5;
5600 gen_neon_shift_narrow(size, tmp3, tmp2, q,
5601 input_unsigned);
5602 tcg_gen_concat_i32_i64(cpu_V0, tmp, tmp3);
5603 tcg_temp_free_i32(tmp);
5604 tcg_temp_free_i32(tmp3);
5605 tmp = tcg_temp_new_i32();
5606 gen_neon_narrow_op(op == 8, u, size - 1, tmp, cpu_V0);
5607 neon_store_reg(rd, pass, tmp);
5608 } /* for pass */
5609 tcg_temp_free_i32(tmp2);
5611 } else if (op == 10) {
5612 /* VSHLL, VMOVL */
5613 if (q || (rd & 1)) {
5614 return 1;
5616 tmp = neon_load_reg(rm, 0);
5617 tmp2 = neon_load_reg(rm, 1);
5618 for (pass = 0; pass < 2; pass++) {
5619 if (pass == 1)
5620 tmp = tmp2;
5622 gen_neon_widen(cpu_V0, tmp, size, u);
5624 if (shift != 0) {
5625 /* The shift is less than the width of the source
5626 type, so we can just shift the whole register. */
5627 tcg_gen_shli_i64(cpu_V0, cpu_V0, shift);
5628 /* Widen the result of shift: we need to clear
5629 * the potential overflow bits resulting from
5630 * left bits of the narrow input appearing as
5631 * right bits of left the neighbour narrow
5632 * input. */
5633 if (size < 2 || !u) {
5634 uint64_t imm64;
5635 if (size == 0) {
5636 imm = (0xffu >> (8 - shift));
5637 imm |= imm << 16;
5638 } else if (size == 1) {
5639 imm = 0xffff >> (16 - shift);
5640 } else {
5641 /* size == 2 */
5642 imm = 0xffffffff >> (32 - shift);
5644 if (size < 2) {
5645 imm64 = imm | (((uint64_t)imm) << 32);
5646 } else {
5647 imm64 = imm;
5649 tcg_gen_andi_i64(cpu_V0, cpu_V0, ~imm64);
5652 neon_store_reg64(cpu_V0, rd + pass);
5654 } else if (op >= 14) {
5655 /* VCVT fixed-point. */
5656 TCGv_ptr fpst;
5657 TCGv_i32 shiftv;
5658 VFPGenFixPointFn *fn;
5660 if (!(insn & (1 << 21)) || (q && ((rd | rm) & 1))) {
5661 return 1;
5664 if (!(op & 1)) {
5665 if (u) {
5666 fn = gen_helper_vfp_ultos;
5667 } else {
5668 fn = gen_helper_vfp_sltos;
5670 } else {
5671 if (u) {
5672 fn = gen_helper_vfp_touls_round_to_zero;
5673 } else {
5674 fn = gen_helper_vfp_tosls_round_to_zero;
5678 /* We have already masked out the must-be-1 top bit of imm6,
5679 * hence this 32-shift where the ARM ARM has 64-imm6.
5681 shift = 32 - shift;
5682 fpst = get_fpstatus_ptr(1);
5683 shiftv = tcg_const_i32(shift);
5684 for (pass = 0; pass < (q ? 4 : 2); pass++) {
5685 TCGv_i32 tmpf = neon_load_reg(rm, pass);
5686 fn(tmpf, tmpf, shiftv, fpst);
5687 neon_store_reg(rd, pass, tmpf);
5689 tcg_temp_free_ptr(fpst);
5690 tcg_temp_free_i32(shiftv);
5691 } else {
5692 return 1;
5694 } else { /* (insn & 0x00380080) == 0 */
5695 int invert, reg_ofs, vec_size;
5697 if (q && (rd & 1)) {
5698 return 1;
5701 op = (insn >> 8) & 0xf;
5702 /* One register and immediate. */
5703 imm = (u << 7) | ((insn >> 12) & 0x70) | (insn & 0xf);
5704 invert = (insn & (1 << 5)) != 0;
5705 /* Note that op = 2,3,4,5,6,7,10,11,12,13 imm=0 is UNPREDICTABLE.
5706 * We choose to not special-case this and will behave as if a
5707 * valid constant encoding of 0 had been given.
5709 switch (op) {
5710 case 0: case 1:
5711 /* no-op */
5712 break;
5713 case 2: case 3:
5714 imm <<= 8;
5715 break;
5716 case 4: case 5:
5717 imm <<= 16;
5718 break;
5719 case 6: case 7:
5720 imm <<= 24;
5721 break;
5722 case 8: case 9:
5723 imm |= imm << 16;
5724 break;
5725 case 10: case 11:
5726 imm = (imm << 8) | (imm << 24);
5727 break;
5728 case 12:
5729 imm = (imm << 8) | 0xff;
5730 break;
5731 case 13:
5732 imm = (imm << 16) | 0xffff;
5733 break;
5734 case 14:
5735 imm |= (imm << 8) | (imm << 16) | (imm << 24);
5736 if (invert) {
5737 imm = ~imm;
5739 break;
5740 case 15:
5741 if (invert) {
5742 return 1;
5744 imm = ((imm & 0x80) << 24) | ((imm & 0x3f) << 19)
5745 | ((imm & 0x40) ? (0x1f << 25) : (1 << 30));
5746 break;
5748 if (invert) {
5749 imm = ~imm;
5752 reg_ofs = neon_reg_offset(rd, 0);
5753 vec_size = q ? 16 : 8;
5755 if (op & 1 && op < 12) {
5756 if (invert) {
5757 /* The immediate value has already been inverted,
5758 * so BIC becomes AND.
5760 tcg_gen_gvec_andi(MO_32, reg_ofs, reg_ofs, imm,
5761 vec_size, vec_size);
5762 } else {
5763 tcg_gen_gvec_ori(MO_32, reg_ofs, reg_ofs, imm,
5764 vec_size, vec_size);
5766 } else {
5767 /* VMOV, VMVN. */
5768 if (op == 14 && invert) {
5769 TCGv_i64 t64 = tcg_temp_new_i64();
5771 for (pass = 0; pass <= q; ++pass) {
5772 uint64_t val = 0;
5773 int n;
5775 for (n = 0; n < 8; n++) {
5776 if (imm & (1 << (n + pass * 8))) {
5777 val |= 0xffull << (n * 8);
5780 tcg_gen_movi_i64(t64, val);
5781 neon_store_reg64(t64, rd + pass);
5783 tcg_temp_free_i64(t64);
5784 } else {
5785 tcg_gen_gvec_dup32i(reg_ofs, vec_size, vec_size, imm);
5789 } else { /* (insn & 0x00800010 == 0x00800000) */
5790 if (size != 3) {
5791 op = (insn >> 8) & 0xf;
5792 if ((insn & (1 << 6)) == 0) {
5793 /* Three registers of different lengths. */
5794 int src1_wide;
5795 int src2_wide;
5796 int prewiden;
5797 /* undefreq: bit 0 : UNDEF if size == 0
5798 * bit 1 : UNDEF if size == 1
5799 * bit 2 : UNDEF if size == 2
5800 * bit 3 : UNDEF if U == 1
5801 * Note that [2:0] set implies 'always UNDEF'
5803 int undefreq;
5804 /* prewiden, src1_wide, src2_wide, undefreq */
5805 static const int neon_3reg_wide[16][4] = {
5806 {1, 0, 0, 0}, /* VADDL */
5807 {1, 1, 0, 0}, /* VADDW */
5808 {1, 0, 0, 0}, /* VSUBL */
5809 {1, 1, 0, 0}, /* VSUBW */
5810 {0, 1, 1, 0}, /* VADDHN */
5811 {0, 0, 0, 0}, /* VABAL */
5812 {0, 1, 1, 0}, /* VSUBHN */
5813 {0, 0, 0, 0}, /* VABDL */
5814 {0, 0, 0, 0}, /* VMLAL */
5815 {0, 0, 0, 9}, /* VQDMLAL */
5816 {0, 0, 0, 0}, /* VMLSL */
5817 {0, 0, 0, 9}, /* VQDMLSL */
5818 {0, 0, 0, 0}, /* Integer VMULL */
5819 {0, 0, 0, 1}, /* VQDMULL */
5820 {0, 0, 0, 0xa}, /* Polynomial VMULL */
5821 {0, 0, 0, 7}, /* Reserved: always UNDEF */
5824 prewiden = neon_3reg_wide[op][0];
5825 src1_wide = neon_3reg_wide[op][1];
5826 src2_wide = neon_3reg_wide[op][2];
5827 undefreq = neon_3reg_wide[op][3];
5829 if ((undefreq & (1 << size)) ||
5830 ((undefreq & 8) && u)) {
5831 return 1;
5833 if ((src1_wide && (rn & 1)) ||
5834 (src2_wide && (rm & 1)) ||
5835 (!src2_wide && (rd & 1))) {
5836 return 1;
5839 /* Handle VMULL.P64 (Polynomial 64x64 to 128 bit multiply)
5840 * outside the loop below as it only performs a single pass.
5842 if (op == 14 && size == 2) {
5843 TCGv_i64 tcg_rn, tcg_rm, tcg_rd;
5845 if (!dc_isar_feature(aa32_pmull, s)) {
5846 return 1;
5848 tcg_rn = tcg_temp_new_i64();
5849 tcg_rm = tcg_temp_new_i64();
5850 tcg_rd = tcg_temp_new_i64();
5851 neon_load_reg64(tcg_rn, rn);
5852 neon_load_reg64(tcg_rm, rm);
5853 gen_helper_neon_pmull_64_lo(tcg_rd, tcg_rn, tcg_rm);
5854 neon_store_reg64(tcg_rd, rd);
5855 gen_helper_neon_pmull_64_hi(tcg_rd, tcg_rn, tcg_rm);
5856 neon_store_reg64(tcg_rd, rd + 1);
5857 tcg_temp_free_i64(tcg_rn);
5858 tcg_temp_free_i64(tcg_rm);
5859 tcg_temp_free_i64(tcg_rd);
5860 return 0;
5863 /* Avoid overlapping operands. Wide source operands are
5864 always aligned so will never overlap with wide
5865 destinations in problematic ways. */
5866 if (rd == rm && !src2_wide) {
5867 tmp = neon_load_reg(rm, 1);
5868 neon_store_scratch(2, tmp);
5869 } else if (rd == rn && !src1_wide) {
5870 tmp = neon_load_reg(rn, 1);
5871 neon_store_scratch(2, tmp);
5873 tmp3 = NULL;
5874 for (pass = 0; pass < 2; pass++) {
5875 if (src1_wide) {
5876 neon_load_reg64(cpu_V0, rn + pass);
5877 tmp = NULL;
5878 } else {
5879 if (pass == 1 && rd == rn) {
5880 tmp = neon_load_scratch(2);
5881 } else {
5882 tmp = neon_load_reg(rn, pass);
5884 if (prewiden) {
5885 gen_neon_widen(cpu_V0, tmp, size, u);
5888 if (src2_wide) {
5889 neon_load_reg64(cpu_V1, rm + pass);
5890 tmp2 = NULL;
5891 } else {
5892 if (pass == 1 && rd == rm) {
5893 tmp2 = neon_load_scratch(2);
5894 } else {
5895 tmp2 = neon_load_reg(rm, pass);
5897 if (prewiden) {
5898 gen_neon_widen(cpu_V1, tmp2, size, u);
5901 switch (op) {
5902 case 0: case 1: case 4: /* VADDL, VADDW, VADDHN, VRADDHN */
5903 gen_neon_addl(size);
5904 break;
5905 case 2: case 3: case 6: /* VSUBL, VSUBW, VSUBHN, VRSUBHN */
5906 gen_neon_subl(size);
5907 break;
5908 case 5: case 7: /* VABAL, VABDL */
5909 switch ((size << 1) | u) {
5910 case 0:
5911 gen_helper_neon_abdl_s16(cpu_V0, tmp, tmp2);
5912 break;
5913 case 1:
5914 gen_helper_neon_abdl_u16(cpu_V0, tmp, tmp2);
5915 break;
5916 case 2:
5917 gen_helper_neon_abdl_s32(cpu_V0, tmp, tmp2);
5918 break;
5919 case 3:
5920 gen_helper_neon_abdl_u32(cpu_V0, tmp, tmp2);
5921 break;
5922 case 4:
5923 gen_helper_neon_abdl_s64(cpu_V0, tmp, tmp2);
5924 break;
5925 case 5:
5926 gen_helper_neon_abdl_u64(cpu_V0, tmp, tmp2);
5927 break;
5928 default: abort();
5930 tcg_temp_free_i32(tmp2);
5931 tcg_temp_free_i32(tmp);
5932 break;
5933 case 8: case 9: case 10: case 11: case 12: case 13:
5934 /* VMLAL, VQDMLAL, VMLSL, VQDMLSL, VMULL, VQDMULL */
5935 gen_neon_mull(cpu_V0, tmp, tmp2, size, u);
5936 break;
5937 case 14: /* Polynomial VMULL */
5938 gen_helper_neon_mull_p8(cpu_V0, tmp, tmp2);
5939 tcg_temp_free_i32(tmp2);
5940 tcg_temp_free_i32(tmp);
5941 break;
5942 default: /* 15 is RESERVED: caught earlier */
5943 abort();
5945 if (op == 13) {
5946 /* VQDMULL */
5947 gen_neon_addl_saturate(cpu_V0, cpu_V0, size);
5948 neon_store_reg64(cpu_V0, rd + pass);
5949 } else if (op == 5 || (op >= 8 && op <= 11)) {
5950 /* Accumulate. */
5951 neon_load_reg64(cpu_V1, rd + pass);
5952 switch (op) {
5953 case 10: /* VMLSL */
5954 gen_neon_negl(cpu_V0, size);
5955 /* Fall through */
5956 case 5: case 8: /* VABAL, VMLAL */
5957 gen_neon_addl(size);
5958 break;
5959 case 9: case 11: /* VQDMLAL, VQDMLSL */
5960 gen_neon_addl_saturate(cpu_V0, cpu_V0, size);
5961 if (op == 11) {
5962 gen_neon_negl(cpu_V0, size);
5964 gen_neon_addl_saturate(cpu_V0, cpu_V1, size);
5965 break;
5966 default:
5967 abort();
5969 neon_store_reg64(cpu_V0, rd + pass);
5970 } else if (op == 4 || op == 6) {
5971 /* Narrowing operation. */
5972 tmp = tcg_temp_new_i32();
5973 if (!u) {
5974 switch (size) {
5975 case 0:
5976 gen_helper_neon_narrow_high_u8(tmp, cpu_V0);
5977 break;
5978 case 1:
5979 gen_helper_neon_narrow_high_u16(tmp, cpu_V0);
5980 break;
5981 case 2:
5982 tcg_gen_extrh_i64_i32(tmp, cpu_V0);
5983 break;
5984 default: abort();
5986 } else {
5987 switch (size) {
5988 case 0:
5989 gen_helper_neon_narrow_round_high_u8(tmp, cpu_V0);
5990 break;
5991 case 1:
5992 gen_helper_neon_narrow_round_high_u16(tmp, cpu_V0);
5993 break;
5994 case 2:
5995 tcg_gen_addi_i64(cpu_V0, cpu_V0, 1u << 31);
5996 tcg_gen_extrh_i64_i32(tmp, cpu_V0);
5997 break;
5998 default: abort();
6001 if (pass == 0) {
6002 tmp3 = tmp;
6003 } else {
6004 neon_store_reg(rd, 0, tmp3);
6005 neon_store_reg(rd, 1, tmp);
6007 } else {
6008 /* Write back the result. */
6009 neon_store_reg64(cpu_V0, rd + pass);
6012 } else {
6013 /* Two registers and a scalar. NB that for ops of this form
6014 * the ARM ARM labels bit 24 as Q, but it is in our variable
6015 * 'u', not 'q'.
6017 if (size == 0) {
6018 return 1;
6020 switch (op) {
6021 case 1: /* Float VMLA scalar */
6022 case 5: /* Floating point VMLS scalar */
6023 case 9: /* Floating point VMUL scalar */
6024 if (size == 1) {
6025 return 1;
6027 /* fall through */
6028 case 0: /* Integer VMLA scalar */
6029 case 4: /* Integer VMLS scalar */
6030 case 8: /* Integer VMUL scalar */
6031 case 12: /* VQDMULH scalar */
6032 case 13: /* VQRDMULH scalar */
6033 if (u && ((rd | rn) & 1)) {
6034 return 1;
6036 tmp = neon_get_scalar(size, rm);
6037 neon_store_scratch(0, tmp);
6038 for (pass = 0; pass < (u ? 4 : 2); pass++) {
6039 tmp = neon_load_scratch(0);
6040 tmp2 = neon_load_reg(rn, pass);
6041 if (op == 12) {
6042 if (size == 1) {
6043 gen_helper_neon_qdmulh_s16(tmp, cpu_env, tmp, tmp2);
6044 } else {
6045 gen_helper_neon_qdmulh_s32(tmp, cpu_env, tmp, tmp2);
6047 } else if (op == 13) {
6048 if (size == 1) {
6049 gen_helper_neon_qrdmulh_s16(tmp, cpu_env, tmp, tmp2);
6050 } else {
6051 gen_helper_neon_qrdmulh_s32(tmp, cpu_env, tmp, tmp2);
6053 } else if (op & 1) {
6054 TCGv_ptr fpstatus = get_fpstatus_ptr(1);
6055 gen_helper_vfp_muls(tmp, tmp, tmp2, fpstatus);
6056 tcg_temp_free_ptr(fpstatus);
6057 } else {
6058 switch (size) {
6059 case 0: gen_helper_neon_mul_u8(tmp, tmp, tmp2); break;
6060 case 1: gen_helper_neon_mul_u16(tmp, tmp, tmp2); break;
6061 case 2: tcg_gen_mul_i32(tmp, tmp, tmp2); break;
6062 default: abort();
6065 tcg_temp_free_i32(tmp2);
6066 if (op < 8) {
6067 /* Accumulate. */
6068 tmp2 = neon_load_reg(rd, pass);
6069 switch (op) {
6070 case 0:
6071 gen_neon_add(size, tmp, tmp2);
6072 break;
6073 case 1:
6075 TCGv_ptr fpstatus = get_fpstatus_ptr(1);
6076 gen_helper_vfp_adds(tmp, tmp, tmp2, fpstatus);
6077 tcg_temp_free_ptr(fpstatus);
6078 break;
6080 case 4:
6081 gen_neon_rsb(size, tmp, tmp2);
6082 break;
6083 case 5:
6085 TCGv_ptr fpstatus = get_fpstatus_ptr(1);
6086 gen_helper_vfp_subs(tmp, tmp2, tmp, fpstatus);
6087 tcg_temp_free_ptr(fpstatus);
6088 break;
6090 default:
6091 abort();
6093 tcg_temp_free_i32(tmp2);
6095 neon_store_reg(rd, pass, tmp);
6097 break;
6098 case 3: /* VQDMLAL scalar */
6099 case 7: /* VQDMLSL scalar */
6100 case 11: /* VQDMULL scalar */
6101 if (u == 1) {
6102 return 1;
6104 /* fall through */
6105 case 2: /* VMLAL sclar */
6106 case 6: /* VMLSL scalar */
6107 case 10: /* VMULL scalar */
6108 if (rd & 1) {
6109 return 1;
6111 tmp2 = neon_get_scalar(size, rm);
6112 /* We need a copy of tmp2 because gen_neon_mull
6113 * deletes it during pass 0. */
6114 tmp4 = tcg_temp_new_i32();
6115 tcg_gen_mov_i32(tmp4, tmp2);
6116 tmp3 = neon_load_reg(rn, 1);
6118 for (pass = 0; pass < 2; pass++) {
6119 if (pass == 0) {
6120 tmp = neon_load_reg(rn, 0);
6121 } else {
6122 tmp = tmp3;
6123 tmp2 = tmp4;
6125 gen_neon_mull(cpu_V0, tmp, tmp2, size, u);
6126 if (op != 11) {
6127 neon_load_reg64(cpu_V1, rd + pass);
6129 switch (op) {
6130 case 6:
6131 gen_neon_negl(cpu_V0, size);
6132 /* Fall through */
6133 case 2:
6134 gen_neon_addl(size);
6135 break;
6136 case 3: case 7:
6137 gen_neon_addl_saturate(cpu_V0, cpu_V0, size);
6138 if (op == 7) {
6139 gen_neon_negl(cpu_V0, size);
6141 gen_neon_addl_saturate(cpu_V0, cpu_V1, size);
6142 break;
6143 case 10:
6144 /* no-op */
6145 break;
6146 case 11:
6147 gen_neon_addl_saturate(cpu_V0, cpu_V0, size);
6148 break;
6149 default:
6150 abort();
6152 neon_store_reg64(cpu_V0, rd + pass);
6154 break;
6155 case 14: /* VQRDMLAH scalar */
6156 case 15: /* VQRDMLSH scalar */
6158 NeonGenThreeOpEnvFn *fn;
6160 if (!dc_isar_feature(aa32_rdm, s)) {
6161 return 1;
6163 if (u && ((rd | rn) & 1)) {
6164 return 1;
6166 if (op == 14) {
6167 if (size == 1) {
6168 fn = gen_helper_neon_qrdmlah_s16;
6169 } else {
6170 fn = gen_helper_neon_qrdmlah_s32;
6172 } else {
6173 if (size == 1) {
6174 fn = gen_helper_neon_qrdmlsh_s16;
6175 } else {
6176 fn = gen_helper_neon_qrdmlsh_s32;
6180 tmp2 = neon_get_scalar(size, rm);
6181 for (pass = 0; pass < (u ? 4 : 2); pass++) {
6182 tmp = neon_load_reg(rn, pass);
6183 tmp3 = neon_load_reg(rd, pass);
6184 fn(tmp, cpu_env, tmp, tmp2, tmp3);
6185 tcg_temp_free_i32(tmp3);
6186 neon_store_reg(rd, pass, tmp);
6188 tcg_temp_free_i32(tmp2);
6190 break;
6191 default:
6192 g_assert_not_reached();
6195 } else { /* size == 3 */
6196 if (!u) {
6197 /* Extract. */
6198 imm = (insn >> 8) & 0xf;
6200 if (imm > 7 && !q)
6201 return 1;
6203 if (q && ((rd | rn | rm) & 1)) {
6204 return 1;
6207 if (imm == 0) {
6208 neon_load_reg64(cpu_V0, rn);
6209 if (q) {
6210 neon_load_reg64(cpu_V1, rn + 1);
6212 } else if (imm == 8) {
6213 neon_load_reg64(cpu_V0, rn + 1);
6214 if (q) {
6215 neon_load_reg64(cpu_V1, rm);
6217 } else if (q) {
6218 tmp64 = tcg_temp_new_i64();
6219 if (imm < 8) {
6220 neon_load_reg64(cpu_V0, rn);
6221 neon_load_reg64(tmp64, rn + 1);
6222 } else {
6223 neon_load_reg64(cpu_V0, rn + 1);
6224 neon_load_reg64(tmp64, rm);
6226 tcg_gen_shri_i64(cpu_V0, cpu_V0, (imm & 7) * 8);
6227 tcg_gen_shli_i64(cpu_V1, tmp64, 64 - ((imm & 7) * 8));
6228 tcg_gen_or_i64(cpu_V0, cpu_V0, cpu_V1);
6229 if (imm < 8) {
6230 neon_load_reg64(cpu_V1, rm);
6231 } else {
6232 neon_load_reg64(cpu_V1, rm + 1);
6233 imm -= 8;
6235 tcg_gen_shli_i64(cpu_V1, cpu_V1, 64 - (imm * 8));
6236 tcg_gen_shri_i64(tmp64, tmp64, imm * 8);
6237 tcg_gen_or_i64(cpu_V1, cpu_V1, tmp64);
6238 tcg_temp_free_i64(tmp64);
6239 } else {
6240 /* BUGFIX */
6241 neon_load_reg64(cpu_V0, rn);
6242 tcg_gen_shri_i64(cpu_V0, cpu_V0, imm * 8);
6243 neon_load_reg64(cpu_V1, rm);
6244 tcg_gen_shli_i64(cpu_V1, cpu_V1, 64 - (imm * 8));
6245 tcg_gen_or_i64(cpu_V0, cpu_V0, cpu_V1);
6247 neon_store_reg64(cpu_V0, rd);
6248 if (q) {
6249 neon_store_reg64(cpu_V1, rd + 1);
6251 } else if ((insn & (1 << 11)) == 0) {
6252 /* Two register misc. */
6253 op = ((insn >> 12) & 0x30) | ((insn >> 7) & 0xf);
6254 size = (insn >> 18) & 3;
6255 /* UNDEF for unknown op values and bad op-size combinations */
6256 if ((neon_2rm_sizes[op] & (1 << size)) == 0) {
6257 return 1;
6259 if (neon_2rm_is_v8_op(op) &&
6260 !arm_dc_feature(s, ARM_FEATURE_V8)) {
6261 return 1;
6263 if ((op != NEON_2RM_VMOVN && op != NEON_2RM_VQMOVN) &&
6264 q && ((rm | rd) & 1)) {
6265 return 1;
6267 switch (op) {
6268 case NEON_2RM_VREV64:
6269 for (pass = 0; pass < (q ? 2 : 1); pass++) {
6270 tmp = neon_load_reg(rm, pass * 2);
6271 tmp2 = neon_load_reg(rm, pass * 2 + 1);
6272 switch (size) {
6273 case 0: tcg_gen_bswap32_i32(tmp, tmp); break;
6274 case 1: gen_swap_half(tmp); break;
6275 case 2: /* no-op */ break;
6276 default: abort();
6278 neon_store_reg(rd, pass * 2 + 1, tmp);
6279 if (size == 2) {
6280 neon_store_reg(rd, pass * 2, tmp2);
6281 } else {
6282 switch (size) {
6283 case 0: tcg_gen_bswap32_i32(tmp2, tmp2); break;
6284 case 1: gen_swap_half(tmp2); break;
6285 default: abort();
6287 neon_store_reg(rd, pass * 2, tmp2);
6290 break;
6291 case NEON_2RM_VPADDL: case NEON_2RM_VPADDL_U:
6292 case NEON_2RM_VPADAL: case NEON_2RM_VPADAL_U:
6293 for (pass = 0; pass < q + 1; pass++) {
6294 tmp = neon_load_reg(rm, pass * 2);
6295 gen_neon_widen(cpu_V0, tmp, size, op & 1);
6296 tmp = neon_load_reg(rm, pass * 2 + 1);
6297 gen_neon_widen(cpu_V1, tmp, size, op & 1);
6298 switch (size) {
6299 case 0: gen_helper_neon_paddl_u16(CPU_V001); break;
6300 case 1: gen_helper_neon_paddl_u32(CPU_V001); break;
6301 case 2: tcg_gen_add_i64(CPU_V001); break;
6302 default: abort();
6304 if (op >= NEON_2RM_VPADAL) {
6305 /* Accumulate. */
6306 neon_load_reg64(cpu_V1, rd + pass);
6307 gen_neon_addl(size);
6309 neon_store_reg64(cpu_V0, rd + pass);
6311 break;
6312 case NEON_2RM_VTRN:
6313 if (size == 2) {
6314 int n;
6315 for (n = 0; n < (q ? 4 : 2); n += 2) {
6316 tmp = neon_load_reg(rm, n);
6317 tmp2 = neon_load_reg(rd, n + 1);
6318 neon_store_reg(rm, n, tmp2);
6319 neon_store_reg(rd, n + 1, tmp);
6321 } else {
6322 goto elementwise;
6324 break;
6325 case NEON_2RM_VUZP:
6326 if (gen_neon_unzip(rd, rm, size, q)) {
6327 return 1;
6329 break;
6330 case NEON_2RM_VZIP:
6331 if (gen_neon_zip(rd, rm, size, q)) {
6332 return 1;
6334 break;
6335 case NEON_2RM_VMOVN: case NEON_2RM_VQMOVN:
6336 /* also VQMOVUN; op field and mnemonics don't line up */
6337 if (rm & 1) {
6338 return 1;
6340 tmp2 = NULL;
6341 for (pass = 0; pass < 2; pass++) {
6342 neon_load_reg64(cpu_V0, rm + pass);
6343 tmp = tcg_temp_new_i32();
6344 gen_neon_narrow_op(op == NEON_2RM_VMOVN, q, size,
6345 tmp, cpu_V0);
6346 if (pass == 0) {
6347 tmp2 = tmp;
6348 } else {
6349 neon_store_reg(rd, 0, tmp2);
6350 neon_store_reg(rd, 1, tmp);
6353 break;
6354 case NEON_2RM_VSHLL:
6355 if (q || (rd & 1)) {
6356 return 1;
6358 tmp = neon_load_reg(rm, 0);
6359 tmp2 = neon_load_reg(rm, 1);
6360 for (pass = 0; pass < 2; pass++) {
6361 if (pass == 1)
6362 tmp = tmp2;
6363 gen_neon_widen(cpu_V0, tmp, size, 1);
6364 tcg_gen_shli_i64(cpu_V0, cpu_V0, 8 << size);
6365 neon_store_reg64(cpu_V0, rd + pass);
6367 break;
6368 case NEON_2RM_VCVT_F16_F32:
6370 TCGv_ptr fpst;
6371 TCGv_i32 ahp;
6373 if (!dc_isar_feature(aa32_fp16_spconv, s) ||
6374 q || (rm & 1)) {
6375 return 1;
6377 fpst = get_fpstatus_ptr(true);
6378 ahp = get_ahp_flag();
6379 tmp = neon_load_reg(rm, 0);
6380 gen_helper_vfp_fcvt_f32_to_f16(tmp, tmp, fpst, ahp);
6381 tmp2 = neon_load_reg(rm, 1);
6382 gen_helper_vfp_fcvt_f32_to_f16(tmp2, tmp2, fpst, ahp);
6383 tcg_gen_shli_i32(tmp2, tmp2, 16);
6384 tcg_gen_or_i32(tmp2, tmp2, tmp);
6385 tcg_temp_free_i32(tmp);
6386 tmp = neon_load_reg(rm, 2);
6387 gen_helper_vfp_fcvt_f32_to_f16(tmp, tmp, fpst, ahp);
6388 tmp3 = neon_load_reg(rm, 3);
6389 neon_store_reg(rd, 0, tmp2);
6390 gen_helper_vfp_fcvt_f32_to_f16(tmp3, tmp3, fpst, ahp);
6391 tcg_gen_shli_i32(tmp3, tmp3, 16);
6392 tcg_gen_or_i32(tmp3, tmp3, tmp);
6393 neon_store_reg(rd, 1, tmp3);
6394 tcg_temp_free_i32(tmp);
6395 tcg_temp_free_i32(ahp);
6396 tcg_temp_free_ptr(fpst);
6397 break;
6399 case NEON_2RM_VCVT_F32_F16:
6401 TCGv_ptr fpst;
6402 TCGv_i32 ahp;
6403 if (!dc_isar_feature(aa32_fp16_spconv, s) ||
6404 q || (rd & 1)) {
6405 return 1;
6407 fpst = get_fpstatus_ptr(true);
6408 ahp = get_ahp_flag();
6409 tmp3 = tcg_temp_new_i32();
6410 tmp = neon_load_reg(rm, 0);
6411 tmp2 = neon_load_reg(rm, 1);
6412 tcg_gen_ext16u_i32(tmp3, tmp);
6413 gen_helper_vfp_fcvt_f16_to_f32(tmp3, tmp3, fpst, ahp);
6414 neon_store_reg(rd, 0, tmp3);
6415 tcg_gen_shri_i32(tmp, tmp, 16);
6416 gen_helper_vfp_fcvt_f16_to_f32(tmp, tmp, fpst, ahp);
6417 neon_store_reg(rd, 1, tmp);
6418 tmp3 = tcg_temp_new_i32();
6419 tcg_gen_ext16u_i32(tmp3, tmp2);
6420 gen_helper_vfp_fcvt_f16_to_f32(tmp3, tmp3, fpst, ahp);
6421 neon_store_reg(rd, 2, tmp3);
6422 tcg_gen_shri_i32(tmp2, tmp2, 16);
6423 gen_helper_vfp_fcvt_f16_to_f32(tmp2, tmp2, fpst, ahp);
6424 neon_store_reg(rd, 3, tmp2);
6425 tcg_temp_free_i32(ahp);
6426 tcg_temp_free_ptr(fpst);
6427 break;
6429 case NEON_2RM_AESE: case NEON_2RM_AESMC:
6430 if (!dc_isar_feature(aa32_aes, s) || ((rm | rd) & 1)) {
6431 return 1;
6433 ptr1 = vfp_reg_ptr(true, rd);
6434 ptr2 = vfp_reg_ptr(true, rm);
6436 /* Bit 6 is the lowest opcode bit; it distinguishes between
6437 * encryption (AESE/AESMC) and decryption (AESD/AESIMC)
6439 tmp3 = tcg_const_i32(extract32(insn, 6, 1));
6441 if (op == NEON_2RM_AESE) {
6442 gen_helper_crypto_aese(ptr1, ptr2, tmp3);
6443 } else {
6444 gen_helper_crypto_aesmc(ptr1, ptr2, tmp3);
6446 tcg_temp_free_ptr(ptr1);
6447 tcg_temp_free_ptr(ptr2);
6448 tcg_temp_free_i32(tmp3);
6449 break;
6450 case NEON_2RM_SHA1H:
6451 if (!dc_isar_feature(aa32_sha1, s) || ((rm | rd) & 1)) {
6452 return 1;
6454 ptr1 = vfp_reg_ptr(true, rd);
6455 ptr2 = vfp_reg_ptr(true, rm);
6457 gen_helper_crypto_sha1h(ptr1, ptr2);
6459 tcg_temp_free_ptr(ptr1);
6460 tcg_temp_free_ptr(ptr2);
6461 break;
6462 case NEON_2RM_SHA1SU1:
6463 if ((rm | rd) & 1) {
6464 return 1;
6466 /* bit 6 (q): set -> SHA256SU0, cleared -> SHA1SU1 */
6467 if (q) {
6468 if (!dc_isar_feature(aa32_sha2, s)) {
6469 return 1;
6471 } else if (!dc_isar_feature(aa32_sha1, s)) {
6472 return 1;
6474 ptr1 = vfp_reg_ptr(true, rd);
6475 ptr2 = vfp_reg_ptr(true, rm);
6476 if (q) {
6477 gen_helper_crypto_sha256su0(ptr1, ptr2);
6478 } else {
6479 gen_helper_crypto_sha1su1(ptr1, ptr2);
6481 tcg_temp_free_ptr(ptr1);
6482 tcg_temp_free_ptr(ptr2);
6483 break;
6485 case NEON_2RM_VMVN:
6486 tcg_gen_gvec_not(0, rd_ofs, rm_ofs, vec_size, vec_size);
6487 break;
6488 case NEON_2RM_VNEG:
6489 tcg_gen_gvec_neg(size, rd_ofs, rm_ofs, vec_size, vec_size);
6490 break;
6491 case NEON_2RM_VABS:
6492 tcg_gen_gvec_abs(size, rd_ofs, rm_ofs, vec_size, vec_size);
6493 break;
6495 default:
6496 elementwise:
6497 for (pass = 0; pass < (q ? 4 : 2); pass++) {
6498 tmp = neon_load_reg(rm, pass);
6499 switch (op) {
6500 case NEON_2RM_VREV32:
6501 switch (size) {
6502 case 0: tcg_gen_bswap32_i32(tmp, tmp); break;
6503 case 1: gen_swap_half(tmp); break;
6504 default: abort();
6506 break;
6507 case NEON_2RM_VREV16:
6508 gen_rev16(tmp);
6509 break;
6510 case NEON_2RM_VCLS:
6511 switch (size) {
6512 case 0: gen_helper_neon_cls_s8(tmp, tmp); break;
6513 case 1: gen_helper_neon_cls_s16(tmp, tmp); break;
6514 case 2: gen_helper_neon_cls_s32(tmp, tmp); break;
6515 default: abort();
6517 break;
6518 case NEON_2RM_VCLZ:
6519 switch (size) {
6520 case 0: gen_helper_neon_clz_u8(tmp, tmp); break;
6521 case 1: gen_helper_neon_clz_u16(tmp, tmp); break;
6522 case 2: tcg_gen_clzi_i32(tmp, tmp, 32); break;
6523 default: abort();
6525 break;
6526 case NEON_2RM_VCNT:
6527 gen_helper_neon_cnt_u8(tmp, tmp);
6528 break;
6529 case NEON_2RM_VQABS:
6530 switch (size) {
6531 case 0:
6532 gen_helper_neon_qabs_s8(tmp, cpu_env, tmp);
6533 break;
6534 case 1:
6535 gen_helper_neon_qabs_s16(tmp, cpu_env, tmp);
6536 break;
6537 case 2:
6538 gen_helper_neon_qabs_s32(tmp, cpu_env, tmp);
6539 break;
6540 default: abort();
6542 break;
6543 case NEON_2RM_VQNEG:
6544 switch (size) {
6545 case 0:
6546 gen_helper_neon_qneg_s8(tmp, cpu_env, tmp);
6547 break;
6548 case 1:
6549 gen_helper_neon_qneg_s16(tmp, cpu_env, tmp);
6550 break;
6551 case 2:
6552 gen_helper_neon_qneg_s32(tmp, cpu_env, tmp);
6553 break;
6554 default: abort();
6556 break;
6557 case NEON_2RM_VCGT0: case NEON_2RM_VCLE0:
6558 tmp2 = tcg_const_i32(0);
6559 switch(size) {
6560 case 0: gen_helper_neon_cgt_s8(tmp, tmp, tmp2); break;
6561 case 1: gen_helper_neon_cgt_s16(tmp, tmp, tmp2); break;
6562 case 2: gen_helper_neon_cgt_s32(tmp, tmp, tmp2); break;
6563 default: abort();
6565 tcg_temp_free_i32(tmp2);
6566 if (op == NEON_2RM_VCLE0) {
6567 tcg_gen_not_i32(tmp, tmp);
6569 break;
6570 case NEON_2RM_VCGE0: case NEON_2RM_VCLT0:
6571 tmp2 = tcg_const_i32(0);
6572 switch(size) {
6573 case 0: gen_helper_neon_cge_s8(tmp, tmp, tmp2); break;
6574 case 1: gen_helper_neon_cge_s16(tmp, tmp, tmp2); break;
6575 case 2: gen_helper_neon_cge_s32(tmp, tmp, tmp2); break;
6576 default: abort();
6578 tcg_temp_free_i32(tmp2);
6579 if (op == NEON_2RM_VCLT0) {
6580 tcg_gen_not_i32(tmp, tmp);
6582 break;
6583 case NEON_2RM_VCEQ0:
6584 tmp2 = tcg_const_i32(0);
6585 switch(size) {
6586 case 0: gen_helper_neon_ceq_u8(tmp, tmp, tmp2); break;
6587 case 1: gen_helper_neon_ceq_u16(tmp, tmp, tmp2); break;
6588 case 2: gen_helper_neon_ceq_u32(tmp, tmp, tmp2); break;
6589 default: abort();
6591 tcg_temp_free_i32(tmp2);
6592 break;
6593 case NEON_2RM_VCGT0_F:
6595 TCGv_ptr fpstatus = get_fpstatus_ptr(1);
6596 tmp2 = tcg_const_i32(0);
6597 gen_helper_neon_cgt_f32(tmp, tmp, tmp2, fpstatus);
6598 tcg_temp_free_i32(tmp2);
6599 tcg_temp_free_ptr(fpstatus);
6600 break;
6602 case NEON_2RM_VCGE0_F:
6604 TCGv_ptr fpstatus = get_fpstatus_ptr(1);
6605 tmp2 = tcg_const_i32(0);
6606 gen_helper_neon_cge_f32(tmp, tmp, tmp2, fpstatus);
6607 tcg_temp_free_i32(tmp2);
6608 tcg_temp_free_ptr(fpstatus);
6609 break;
6611 case NEON_2RM_VCEQ0_F:
6613 TCGv_ptr fpstatus = get_fpstatus_ptr(1);
6614 tmp2 = tcg_const_i32(0);
6615 gen_helper_neon_ceq_f32(tmp, tmp, tmp2, fpstatus);
6616 tcg_temp_free_i32(tmp2);
6617 tcg_temp_free_ptr(fpstatus);
6618 break;
6620 case NEON_2RM_VCLE0_F:
6622 TCGv_ptr fpstatus = get_fpstatus_ptr(1);
6623 tmp2 = tcg_const_i32(0);
6624 gen_helper_neon_cge_f32(tmp, tmp2, tmp, fpstatus);
6625 tcg_temp_free_i32(tmp2);
6626 tcg_temp_free_ptr(fpstatus);
6627 break;
6629 case NEON_2RM_VCLT0_F:
6631 TCGv_ptr fpstatus = get_fpstatus_ptr(1);
6632 tmp2 = tcg_const_i32(0);
6633 gen_helper_neon_cgt_f32(tmp, tmp2, tmp, fpstatus);
6634 tcg_temp_free_i32(tmp2);
6635 tcg_temp_free_ptr(fpstatus);
6636 break;
6638 case NEON_2RM_VABS_F:
6639 gen_helper_vfp_abss(tmp, tmp);
6640 break;
6641 case NEON_2RM_VNEG_F:
6642 gen_helper_vfp_negs(tmp, tmp);
6643 break;
6644 case NEON_2RM_VSWP:
6645 tmp2 = neon_load_reg(rd, pass);
6646 neon_store_reg(rm, pass, tmp2);
6647 break;
6648 case NEON_2RM_VTRN:
6649 tmp2 = neon_load_reg(rd, pass);
6650 switch (size) {
6651 case 0: gen_neon_trn_u8(tmp, tmp2); break;
6652 case 1: gen_neon_trn_u16(tmp, tmp2); break;
6653 default: abort();
6655 neon_store_reg(rm, pass, tmp2);
6656 break;
6657 case NEON_2RM_VRINTN:
6658 case NEON_2RM_VRINTA:
6659 case NEON_2RM_VRINTM:
6660 case NEON_2RM_VRINTP:
6661 case NEON_2RM_VRINTZ:
6663 TCGv_i32 tcg_rmode;
6664 TCGv_ptr fpstatus = get_fpstatus_ptr(1);
6665 int rmode;
6667 if (op == NEON_2RM_VRINTZ) {
6668 rmode = FPROUNDING_ZERO;
6669 } else {
6670 rmode = fp_decode_rm[((op & 0x6) >> 1) ^ 1];
6673 tcg_rmode = tcg_const_i32(arm_rmode_to_sf(rmode));
6674 gen_helper_set_neon_rmode(tcg_rmode, tcg_rmode,
6675 cpu_env);
6676 gen_helper_rints(tmp, tmp, fpstatus);
6677 gen_helper_set_neon_rmode(tcg_rmode, tcg_rmode,
6678 cpu_env);
6679 tcg_temp_free_ptr(fpstatus);
6680 tcg_temp_free_i32(tcg_rmode);
6681 break;
6683 case NEON_2RM_VRINTX:
6685 TCGv_ptr fpstatus = get_fpstatus_ptr(1);
6686 gen_helper_rints_exact(tmp, tmp, fpstatus);
6687 tcg_temp_free_ptr(fpstatus);
6688 break;
6690 case NEON_2RM_VCVTAU:
6691 case NEON_2RM_VCVTAS:
6692 case NEON_2RM_VCVTNU:
6693 case NEON_2RM_VCVTNS:
6694 case NEON_2RM_VCVTPU:
6695 case NEON_2RM_VCVTPS:
6696 case NEON_2RM_VCVTMU:
6697 case NEON_2RM_VCVTMS:
6699 bool is_signed = !extract32(insn, 7, 1);
6700 TCGv_ptr fpst = get_fpstatus_ptr(1);
6701 TCGv_i32 tcg_rmode, tcg_shift;
6702 int rmode = fp_decode_rm[extract32(insn, 8, 2)];
6704 tcg_shift = tcg_const_i32(0);
6705 tcg_rmode = tcg_const_i32(arm_rmode_to_sf(rmode));
6706 gen_helper_set_neon_rmode(tcg_rmode, tcg_rmode,
6707 cpu_env);
6709 if (is_signed) {
6710 gen_helper_vfp_tosls(tmp, tmp,
6711 tcg_shift, fpst);
6712 } else {
6713 gen_helper_vfp_touls(tmp, tmp,
6714 tcg_shift, fpst);
6717 gen_helper_set_neon_rmode(tcg_rmode, tcg_rmode,
6718 cpu_env);
6719 tcg_temp_free_i32(tcg_rmode);
6720 tcg_temp_free_i32(tcg_shift);
6721 tcg_temp_free_ptr(fpst);
6722 break;
6724 case NEON_2RM_VRECPE:
6726 TCGv_ptr fpstatus = get_fpstatus_ptr(1);
6727 gen_helper_recpe_u32(tmp, tmp, fpstatus);
6728 tcg_temp_free_ptr(fpstatus);
6729 break;
6731 case NEON_2RM_VRSQRTE:
6733 TCGv_ptr fpstatus = get_fpstatus_ptr(1);
6734 gen_helper_rsqrte_u32(tmp, tmp, fpstatus);
6735 tcg_temp_free_ptr(fpstatus);
6736 break;
6738 case NEON_2RM_VRECPE_F:
6740 TCGv_ptr fpstatus = get_fpstatus_ptr(1);
6741 gen_helper_recpe_f32(tmp, tmp, fpstatus);
6742 tcg_temp_free_ptr(fpstatus);
6743 break;
6745 case NEON_2RM_VRSQRTE_F:
6747 TCGv_ptr fpstatus = get_fpstatus_ptr(1);
6748 gen_helper_rsqrte_f32(tmp, tmp, fpstatus);
6749 tcg_temp_free_ptr(fpstatus);
6750 break;
6752 case NEON_2RM_VCVT_FS: /* VCVT.F32.S32 */
6754 TCGv_ptr fpstatus = get_fpstatus_ptr(1);
6755 gen_helper_vfp_sitos(tmp, tmp, fpstatus);
6756 tcg_temp_free_ptr(fpstatus);
6757 break;
6759 case NEON_2RM_VCVT_FU: /* VCVT.F32.U32 */
6761 TCGv_ptr fpstatus = get_fpstatus_ptr(1);
6762 gen_helper_vfp_uitos(tmp, tmp, fpstatus);
6763 tcg_temp_free_ptr(fpstatus);
6764 break;
6766 case NEON_2RM_VCVT_SF: /* VCVT.S32.F32 */
6768 TCGv_ptr fpstatus = get_fpstatus_ptr(1);
6769 gen_helper_vfp_tosizs(tmp, tmp, fpstatus);
6770 tcg_temp_free_ptr(fpstatus);
6771 break;
6773 case NEON_2RM_VCVT_UF: /* VCVT.U32.F32 */
6775 TCGv_ptr fpstatus = get_fpstatus_ptr(1);
6776 gen_helper_vfp_touizs(tmp, tmp, fpstatus);
6777 tcg_temp_free_ptr(fpstatus);
6778 break;
6780 default:
6781 /* Reserved op values were caught by the
6782 * neon_2rm_sizes[] check earlier.
6784 abort();
6786 neon_store_reg(rd, pass, tmp);
6788 break;
6790 } else if ((insn & (1 << 10)) == 0) {
6791 /* VTBL, VTBX. */
6792 int n = ((insn >> 8) & 3) + 1;
6793 if ((rn + n) > 32) {
6794 /* This is UNPREDICTABLE; we choose to UNDEF to avoid the
6795 * helper function running off the end of the register file.
6797 return 1;
6799 n <<= 3;
6800 if (insn & (1 << 6)) {
6801 tmp = neon_load_reg(rd, 0);
6802 } else {
6803 tmp = tcg_temp_new_i32();
6804 tcg_gen_movi_i32(tmp, 0);
6806 tmp2 = neon_load_reg(rm, 0);
6807 ptr1 = vfp_reg_ptr(true, rn);
6808 tmp5 = tcg_const_i32(n);
6809 gen_helper_neon_tbl(tmp2, tmp2, tmp, ptr1, tmp5);
6810 tcg_temp_free_i32(tmp);
6811 if (insn & (1 << 6)) {
6812 tmp = neon_load_reg(rd, 1);
6813 } else {
6814 tmp = tcg_temp_new_i32();
6815 tcg_gen_movi_i32(tmp, 0);
6817 tmp3 = neon_load_reg(rm, 1);
6818 gen_helper_neon_tbl(tmp3, tmp3, tmp, ptr1, tmp5);
6819 tcg_temp_free_i32(tmp5);
6820 tcg_temp_free_ptr(ptr1);
6821 neon_store_reg(rd, 0, tmp2);
6822 neon_store_reg(rd, 1, tmp3);
6823 tcg_temp_free_i32(tmp);
6824 } else if ((insn & 0x380) == 0) {
6825 /* VDUP */
6826 int element;
6827 MemOp size;
6829 if ((insn & (7 << 16)) == 0 || (q && (rd & 1))) {
6830 return 1;
6832 if (insn & (1 << 16)) {
6833 size = MO_8;
6834 element = (insn >> 17) & 7;
6835 } else if (insn & (1 << 17)) {
6836 size = MO_16;
6837 element = (insn >> 18) & 3;
6838 } else {
6839 size = MO_32;
6840 element = (insn >> 19) & 1;
6842 tcg_gen_gvec_dup_mem(size, neon_reg_offset(rd, 0),
6843 neon_element_offset(rm, element, size),
6844 q ? 16 : 8, q ? 16 : 8);
6845 } else {
6846 return 1;
6850 return 0;
6853 /* Advanced SIMD three registers of the same length extension.
6854 * 31 25 23 22 20 16 12 11 10 9 8 3 0
6855 * +---------------+-----+---+-----+----+----+---+----+---+----+---------+----+
6856 * | 1 1 1 1 1 1 0 | op1 | D | op2 | Vn | Vd | 1 | o3 | 0 | o4 | N Q M U | Vm |
6857 * +---------------+-----+---+-----+----+----+---+----+---+----+---------+----+
6859 static int disas_neon_insn_3same_ext(DisasContext *s, uint32_t insn)
6861 gen_helper_gvec_3 *fn_gvec = NULL;
6862 gen_helper_gvec_3_ptr *fn_gvec_ptr = NULL;
6863 int rd, rn, rm, opr_sz;
6864 int data = 0;
6865 int off_rn, off_rm;
6866 bool is_long = false, q = extract32(insn, 6, 1);
6867 bool ptr_is_env = false;
6869 if ((insn & 0xfe200f10) == 0xfc200800) {
6870 /* VCMLA -- 1111 110R R.1S .... .... 1000 ...0 .... */
6871 int size = extract32(insn, 20, 1);
6872 data = extract32(insn, 23, 2); /* rot */
6873 if (!dc_isar_feature(aa32_vcma, s)
6874 || (!size && !dc_isar_feature(aa32_fp16_arith, s))) {
6875 return 1;
6877 fn_gvec_ptr = size ? gen_helper_gvec_fcmlas : gen_helper_gvec_fcmlah;
6878 } else if ((insn & 0xfea00f10) == 0xfc800800) {
6879 /* VCADD -- 1111 110R 1.0S .... .... 1000 ...0 .... */
6880 int size = extract32(insn, 20, 1);
6881 data = extract32(insn, 24, 1); /* rot */
6882 if (!dc_isar_feature(aa32_vcma, s)
6883 || (!size && !dc_isar_feature(aa32_fp16_arith, s))) {
6884 return 1;
6886 fn_gvec_ptr = size ? gen_helper_gvec_fcadds : gen_helper_gvec_fcaddh;
6887 } else if ((insn & 0xfeb00f00) == 0xfc200d00) {
6888 /* V[US]DOT -- 1111 1100 0.10 .... .... 1101 .Q.U .... */
6889 bool u = extract32(insn, 4, 1);
6890 if (!dc_isar_feature(aa32_dp, s)) {
6891 return 1;
6893 fn_gvec = u ? gen_helper_gvec_udot_b : gen_helper_gvec_sdot_b;
6894 } else if ((insn & 0xff300f10) == 0xfc200810) {
6895 /* VFM[AS]L -- 1111 1100 S.10 .... .... 1000 .Q.1 .... */
6896 int is_s = extract32(insn, 23, 1);
6897 if (!dc_isar_feature(aa32_fhm, s)) {
6898 return 1;
6900 is_long = true;
6901 data = is_s; /* is_2 == 0 */
6902 fn_gvec_ptr = gen_helper_gvec_fmlal_a32;
6903 ptr_is_env = true;
6904 } else {
6905 return 1;
6908 VFP_DREG_D(rd, insn);
6909 if (rd & q) {
6910 return 1;
6912 if (q || !is_long) {
6913 VFP_DREG_N(rn, insn);
6914 VFP_DREG_M(rm, insn);
6915 if ((rn | rm) & q & !is_long) {
6916 return 1;
6918 off_rn = vfp_reg_offset(1, rn);
6919 off_rm = vfp_reg_offset(1, rm);
6920 } else {
6921 rn = VFP_SREG_N(insn);
6922 rm = VFP_SREG_M(insn);
6923 off_rn = vfp_reg_offset(0, rn);
6924 off_rm = vfp_reg_offset(0, rm);
6927 if (s->fp_excp_el) {
6928 gen_exception_insn(s, s->pc_curr, EXCP_UDEF,
6929 syn_simd_access_trap(1, 0xe, false), s->fp_excp_el);
6930 return 0;
6932 if (!s->vfp_enabled) {
6933 return 1;
6936 opr_sz = (1 + q) * 8;
6937 if (fn_gvec_ptr) {
6938 TCGv_ptr ptr;
6939 if (ptr_is_env) {
6940 ptr = cpu_env;
6941 } else {
6942 ptr = get_fpstatus_ptr(1);
6944 tcg_gen_gvec_3_ptr(vfp_reg_offset(1, rd), off_rn, off_rm, ptr,
6945 opr_sz, opr_sz, data, fn_gvec_ptr);
6946 if (!ptr_is_env) {
6947 tcg_temp_free_ptr(ptr);
6949 } else {
6950 tcg_gen_gvec_3_ool(vfp_reg_offset(1, rd), off_rn, off_rm,
6951 opr_sz, opr_sz, data, fn_gvec);
6953 return 0;
6956 /* Advanced SIMD two registers and a scalar extension.
6957 * 31 24 23 22 20 16 12 11 10 9 8 3 0
6958 * +-----------------+----+---+----+----+----+---+----+---+----+---------+----+
6959 * | 1 1 1 1 1 1 1 0 | o1 | D | o2 | Vn | Vd | 1 | o3 | 0 | o4 | N Q M U | Vm |
6960 * +-----------------+----+---+----+----+----+---+----+---+----+---------+----+
6964 static int disas_neon_insn_2reg_scalar_ext(DisasContext *s, uint32_t insn)
6966 gen_helper_gvec_3 *fn_gvec = NULL;
6967 gen_helper_gvec_3_ptr *fn_gvec_ptr = NULL;
6968 int rd, rn, rm, opr_sz, data;
6969 int off_rn, off_rm;
6970 bool is_long = false, q = extract32(insn, 6, 1);
6971 bool ptr_is_env = false;
6973 if ((insn & 0xff000f10) == 0xfe000800) {
6974 /* VCMLA (indexed) -- 1111 1110 S.RR .... .... 1000 ...0 .... */
6975 int rot = extract32(insn, 20, 2);
6976 int size = extract32(insn, 23, 1);
6977 int index;
6979 if (!dc_isar_feature(aa32_vcma, s)) {
6980 return 1;
6982 if (size == 0) {
6983 if (!dc_isar_feature(aa32_fp16_arith, s)) {
6984 return 1;
6986 /* For fp16, rm is just Vm, and index is M. */
6987 rm = extract32(insn, 0, 4);
6988 index = extract32(insn, 5, 1);
6989 } else {
6990 /* For fp32, rm is the usual M:Vm, and index is 0. */
6991 VFP_DREG_M(rm, insn);
6992 index = 0;
6994 data = (index << 2) | rot;
6995 fn_gvec_ptr = (size ? gen_helper_gvec_fcmlas_idx
6996 : gen_helper_gvec_fcmlah_idx);
6997 } else if ((insn & 0xffb00f00) == 0xfe200d00) {
6998 /* V[US]DOT -- 1111 1110 0.10 .... .... 1101 .Q.U .... */
6999 int u = extract32(insn, 4, 1);
7001 if (!dc_isar_feature(aa32_dp, s)) {
7002 return 1;
7004 fn_gvec = u ? gen_helper_gvec_udot_idx_b : gen_helper_gvec_sdot_idx_b;
7005 /* rm is just Vm, and index is M. */
7006 data = extract32(insn, 5, 1); /* index */
7007 rm = extract32(insn, 0, 4);
7008 } else if ((insn & 0xffa00f10) == 0xfe000810) {
7009 /* VFM[AS]L -- 1111 1110 0.0S .... .... 1000 .Q.1 .... */
7010 int is_s = extract32(insn, 20, 1);
7011 int vm20 = extract32(insn, 0, 3);
7012 int vm3 = extract32(insn, 3, 1);
7013 int m = extract32(insn, 5, 1);
7014 int index;
7016 if (!dc_isar_feature(aa32_fhm, s)) {
7017 return 1;
7019 if (q) {
7020 rm = vm20;
7021 index = m * 2 + vm3;
7022 } else {
7023 rm = vm20 * 2 + m;
7024 index = vm3;
7026 is_long = true;
7027 data = (index << 2) | is_s; /* is_2 == 0 */
7028 fn_gvec_ptr = gen_helper_gvec_fmlal_idx_a32;
7029 ptr_is_env = true;
7030 } else {
7031 return 1;
7034 VFP_DREG_D(rd, insn);
7035 if (rd & q) {
7036 return 1;
7038 if (q || !is_long) {
7039 VFP_DREG_N(rn, insn);
7040 if (rn & q & !is_long) {
7041 return 1;
7043 off_rn = vfp_reg_offset(1, rn);
7044 off_rm = vfp_reg_offset(1, rm);
7045 } else {
7046 rn = VFP_SREG_N(insn);
7047 off_rn = vfp_reg_offset(0, rn);
7048 off_rm = vfp_reg_offset(0, rm);
7050 if (s->fp_excp_el) {
7051 gen_exception_insn(s, s->pc_curr, EXCP_UDEF,
7052 syn_simd_access_trap(1, 0xe, false), s->fp_excp_el);
7053 return 0;
7055 if (!s->vfp_enabled) {
7056 return 1;
7059 opr_sz = (1 + q) * 8;
7060 if (fn_gvec_ptr) {
7061 TCGv_ptr ptr;
7062 if (ptr_is_env) {
7063 ptr = cpu_env;
7064 } else {
7065 ptr = get_fpstatus_ptr(1);
7067 tcg_gen_gvec_3_ptr(vfp_reg_offset(1, rd), off_rn, off_rm, ptr,
7068 opr_sz, opr_sz, data, fn_gvec_ptr);
7069 if (!ptr_is_env) {
7070 tcg_temp_free_ptr(ptr);
7072 } else {
7073 tcg_gen_gvec_3_ool(vfp_reg_offset(1, rd), off_rn, off_rm,
7074 opr_sz, opr_sz, data, fn_gvec);
7076 return 0;
7079 static int disas_coproc_insn(DisasContext *s, uint32_t insn)
7081 int cpnum, is64, crn, crm, opc1, opc2, isread, rt, rt2;
7082 const ARMCPRegInfo *ri;
7084 cpnum = (insn >> 8) & 0xf;
7086 /* First check for coprocessor space used for XScale/iwMMXt insns */
7087 if (arm_dc_feature(s, ARM_FEATURE_XSCALE) && (cpnum < 2)) {
7088 if (extract32(s->c15_cpar, cpnum, 1) == 0) {
7089 return 1;
7091 if (arm_dc_feature(s, ARM_FEATURE_IWMMXT)) {
7092 return disas_iwmmxt_insn(s, insn);
7093 } else if (arm_dc_feature(s, ARM_FEATURE_XSCALE)) {
7094 return disas_dsp_insn(s, insn);
7096 return 1;
7099 /* Otherwise treat as a generic register access */
7100 is64 = (insn & (1 << 25)) == 0;
7101 if (!is64 && ((insn & (1 << 4)) == 0)) {
7102 /* cdp */
7103 return 1;
7106 crm = insn & 0xf;
7107 if (is64) {
7108 crn = 0;
7109 opc1 = (insn >> 4) & 0xf;
7110 opc2 = 0;
7111 rt2 = (insn >> 16) & 0xf;
7112 } else {
7113 crn = (insn >> 16) & 0xf;
7114 opc1 = (insn >> 21) & 7;
7115 opc2 = (insn >> 5) & 7;
7116 rt2 = 0;
7118 isread = (insn >> 20) & 1;
7119 rt = (insn >> 12) & 0xf;
7121 ri = get_arm_cp_reginfo(s->cp_regs,
7122 ENCODE_CP_REG(cpnum, is64, s->ns, crn, crm, opc1, opc2));
7123 if (ri) {
7124 /* Check access permissions */
7125 if (!cp_access_ok(s->current_el, ri, isread)) {
7126 return 1;
7129 if (ri->accessfn ||
7130 (arm_dc_feature(s, ARM_FEATURE_XSCALE) && cpnum < 14)) {
7131 /* Emit code to perform further access permissions checks at
7132 * runtime; this may result in an exception.
7133 * Note that on XScale all cp0..c13 registers do an access check
7134 * call in order to handle c15_cpar.
7136 TCGv_ptr tmpptr;
7137 TCGv_i32 tcg_syn, tcg_isread;
7138 uint32_t syndrome;
7140 /* Note that since we are an implementation which takes an
7141 * exception on a trapped conditional instruction only if the
7142 * instruction passes its condition code check, we can take
7143 * advantage of the clause in the ARM ARM that allows us to set
7144 * the COND field in the instruction to 0xE in all cases.
7145 * We could fish the actual condition out of the insn (ARM)
7146 * or the condexec bits (Thumb) but it isn't necessary.
7148 switch (cpnum) {
7149 case 14:
7150 if (is64) {
7151 syndrome = syn_cp14_rrt_trap(1, 0xe, opc1, crm, rt, rt2,
7152 isread, false);
7153 } else {
7154 syndrome = syn_cp14_rt_trap(1, 0xe, opc1, opc2, crn, crm,
7155 rt, isread, false);
7157 break;
7158 case 15:
7159 if (is64) {
7160 syndrome = syn_cp15_rrt_trap(1, 0xe, opc1, crm, rt, rt2,
7161 isread, false);
7162 } else {
7163 syndrome = syn_cp15_rt_trap(1, 0xe, opc1, opc2, crn, crm,
7164 rt, isread, false);
7166 break;
7167 default:
7168 /* ARMv8 defines that only coprocessors 14 and 15 exist,
7169 * so this can only happen if this is an ARMv7 or earlier CPU,
7170 * in which case the syndrome information won't actually be
7171 * guest visible.
7173 assert(!arm_dc_feature(s, ARM_FEATURE_V8));
7174 syndrome = syn_uncategorized();
7175 break;
7178 gen_set_condexec(s);
7179 gen_set_pc_im(s, s->pc_curr);
7180 tmpptr = tcg_const_ptr(ri);
7181 tcg_syn = tcg_const_i32(syndrome);
7182 tcg_isread = tcg_const_i32(isread);
7183 gen_helper_access_check_cp_reg(cpu_env, tmpptr, tcg_syn,
7184 tcg_isread);
7185 tcg_temp_free_ptr(tmpptr);
7186 tcg_temp_free_i32(tcg_syn);
7187 tcg_temp_free_i32(tcg_isread);
7188 } else if (ri->type & ARM_CP_RAISES_EXC) {
7190 * The readfn or writefn might raise an exception;
7191 * synchronize the CPU state in case it does.
7193 gen_set_condexec(s);
7194 gen_set_pc_im(s, s->pc_curr);
7197 /* Handle special cases first */
7198 switch (ri->type & ~(ARM_CP_FLAG_MASK & ~ARM_CP_SPECIAL)) {
7199 case ARM_CP_NOP:
7200 return 0;
7201 case ARM_CP_WFI:
7202 if (isread) {
7203 return 1;
7205 gen_set_pc_im(s, s->base.pc_next);
7206 s->base.is_jmp = DISAS_WFI;
7207 return 0;
7208 default:
7209 break;
7212 if ((tb_cflags(s->base.tb) & CF_USE_ICOUNT) && (ri->type & ARM_CP_IO)) {
7213 gen_io_start();
7216 if (isread) {
7217 /* Read */
7218 if (is64) {
7219 TCGv_i64 tmp64;
7220 TCGv_i32 tmp;
7221 if (ri->type & ARM_CP_CONST) {
7222 tmp64 = tcg_const_i64(ri->resetvalue);
7223 } else if (ri->readfn) {
7224 TCGv_ptr tmpptr;
7225 tmp64 = tcg_temp_new_i64();
7226 tmpptr = tcg_const_ptr(ri);
7227 gen_helper_get_cp_reg64(tmp64, cpu_env, tmpptr);
7228 tcg_temp_free_ptr(tmpptr);
7229 } else {
7230 tmp64 = tcg_temp_new_i64();
7231 tcg_gen_ld_i64(tmp64, cpu_env, ri->fieldoffset);
7233 tmp = tcg_temp_new_i32();
7234 tcg_gen_extrl_i64_i32(tmp, tmp64);
7235 store_reg(s, rt, tmp);
7236 tmp = tcg_temp_new_i32();
7237 tcg_gen_extrh_i64_i32(tmp, tmp64);
7238 tcg_temp_free_i64(tmp64);
7239 store_reg(s, rt2, tmp);
7240 } else {
7241 TCGv_i32 tmp;
7242 if (ri->type & ARM_CP_CONST) {
7243 tmp = tcg_const_i32(ri->resetvalue);
7244 } else if (ri->readfn) {
7245 TCGv_ptr tmpptr;
7246 tmp = tcg_temp_new_i32();
7247 tmpptr = tcg_const_ptr(ri);
7248 gen_helper_get_cp_reg(tmp, cpu_env, tmpptr);
7249 tcg_temp_free_ptr(tmpptr);
7250 } else {
7251 tmp = load_cpu_offset(ri->fieldoffset);
7253 if (rt == 15) {
7254 /* Destination register of r15 for 32 bit loads sets
7255 * the condition codes from the high 4 bits of the value
7257 gen_set_nzcv(tmp);
7258 tcg_temp_free_i32(tmp);
7259 } else {
7260 store_reg(s, rt, tmp);
7263 } else {
7264 /* Write */
7265 if (ri->type & ARM_CP_CONST) {
7266 /* If not forbidden by access permissions, treat as WI */
7267 return 0;
7270 if (is64) {
7271 TCGv_i32 tmplo, tmphi;
7272 TCGv_i64 tmp64 = tcg_temp_new_i64();
7273 tmplo = load_reg(s, rt);
7274 tmphi = load_reg(s, rt2);
7275 tcg_gen_concat_i32_i64(tmp64, tmplo, tmphi);
7276 tcg_temp_free_i32(tmplo);
7277 tcg_temp_free_i32(tmphi);
7278 if (ri->writefn) {
7279 TCGv_ptr tmpptr = tcg_const_ptr(ri);
7280 gen_helper_set_cp_reg64(cpu_env, tmpptr, tmp64);
7281 tcg_temp_free_ptr(tmpptr);
7282 } else {
7283 tcg_gen_st_i64(tmp64, cpu_env, ri->fieldoffset);
7285 tcg_temp_free_i64(tmp64);
7286 } else {
7287 if (ri->writefn) {
7288 TCGv_i32 tmp;
7289 TCGv_ptr tmpptr;
7290 tmp = load_reg(s, rt);
7291 tmpptr = tcg_const_ptr(ri);
7292 gen_helper_set_cp_reg(cpu_env, tmpptr, tmp);
7293 tcg_temp_free_ptr(tmpptr);
7294 tcg_temp_free_i32(tmp);
7295 } else {
7296 TCGv_i32 tmp = load_reg(s, rt);
7297 store_cpu_offset(tmp, ri->fieldoffset);
7302 if ((tb_cflags(s->base.tb) & CF_USE_ICOUNT) && (ri->type & ARM_CP_IO)) {
7303 /* I/O operations must end the TB here (whether read or write) */
7304 gen_lookup_tb(s);
7305 } else if (!isread && !(ri->type & ARM_CP_SUPPRESS_TB_END)) {
7306 /* We default to ending the TB on a coprocessor register write,
7307 * but allow this to be suppressed by the register definition
7308 * (usually only necessary to work around guest bugs).
7310 gen_lookup_tb(s);
7313 return 0;
7316 /* Unknown register; this might be a guest error or a QEMU
7317 * unimplemented feature.
7319 if (is64) {
7320 qemu_log_mask(LOG_UNIMP, "%s access to unsupported AArch32 "
7321 "64 bit system register cp:%d opc1: %d crm:%d "
7322 "(%s)\n",
7323 isread ? "read" : "write", cpnum, opc1, crm,
7324 s->ns ? "non-secure" : "secure");
7325 } else {
7326 qemu_log_mask(LOG_UNIMP, "%s access to unsupported AArch32 "
7327 "system register cp:%d opc1:%d crn:%d crm:%d opc2:%d "
7328 "(%s)\n",
7329 isread ? "read" : "write", cpnum, opc1, crn, crm, opc2,
7330 s->ns ? "non-secure" : "secure");
7333 return 1;
7337 /* Store a 64-bit value to a register pair. Clobbers val. */
7338 static void gen_storeq_reg(DisasContext *s, int rlow, int rhigh, TCGv_i64 val)
7340 TCGv_i32 tmp;
7341 tmp = tcg_temp_new_i32();
7342 tcg_gen_extrl_i64_i32(tmp, val);
7343 store_reg(s, rlow, tmp);
7344 tmp = tcg_temp_new_i32();
7345 tcg_gen_extrh_i64_i32(tmp, val);
7346 store_reg(s, rhigh, tmp);
7349 /* load and add a 64-bit value from a register pair. */
7350 static void gen_addq(DisasContext *s, TCGv_i64 val, int rlow, int rhigh)
7352 TCGv_i64 tmp;
7353 TCGv_i32 tmpl;
7354 TCGv_i32 tmph;
7356 /* Load 64-bit value rd:rn. */
7357 tmpl = load_reg(s, rlow);
7358 tmph = load_reg(s, rhigh);
7359 tmp = tcg_temp_new_i64();
7360 tcg_gen_concat_i32_i64(tmp, tmpl, tmph);
7361 tcg_temp_free_i32(tmpl);
7362 tcg_temp_free_i32(tmph);
7363 tcg_gen_add_i64(val, val, tmp);
7364 tcg_temp_free_i64(tmp);
7367 /* Set N and Z flags from hi|lo. */
7368 static void gen_logicq_cc(TCGv_i32 lo, TCGv_i32 hi)
7370 tcg_gen_mov_i32(cpu_NF, hi);
7371 tcg_gen_or_i32(cpu_ZF, lo, hi);
7374 /* Load/Store exclusive instructions are implemented by remembering
7375 the value/address loaded, and seeing if these are the same
7376 when the store is performed. This should be sufficient to implement
7377 the architecturally mandated semantics, and avoids having to monitor
7378 regular stores. The compare vs the remembered value is done during
7379 the cmpxchg operation, but we must compare the addresses manually. */
7380 static void gen_load_exclusive(DisasContext *s, int rt, int rt2,
7381 TCGv_i32 addr, int size)
7383 TCGv_i32 tmp = tcg_temp_new_i32();
7384 MemOp opc = size | MO_ALIGN | s->be_data;
7386 s->is_ldex = true;
7388 if (size == 3) {
7389 TCGv_i32 tmp2 = tcg_temp_new_i32();
7390 TCGv_i64 t64 = tcg_temp_new_i64();
7392 /* For AArch32, architecturally the 32-bit word at the lowest
7393 * address is always Rt and the one at addr+4 is Rt2, even if
7394 * the CPU is big-endian. That means we don't want to do a
7395 * gen_aa32_ld_i64(), which invokes gen_aa32_frob64() as if
7396 * for an architecturally 64-bit access, but instead do a
7397 * 64-bit access using MO_BE if appropriate and then split
7398 * the two halves.
7399 * This only makes a difference for BE32 user-mode, where
7400 * frob64() must not flip the two halves of the 64-bit data
7401 * but this code must treat BE32 user-mode like BE32 system.
7403 TCGv taddr = gen_aa32_addr(s, addr, opc);
7405 tcg_gen_qemu_ld_i64(t64, taddr, get_mem_index(s), opc);
7406 tcg_temp_free(taddr);
7407 tcg_gen_mov_i64(cpu_exclusive_val, t64);
7408 if (s->be_data == MO_BE) {
7409 tcg_gen_extr_i64_i32(tmp2, tmp, t64);
7410 } else {
7411 tcg_gen_extr_i64_i32(tmp, tmp2, t64);
7413 tcg_temp_free_i64(t64);
7415 store_reg(s, rt2, tmp2);
7416 } else {
7417 gen_aa32_ld_i32(s, tmp, addr, get_mem_index(s), opc);
7418 tcg_gen_extu_i32_i64(cpu_exclusive_val, tmp);
7421 store_reg(s, rt, tmp);
7422 tcg_gen_extu_i32_i64(cpu_exclusive_addr, addr);
7425 static void gen_clrex(DisasContext *s)
7427 tcg_gen_movi_i64(cpu_exclusive_addr, -1);
7430 static void gen_store_exclusive(DisasContext *s, int rd, int rt, int rt2,
7431 TCGv_i32 addr, int size)
7433 TCGv_i32 t0, t1, t2;
7434 TCGv_i64 extaddr;
7435 TCGv taddr;
7436 TCGLabel *done_label;
7437 TCGLabel *fail_label;
7438 MemOp opc = size | MO_ALIGN | s->be_data;
7440 /* if (env->exclusive_addr == addr && env->exclusive_val == [addr]) {
7441 [addr] = {Rt};
7442 {Rd} = 0;
7443 } else {
7444 {Rd} = 1;
7445 } */
7446 fail_label = gen_new_label();
7447 done_label = gen_new_label();
7448 extaddr = tcg_temp_new_i64();
7449 tcg_gen_extu_i32_i64(extaddr, addr);
7450 tcg_gen_brcond_i64(TCG_COND_NE, extaddr, cpu_exclusive_addr, fail_label);
7451 tcg_temp_free_i64(extaddr);
7453 taddr = gen_aa32_addr(s, addr, opc);
7454 t0 = tcg_temp_new_i32();
7455 t1 = load_reg(s, rt);
7456 if (size == 3) {
7457 TCGv_i64 o64 = tcg_temp_new_i64();
7458 TCGv_i64 n64 = tcg_temp_new_i64();
7460 t2 = load_reg(s, rt2);
7461 /* For AArch32, architecturally the 32-bit word at the lowest
7462 * address is always Rt and the one at addr+4 is Rt2, even if
7463 * the CPU is big-endian. Since we're going to treat this as a
7464 * single 64-bit BE store, we need to put the two halves in the
7465 * opposite order for BE to LE, so that they end up in the right
7466 * places.
7467 * We don't want gen_aa32_frob64() because that does the wrong
7468 * thing for BE32 usermode.
7470 if (s->be_data == MO_BE) {
7471 tcg_gen_concat_i32_i64(n64, t2, t1);
7472 } else {
7473 tcg_gen_concat_i32_i64(n64, t1, t2);
7475 tcg_temp_free_i32(t2);
7477 tcg_gen_atomic_cmpxchg_i64(o64, taddr, cpu_exclusive_val, n64,
7478 get_mem_index(s), opc);
7479 tcg_temp_free_i64(n64);
7481 tcg_gen_setcond_i64(TCG_COND_NE, o64, o64, cpu_exclusive_val);
7482 tcg_gen_extrl_i64_i32(t0, o64);
7484 tcg_temp_free_i64(o64);
7485 } else {
7486 t2 = tcg_temp_new_i32();
7487 tcg_gen_extrl_i64_i32(t2, cpu_exclusive_val);
7488 tcg_gen_atomic_cmpxchg_i32(t0, taddr, t2, t1, get_mem_index(s), opc);
7489 tcg_gen_setcond_i32(TCG_COND_NE, t0, t0, t2);
7490 tcg_temp_free_i32(t2);
7492 tcg_temp_free_i32(t1);
7493 tcg_temp_free(taddr);
7494 tcg_gen_mov_i32(cpu_R[rd], t0);
7495 tcg_temp_free_i32(t0);
7496 tcg_gen_br(done_label);
7498 gen_set_label(fail_label);
7499 tcg_gen_movi_i32(cpu_R[rd], 1);
7500 gen_set_label(done_label);
7501 tcg_gen_movi_i64(cpu_exclusive_addr, -1);
7504 /* gen_srs:
7505 * @env: CPUARMState
7506 * @s: DisasContext
7507 * @mode: mode field from insn (which stack to store to)
7508 * @amode: addressing mode (DA/IA/DB/IB), encoded as per P,U bits in ARM insn
7509 * @writeback: true if writeback bit set
7511 * Generate code for the SRS (Store Return State) insn.
7513 static void gen_srs(DisasContext *s,
7514 uint32_t mode, uint32_t amode, bool writeback)
7516 int32_t offset;
7517 TCGv_i32 addr, tmp;
7518 bool undef = false;
7520 /* SRS is:
7521 * - trapped to EL3 if EL3 is AArch64 and we are at Secure EL1
7522 * and specified mode is monitor mode
7523 * - UNDEFINED in Hyp mode
7524 * - UNPREDICTABLE in User or System mode
7525 * - UNPREDICTABLE if the specified mode is:
7526 * -- not implemented
7527 * -- not a valid mode number
7528 * -- a mode that's at a higher exception level
7529 * -- Monitor, if we are Non-secure
7530 * For the UNPREDICTABLE cases we choose to UNDEF.
7532 if (s->current_el == 1 && !s->ns && mode == ARM_CPU_MODE_MON) {
7533 gen_exception_insn(s, s->pc_curr, EXCP_UDEF, syn_uncategorized(), 3);
7534 return;
7537 if (s->current_el == 0 || s->current_el == 2) {
7538 undef = true;
7541 switch (mode) {
7542 case ARM_CPU_MODE_USR:
7543 case ARM_CPU_MODE_FIQ:
7544 case ARM_CPU_MODE_IRQ:
7545 case ARM_CPU_MODE_SVC:
7546 case ARM_CPU_MODE_ABT:
7547 case ARM_CPU_MODE_UND:
7548 case ARM_CPU_MODE_SYS:
7549 break;
7550 case ARM_CPU_MODE_HYP:
7551 if (s->current_el == 1 || !arm_dc_feature(s, ARM_FEATURE_EL2)) {
7552 undef = true;
7554 break;
7555 case ARM_CPU_MODE_MON:
7556 /* No need to check specifically for "are we non-secure" because
7557 * we've already made EL0 UNDEF and handled the trap for S-EL1;
7558 * so if this isn't EL3 then we must be non-secure.
7560 if (s->current_el != 3) {
7561 undef = true;
7563 break;
7564 default:
7565 undef = true;
7568 if (undef) {
7569 unallocated_encoding(s);
7570 return;
7573 addr = tcg_temp_new_i32();
7574 tmp = tcg_const_i32(mode);
7575 /* get_r13_banked() will raise an exception if called from System mode */
7576 gen_set_condexec(s);
7577 gen_set_pc_im(s, s->pc_curr);
7578 gen_helper_get_r13_banked(addr, cpu_env, tmp);
7579 tcg_temp_free_i32(tmp);
7580 switch (amode) {
7581 case 0: /* DA */
7582 offset = -4;
7583 break;
7584 case 1: /* IA */
7585 offset = 0;
7586 break;
7587 case 2: /* DB */
7588 offset = -8;
7589 break;
7590 case 3: /* IB */
7591 offset = 4;
7592 break;
7593 default:
7594 abort();
7596 tcg_gen_addi_i32(addr, addr, offset);
7597 tmp = load_reg(s, 14);
7598 gen_aa32_st32(s, tmp, addr, get_mem_index(s));
7599 tcg_temp_free_i32(tmp);
7600 tmp = load_cpu_field(spsr);
7601 tcg_gen_addi_i32(addr, addr, 4);
7602 gen_aa32_st32(s, tmp, addr, get_mem_index(s));
7603 tcg_temp_free_i32(tmp);
7604 if (writeback) {
7605 switch (amode) {
7606 case 0:
7607 offset = -8;
7608 break;
7609 case 1:
7610 offset = 4;
7611 break;
7612 case 2:
7613 offset = -4;
7614 break;
7615 case 3:
7616 offset = 0;
7617 break;
7618 default:
7619 abort();
7621 tcg_gen_addi_i32(addr, addr, offset);
7622 tmp = tcg_const_i32(mode);
7623 gen_helper_set_r13_banked(cpu_env, tmp, addr);
7624 tcg_temp_free_i32(tmp);
7626 tcg_temp_free_i32(addr);
7627 s->base.is_jmp = DISAS_UPDATE;
7630 /* Generate a label used for skipping this instruction */
7631 static void arm_gen_condlabel(DisasContext *s)
7633 if (!s->condjmp) {
7634 s->condlabel = gen_new_label();
7635 s->condjmp = 1;
7639 /* Skip this instruction if the ARM condition is false */
7640 static void arm_skip_unless(DisasContext *s, uint32_t cond)
7642 arm_gen_condlabel(s);
7643 arm_gen_test_cc(cond ^ 1, s->condlabel);
7648 * Constant expanders for the decoders.
7651 static int negate(DisasContext *s, int x)
7653 return -x;
7656 static int times_2(DisasContext *s, int x)
7658 return x * 2;
7661 /* Return only the rotation part of T32ExpandImm. */
7662 static int t32_expandimm_rot(DisasContext *s, int x)
7664 return x & 0xc00 ? extract32(x, 7, 5) : 0;
7667 /* Return the unrotated immediate from T32ExpandImm. */
7668 static int t32_expandimm_imm(DisasContext *s, int x)
7670 int imm = extract32(x, 0, 8);
7672 switch (extract32(x, 8, 4)) {
7673 case 0: /* XY */
7674 /* Nothing to do. */
7675 break;
7676 case 1: /* 00XY00XY */
7677 imm *= 0x00010001;
7678 break;
7679 case 2: /* XY00XY00 */
7680 imm *= 0x01000100;
7681 break;
7682 case 3: /* XYXYXYXY */
7683 imm *= 0x01010101;
7684 break;
7685 default:
7686 /* Rotated constant. */
7687 imm |= 0x80;
7688 break;
7690 return imm;
7694 * Include the generated decoders.
7697 #include "decode-a32.inc.c"
7698 #include "decode-a32-uncond.inc.c"
7699 #include "decode-t32.inc.c"
7701 /* Helpers to swap operands for reverse-subtract. */
7702 static void gen_rsb(TCGv_i32 dst, TCGv_i32 a, TCGv_i32 b)
7704 tcg_gen_sub_i32(dst, b, a);
7707 static void gen_rsb_CC(TCGv_i32 dst, TCGv_i32 a, TCGv_i32 b)
7709 gen_sub_CC(dst, b, a);
7712 static void gen_rsc(TCGv_i32 dest, TCGv_i32 a, TCGv_i32 b)
7714 gen_sub_carry(dest, b, a);
7717 static void gen_rsc_CC(TCGv_i32 dest, TCGv_i32 a, TCGv_i32 b)
7719 gen_sbc_CC(dest, b, a);
7723 * Helpers for the data processing routines.
7725 * After the computation store the results back.
7726 * This may be suppressed altogether (STREG_NONE), require a runtime
7727 * check against the stack limits (STREG_SP_CHECK), or generate an
7728 * exception return. Oh, or store into a register.
7730 * Always return true, indicating success for a trans_* function.
7732 typedef enum {
7733 STREG_NONE,
7734 STREG_NORMAL,
7735 STREG_SP_CHECK,
7736 STREG_EXC_RET,
7737 } StoreRegKind;
7739 static bool store_reg_kind(DisasContext *s, int rd,
7740 TCGv_i32 val, StoreRegKind kind)
7742 switch (kind) {
7743 case STREG_NONE:
7744 tcg_temp_free_i32(val);
7745 return true;
7746 case STREG_NORMAL:
7747 /* See ALUWritePC: Interworking only from a32 mode. */
7748 if (s->thumb) {
7749 store_reg(s, rd, val);
7750 } else {
7751 store_reg_bx(s, rd, val);
7753 return true;
7754 case STREG_SP_CHECK:
7755 store_sp_checked(s, val);
7756 return true;
7757 case STREG_EXC_RET:
7758 gen_exception_return(s, val);
7759 return true;
7761 g_assert_not_reached();
7765 * Data Processing (register)
7767 * Operate, with set flags, one register source,
7768 * one immediate shifted register source, and a destination.
7770 static bool op_s_rrr_shi(DisasContext *s, arg_s_rrr_shi *a,
7771 void (*gen)(TCGv_i32, TCGv_i32, TCGv_i32),
7772 int logic_cc, StoreRegKind kind)
7774 TCGv_i32 tmp1, tmp2;
7776 tmp2 = load_reg(s, a->rm);
7777 gen_arm_shift_im(tmp2, a->shty, a->shim, logic_cc);
7778 tmp1 = load_reg(s, a->rn);
7780 gen(tmp1, tmp1, tmp2);
7781 tcg_temp_free_i32(tmp2);
7783 if (logic_cc) {
7784 gen_logic_CC(tmp1);
7786 return store_reg_kind(s, a->rd, tmp1, kind);
7789 static bool op_s_rxr_shi(DisasContext *s, arg_s_rrr_shi *a,
7790 void (*gen)(TCGv_i32, TCGv_i32),
7791 int logic_cc, StoreRegKind kind)
7793 TCGv_i32 tmp;
7795 tmp = load_reg(s, a->rm);
7796 gen_arm_shift_im(tmp, a->shty, a->shim, logic_cc);
7798 gen(tmp, tmp);
7799 if (logic_cc) {
7800 gen_logic_CC(tmp);
7802 return store_reg_kind(s, a->rd, tmp, kind);
7806 * Data-processing (register-shifted register)
7808 * Operate, with set flags, one register source,
7809 * one register shifted register source, and a destination.
7811 static bool op_s_rrr_shr(DisasContext *s, arg_s_rrr_shr *a,
7812 void (*gen)(TCGv_i32, TCGv_i32, TCGv_i32),
7813 int logic_cc, StoreRegKind kind)
7815 TCGv_i32 tmp1, tmp2;
7817 tmp1 = load_reg(s, a->rs);
7818 tmp2 = load_reg(s, a->rm);
7819 gen_arm_shift_reg(tmp2, a->shty, tmp1, logic_cc);
7820 tmp1 = load_reg(s, a->rn);
7822 gen(tmp1, tmp1, tmp2);
7823 tcg_temp_free_i32(tmp2);
7825 if (logic_cc) {
7826 gen_logic_CC(tmp1);
7828 return store_reg_kind(s, a->rd, tmp1, kind);
7831 static bool op_s_rxr_shr(DisasContext *s, arg_s_rrr_shr *a,
7832 void (*gen)(TCGv_i32, TCGv_i32),
7833 int logic_cc, StoreRegKind kind)
7835 TCGv_i32 tmp1, tmp2;
7837 tmp1 = load_reg(s, a->rs);
7838 tmp2 = load_reg(s, a->rm);
7839 gen_arm_shift_reg(tmp2, a->shty, tmp1, logic_cc);
7841 gen(tmp2, tmp2);
7842 if (logic_cc) {
7843 gen_logic_CC(tmp2);
7845 return store_reg_kind(s, a->rd, tmp2, kind);
7849 * Data-processing (immediate)
7851 * Operate, with set flags, one register source,
7852 * one rotated immediate, and a destination.
7854 * Note that logic_cc && a->rot setting CF based on the msb of the
7855 * immediate is the reason why we must pass in the unrotated form
7856 * of the immediate.
7858 static bool op_s_rri_rot(DisasContext *s, arg_s_rri_rot *a,
7859 void (*gen)(TCGv_i32, TCGv_i32, TCGv_i32),
7860 int logic_cc, StoreRegKind kind)
7862 TCGv_i32 tmp1, tmp2;
7863 uint32_t imm;
7865 imm = ror32(a->imm, a->rot);
7866 if (logic_cc && a->rot) {
7867 tcg_gen_movi_i32(cpu_CF, imm >> 31);
7869 tmp2 = tcg_const_i32(imm);
7870 tmp1 = load_reg(s, a->rn);
7872 gen(tmp1, tmp1, tmp2);
7873 tcg_temp_free_i32(tmp2);
7875 if (logic_cc) {
7876 gen_logic_CC(tmp1);
7878 return store_reg_kind(s, a->rd, tmp1, kind);
7881 static bool op_s_rxi_rot(DisasContext *s, arg_s_rri_rot *a,
7882 void (*gen)(TCGv_i32, TCGv_i32),
7883 int logic_cc, StoreRegKind kind)
7885 TCGv_i32 tmp;
7886 uint32_t imm;
7888 imm = ror32(a->imm, a->rot);
7889 if (logic_cc && a->rot) {
7890 tcg_gen_movi_i32(cpu_CF, imm >> 31);
7892 tmp = tcg_const_i32(imm);
7894 gen(tmp, tmp);
7895 if (logic_cc) {
7896 gen_logic_CC(tmp);
7898 return store_reg_kind(s, a->rd, tmp, kind);
7901 #define DO_ANY3(NAME, OP, L, K) \
7902 static bool trans_##NAME##_rrri(DisasContext *s, arg_s_rrr_shi *a) \
7903 { StoreRegKind k = (K); return op_s_rrr_shi(s, a, OP, L, k); } \
7904 static bool trans_##NAME##_rrrr(DisasContext *s, arg_s_rrr_shr *a) \
7905 { StoreRegKind k = (K); return op_s_rrr_shr(s, a, OP, L, k); } \
7906 static bool trans_##NAME##_rri(DisasContext *s, arg_s_rri_rot *a) \
7907 { StoreRegKind k = (K); return op_s_rri_rot(s, a, OP, L, k); }
7909 #define DO_ANY2(NAME, OP, L, K) \
7910 static bool trans_##NAME##_rxri(DisasContext *s, arg_s_rrr_shi *a) \
7911 { StoreRegKind k = (K); return op_s_rxr_shi(s, a, OP, L, k); } \
7912 static bool trans_##NAME##_rxrr(DisasContext *s, arg_s_rrr_shr *a) \
7913 { StoreRegKind k = (K); return op_s_rxr_shr(s, a, OP, L, k); } \
7914 static bool trans_##NAME##_rxi(DisasContext *s, arg_s_rri_rot *a) \
7915 { StoreRegKind k = (K); return op_s_rxi_rot(s, a, OP, L, k); }
7917 #define DO_CMP2(NAME, OP, L) \
7918 static bool trans_##NAME##_xrri(DisasContext *s, arg_s_rrr_shi *a) \
7919 { return op_s_rrr_shi(s, a, OP, L, STREG_NONE); } \
7920 static bool trans_##NAME##_xrrr(DisasContext *s, arg_s_rrr_shr *a) \
7921 { return op_s_rrr_shr(s, a, OP, L, STREG_NONE); } \
7922 static bool trans_##NAME##_xri(DisasContext *s, arg_s_rri_rot *a) \
7923 { return op_s_rri_rot(s, a, OP, L, STREG_NONE); }
7925 DO_ANY3(AND, tcg_gen_and_i32, a->s, STREG_NORMAL)
7926 DO_ANY3(EOR, tcg_gen_xor_i32, a->s, STREG_NORMAL)
7927 DO_ANY3(ORR, tcg_gen_or_i32, a->s, STREG_NORMAL)
7928 DO_ANY3(BIC, tcg_gen_andc_i32, a->s, STREG_NORMAL)
7930 DO_ANY3(RSB, a->s ? gen_rsb_CC : gen_rsb, false, STREG_NORMAL)
7931 DO_ANY3(ADC, a->s ? gen_adc_CC : gen_add_carry, false, STREG_NORMAL)
7932 DO_ANY3(SBC, a->s ? gen_sbc_CC : gen_sub_carry, false, STREG_NORMAL)
7933 DO_ANY3(RSC, a->s ? gen_rsc_CC : gen_rsc, false, STREG_NORMAL)
7935 DO_CMP2(TST, tcg_gen_and_i32, true)
7936 DO_CMP2(TEQ, tcg_gen_xor_i32, true)
7937 DO_CMP2(CMN, gen_add_CC, false)
7938 DO_CMP2(CMP, gen_sub_CC, false)
7940 DO_ANY3(ADD, a->s ? gen_add_CC : tcg_gen_add_i32, false,
7941 a->rd == 13 && a->rn == 13 ? STREG_SP_CHECK : STREG_NORMAL)
7944 * Note for the computation of StoreRegKind we return out of the
7945 * middle of the functions that are expanded by DO_ANY3, and that
7946 * we modify a->s via that parameter before it is used by OP.
7948 DO_ANY3(SUB, a->s ? gen_sub_CC : tcg_gen_sub_i32, false,
7950 StoreRegKind ret = STREG_NORMAL;
7951 if (a->rd == 15 && a->s) {
7953 * See ALUExceptionReturn:
7954 * In User mode, UNPREDICTABLE; we choose UNDEF.
7955 * In Hyp mode, UNDEFINED.
7957 if (IS_USER(s) || s->current_el == 2) {
7958 unallocated_encoding(s);
7959 return true;
7961 /* There is no writeback of nzcv to PSTATE. */
7962 a->s = 0;
7963 ret = STREG_EXC_RET;
7964 } else if (a->rd == 13 && a->rn == 13) {
7965 ret = STREG_SP_CHECK;
7967 ret;
7970 DO_ANY2(MOV, tcg_gen_mov_i32, a->s,
7972 StoreRegKind ret = STREG_NORMAL;
7973 if (a->rd == 15 && a->s) {
7975 * See ALUExceptionReturn:
7976 * In User mode, UNPREDICTABLE; we choose UNDEF.
7977 * In Hyp mode, UNDEFINED.
7979 if (IS_USER(s) || s->current_el == 2) {
7980 unallocated_encoding(s);
7981 return true;
7983 /* There is no writeback of nzcv to PSTATE. */
7984 a->s = 0;
7985 ret = STREG_EXC_RET;
7986 } else if (a->rd == 13) {
7987 ret = STREG_SP_CHECK;
7989 ret;
7992 DO_ANY2(MVN, tcg_gen_not_i32, a->s, STREG_NORMAL)
7995 * ORN is only available with T32, so there is no register-shifted-register
7996 * form of the insn. Using the DO_ANY3 macro would create an unused function.
7998 static bool trans_ORN_rrri(DisasContext *s, arg_s_rrr_shi *a)
8000 return op_s_rrr_shi(s, a, tcg_gen_orc_i32, a->s, STREG_NORMAL);
8003 static bool trans_ORN_rri(DisasContext *s, arg_s_rri_rot *a)
8005 return op_s_rri_rot(s, a, tcg_gen_orc_i32, a->s, STREG_NORMAL);
8008 #undef DO_ANY3
8009 #undef DO_ANY2
8010 #undef DO_CMP2
8012 static bool trans_ADR(DisasContext *s, arg_ri *a)
8014 store_reg_bx(s, a->rd, add_reg_for_lit(s, 15, a->imm));
8015 return true;
8019 * Multiply and multiply accumulate
8022 static bool op_mla(DisasContext *s, arg_s_rrrr *a, bool add)
8024 TCGv_i32 t1, t2;
8026 t1 = load_reg(s, a->rn);
8027 t2 = load_reg(s, a->rm);
8028 tcg_gen_mul_i32(t1, t1, t2);
8029 tcg_temp_free_i32(t2);
8030 if (add) {
8031 t2 = load_reg(s, a->ra);
8032 tcg_gen_add_i32(t1, t1, t2);
8033 tcg_temp_free_i32(t2);
8035 if (a->s) {
8036 gen_logic_CC(t1);
8038 store_reg(s, a->rd, t1);
8039 return true;
8042 static bool trans_MUL(DisasContext *s, arg_MUL *a)
8044 return op_mla(s, a, false);
8047 static bool trans_MLA(DisasContext *s, arg_MLA *a)
8049 return op_mla(s, a, true);
8052 static bool trans_MLS(DisasContext *s, arg_MLS *a)
8054 TCGv_i32 t1, t2;
8056 if (!ENABLE_ARCH_6T2) {
8057 return false;
8059 t1 = load_reg(s, a->rn);
8060 t2 = load_reg(s, a->rm);
8061 tcg_gen_mul_i32(t1, t1, t2);
8062 tcg_temp_free_i32(t2);
8063 t2 = load_reg(s, a->ra);
8064 tcg_gen_sub_i32(t1, t2, t1);
8065 tcg_temp_free_i32(t2);
8066 store_reg(s, a->rd, t1);
8067 return true;
8070 static bool op_mlal(DisasContext *s, arg_s_rrrr *a, bool uns, bool add)
8072 TCGv_i32 t0, t1, t2, t3;
8074 t0 = load_reg(s, a->rm);
8075 t1 = load_reg(s, a->rn);
8076 if (uns) {
8077 tcg_gen_mulu2_i32(t0, t1, t0, t1);
8078 } else {
8079 tcg_gen_muls2_i32(t0, t1, t0, t1);
8081 if (add) {
8082 t2 = load_reg(s, a->ra);
8083 t3 = load_reg(s, a->rd);
8084 tcg_gen_add2_i32(t0, t1, t0, t1, t2, t3);
8085 tcg_temp_free_i32(t2);
8086 tcg_temp_free_i32(t3);
8088 if (a->s) {
8089 gen_logicq_cc(t0, t1);
8091 store_reg(s, a->ra, t0);
8092 store_reg(s, a->rd, t1);
8093 return true;
8096 static bool trans_UMULL(DisasContext *s, arg_UMULL *a)
8098 return op_mlal(s, a, true, false);
8101 static bool trans_SMULL(DisasContext *s, arg_SMULL *a)
8103 return op_mlal(s, a, false, false);
8106 static bool trans_UMLAL(DisasContext *s, arg_UMLAL *a)
8108 return op_mlal(s, a, true, true);
8111 static bool trans_SMLAL(DisasContext *s, arg_SMLAL *a)
8113 return op_mlal(s, a, false, true);
8116 static bool trans_UMAAL(DisasContext *s, arg_UMAAL *a)
8118 TCGv_i32 t0, t1, t2, zero;
8120 if (s->thumb
8121 ? !arm_dc_feature(s, ARM_FEATURE_THUMB_DSP)
8122 : !ENABLE_ARCH_6) {
8123 return false;
8126 t0 = load_reg(s, a->rm);
8127 t1 = load_reg(s, a->rn);
8128 tcg_gen_mulu2_i32(t0, t1, t0, t1);
8129 zero = tcg_const_i32(0);
8130 t2 = load_reg(s, a->ra);
8131 tcg_gen_add2_i32(t0, t1, t0, t1, t2, zero);
8132 tcg_temp_free_i32(t2);
8133 t2 = load_reg(s, a->rd);
8134 tcg_gen_add2_i32(t0, t1, t0, t1, t2, zero);
8135 tcg_temp_free_i32(t2);
8136 tcg_temp_free_i32(zero);
8137 store_reg(s, a->ra, t0);
8138 store_reg(s, a->rd, t1);
8139 return true;
8143 * Saturating addition and subtraction
8146 static bool op_qaddsub(DisasContext *s, arg_rrr *a, bool add, bool doub)
8148 TCGv_i32 t0, t1;
8150 if (s->thumb
8151 ? !arm_dc_feature(s, ARM_FEATURE_THUMB_DSP)
8152 : !ENABLE_ARCH_5TE) {
8153 return false;
8156 t0 = load_reg(s, a->rm);
8157 t1 = load_reg(s, a->rn);
8158 if (doub) {
8159 gen_helper_add_saturate(t1, cpu_env, t1, t1);
8161 if (add) {
8162 gen_helper_add_saturate(t0, cpu_env, t0, t1);
8163 } else {
8164 gen_helper_sub_saturate(t0, cpu_env, t0, t1);
8166 tcg_temp_free_i32(t1);
8167 store_reg(s, a->rd, t0);
8168 return true;
8171 #define DO_QADDSUB(NAME, ADD, DOUB) \
8172 static bool trans_##NAME(DisasContext *s, arg_rrr *a) \
8174 return op_qaddsub(s, a, ADD, DOUB); \
8177 DO_QADDSUB(QADD, true, false)
8178 DO_QADDSUB(QSUB, false, false)
8179 DO_QADDSUB(QDADD, true, true)
8180 DO_QADDSUB(QDSUB, false, true)
8182 #undef DO_QADDSUB
8185 * Halfword multiply and multiply accumulate
8188 static bool op_smlaxxx(DisasContext *s, arg_rrrr *a,
8189 int add_long, bool nt, bool mt)
8191 TCGv_i32 t0, t1, tl, th;
8193 if (s->thumb
8194 ? !arm_dc_feature(s, ARM_FEATURE_THUMB_DSP)
8195 : !ENABLE_ARCH_5TE) {
8196 return false;
8199 t0 = load_reg(s, a->rn);
8200 t1 = load_reg(s, a->rm);
8201 gen_mulxy(t0, t1, nt, mt);
8202 tcg_temp_free_i32(t1);
8204 switch (add_long) {
8205 case 0:
8206 store_reg(s, a->rd, t0);
8207 break;
8208 case 1:
8209 t1 = load_reg(s, a->ra);
8210 gen_helper_add_setq(t0, cpu_env, t0, t1);
8211 tcg_temp_free_i32(t1);
8212 store_reg(s, a->rd, t0);
8213 break;
8214 case 2:
8215 tl = load_reg(s, a->ra);
8216 th = load_reg(s, a->rd);
8217 t1 = tcg_const_i32(0);
8218 tcg_gen_add2_i32(tl, th, tl, th, t0, t1);
8219 tcg_temp_free_i32(t0);
8220 tcg_temp_free_i32(t1);
8221 store_reg(s, a->ra, tl);
8222 store_reg(s, a->rd, th);
8223 break;
8224 default:
8225 g_assert_not_reached();
8227 return true;
8230 #define DO_SMLAX(NAME, add, nt, mt) \
8231 static bool trans_##NAME(DisasContext *s, arg_rrrr *a) \
8233 return op_smlaxxx(s, a, add, nt, mt); \
8236 DO_SMLAX(SMULBB, 0, 0, 0)
8237 DO_SMLAX(SMULBT, 0, 0, 1)
8238 DO_SMLAX(SMULTB, 0, 1, 0)
8239 DO_SMLAX(SMULTT, 0, 1, 1)
8241 DO_SMLAX(SMLABB, 1, 0, 0)
8242 DO_SMLAX(SMLABT, 1, 0, 1)
8243 DO_SMLAX(SMLATB, 1, 1, 0)
8244 DO_SMLAX(SMLATT, 1, 1, 1)
8246 DO_SMLAX(SMLALBB, 2, 0, 0)
8247 DO_SMLAX(SMLALBT, 2, 0, 1)
8248 DO_SMLAX(SMLALTB, 2, 1, 0)
8249 DO_SMLAX(SMLALTT, 2, 1, 1)
8251 #undef DO_SMLAX
8253 static bool op_smlawx(DisasContext *s, arg_rrrr *a, bool add, bool mt)
8255 TCGv_i32 t0, t1;
8257 if (!ENABLE_ARCH_5TE) {
8258 return false;
8261 t0 = load_reg(s, a->rn);
8262 t1 = load_reg(s, a->rm);
8264 * Since the nominal result is product<47:16>, shift the 16-bit
8265 * input up by 16 bits, so that the result is at product<63:32>.
8267 if (mt) {
8268 tcg_gen_andi_i32(t1, t1, 0xffff0000);
8269 } else {
8270 tcg_gen_shli_i32(t1, t1, 16);
8272 tcg_gen_muls2_i32(t0, t1, t0, t1);
8273 tcg_temp_free_i32(t0);
8274 if (add) {
8275 t0 = load_reg(s, a->ra);
8276 gen_helper_add_setq(t1, cpu_env, t1, t0);
8277 tcg_temp_free_i32(t0);
8279 store_reg(s, a->rd, t1);
8280 return true;
8283 #define DO_SMLAWX(NAME, add, mt) \
8284 static bool trans_##NAME(DisasContext *s, arg_rrrr *a) \
8286 return op_smlawx(s, a, add, mt); \
8289 DO_SMLAWX(SMULWB, 0, 0)
8290 DO_SMLAWX(SMULWT, 0, 1)
8291 DO_SMLAWX(SMLAWB, 1, 0)
8292 DO_SMLAWX(SMLAWT, 1, 1)
8294 #undef DO_SMLAWX
8297 * MSR (immediate) and hints
8300 static bool trans_YIELD(DisasContext *s, arg_YIELD *a)
8302 gen_nop_hint(s, 1);
8303 return true;
8306 static bool trans_WFE(DisasContext *s, arg_WFE *a)
8308 gen_nop_hint(s, 2);
8309 return true;
8312 static bool trans_WFI(DisasContext *s, arg_WFI *a)
8314 gen_nop_hint(s, 3);
8315 return true;
8318 static bool trans_NOP(DisasContext *s, arg_NOP *a)
8320 return true;
8323 static bool trans_MSR_imm(DisasContext *s, arg_MSR_imm *a)
8325 uint32_t val = ror32(a->imm, a->rot * 2);
8326 uint32_t mask = msr_mask(s, a->mask, a->r);
8328 if (gen_set_psr_im(s, mask, a->r, val)) {
8329 unallocated_encoding(s);
8331 return true;
8335 * Cyclic Redundancy Check
8338 static bool op_crc32(DisasContext *s, arg_rrr *a, bool c, MemOp sz)
8340 TCGv_i32 t1, t2, t3;
8342 if (!dc_isar_feature(aa32_crc32, s)) {
8343 return false;
8346 t1 = load_reg(s, a->rn);
8347 t2 = load_reg(s, a->rm);
8348 switch (sz) {
8349 case MO_8:
8350 gen_uxtb(t2);
8351 break;
8352 case MO_16:
8353 gen_uxth(t2);
8354 break;
8355 case MO_32:
8356 break;
8357 default:
8358 g_assert_not_reached();
8360 t3 = tcg_const_i32(1 << sz);
8361 if (c) {
8362 gen_helper_crc32c(t1, t1, t2, t3);
8363 } else {
8364 gen_helper_crc32(t1, t1, t2, t3);
8366 tcg_temp_free_i32(t2);
8367 tcg_temp_free_i32(t3);
8368 store_reg(s, a->rd, t1);
8369 return true;
8372 #define DO_CRC32(NAME, c, sz) \
8373 static bool trans_##NAME(DisasContext *s, arg_rrr *a) \
8374 { return op_crc32(s, a, c, sz); }
8376 DO_CRC32(CRC32B, false, MO_8)
8377 DO_CRC32(CRC32H, false, MO_16)
8378 DO_CRC32(CRC32W, false, MO_32)
8379 DO_CRC32(CRC32CB, true, MO_8)
8380 DO_CRC32(CRC32CH, true, MO_16)
8381 DO_CRC32(CRC32CW, true, MO_32)
8383 #undef DO_CRC32
8386 * Miscellaneous instructions
8389 static bool trans_MRS_bank(DisasContext *s, arg_MRS_bank *a)
8391 if (arm_dc_feature(s, ARM_FEATURE_M)) {
8392 return false;
8394 gen_mrs_banked(s, a->r, a->sysm, a->rd);
8395 return true;
8398 static bool trans_MSR_bank(DisasContext *s, arg_MSR_bank *a)
8400 if (arm_dc_feature(s, ARM_FEATURE_M)) {
8401 return false;
8403 gen_msr_banked(s, a->r, a->sysm, a->rn);
8404 return true;
8407 static bool trans_MRS_reg(DisasContext *s, arg_MRS_reg *a)
8409 TCGv_i32 tmp;
8411 if (arm_dc_feature(s, ARM_FEATURE_M)) {
8412 return false;
8414 if (a->r) {
8415 if (IS_USER(s)) {
8416 unallocated_encoding(s);
8417 return true;
8419 tmp = load_cpu_field(spsr);
8420 } else {
8421 tmp = tcg_temp_new_i32();
8422 gen_helper_cpsr_read(tmp, cpu_env);
8424 store_reg(s, a->rd, tmp);
8425 return true;
8428 static bool trans_MSR_reg(DisasContext *s, arg_MSR_reg *a)
8430 TCGv_i32 tmp;
8431 uint32_t mask = msr_mask(s, a->mask, a->r);
8433 if (arm_dc_feature(s, ARM_FEATURE_M)) {
8434 return false;
8436 tmp = load_reg(s, a->rn);
8437 if (gen_set_psr(s, mask, a->r, tmp)) {
8438 unallocated_encoding(s);
8440 return true;
8443 static bool trans_MRS_v7m(DisasContext *s, arg_MRS_v7m *a)
8445 TCGv_i32 tmp;
8447 if (!arm_dc_feature(s, ARM_FEATURE_M)) {
8448 return false;
8450 tmp = tcg_const_i32(a->sysm);
8451 gen_helper_v7m_mrs(tmp, cpu_env, tmp);
8452 store_reg(s, a->rd, tmp);
8453 return true;
8456 static bool trans_MSR_v7m(DisasContext *s, arg_MSR_v7m *a)
8458 TCGv_i32 addr, reg;
8460 if (!arm_dc_feature(s, ARM_FEATURE_M)) {
8461 return false;
8463 addr = tcg_const_i32((a->mask << 10) | a->sysm);
8464 reg = load_reg(s, a->rn);
8465 gen_helper_v7m_msr(cpu_env, addr, reg);
8466 tcg_temp_free_i32(addr);
8467 tcg_temp_free_i32(reg);
8468 gen_lookup_tb(s);
8469 return true;
8472 static bool trans_BX(DisasContext *s, arg_BX *a)
8474 if (!ENABLE_ARCH_4T) {
8475 return false;
8477 gen_bx(s, load_reg(s, a->rm));
8478 return true;
8481 static bool trans_BXJ(DisasContext *s, arg_BXJ *a)
8483 if (!ENABLE_ARCH_5J || arm_dc_feature(s, ARM_FEATURE_M)) {
8484 return false;
8486 /* Trivial implementation equivalent to bx. */
8487 gen_bx(s, load_reg(s, a->rm));
8488 return true;
8491 static bool trans_BLX_r(DisasContext *s, arg_BLX_r *a)
8493 TCGv_i32 tmp;
8495 if (!ENABLE_ARCH_5) {
8496 return false;
8498 tmp = load_reg(s, a->rm);
8499 tcg_gen_movi_i32(cpu_R[14], s->base.pc_next | s->thumb);
8500 gen_bx(s, tmp);
8501 return true;
8504 static bool trans_CLZ(DisasContext *s, arg_CLZ *a)
8506 TCGv_i32 tmp;
8508 if (!ENABLE_ARCH_5) {
8509 return false;
8511 tmp = load_reg(s, a->rm);
8512 tcg_gen_clzi_i32(tmp, tmp, 32);
8513 store_reg(s, a->rd, tmp);
8514 return true;
8517 static bool trans_ERET(DisasContext *s, arg_ERET *a)
8519 TCGv_i32 tmp;
8521 if (!arm_dc_feature(s, ARM_FEATURE_V7VE)) {
8522 return false;
8524 if (IS_USER(s)) {
8525 unallocated_encoding(s);
8526 return true;
8528 if (s->current_el == 2) {
8529 /* ERET from Hyp uses ELR_Hyp, not LR */
8530 tmp = load_cpu_field(elr_el[2]);
8531 } else {
8532 tmp = load_reg(s, 14);
8534 gen_exception_return(s, tmp);
8535 return true;
8538 static bool trans_HLT(DisasContext *s, arg_HLT *a)
8540 gen_hlt(s, a->imm);
8541 return true;
8544 static bool trans_BKPT(DisasContext *s, arg_BKPT *a)
8546 if (!ENABLE_ARCH_5) {
8547 return false;
8549 gen_exception_bkpt_insn(s, syn_aa32_bkpt(a->imm, false));
8550 return true;
8553 static bool trans_HVC(DisasContext *s, arg_HVC *a)
8555 if (!ENABLE_ARCH_7 || arm_dc_feature(s, ARM_FEATURE_M)) {
8556 return false;
8558 if (IS_USER(s)) {
8559 unallocated_encoding(s);
8560 } else {
8561 gen_hvc(s, a->imm);
8563 return true;
8566 static bool trans_SMC(DisasContext *s, arg_SMC *a)
8568 if (!ENABLE_ARCH_6K || arm_dc_feature(s, ARM_FEATURE_M)) {
8569 return false;
8571 if (IS_USER(s)) {
8572 unallocated_encoding(s);
8573 } else {
8574 gen_smc(s);
8576 return true;
8580 * Legacy decoder.
8583 static void disas_arm_insn(DisasContext *s, unsigned int insn)
8585 unsigned int cond, val, op1, i, shift, rm, rs, rn, rd, sh;
8586 TCGv_i32 tmp;
8587 TCGv_i32 tmp2;
8588 TCGv_i32 tmp3;
8589 TCGv_i32 addr;
8590 TCGv_i64 tmp64;
8592 /* M variants do not implement ARM mode; this must raise the INVSTATE
8593 * UsageFault exception.
8595 if (arm_dc_feature(s, ARM_FEATURE_M)) {
8596 gen_exception_insn(s, s->pc_curr, EXCP_INVSTATE, syn_uncategorized(),
8597 default_exception_el(s));
8598 return;
8600 cond = insn >> 28;
8602 if (cond == 0xf) {
8603 /* In ARMv3 and v4 the NV condition is UNPREDICTABLE; we
8604 * choose to UNDEF. In ARMv5 and above the space is used
8605 * for miscellaneous unconditional instructions.
8607 ARCH(5);
8609 /* Unconditional instructions. */
8610 if (disas_a32_uncond(s, insn)) {
8611 return;
8613 /* fall back to legacy decoder */
8615 if (((insn >> 25) & 7) == 1) {
8616 /* NEON Data processing. */
8617 if (!arm_dc_feature(s, ARM_FEATURE_NEON)) {
8618 goto illegal_op;
8621 if (disas_neon_data_insn(s, insn)) {
8622 goto illegal_op;
8624 return;
8626 if ((insn & 0x0f100000) == 0x04000000) {
8627 /* NEON load/store. */
8628 if (!arm_dc_feature(s, ARM_FEATURE_NEON)) {
8629 goto illegal_op;
8632 if (disas_neon_ls_insn(s, insn)) {
8633 goto illegal_op;
8635 return;
8637 if ((insn & 0x0f000e10) == 0x0e000a00) {
8638 /* VFP. */
8639 if (disas_vfp_insn(s, insn)) {
8640 goto illegal_op;
8642 return;
8644 if (((insn & 0x0f30f000) == 0x0510f000) ||
8645 ((insn & 0x0f30f010) == 0x0710f000)) {
8646 if ((insn & (1 << 22)) == 0) {
8647 /* PLDW; v7MP */
8648 if (!arm_dc_feature(s, ARM_FEATURE_V7MP)) {
8649 goto illegal_op;
8652 /* Otherwise PLD; v5TE+ */
8653 ARCH(5TE);
8654 return;
8656 if (((insn & 0x0f70f000) == 0x0450f000) ||
8657 ((insn & 0x0f70f010) == 0x0650f000)) {
8658 ARCH(7);
8659 return; /* PLI; V7 */
8661 if (((insn & 0x0f700000) == 0x04100000) ||
8662 ((insn & 0x0f700010) == 0x06100000)) {
8663 if (!arm_dc_feature(s, ARM_FEATURE_V7MP)) {
8664 goto illegal_op;
8666 return; /* v7MP: Unallocated memory hint: must NOP */
8669 if ((insn & 0x0ffffdff) == 0x01010000) {
8670 ARCH(6);
8671 /* setend */
8672 if (((insn >> 9) & 1) != !!(s->be_data == MO_BE)) {
8673 gen_helper_setend(cpu_env);
8674 s->base.is_jmp = DISAS_UPDATE;
8676 return;
8677 } else if ((insn & 0x0fffff00) == 0x057ff000) {
8678 switch ((insn >> 4) & 0xf) {
8679 case 1: /* clrex */
8680 ARCH(6K);
8681 gen_clrex(s);
8682 return;
8683 case 4: /* dsb */
8684 case 5: /* dmb */
8685 ARCH(7);
8686 tcg_gen_mb(TCG_MO_ALL | TCG_BAR_SC);
8687 return;
8688 case 6: /* isb */
8689 /* We need to break the TB after this insn to execute
8690 * self-modifying code correctly and also to take
8691 * any pending interrupts immediately.
8693 gen_goto_tb(s, 0, s->base.pc_next);
8694 return;
8695 case 7: /* sb */
8696 if ((insn & 0xf) || !dc_isar_feature(aa32_sb, s)) {
8697 goto illegal_op;
8700 * TODO: There is no speculation barrier opcode
8701 * for TCG; MB and end the TB instead.
8703 tcg_gen_mb(TCG_MO_ALL | TCG_BAR_SC);
8704 gen_goto_tb(s, 0, s->base.pc_next);
8705 return;
8706 default:
8707 goto illegal_op;
8709 } else if ((insn & 0x0e5fffe0) == 0x084d0500) {
8710 /* srs */
8711 ARCH(6);
8712 gen_srs(s, (insn & 0x1f), (insn >> 23) & 3, insn & (1 << 21));
8713 return;
8714 } else if ((insn & 0x0e50ffe0) == 0x08100a00) {
8715 /* rfe */
8716 int32_t offset;
8717 if (IS_USER(s))
8718 goto illegal_op;
8719 ARCH(6);
8720 rn = (insn >> 16) & 0xf;
8721 addr = load_reg(s, rn);
8722 i = (insn >> 23) & 3;
8723 switch (i) {
8724 case 0: offset = -4; break; /* DA */
8725 case 1: offset = 0; break; /* IA */
8726 case 2: offset = -8; break; /* DB */
8727 case 3: offset = 4; break; /* IB */
8728 default: abort();
8730 if (offset)
8731 tcg_gen_addi_i32(addr, addr, offset);
8732 /* Load PC into tmp and CPSR into tmp2. */
8733 tmp = tcg_temp_new_i32();
8734 gen_aa32_ld32u(s, tmp, addr, get_mem_index(s));
8735 tcg_gen_addi_i32(addr, addr, 4);
8736 tmp2 = tcg_temp_new_i32();
8737 gen_aa32_ld32u(s, tmp2, addr, get_mem_index(s));
8738 if (insn & (1 << 21)) {
8739 /* Base writeback. */
8740 switch (i) {
8741 case 0: offset = -8; break;
8742 case 1: offset = 4; break;
8743 case 2: offset = -4; break;
8744 case 3: offset = 0; break;
8745 default: abort();
8747 if (offset)
8748 tcg_gen_addi_i32(addr, addr, offset);
8749 store_reg(s, rn, addr);
8750 } else {
8751 tcg_temp_free_i32(addr);
8753 gen_rfe(s, tmp, tmp2);
8754 return;
8755 } else if ((insn & 0x0e000000) == 0x0a000000) {
8756 /* branch link and change to thumb (blx <offset>) */
8757 int32_t offset;
8759 tmp = tcg_temp_new_i32();
8760 tcg_gen_movi_i32(tmp, s->base.pc_next);
8761 store_reg(s, 14, tmp);
8762 /* Sign-extend the 24-bit offset */
8763 offset = (((int32_t)insn) << 8) >> 8;
8764 val = read_pc(s);
8765 /* offset * 4 + bit24 * 2 + (thumb bit) */
8766 val += (offset << 2) | ((insn >> 23) & 2) | 1;
8767 /* protected by ARCH(5); above, near the start of uncond block */
8768 gen_bx_im(s, val);
8769 return;
8770 } else if ((insn & 0x0e000f00) == 0x0c000100) {
8771 if (arm_dc_feature(s, ARM_FEATURE_IWMMXT)) {
8772 /* iWMMXt register transfer. */
8773 if (extract32(s->c15_cpar, 1, 1)) {
8774 if (!disas_iwmmxt_insn(s, insn)) {
8775 return;
8779 } else if ((insn & 0x0e000a00) == 0x0c000800
8780 && arm_dc_feature(s, ARM_FEATURE_V8)) {
8781 if (disas_neon_insn_3same_ext(s, insn)) {
8782 goto illegal_op;
8784 return;
8785 } else if ((insn & 0x0f000a00) == 0x0e000800
8786 && arm_dc_feature(s, ARM_FEATURE_V8)) {
8787 if (disas_neon_insn_2reg_scalar_ext(s, insn)) {
8788 goto illegal_op;
8790 return;
8791 } else if ((insn & 0x0fe00000) == 0x0c400000) {
8792 /* Coprocessor double register transfer. */
8793 ARCH(5TE);
8794 } else if ((insn & 0x0f000010) == 0x0e000010) {
8795 /* Additional coprocessor register transfer. */
8796 } else if ((insn & 0x0ff10020) == 0x01000000) {
8797 uint32_t mask;
8798 uint32_t val;
8799 /* cps (privileged) */
8800 if (IS_USER(s))
8801 return;
8802 mask = val = 0;
8803 if (insn & (1 << 19)) {
8804 if (insn & (1 << 8))
8805 mask |= CPSR_A;
8806 if (insn & (1 << 7))
8807 mask |= CPSR_I;
8808 if (insn & (1 << 6))
8809 mask |= CPSR_F;
8810 if (insn & (1 << 18))
8811 val |= mask;
8813 if (insn & (1 << 17)) {
8814 mask |= CPSR_M;
8815 val |= (insn & 0x1f);
8817 if (mask) {
8818 gen_set_psr_im(s, mask, 0, val);
8820 return;
8822 goto illegal_op;
8824 if (cond != 0xe) {
8825 /* if not always execute, we generate a conditional jump to
8826 next instruction */
8827 arm_skip_unless(s, cond);
8830 if (disas_a32(s, insn)) {
8831 return;
8833 /* fall back to legacy decoder */
8835 if ((insn & 0x0f900000) == 0x03000000) {
8836 if ((insn & (1 << 21)) == 0) {
8837 ARCH(6T2);
8838 rd = (insn >> 12) & 0xf;
8839 val = ((insn >> 4) & 0xf000) | (insn & 0xfff);
8840 if ((insn & (1 << 22)) == 0) {
8841 /* MOVW */
8842 tmp = tcg_temp_new_i32();
8843 tcg_gen_movi_i32(tmp, val);
8844 } else {
8845 /* MOVT */
8846 tmp = load_reg(s, rd);
8847 tcg_gen_ext16u_i32(tmp, tmp);
8848 tcg_gen_ori_i32(tmp, tmp, val << 16);
8850 store_reg(s, rd, tmp);
8851 } else {
8852 /* MSR (immediate) and hints */
8853 /* All done in decodetree. Illegal ops already signalled. */
8854 g_assert_not_reached();
8856 } else if ((insn & 0x0f900000) == 0x01000000
8857 && (insn & 0x00000090) != 0x00000090) {
8858 /* miscellaneous instructions */
8859 /* All done in decodetree. Illegal ops reach here. */
8860 goto illegal_op;
8861 } else if (((insn & 0x0e000000) == 0 &&
8862 (insn & 0x00000090) != 0x90) ||
8863 ((insn & 0x0e000000) == (1 << 25))) {
8864 /* Data-processing (reg, reg-shift-reg, imm). */
8865 /* All done in decodetree. Reach here for illegal ops. */
8866 goto illegal_op;
8867 } else {
8868 /* other instructions */
8869 op1 = (insn >> 24) & 0xf;
8870 switch(op1) {
8871 case 0x0:
8872 case 0x1:
8873 /* multiplies, extra load/stores */
8874 sh = (insn >> 5) & 3;
8875 if (sh == 0) {
8876 if (op1 == 0x0) {
8877 /* Multiply and multiply accumulate. */
8878 /* All done in decodetree. Reach here for illegal ops. */
8879 goto illegal_op;
8880 } else {
8881 rn = (insn >> 16) & 0xf;
8882 rd = (insn >> 12) & 0xf;
8883 if (insn & (1 << 23)) {
8884 /* load/store exclusive */
8885 bool is_ld = extract32(insn, 20, 1);
8886 bool is_lasr = !extract32(insn, 8, 1);
8887 int op2 = (insn >> 8) & 3;
8888 op1 = (insn >> 21) & 0x3;
8890 switch (op2) {
8891 case 0: /* lda/stl */
8892 if (op1 == 1) {
8893 goto illegal_op;
8895 ARCH(8);
8896 break;
8897 case 1: /* reserved */
8898 goto illegal_op;
8899 case 2: /* ldaex/stlex */
8900 ARCH(8);
8901 break;
8902 case 3: /* ldrex/strex */
8903 if (op1) {
8904 ARCH(6K);
8905 } else {
8906 ARCH(6);
8908 break;
8911 addr = tcg_temp_local_new_i32();
8912 load_reg_var(s, addr, rn);
8914 if (is_lasr && !is_ld) {
8915 tcg_gen_mb(TCG_MO_ALL | TCG_BAR_STRL);
8918 if (op2 == 0) {
8919 if (is_ld) {
8920 tmp = tcg_temp_new_i32();
8921 switch (op1) {
8922 case 0: /* lda */
8923 gen_aa32_ld32u_iss(s, tmp, addr,
8924 get_mem_index(s),
8925 rd | ISSIsAcqRel);
8926 break;
8927 case 2: /* ldab */
8928 gen_aa32_ld8u_iss(s, tmp, addr,
8929 get_mem_index(s),
8930 rd | ISSIsAcqRel);
8931 break;
8932 case 3: /* ldah */
8933 gen_aa32_ld16u_iss(s, tmp, addr,
8934 get_mem_index(s),
8935 rd | ISSIsAcqRel);
8936 break;
8937 default:
8938 abort();
8940 store_reg(s, rd, tmp);
8941 } else {
8942 rm = insn & 0xf;
8943 tmp = load_reg(s, rm);
8944 switch (op1) {
8945 case 0: /* stl */
8946 gen_aa32_st32_iss(s, tmp, addr,
8947 get_mem_index(s),
8948 rm | ISSIsAcqRel);
8949 break;
8950 case 2: /* stlb */
8951 gen_aa32_st8_iss(s, tmp, addr,
8952 get_mem_index(s),
8953 rm | ISSIsAcqRel);
8954 break;
8955 case 3: /* stlh */
8956 gen_aa32_st16_iss(s, tmp, addr,
8957 get_mem_index(s),
8958 rm | ISSIsAcqRel);
8959 break;
8960 default:
8961 abort();
8963 tcg_temp_free_i32(tmp);
8965 } else if (is_ld) {
8966 switch (op1) {
8967 case 0: /* ldrex */
8968 gen_load_exclusive(s, rd, 15, addr, 2);
8969 break;
8970 case 1: /* ldrexd */
8971 gen_load_exclusive(s, rd, rd + 1, addr, 3);
8972 break;
8973 case 2: /* ldrexb */
8974 gen_load_exclusive(s, rd, 15, addr, 0);
8975 break;
8976 case 3: /* ldrexh */
8977 gen_load_exclusive(s, rd, 15, addr, 1);
8978 break;
8979 default:
8980 abort();
8982 } else {
8983 rm = insn & 0xf;
8984 switch (op1) {
8985 case 0: /* strex */
8986 gen_store_exclusive(s, rd, rm, 15, addr, 2);
8987 break;
8988 case 1: /* strexd */
8989 gen_store_exclusive(s, rd, rm, rm + 1, addr, 3);
8990 break;
8991 case 2: /* strexb */
8992 gen_store_exclusive(s, rd, rm, 15, addr, 0);
8993 break;
8994 case 3: /* strexh */
8995 gen_store_exclusive(s, rd, rm, 15, addr, 1);
8996 break;
8997 default:
8998 abort();
9001 tcg_temp_free_i32(addr);
9003 if (is_lasr && is_ld) {
9004 tcg_gen_mb(TCG_MO_ALL | TCG_BAR_LDAQ);
9006 } else if ((insn & 0x00300f00) == 0) {
9007 /* 0bcccc_0001_0x00_xxxx_xxxx_0000_1001_xxxx
9008 * - SWP, SWPB
9011 TCGv taddr;
9012 MemOp opc = s->be_data;
9014 rm = (insn) & 0xf;
9016 if (insn & (1 << 22)) {
9017 opc |= MO_UB;
9018 } else {
9019 opc |= MO_UL | MO_ALIGN;
9022 addr = load_reg(s, rn);
9023 taddr = gen_aa32_addr(s, addr, opc);
9024 tcg_temp_free_i32(addr);
9026 tmp = load_reg(s, rm);
9027 tcg_gen_atomic_xchg_i32(tmp, taddr, tmp,
9028 get_mem_index(s), opc);
9029 tcg_temp_free(taddr);
9030 store_reg(s, rd, tmp);
9031 } else {
9032 goto illegal_op;
9035 } else {
9036 int address_offset;
9037 bool load = insn & (1 << 20);
9038 bool wbit = insn & (1 << 21);
9039 bool pbit = insn & (1 << 24);
9040 bool doubleword = false;
9041 ISSInfo issinfo;
9043 /* Misc load/store */
9044 rn = (insn >> 16) & 0xf;
9045 rd = (insn >> 12) & 0xf;
9047 /* ISS not valid if writeback */
9048 issinfo = (pbit & !wbit) ? rd : ISSInvalid;
9050 if (!load && (sh & 2)) {
9051 /* doubleword */
9052 ARCH(5TE);
9053 if (rd & 1) {
9054 /* UNPREDICTABLE; we choose to UNDEF */
9055 goto illegal_op;
9057 load = (sh & 1) == 0;
9058 doubleword = true;
9061 addr = load_reg(s, rn);
9062 if (pbit) {
9063 gen_add_datah_offset(s, insn, 0, addr);
9065 address_offset = 0;
9067 if (doubleword) {
9068 if (!load) {
9069 /* store */
9070 tmp = load_reg(s, rd);
9071 gen_aa32_st32(s, tmp, addr, get_mem_index(s));
9072 tcg_temp_free_i32(tmp);
9073 tcg_gen_addi_i32(addr, addr, 4);
9074 tmp = load_reg(s, rd + 1);
9075 gen_aa32_st32(s, tmp, addr, get_mem_index(s));
9076 tcg_temp_free_i32(tmp);
9077 } else {
9078 /* load */
9079 tmp = tcg_temp_new_i32();
9080 gen_aa32_ld32u(s, tmp, addr, get_mem_index(s));
9081 store_reg(s, rd, tmp);
9082 tcg_gen_addi_i32(addr, addr, 4);
9083 tmp = tcg_temp_new_i32();
9084 gen_aa32_ld32u(s, tmp, addr, get_mem_index(s));
9085 rd++;
9087 address_offset = -4;
9088 } else if (load) {
9089 /* load */
9090 tmp = tcg_temp_new_i32();
9091 switch (sh) {
9092 case 1:
9093 gen_aa32_ld16u_iss(s, tmp, addr, get_mem_index(s),
9094 issinfo);
9095 break;
9096 case 2:
9097 gen_aa32_ld8s_iss(s, tmp, addr, get_mem_index(s),
9098 issinfo);
9099 break;
9100 default:
9101 case 3:
9102 gen_aa32_ld16s_iss(s, tmp, addr, get_mem_index(s),
9103 issinfo);
9104 break;
9106 } else {
9107 /* store */
9108 tmp = load_reg(s, rd);
9109 gen_aa32_st16_iss(s, tmp, addr, get_mem_index(s), issinfo);
9110 tcg_temp_free_i32(tmp);
9112 /* Perform base writeback before the loaded value to
9113 ensure correct behavior with overlapping index registers.
9114 ldrd with base writeback is undefined if the
9115 destination and index registers overlap. */
9116 if (!pbit) {
9117 gen_add_datah_offset(s, insn, address_offset, addr);
9118 store_reg(s, rn, addr);
9119 } else if (wbit) {
9120 if (address_offset)
9121 tcg_gen_addi_i32(addr, addr, address_offset);
9122 store_reg(s, rn, addr);
9123 } else {
9124 tcg_temp_free_i32(addr);
9126 if (load) {
9127 /* Complete the load. */
9128 store_reg(s, rd, tmp);
9131 break;
9132 case 0x4:
9133 case 0x5:
9134 goto do_ldst;
9135 case 0x6:
9136 case 0x7:
9137 if (insn & (1 << 4)) {
9138 ARCH(6);
9139 /* Armv6 Media instructions. */
9140 rm = insn & 0xf;
9141 rn = (insn >> 16) & 0xf;
9142 rd = (insn >> 12) & 0xf;
9143 rs = (insn >> 8) & 0xf;
9144 switch ((insn >> 23) & 3) {
9145 case 0: /* Parallel add/subtract. */
9146 op1 = (insn >> 20) & 7;
9147 tmp = load_reg(s, rn);
9148 tmp2 = load_reg(s, rm);
9149 sh = (insn >> 5) & 7;
9150 if ((op1 & 3) == 0 || sh == 5 || sh == 6)
9151 goto illegal_op;
9152 gen_arm_parallel_addsub(op1, sh, tmp, tmp2);
9153 tcg_temp_free_i32(tmp2);
9154 store_reg(s, rd, tmp);
9155 break;
9156 case 1:
9157 if ((insn & 0x00700020) == 0) {
9158 /* Halfword pack. */
9159 tmp = load_reg(s, rn);
9160 tmp2 = load_reg(s, rm);
9161 shift = (insn >> 7) & 0x1f;
9162 if (insn & (1 << 6)) {
9163 /* pkhtb */
9164 if (shift == 0) {
9165 shift = 31;
9167 tcg_gen_sari_i32(tmp2, tmp2, shift);
9168 tcg_gen_deposit_i32(tmp, tmp, tmp2, 0, 16);
9169 } else {
9170 /* pkhbt */
9171 tcg_gen_shli_i32(tmp2, tmp2, shift);
9172 tcg_gen_deposit_i32(tmp, tmp2, tmp, 0, 16);
9174 tcg_temp_free_i32(tmp2);
9175 store_reg(s, rd, tmp);
9176 } else if ((insn & 0x00200020) == 0x00200000) {
9177 /* [us]sat */
9178 tmp = load_reg(s, rm);
9179 shift = (insn >> 7) & 0x1f;
9180 if (insn & (1 << 6)) {
9181 if (shift == 0)
9182 shift = 31;
9183 tcg_gen_sari_i32(tmp, tmp, shift);
9184 } else {
9185 tcg_gen_shli_i32(tmp, tmp, shift);
9187 sh = (insn >> 16) & 0x1f;
9188 tmp2 = tcg_const_i32(sh);
9189 if (insn & (1 << 22))
9190 gen_helper_usat(tmp, cpu_env, tmp, tmp2);
9191 else
9192 gen_helper_ssat(tmp, cpu_env, tmp, tmp2);
9193 tcg_temp_free_i32(tmp2);
9194 store_reg(s, rd, tmp);
9195 } else if ((insn & 0x00300fe0) == 0x00200f20) {
9196 /* [us]sat16 */
9197 tmp = load_reg(s, rm);
9198 sh = (insn >> 16) & 0x1f;
9199 tmp2 = tcg_const_i32(sh);
9200 if (insn & (1 << 22))
9201 gen_helper_usat16(tmp, cpu_env, tmp, tmp2);
9202 else
9203 gen_helper_ssat16(tmp, cpu_env, tmp, tmp2);
9204 tcg_temp_free_i32(tmp2);
9205 store_reg(s, rd, tmp);
9206 } else if ((insn & 0x00700fe0) == 0x00000fa0) {
9207 /* Select bytes. */
9208 tmp = load_reg(s, rn);
9209 tmp2 = load_reg(s, rm);
9210 tmp3 = tcg_temp_new_i32();
9211 tcg_gen_ld_i32(tmp3, cpu_env, offsetof(CPUARMState, GE));
9212 gen_helper_sel_flags(tmp, tmp3, tmp, tmp2);
9213 tcg_temp_free_i32(tmp3);
9214 tcg_temp_free_i32(tmp2);
9215 store_reg(s, rd, tmp);
9216 } else if ((insn & 0x000003e0) == 0x00000060) {
9217 tmp = load_reg(s, rm);
9218 shift = (insn >> 10) & 3;
9219 /* ??? In many cases it's not necessary to do a
9220 rotate, a shift is sufficient. */
9221 tcg_gen_rotri_i32(tmp, tmp, shift * 8);
9222 op1 = (insn >> 20) & 7;
9223 switch (op1) {
9224 case 0: gen_sxtb16(tmp); break;
9225 case 2: gen_sxtb(tmp); break;
9226 case 3: gen_sxth(tmp); break;
9227 case 4: gen_uxtb16(tmp); break;
9228 case 6: gen_uxtb(tmp); break;
9229 case 7: gen_uxth(tmp); break;
9230 default: goto illegal_op;
9232 if (rn != 15) {
9233 tmp2 = load_reg(s, rn);
9234 if ((op1 & 3) == 0) {
9235 gen_add16(tmp, tmp2);
9236 } else {
9237 tcg_gen_add_i32(tmp, tmp, tmp2);
9238 tcg_temp_free_i32(tmp2);
9241 store_reg(s, rd, tmp);
9242 } else if ((insn & 0x003f0f60) == 0x003f0f20) {
9243 /* rev */
9244 tmp = load_reg(s, rm);
9245 if (insn & (1 << 22)) {
9246 if (insn & (1 << 7)) {
9247 gen_revsh(tmp);
9248 } else {
9249 ARCH(6T2);
9250 gen_helper_rbit(tmp, tmp);
9252 } else {
9253 if (insn & (1 << 7))
9254 gen_rev16(tmp);
9255 else
9256 tcg_gen_bswap32_i32(tmp, tmp);
9258 store_reg(s, rd, tmp);
9259 } else {
9260 goto illegal_op;
9262 break;
9263 case 2: /* Multiplies (Type 3). */
9264 switch ((insn >> 20) & 0x7) {
9265 case 5:
9266 if (((insn >> 6) ^ (insn >> 7)) & 1) {
9267 /* op2 not 00x or 11x : UNDEF */
9268 goto illegal_op;
9270 /* Signed multiply most significant [accumulate].
9271 (SMMUL, SMMLA, SMMLS) */
9272 tmp = load_reg(s, rm);
9273 tmp2 = load_reg(s, rs);
9274 tcg_gen_muls2_i32(tmp2, tmp, tmp, tmp2);
9276 if (rd != 15) {
9277 tmp3 = load_reg(s, rd);
9278 if (insn & (1 << 6)) {
9280 * For SMMLS, we need a 64-bit subtract.
9281 * Borrow caused by a non-zero multiplicand
9282 * lowpart, and the correct result lowpart
9283 * for rounding.
9285 TCGv_i32 zero = tcg_const_i32(0);
9286 tcg_gen_sub2_i32(tmp2, tmp, zero, tmp3,
9287 tmp2, tmp);
9288 tcg_temp_free_i32(zero);
9289 } else {
9290 tcg_gen_add_i32(tmp, tmp, tmp3);
9292 tcg_temp_free_i32(tmp3);
9294 if (insn & (1 << 5)) {
9296 * Adding 0x80000000 to the 64-bit quantity
9297 * means that we have carry in to the high
9298 * word when the low word has the high bit set.
9300 tcg_gen_shri_i32(tmp2, tmp2, 31);
9301 tcg_gen_add_i32(tmp, tmp, tmp2);
9303 tcg_temp_free_i32(tmp2);
9304 store_reg(s, rn, tmp);
9305 break;
9306 case 0:
9307 case 4:
9308 /* SMLAD, SMUAD, SMLSD, SMUSD, SMLALD, SMLSLD */
9309 if (insn & (1 << 7)) {
9310 goto illegal_op;
9312 tmp = load_reg(s, rm);
9313 tmp2 = load_reg(s, rs);
9314 if (insn & (1 << 5))
9315 gen_swap_half(tmp2);
9316 gen_smul_dual(tmp, tmp2);
9317 if (insn & (1 << 22)) {
9318 /* smlald, smlsld */
9319 TCGv_i64 tmp64_2;
9321 tmp64 = tcg_temp_new_i64();
9322 tmp64_2 = tcg_temp_new_i64();
9323 tcg_gen_ext_i32_i64(tmp64, tmp);
9324 tcg_gen_ext_i32_i64(tmp64_2, tmp2);
9325 tcg_temp_free_i32(tmp);
9326 tcg_temp_free_i32(tmp2);
9327 if (insn & (1 << 6)) {
9328 tcg_gen_sub_i64(tmp64, tmp64, tmp64_2);
9329 } else {
9330 tcg_gen_add_i64(tmp64, tmp64, tmp64_2);
9332 tcg_temp_free_i64(tmp64_2);
9333 gen_addq(s, tmp64, rd, rn);
9334 gen_storeq_reg(s, rd, rn, tmp64);
9335 tcg_temp_free_i64(tmp64);
9336 } else {
9337 /* smuad, smusd, smlad, smlsd */
9338 if (insn & (1 << 6)) {
9339 /* This subtraction cannot overflow. */
9340 tcg_gen_sub_i32(tmp, tmp, tmp2);
9341 } else {
9342 /* This addition cannot overflow 32 bits;
9343 * however it may overflow considered as a
9344 * signed operation, in which case we must set
9345 * the Q flag.
9347 gen_helper_add_setq(tmp, cpu_env, tmp, tmp2);
9349 tcg_temp_free_i32(tmp2);
9350 if (rd != 15)
9352 tmp2 = load_reg(s, rd);
9353 gen_helper_add_setq(tmp, cpu_env, tmp, tmp2);
9354 tcg_temp_free_i32(tmp2);
9356 store_reg(s, rn, tmp);
9358 break;
9359 case 1:
9360 case 3:
9361 /* SDIV, UDIV */
9362 if (!dc_isar_feature(arm_div, s)) {
9363 goto illegal_op;
9365 if (((insn >> 5) & 7) || (rd != 15)) {
9366 goto illegal_op;
9368 tmp = load_reg(s, rm);
9369 tmp2 = load_reg(s, rs);
9370 if (insn & (1 << 21)) {
9371 gen_helper_udiv(tmp, tmp, tmp2);
9372 } else {
9373 gen_helper_sdiv(tmp, tmp, tmp2);
9375 tcg_temp_free_i32(tmp2);
9376 store_reg(s, rn, tmp);
9377 break;
9378 default:
9379 goto illegal_op;
9381 break;
9382 case 3:
9383 op1 = ((insn >> 17) & 0x38) | ((insn >> 5) & 7);
9384 switch (op1) {
9385 case 0: /* Unsigned sum of absolute differences. */
9386 ARCH(6);
9387 tmp = load_reg(s, rm);
9388 tmp2 = load_reg(s, rs);
9389 gen_helper_usad8(tmp, tmp, tmp2);
9390 tcg_temp_free_i32(tmp2);
9391 if (rd != 15) {
9392 tmp2 = load_reg(s, rd);
9393 tcg_gen_add_i32(tmp, tmp, tmp2);
9394 tcg_temp_free_i32(tmp2);
9396 store_reg(s, rn, tmp);
9397 break;
9398 case 0x20: case 0x24: case 0x28: case 0x2c:
9399 /* Bitfield insert/clear. */
9400 ARCH(6T2);
9401 shift = (insn >> 7) & 0x1f;
9402 i = (insn >> 16) & 0x1f;
9403 if (i < shift) {
9404 /* UNPREDICTABLE; we choose to UNDEF */
9405 goto illegal_op;
9407 i = i + 1 - shift;
9408 if (rm == 15) {
9409 tmp = tcg_temp_new_i32();
9410 tcg_gen_movi_i32(tmp, 0);
9411 } else {
9412 tmp = load_reg(s, rm);
9414 if (i != 32) {
9415 tmp2 = load_reg(s, rd);
9416 tcg_gen_deposit_i32(tmp, tmp2, tmp, shift, i);
9417 tcg_temp_free_i32(tmp2);
9419 store_reg(s, rd, tmp);
9420 break;
9421 case 0x12: case 0x16: case 0x1a: case 0x1e: /* sbfx */
9422 case 0x32: case 0x36: case 0x3a: case 0x3e: /* ubfx */
9423 ARCH(6T2);
9424 tmp = load_reg(s, rm);
9425 shift = (insn >> 7) & 0x1f;
9426 i = ((insn >> 16) & 0x1f) + 1;
9427 if (shift + i > 32)
9428 goto illegal_op;
9429 if (i < 32) {
9430 if (op1 & 0x20) {
9431 tcg_gen_extract_i32(tmp, tmp, shift, i);
9432 } else {
9433 tcg_gen_sextract_i32(tmp, tmp, shift, i);
9436 store_reg(s, rd, tmp);
9437 break;
9438 default:
9439 goto illegal_op;
9441 break;
9443 break;
9445 do_ldst:
9446 /* Check for undefined extension instructions
9447 * per the ARM Bible IE:
9448 * xxxx 0111 1111 xxxx xxxx xxxx 1111 xxxx
9450 sh = (0xf << 20) | (0xf << 4);
9451 if (op1 == 0x7 && ((insn & sh) == sh))
9453 goto illegal_op;
9455 /* load/store byte/word */
9456 rn = (insn >> 16) & 0xf;
9457 rd = (insn >> 12) & 0xf;
9458 tmp2 = load_reg(s, rn);
9459 if ((insn & 0x01200000) == 0x00200000) {
9460 /* ldrt/strt */
9461 i = get_a32_user_mem_index(s);
9462 } else {
9463 i = get_mem_index(s);
9465 if (insn & (1 << 24))
9466 gen_add_data_offset(s, insn, tmp2);
9467 if (insn & (1 << 20)) {
9468 /* load */
9469 tmp = tcg_temp_new_i32();
9470 if (insn & (1 << 22)) {
9471 gen_aa32_ld8u_iss(s, tmp, tmp2, i, rd);
9472 } else {
9473 gen_aa32_ld32u_iss(s, tmp, tmp2, i, rd);
9475 } else {
9476 /* store */
9477 tmp = load_reg(s, rd);
9478 if (insn & (1 << 22)) {
9479 gen_aa32_st8_iss(s, tmp, tmp2, i, rd);
9480 } else {
9481 gen_aa32_st32_iss(s, tmp, tmp2, i, rd);
9483 tcg_temp_free_i32(tmp);
9485 if (!(insn & (1 << 24))) {
9486 gen_add_data_offset(s, insn, tmp2);
9487 store_reg(s, rn, tmp2);
9488 } else if (insn & (1 << 21)) {
9489 store_reg(s, rn, tmp2);
9490 } else {
9491 tcg_temp_free_i32(tmp2);
9493 if (insn & (1 << 20)) {
9494 /* Complete the load. */
9495 store_reg_from_load(s, rd, tmp);
9497 break;
9498 case 0x08:
9499 case 0x09:
9501 int j, n, loaded_base;
9502 bool exc_return = false;
9503 bool is_load = extract32(insn, 20, 1);
9504 bool user = false;
9505 TCGv_i32 loaded_var;
9506 /* load/store multiple words */
9507 /* XXX: store correct base if write back */
9508 if (insn & (1 << 22)) {
9509 /* LDM (user), LDM (exception return) and STM (user) */
9510 if (IS_USER(s))
9511 goto illegal_op; /* only usable in supervisor mode */
9513 if (is_load && extract32(insn, 15, 1)) {
9514 exc_return = true;
9515 } else {
9516 user = true;
9519 rn = (insn >> 16) & 0xf;
9520 addr = load_reg(s, rn);
9522 /* compute total size */
9523 loaded_base = 0;
9524 loaded_var = NULL;
9525 n = 0;
9526 for (i = 0; i < 16; i++) {
9527 if (insn & (1 << i))
9528 n++;
9530 /* XXX: test invalid n == 0 case ? */
9531 if (insn & (1 << 23)) {
9532 if (insn & (1 << 24)) {
9533 /* pre increment */
9534 tcg_gen_addi_i32(addr, addr, 4);
9535 } else {
9536 /* post increment */
9538 } else {
9539 if (insn & (1 << 24)) {
9540 /* pre decrement */
9541 tcg_gen_addi_i32(addr, addr, -(n * 4));
9542 } else {
9543 /* post decrement */
9544 if (n != 1)
9545 tcg_gen_addi_i32(addr, addr, -((n - 1) * 4));
9548 j = 0;
9549 for (i = 0; i < 16; i++) {
9550 if (insn & (1 << i)) {
9551 if (is_load) {
9552 /* load */
9553 tmp = tcg_temp_new_i32();
9554 gen_aa32_ld32u(s, tmp, addr, get_mem_index(s));
9555 if (user) {
9556 tmp2 = tcg_const_i32(i);
9557 gen_helper_set_user_reg(cpu_env, tmp2, tmp);
9558 tcg_temp_free_i32(tmp2);
9559 tcg_temp_free_i32(tmp);
9560 } else if (i == rn) {
9561 loaded_var = tmp;
9562 loaded_base = 1;
9563 } else if (i == 15 && exc_return) {
9564 store_pc_exc_ret(s, tmp);
9565 } else {
9566 store_reg_from_load(s, i, tmp);
9568 } else {
9569 /* store */
9570 if (i == 15) {
9571 tmp = tcg_temp_new_i32();
9572 tcg_gen_movi_i32(tmp, read_pc(s));
9573 } else if (user) {
9574 tmp = tcg_temp_new_i32();
9575 tmp2 = tcg_const_i32(i);
9576 gen_helper_get_user_reg(tmp, cpu_env, tmp2);
9577 tcg_temp_free_i32(tmp2);
9578 } else {
9579 tmp = load_reg(s, i);
9581 gen_aa32_st32(s, tmp, addr, get_mem_index(s));
9582 tcg_temp_free_i32(tmp);
9584 j++;
9585 /* no need to add after the last transfer */
9586 if (j != n)
9587 tcg_gen_addi_i32(addr, addr, 4);
9590 if (insn & (1 << 21)) {
9591 /* write back */
9592 if (insn & (1 << 23)) {
9593 if (insn & (1 << 24)) {
9594 /* pre increment */
9595 } else {
9596 /* post increment */
9597 tcg_gen_addi_i32(addr, addr, 4);
9599 } else {
9600 if (insn & (1 << 24)) {
9601 /* pre decrement */
9602 if (n != 1)
9603 tcg_gen_addi_i32(addr, addr, -((n - 1) * 4));
9604 } else {
9605 /* post decrement */
9606 tcg_gen_addi_i32(addr, addr, -(n * 4));
9609 store_reg(s, rn, addr);
9610 } else {
9611 tcg_temp_free_i32(addr);
9613 if (loaded_base) {
9614 store_reg(s, rn, loaded_var);
9616 if (exc_return) {
9617 /* Restore CPSR from SPSR. */
9618 tmp = load_cpu_field(spsr);
9619 if (tb_cflags(s->base.tb) & CF_USE_ICOUNT) {
9620 gen_io_start();
9622 gen_helper_cpsr_write_eret(cpu_env, tmp);
9623 tcg_temp_free_i32(tmp);
9624 /* Must exit loop to check un-masked IRQs */
9625 s->base.is_jmp = DISAS_EXIT;
9628 break;
9629 case 0xa:
9630 case 0xb:
9632 int32_t offset;
9634 /* branch (and link) */
9635 if (insn & (1 << 24)) {
9636 tmp = tcg_temp_new_i32();
9637 tcg_gen_movi_i32(tmp, s->base.pc_next);
9638 store_reg(s, 14, tmp);
9640 offset = sextract32(insn << 2, 0, 26);
9641 gen_jmp(s, read_pc(s) + offset);
9643 break;
9644 case 0xc:
9645 case 0xd:
9646 case 0xe:
9647 if (((insn >> 8) & 0xe) == 10) {
9648 /* VFP. */
9649 if (disas_vfp_insn(s, insn)) {
9650 goto illegal_op;
9652 } else if (disas_coproc_insn(s, insn)) {
9653 /* Coprocessor. */
9654 goto illegal_op;
9656 break;
9657 case 0xf:
9658 /* swi */
9659 gen_set_pc_im(s, s->base.pc_next);
9660 s->svc_imm = extract32(insn, 0, 24);
9661 s->base.is_jmp = DISAS_SWI;
9662 break;
9663 default:
9664 illegal_op:
9665 unallocated_encoding(s);
9666 break;
9671 static bool thumb_insn_is_16bit(DisasContext *s, uint32_t pc, uint32_t insn)
9674 * Return true if this is a 16 bit instruction. We must be precise
9675 * about this (matching the decode).
9677 if ((insn >> 11) < 0x1d) {
9678 /* Definitely a 16-bit instruction */
9679 return true;
9682 /* Top five bits 0b11101 / 0b11110 / 0b11111 : this is the
9683 * first half of a 32-bit Thumb insn. Thumb-1 cores might
9684 * end up actually treating this as two 16-bit insns, though,
9685 * if it's half of a bl/blx pair that might span a page boundary.
9687 if (arm_dc_feature(s, ARM_FEATURE_THUMB2) ||
9688 arm_dc_feature(s, ARM_FEATURE_M)) {
9689 /* Thumb2 cores (including all M profile ones) always treat
9690 * 32-bit insns as 32-bit.
9692 return false;
9695 if ((insn >> 11) == 0x1e && pc - s->page_start < TARGET_PAGE_SIZE - 3) {
9696 /* 0b1111_0xxx_xxxx_xxxx : BL/BLX prefix, and the suffix
9697 * is not on the next page; we merge this into a 32-bit
9698 * insn.
9700 return false;
9702 /* 0b1110_1xxx_xxxx_xxxx : BLX suffix (or UNDEF);
9703 * 0b1111_1xxx_xxxx_xxxx : BL suffix;
9704 * 0b1111_0xxx_xxxx_xxxx : BL/BLX prefix on the end of a page
9705 * -- handle as single 16 bit insn
9707 return true;
9710 /* Translate a 32-bit thumb instruction. */
9711 static void disas_thumb2_insn(DisasContext *s, uint32_t insn)
9713 uint32_t imm, shift, offset;
9714 uint32_t rd, rn, rm, rs;
9715 TCGv_i32 tmp;
9716 TCGv_i32 tmp2;
9717 TCGv_i32 tmp3;
9718 TCGv_i32 addr;
9719 TCGv_i64 tmp64;
9720 int op;
9723 * ARMv6-M supports a limited subset of Thumb2 instructions.
9724 * Other Thumb1 architectures allow only 32-bit
9725 * combined BL/BLX prefix and suffix.
9727 if (arm_dc_feature(s, ARM_FEATURE_M) &&
9728 !arm_dc_feature(s, ARM_FEATURE_V7)) {
9729 int i;
9730 bool found = false;
9731 static const uint32_t armv6m_insn[] = {0xf3808000 /* msr */,
9732 0xf3b08040 /* dsb */,
9733 0xf3b08050 /* dmb */,
9734 0xf3b08060 /* isb */,
9735 0xf3e08000 /* mrs */,
9736 0xf000d000 /* bl */};
9737 static const uint32_t armv6m_mask[] = {0xffe0d000,
9738 0xfff0d0f0,
9739 0xfff0d0f0,
9740 0xfff0d0f0,
9741 0xffe0d000,
9742 0xf800d000};
9744 for (i = 0; i < ARRAY_SIZE(armv6m_insn); i++) {
9745 if ((insn & armv6m_mask[i]) == armv6m_insn[i]) {
9746 found = true;
9747 break;
9750 if (!found) {
9751 goto illegal_op;
9753 } else if ((insn & 0xf800e800) != 0xf000e800) {
9754 ARCH(6T2);
9757 if (disas_t32(s, insn)) {
9758 return;
9760 /* fall back to legacy decoder */
9762 rn = (insn >> 16) & 0xf;
9763 rs = (insn >> 12) & 0xf;
9764 rd = (insn >> 8) & 0xf;
9765 rm = insn & 0xf;
9766 switch ((insn >> 25) & 0xf) {
9767 case 0: case 1: case 2: case 3:
9768 /* 16-bit instructions. Should never happen. */
9769 abort();
9770 case 4:
9771 if (insn & (1 << 22)) {
9772 /* 0b1110_100x_x1xx_xxxx_xxxx_xxxx_xxxx_xxxx
9773 * - load/store doubleword, load/store exclusive, ldacq/strel,
9774 * table branch, TT.
9776 if (insn == 0xe97fe97f && arm_dc_feature(s, ARM_FEATURE_M) &&
9777 arm_dc_feature(s, ARM_FEATURE_V8)) {
9778 /* 0b1110_1001_0111_1111_1110_1001_0111_111
9779 * - SG (v8M only)
9780 * The bulk of the behaviour for this instruction is implemented
9781 * in v7m_handle_execute_nsc(), which deals with the insn when
9782 * it is executed by a CPU in non-secure state from memory
9783 * which is Secure & NonSecure-Callable.
9784 * Here we only need to handle the remaining cases:
9785 * * in NS memory (including the "security extension not
9786 * implemented" case) : NOP
9787 * * in S memory but CPU already secure (clear IT bits)
9788 * We know that the attribute for the memory this insn is
9789 * in must match the current CPU state, because otherwise
9790 * get_phys_addr_pmsav8 would have generated an exception.
9792 if (s->v8m_secure) {
9793 /* Like the IT insn, we don't need to generate any code */
9794 s->condexec_cond = 0;
9795 s->condexec_mask = 0;
9797 } else if (insn & 0x01200000) {
9798 /* 0b1110_1000_x11x_xxxx_xxxx_xxxx_xxxx_xxxx
9799 * - load/store dual (post-indexed)
9800 * 0b1111_1001_x10x_xxxx_xxxx_xxxx_xxxx_xxxx
9801 * - load/store dual (literal and immediate)
9802 * 0b1111_1001_x11x_xxxx_xxxx_xxxx_xxxx_xxxx
9803 * - load/store dual (pre-indexed)
9805 bool wback = extract32(insn, 21, 1);
9807 if (rn == 15 && (insn & (1 << 21))) {
9808 /* UNPREDICTABLE */
9809 goto illegal_op;
9812 addr = add_reg_for_lit(s, rn, 0);
9813 offset = (insn & 0xff) * 4;
9814 if ((insn & (1 << 23)) == 0) {
9815 offset = -offset;
9818 if (s->v8m_stackcheck && rn == 13 && wback) {
9820 * Here 'addr' is the current SP; if offset is +ve we're
9821 * moving SP up, else down. It is UNKNOWN whether the limit
9822 * check triggers when SP starts below the limit and ends
9823 * up above it; check whichever of the current and final
9824 * SP is lower, so QEMU will trigger in that situation.
9826 if ((int32_t)offset < 0) {
9827 TCGv_i32 newsp = tcg_temp_new_i32();
9829 tcg_gen_addi_i32(newsp, addr, offset);
9830 gen_helper_v8m_stackcheck(cpu_env, newsp);
9831 tcg_temp_free_i32(newsp);
9832 } else {
9833 gen_helper_v8m_stackcheck(cpu_env, addr);
9837 if (insn & (1 << 24)) {
9838 tcg_gen_addi_i32(addr, addr, offset);
9839 offset = 0;
9841 if (insn & (1 << 20)) {
9842 /* ldrd */
9843 tmp = tcg_temp_new_i32();
9844 gen_aa32_ld32u(s, tmp, addr, get_mem_index(s));
9845 store_reg(s, rs, tmp);
9846 tcg_gen_addi_i32(addr, addr, 4);
9847 tmp = tcg_temp_new_i32();
9848 gen_aa32_ld32u(s, tmp, addr, get_mem_index(s));
9849 store_reg(s, rd, tmp);
9850 } else {
9851 /* strd */
9852 tmp = load_reg(s, rs);
9853 gen_aa32_st32(s, tmp, addr, get_mem_index(s));
9854 tcg_temp_free_i32(tmp);
9855 tcg_gen_addi_i32(addr, addr, 4);
9856 tmp = load_reg(s, rd);
9857 gen_aa32_st32(s, tmp, addr, get_mem_index(s));
9858 tcg_temp_free_i32(tmp);
9860 if (wback) {
9861 /* Base writeback. */
9862 tcg_gen_addi_i32(addr, addr, offset - 4);
9863 store_reg(s, rn, addr);
9864 } else {
9865 tcg_temp_free_i32(addr);
9867 } else if ((insn & (1 << 23)) == 0) {
9868 /* 0b1110_1000_010x_xxxx_xxxx_xxxx_xxxx_xxxx
9869 * - load/store exclusive word
9870 * - TT (v8M only)
9872 if (rs == 15) {
9873 if (!(insn & (1 << 20)) &&
9874 arm_dc_feature(s, ARM_FEATURE_M) &&
9875 arm_dc_feature(s, ARM_FEATURE_V8)) {
9876 /* 0b1110_1000_0100_xxxx_1111_xxxx_xxxx_xxxx
9877 * - TT (v8M only)
9879 bool alt = insn & (1 << 7);
9880 TCGv_i32 addr, op, ttresp;
9882 if ((insn & 0x3f) || rd == 13 || rd == 15 || rn == 15) {
9883 /* we UNDEF for these UNPREDICTABLE cases */
9884 goto illegal_op;
9887 if (alt && !s->v8m_secure) {
9888 goto illegal_op;
9891 addr = load_reg(s, rn);
9892 op = tcg_const_i32(extract32(insn, 6, 2));
9893 ttresp = tcg_temp_new_i32();
9894 gen_helper_v7m_tt(ttresp, cpu_env, addr, op);
9895 tcg_temp_free_i32(addr);
9896 tcg_temp_free_i32(op);
9897 store_reg(s, rd, ttresp);
9898 break;
9900 goto illegal_op;
9902 addr = tcg_temp_local_new_i32();
9903 load_reg_var(s, addr, rn);
9904 tcg_gen_addi_i32(addr, addr, (insn & 0xff) << 2);
9905 if (insn & (1 << 20)) {
9906 gen_load_exclusive(s, rs, 15, addr, 2);
9907 } else {
9908 gen_store_exclusive(s, rd, rs, 15, addr, 2);
9910 tcg_temp_free_i32(addr);
9911 } else if ((insn & (7 << 5)) == 0) {
9912 /* Table Branch. */
9913 addr = load_reg(s, rn);
9914 tmp = load_reg(s, rm);
9915 tcg_gen_add_i32(addr, addr, tmp);
9916 if (insn & (1 << 4)) {
9917 /* tbh */
9918 tcg_gen_add_i32(addr, addr, tmp);
9919 tcg_temp_free_i32(tmp);
9920 tmp = tcg_temp_new_i32();
9921 gen_aa32_ld16u(s, tmp, addr, get_mem_index(s));
9922 } else { /* tbb */
9923 tcg_temp_free_i32(tmp);
9924 tmp = tcg_temp_new_i32();
9925 gen_aa32_ld8u(s, tmp, addr, get_mem_index(s));
9927 tcg_temp_free_i32(addr);
9928 tcg_gen_shli_i32(tmp, tmp, 1);
9929 tcg_gen_addi_i32(tmp, tmp, read_pc(s));
9930 store_reg(s, 15, tmp);
9931 } else {
9932 bool is_lasr = false;
9933 bool is_ld = extract32(insn, 20, 1);
9934 int op2 = (insn >> 6) & 0x3;
9935 op = (insn >> 4) & 0x3;
9936 switch (op2) {
9937 case 0:
9938 goto illegal_op;
9939 case 1:
9940 /* Load/store exclusive byte/halfword/doubleword */
9941 if (op == 2) {
9942 goto illegal_op;
9944 ARCH(7);
9945 break;
9946 case 2:
9947 /* Load-acquire/store-release */
9948 if (op == 3) {
9949 goto illegal_op;
9951 /* Fall through */
9952 case 3:
9953 /* Load-acquire/store-release exclusive */
9954 ARCH(8);
9955 is_lasr = true;
9956 break;
9959 if (is_lasr && !is_ld) {
9960 tcg_gen_mb(TCG_MO_ALL | TCG_BAR_STRL);
9963 addr = tcg_temp_local_new_i32();
9964 load_reg_var(s, addr, rn);
9965 if (!(op2 & 1)) {
9966 if (is_ld) {
9967 tmp = tcg_temp_new_i32();
9968 switch (op) {
9969 case 0: /* ldab */
9970 gen_aa32_ld8u_iss(s, tmp, addr, get_mem_index(s),
9971 rs | ISSIsAcqRel);
9972 break;
9973 case 1: /* ldah */
9974 gen_aa32_ld16u_iss(s, tmp, addr, get_mem_index(s),
9975 rs | ISSIsAcqRel);
9976 break;
9977 case 2: /* lda */
9978 gen_aa32_ld32u_iss(s, tmp, addr, get_mem_index(s),
9979 rs | ISSIsAcqRel);
9980 break;
9981 default:
9982 abort();
9984 store_reg(s, rs, tmp);
9985 } else {
9986 tmp = load_reg(s, rs);
9987 switch (op) {
9988 case 0: /* stlb */
9989 gen_aa32_st8_iss(s, tmp, addr, get_mem_index(s),
9990 rs | ISSIsAcqRel);
9991 break;
9992 case 1: /* stlh */
9993 gen_aa32_st16_iss(s, tmp, addr, get_mem_index(s),
9994 rs | ISSIsAcqRel);
9995 break;
9996 case 2: /* stl */
9997 gen_aa32_st32_iss(s, tmp, addr, get_mem_index(s),
9998 rs | ISSIsAcqRel);
9999 break;
10000 default:
10001 abort();
10003 tcg_temp_free_i32(tmp);
10005 } else if (is_ld) {
10006 gen_load_exclusive(s, rs, rd, addr, op);
10007 } else {
10008 gen_store_exclusive(s, rm, rs, rd, addr, op);
10010 tcg_temp_free_i32(addr);
10012 if (is_lasr && is_ld) {
10013 tcg_gen_mb(TCG_MO_ALL | TCG_BAR_LDAQ);
10016 } else {
10017 /* Load/store multiple, RFE, SRS. */
10018 if (((insn >> 23) & 1) == ((insn >> 24) & 1)) {
10019 /* RFE, SRS: not available in user mode or on M profile */
10020 if (IS_USER(s) || arm_dc_feature(s, ARM_FEATURE_M)) {
10021 goto illegal_op;
10023 if (insn & (1 << 20)) {
10024 /* rfe */
10025 addr = load_reg(s, rn);
10026 if ((insn & (1 << 24)) == 0)
10027 tcg_gen_addi_i32(addr, addr, -8);
10028 /* Load PC into tmp and CPSR into tmp2. */
10029 tmp = tcg_temp_new_i32();
10030 gen_aa32_ld32u(s, tmp, addr, get_mem_index(s));
10031 tcg_gen_addi_i32(addr, addr, 4);
10032 tmp2 = tcg_temp_new_i32();
10033 gen_aa32_ld32u(s, tmp2, addr, get_mem_index(s));
10034 if (insn & (1 << 21)) {
10035 /* Base writeback. */
10036 if (insn & (1 << 24)) {
10037 tcg_gen_addi_i32(addr, addr, 4);
10038 } else {
10039 tcg_gen_addi_i32(addr, addr, -4);
10041 store_reg(s, rn, addr);
10042 } else {
10043 tcg_temp_free_i32(addr);
10045 gen_rfe(s, tmp, tmp2);
10046 } else {
10047 /* srs */
10048 gen_srs(s, (insn & 0x1f), (insn & (1 << 24)) ? 1 : 2,
10049 insn & (1 << 21));
10051 } else {
10052 int i, loaded_base = 0;
10053 TCGv_i32 loaded_var;
10054 bool wback = extract32(insn, 21, 1);
10055 /* Load/store multiple. */
10056 addr = load_reg(s, rn);
10057 offset = 0;
10058 for (i = 0; i < 16; i++) {
10059 if (insn & (1 << i))
10060 offset += 4;
10063 if (insn & (1 << 24)) {
10064 tcg_gen_addi_i32(addr, addr, -offset);
10067 if (s->v8m_stackcheck && rn == 13 && wback) {
10069 * If the writeback is incrementing SP rather than
10070 * decrementing it, and the initial SP is below the
10071 * stack limit but the final written-back SP would
10072 * be above, then then we must not perform any memory
10073 * accesses, but it is IMPDEF whether we generate
10074 * an exception. We choose to do so in this case.
10075 * At this point 'addr' is the lowest address, so
10076 * either the original SP (if incrementing) or our
10077 * final SP (if decrementing), so that's what we check.
10079 gen_helper_v8m_stackcheck(cpu_env, addr);
10082 loaded_var = NULL;
10083 for (i = 0; i < 16; i++) {
10084 if ((insn & (1 << i)) == 0)
10085 continue;
10086 if (insn & (1 << 20)) {
10087 /* Load. */
10088 tmp = tcg_temp_new_i32();
10089 gen_aa32_ld32u(s, tmp, addr, get_mem_index(s));
10090 if (i == rn) {
10091 loaded_var = tmp;
10092 loaded_base = 1;
10093 } else {
10094 store_reg_from_load(s, i, tmp);
10096 } else {
10097 /* Store. */
10098 tmp = load_reg(s, i);
10099 gen_aa32_st32(s, tmp, addr, get_mem_index(s));
10100 tcg_temp_free_i32(tmp);
10102 tcg_gen_addi_i32(addr, addr, 4);
10104 if (loaded_base) {
10105 store_reg(s, rn, loaded_var);
10107 if (wback) {
10108 /* Base register writeback. */
10109 if (insn & (1 << 24)) {
10110 tcg_gen_addi_i32(addr, addr, -offset);
10112 /* Fault if writeback register is in register list. */
10113 if (insn & (1 << rn))
10114 goto illegal_op;
10115 store_reg(s, rn, addr);
10116 } else {
10117 tcg_temp_free_i32(addr);
10121 break;
10122 case 5:
10124 op = (insn >> 21) & 0xf;
10125 if (op == 6) {
10126 if (!arm_dc_feature(s, ARM_FEATURE_THUMB_DSP)) {
10127 goto illegal_op;
10129 /* Halfword pack. */
10130 tmp = load_reg(s, rn);
10131 tmp2 = load_reg(s, rm);
10132 shift = ((insn >> 10) & 0x1c) | ((insn >> 6) & 0x3);
10133 if (insn & (1 << 5)) {
10134 /* pkhtb */
10135 if (shift == 0) {
10136 shift = 31;
10138 tcg_gen_sari_i32(tmp2, tmp2, shift);
10139 tcg_gen_deposit_i32(tmp, tmp, tmp2, 0, 16);
10140 } else {
10141 /* pkhbt */
10142 tcg_gen_shli_i32(tmp2, tmp2, shift);
10143 tcg_gen_deposit_i32(tmp, tmp2, tmp, 0, 16);
10145 tcg_temp_free_i32(tmp2);
10146 store_reg(s, rd, tmp);
10147 } else {
10148 /* Data processing register constant shift. */
10149 /* All done in decodetree. Reach here for illegal ops. */
10150 goto illegal_op;
10152 break;
10153 case 13: /* Misc data processing. */
10154 op = ((insn >> 22) & 6) | ((insn >> 7) & 1);
10155 if (op < 4 && (insn & 0xf000) != 0xf000)
10156 goto illegal_op;
10157 switch (op) {
10158 case 0: /* Register controlled shift, in decodetree */
10159 goto illegal_op;
10160 case 1: /* Sign/zero extend. */
10161 op = (insn >> 20) & 7;
10162 switch (op) {
10163 case 0: /* SXTAH, SXTH */
10164 case 1: /* UXTAH, UXTH */
10165 case 4: /* SXTAB, SXTB */
10166 case 5: /* UXTAB, UXTB */
10167 break;
10168 case 2: /* SXTAB16, SXTB16 */
10169 case 3: /* UXTAB16, UXTB16 */
10170 if (!arm_dc_feature(s, ARM_FEATURE_THUMB_DSP)) {
10171 goto illegal_op;
10173 break;
10174 default:
10175 goto illegal_op;
10177 if (rn != 15) {
10178 if (!arm_dc_feature(s, ARM_FEATURE_THUMB_DSP)) {
10179 goto illegal_op;
10182 tmp = load_reg(s, rm);
10183 shift = (insn >> 4) & 3;
10184 /* ??? In many cases it's not necessary to do a
10185 rotate, a shift is sufficient. */
10186 tcg_gen_rotri_i32(tmp, tmp, shift * 8);
10187 op = (insn >> 20) & 7;
10188 switch (op) {
10189 case 0: gen_sxth(tmp); break;
10190 case 1: gen_uxth(tmp); break;
10191 case 2: gen_sxtb16(tmp); break;
10192 case 3: gen_uxtb16(tmp); break;
10193 case 4: gen_sxtb(tmp); break;
10194 case 5: gen_uxtb(tmp); break;
10195 default:
10196 g_assert_not_reached();
10198 if (rn != 15) {
10199 tmp2 = load_reg(s, rn);
10200 if ((op >> 1) == 1) {
10201 gen_add16(tmp, tmp2);
10202 } else {
10203 tcg_gen_add_i32(tmp, tmp, tmp2);
10204 tcg_temp_free_i32(tmp2);
10207 store_reg(s, rd, tmp);
10208 break;
10209 case 2: /* SIMD add/subtract. */
10210 if (!arm_dc_feature(s, ARM_FEATURE_THUMB_DSP)) {
10211 goto illegal_op;
10213 op = (insn >> 20) & 7;
10214 shift = (insn >> 4) & 7;
10215 if ((op & 3) == 3 || (shift & 3) == 3)
10216 goto illegal_op;
10217 tmp = load_reg(s, rn);
10218 tmp2 = load_reg(s, rm);
10219 gen_thumb2_parallel_addsub(op, shift, tmp, tmp2);
10220 tcg_temp_free_i32(tmp2);
10221 store_reg(s, rd, tmp);
10222 break;
10223 case 3: /* Other data processing. */
10224 op = ((insn >> 17) & 0x38) | ((insn >> 4) & 7);
10225 if (op < 4) {
10226 /* Saturating add/subtract. */
10227 /* All done in decodetree. Reach here for illegal ops. */
10228 goto illegal_op;
10229 } else {
10230 switch (op) {
10231 case 0x0a: /* rbit */
10232 case 0x08: /* rev */
10233 case 0x09: /* rev16 */
10234 case 0x0b: /* revsh */
10235 break;
10236 case 0x10: /* sel */
10237 if (!arm_dc_feature(s, ARM_FEATURE_THUMB_DSP)) {
10238 goto illegal_op;
10240 break;
10241 case 0x18: /* clz, in decodetree */
10242 case 0x20: /* crc32/crc32c, in decodetree */
10243 case 0x21:
10244 case 0x22:
10245 case 0x28:
10246 case 0x29:
10247 case 0x2a:
10248 goto illegal_op;
10249 default:
10250 goto illegal_op;
10252 tmp = load_reg(s, rn);
10253 switch (op) {
10254 case 0x0a: /* rbit */
10255 gen_helper_rbit(tmp, tmp);
10256 break;
10257 case 0x08: /* rev */
10258 tcg_gen_bswap32_i32(tmp, tmp);
10259 break;
10260 case 0x09: /* rev16 */
10261 gen_rev16(tmp);
10262 break;
10263 case 0x0b: /* revsh */
10264 gen_revsh(tmp);
10265 break;
10266 case 0x10: /* sel */
10267 tmp2 = load_reg(s, rm);
10268 tmp3 = tcg_temp_new_i32();
10269 tcg_gen_ld_i32(tmp3, cpu_env, offsetof(CPUARMState, GE));
10270 gen_helper_sel_flags(tmp, tmp3, tmp, tmp2);
10271 tcg_temp_free_i32(tmp3);
10272 tcg_temp_free_i32(tmp2);
10273 break;
10274 default:
10275 g_assert_not_reached();
10278 store_reg(s, rd, tmp);
10279 break;
10280 case 4: case 5: /* 32-bit multiply. Sum of absolute differences. */
10281 switch ((insn >> 20) & 7) {
10282 case 0: /* 32 x 32 -> 32 */
10283 case 1: /* 16 x 16 -> 32 */
10284 case 3: /* 32 * 16 -> 32msb */
10285 /* in decodetree */
10286 goto illegal_op;
10287 case 7: /* Unsigned sum of absolute differences. */
10288 break;
10289 case 2: /* Dual multiply add. */
10290 case 4: /* Dual multiply subtract. */
10291 case 5: case 6: /* 32 * 32 -> 32msb (SMMUL, SMMLA, SMMLS) */
10292 if (!arm_dc_feature(s, ARM_FEATURE_THUMB_DSP)) {
10293 goto illegal_op;
10295 break;
10297 op = (insn >> 4) & 0xf;
10298 tmp = load_reg(s, rn);
10299 tmp2 = load_reg(s, rm);
10300 switch ((insn >> 20) & 7) {
10301 case 2: /* Dual multiply add. */
10302 case 4: /* Dual multiply subtract. */
10303 if (op)
10304 gen_swap_half(tmp2);
10305 gen_smul_dual(tmp, tmp2);
10306 if (insn & (1 << 22)) {
10307 /* This subtraction cannot overflow. */
10308 tcg_gen_sub_i32(tmp, tmp, tmp2);
10309 } else {
10310 /* This addition cannot overflow 32 bits;
10311 * however it may overflow considered as a signed
10312 * operation, in which case we must set the Q flag.
10314 gen_helper_add_setq(tmp, cpu_env, tmp, tmp2);
10316 tcg_temp_free_i32(tmp2);
10317 if (rs != 15)
10319 tmp2 = load_reg(s, rs);
10320 gen_helper_add_setq(tmp, cpu_env, tmp, tmp2);
10321 tcg_temp_free_i32(tmp2);
10323 break;
10324 case 5: case 6: /* 32 * 32 -> 32msb (SMMUL, SMMLA, SMMLS) */
10325 tcg_gen_muls2_i32(tmp2, tmp, tmp, tmp2);
10326 if (rs != 15) {
10327 tmp3 = load_reg(s, rs);
10328 if (insn & (1 << 20)) {
10329 tcg_gen_add_i32(tmp, tmp, tmp3);
10330 } else {
10332 * For SMMLS, we need a 64-bit subtract.
10333 * Borrow caused by a non-zero multiplicand lowpart,
10334 * and the correct result lowpart for rounding.
10336 TCGv_i32 zero = tcg_const_i32(0);
10337 tcg_gen_sub2_i32(tmp2, tmp, zero, tmp3, tmp2, tmp);
10338 tcg_temp_free_i32(zero);
10340 tcg_temp_free_i32(tmp3);
10342 if (insn & (1 << 4)) {
10344 * Adding 0x80000000 to the 64-bit quantity
10345 * means that we have carry in to the high
10346 * word when the low word has the high bit set.
10348 tcg_gen_shri_i32(tmp2, tmp2, 31);
10349 tcg_gen_add_i32(tmp, tmp, tmp2);
10351 tcg_temp_free_i32(tmp2);
10352 break;
10353 case 7: /* Unsigned sum of absolute differences. */
10354 gen_helper_usad8(tmp, tmp, tmp2);
10355 tcg_temp_free_i32(tmp2);
10356 if (rs != 15) {
10357 tmp2 = load_reg(s, rs);
10358 tcg_gen_add_i32(tmp, tmp, tmp2);
10359 tcg_temp_free_i32(tmp2);
10361 break;
10363 store_reg(s, rd, tmp);
10364 break;
10365 case 6: case 7: /* 64-bit multiply, Divide. */
10366 op = ((insn >> 4) & 0xf) | ((insn >> 16) & 0x70);
10367 tmp = load_reg(s, rn);
10368 tmp2 = load_reg(s, rm);
10369 if ((op & 0x50) == 0x10) {
10370 /* sdiv, udiv */
10371 if (!dc_isar_feature(thumb_div, s)) {
10372 goto illegal_op;
10374 if (op & 0x20)
10375 gen_helper_udiv(tmp, tmp, tmp2);
10376 else
10377 gen_helper_sdiv(tmp, tmp, tmp2);
10378 tcg_temp_free_i32(tmp2);
10379 store_reg(s, rd, tmp);
10380 } else if ((op & 0xe) == 0xc) {
10381 /* Dual multiply accumulate long. */
10382 if (!arm_dc_feature(s, ARM_FEATURE_THUMB_DSP)) {
10383 tcg_temp_free_i32(tmp);
10384 tcg_temp_free_i32(tmp2);
10385 goto illegal_op;
10387 if (op & 1)
10388 gen_swap_half(tmp2);
10389 gen_smul_dual(tmp, tmp2);
10390 if (op & 0x10) {
10391 tcg_gen_sub_i32(tmp, tmp, tmp2);
10392 } else {
10393 tcg_gen_add_i32(tmp, tmp, tmp2);
10395 tcg_temp_free_i32(tmp2);
10396 /* BUGFIX */
10397 tmp64 = tcg_temp_new_i64();
10398 tcg_gen_ext_i32_i64(tmp64, tmp);
10399 tcg_temp_free_i32(tmp);
10400 gen_addq(s, tmp64, rs, rd);
10401 gen_storeq_reg(s, rs, rd, tmp64);
10402 tcg_temp_free_i64(tmp64);
10403 } else {
10404 /* Signed/unsigned 64-bit multiply, in decodetree */
10405 tcg_temp_free_i32(tmp2);
10406 tcg_temp_free_i32(tmp);
10407 goto illegal_op;
10409 break;
10411 break;
10412 case 6: case 7: case 14: case 15:
10413 /* Coprocessor. */
10414 if (arm_dc_feature(s, ARM_FEATURE_M)) {
10415 /* 0b111x_11xx_xxxx_xxxx_xxxx_xxxx_xxxx_xxxx */
10416 if (extract32(insn, 24, 2) == 3) {
10417 goto illegal_op; /* op0 = 0b11 : unallocated */
10421 * Decode VLLDM and VLSTM first: these are nonstandard because:
10422 * * if there is no FPU then these insns must NOP in
10423 * Secure state and UNDEF in Nonsecure state
10424 * * if there is an FPU then these insns do not have
10425 * the usual behaviour that disas_vfp_insn() provides of
10426 * being controlled by CPACR/NSACR enable bits or the
10427 * lazy-stacking logic.
10429 if (arm_dc_feature(s, ARM_FEATURE_V8) &&
10430 (insn & 0xffa00f00) == 0xec200a00) {
10431 /* 0b1110_1100_0x1x_xxxx_xxxx_1010_xxxx_xxxx
10432 * - VLLDM, VLSTM
10433 * We choose to UNDEF if the RAZ bits are non-zero.
10435 if (!s->v8m_secure || (insn & 0x0040f0ff)) {
10436 goto illegal_op;
10439 if (arm_dc_feature(s, ARM_FEATURE_VFP)) {
10440 TCGv_i32 fptr = load_reg(s, rn);
10442 if (extract32(insn, 20, 1)) {
10443 gen_helper_v7m_vlldm(cpu_env, fptr);
10444 } else {
10445 gen_helper_v7m_vlstm(cpu_env, fptr);
10447 tcg_temp_free_i32(fptr);
10449 /* End the TB, because we have updated FP control bits */
10450 s->base.is_jmp = DISAS_UPDATE;
10452 break;
10454 if (arm_dc_feature(s, ARM_FEATURE_VFP) &&
10455 ((insn >> 8) & 0xe) == 10) {
10456 /* FP, and the CPU supports it */
10457 if (disas_vfp_insn(s, insn)) {
10458 goto illegal_op;
10460 break;
10463 /* All other insns: NOCP */
10464 gen_exception_insn(s, s->pc_curr, EXCP_NOCP, syn_uncategorized(),
10465 default_exception_el(s));
10466 break;
10468 if ((insn & 0xfe000a00) == 0xfc000800
10469 && arm_dc_feature(s, ARM_FEATURE_V8)) {
10470 /* The Thumb2 and ARM encodings are identical. */
10471 if (disas_neon_insn_3same_ext(s, insn)) {
10472 goto illegal_op;
10474 } else if ((insn & 0xff000a00) == 0xfe000800
10475 && arm_dc_feature(s, ARM_FEATURE_V8)) {
10476 /* The Thumb2 and ARM encodings are identical. */
10477 if (disas_neon_insn_2reg_scalar_ext(s, insn)) {
10478 goto illegal_op;
10480 } else if (((insn >> 24) & 3) == 3) {
10481 /* Translate into the equivalent ARM encoding. */
10482 insn = (insn & 0xe2ffffff) | ((insn & (1 << 28)) >> 4) | (1 << 28);
10483 if (disas_neon_data_insn(s, insn)) {
10484 goto illegal_op;
10486 } else if (((insn >> 8) & 0xe) == 10) {
10487 if (disas_vfp_insn(s, insn)) {
10488 goto illegal_op;
10490 } else {
10491 if (insn & (1 << 28))
10492 goto illegal_op;
10493 if (disas_coproc_insn(s, insn)) {
10494 goto illegal_op;
10497 break;
10498 case 8: case 9: case 10: case 11:
10499 if (insn & (1 << 15)) {
10500 /* Branches, misc control. */
10501 if (insn & 0x5000) {
10502 /* Unconditional branch. */
10503 /* signextend(hw1[10:0]) -> offset[:12]. */
10504 offset = ((int32_t)insn << 5) >> 9 & ~(int32_t)0xfff;
10505 /* hw1[10:0] -> offset[11:1]. */
10506 offset |= (insn & 0x7ff) << 1;
10507 /* (~hw2[13, 11] ^ offset[24]) -> offset[23,22]
10508 offset[24:22] already have the same value because of the
10509 sign extension above. */
10510 offset ^= ((~insn) & (1 << 13)) << 10;
10511 offset ^= ((~insn) & (1 << 11)) << 11;
10513 if (insn & (1 << 14)) {
10514 /* Branch and link. */
10515 tcg_gen_movi_i32(cpu_R[14], s->base.pc_next | 1);
10518 offset += read_pc(s);
10519 if (insn & (1 << 12)) {
10520 /* b/bl */
10521 gen_jmp(s, offset);
10522 } else {
10523 /* blx */
10524 offset &= ~(uint32_t)2;
10525 /* thumb2 bx, no need to check */
10526 gen_bx_im(s, offset);
10528 } else if (((insn >> 23) & 7) == 7) {
10529 /* Misc control */
10530 if (insn & (1 << 13))
10531 goto illegal_op;
10533 if (insn & (1 << 26)) {
10534 /* hvc, smc, in decodetree */
10535 goto illegal_op;
10536 } else {
10537 op = (insn >> 20) & 7;
10538 switch (op) {
10539 case 0: /* msr cpsr, in decodetree */
10540 case 1: /* msr spsr, in decodetree */
10541 goto illegal_op;
10542 case 2: /* cps, nop-hint. */
10543 /* nop hints in decodetree */
10544 /* Implemented as NOP in user mode. */
10545 if (IS_USER(s))
10546 break;
10547 offset = 0;
10548 imm = 0;
10549 if (insn & (1 << 10)) {
10550 if (insn & (1 << 7))
10551 offset |= CPSR_A;
10552 if (insn & (1 << 6))
10553 offset |= CPSR_I;
10554 if (insn & (1 << 5))
10555 offset |= CPSR_F;
10556 if (insn & (1 << 9))
10557 imm = CPSR_A | CPSR_I | CPSR_F;
10559 if (insn & (1 << 8)) {
10560 offset |= 0x1f;
10561 imm |= (insn & 0x1f);
10563 if (offset) {
10564 gen_set_psr_im(s, offset, 0, imm);
10566 break;
10567 case 3: /* Special control operations. */
10568 if (!arm_dc_feature(s, ARM_FEATURE_V7) &&
10569 !arm_dc_feature(s, ARM_FEATURE_M)) {
10570 goto illegal_op;
10572 op = (insn >> 4) & 0xf;
10573 switch (op) {
10574 case 2: /* clrex */
10575 gen_clrex(s);
10576 break;
10577 case 4: /* dsb */
10578 case 5: /* dmb */
10579 tcg_gen_mb(TCG_MO_ALL | TCG_BAR_SC);
10580 break;
10581 case 6: /* isb */
10582 /* We need to break the TB after this insn
10583 * to execute self-modifying code correctly
10584 * and also to take any pending interrupts
10585 * immediately.
10587 gen_goto_tb(s, 0, s->base.pc_next);
10588 break;
10589 case 7: /* sb */
10590 if ((insn & 0xf) || !dc_isar_feature(aa32_sb, s)) {
10591 goto illegal_op;
10594 * TODO: There is no speculation barrier opcode
10595 * for TCG; MB and end the TB instead.
10597 tcg_gen_mb(TCG_MO_ALL | TCG_BAR_SC);
10598 gen_goto_tb(s, 0, s->base.pc_next);
10599 break;
10600 default:
10601 goto illegal_op;
10603 break;
10604 case 4: /* bxj, in decodetree */
10605 goto illegal_op;
10606 case 5: /* Exception return. */
10607 case 6: /* MRS, in decodetree */
10608 case 7: /* MSR, in decodetree */
10609 goto illegal_op;
10612 } else {
10613 /* Conditional branch. */
10614 op = (insn >> 22) & 0xf;
10615 /* Generate a conditional jump to next instruction. */
10616 arm_skip_unless(s, op);
10618 /* offset[11:1] = insn[10:0] */
10619 offset = (insn & 0x7ff) << 1;
10620 /* offset[17:12] = insn[21:16]. */
10621 offset |= (insn & 0x003f0000) >> 4;
10622 /* offset[31:20] = insn[26]. */
10623 offset |= ((int32_t)((insn << 5) & 0x80000000)) >> 11;
10624 /* offset[18] = insn[13]. */
10625 offset |= (insn & (1 << 13)) << 5;
10626 /* offset[19] = insn[11]. */
10627 offset |= (insn & (1 << 11)) << 8;
10629 /* jump to the offset */
10630 gen_jmp(s, read_pc(s) + offset);
10632 } else {
10634 * 0b1111_0xxx_xxxx_0xxx_xxxx_xxxx
10635 * - Data-processing (modified immediate, plain binary immediate)
10637 if (insn & (1 << 25)) {
10639 * 0b1111_0x1x_xxxx_0xxx_xxxx_xxxx
10640 * - Data-processing (plain binary immediate)
10642 if (insn & (1 << 24)) {
10643 if (insn & (1 << 20))
10644 goto illegal_op;
10645 /* Bitfield/Saturate. */
10646 op = (insn >> 21) & 7;
10647 imm = insn & 0x1f;
10648 shift = ((insn >> 6) & 3) | ((insn >> 10) & 0x1c);
10649 if (rn == 15) {
10650 tmp = tcg_temp_new_i32();
10651 tcg_gen_movi_i32(tmp, 0);
10652 } else {
10653 tmp = load_reg(s, rn);
10655 switch (op) {
10656 case 2: /* Signed bitfield extract. */
10657 imm++;
10658 if (shift + imm > 32)
10659 goto illegal_op;
10660 if (imm < 32) {
10661 tcg_gen_sextract_i32(tmp, tmp, shift, imm);
10663 break;
10664 case 6: /* Unsigned bitfield extract. */
10665 imm++;
10666 if (shift + imm > 32)
10667 goto illegal_op;
10668 if (imm < 32) {
10669 tcg_gen_extract_i32(tmp, tmp, shift, imm);
10671 break;
10672 case 3: /* Bitfield insert/clear. */
10673 if (imm < shift)
10674 goto illegal_op;
10675 imm = imm + 1 - shift;
10676 if (imm != 32) {
10677 tmp2 = load_reg(s, rd);
10678 tcg_gen_deposit_i32(tmp, tmp2, tmp, shift, imm);
10679 tcg_temp_free_i32(tmp2);
10681 break;
10682 case 7:
10683 goto illegal_op;
10684 default: /* Saturate. */
10685 if (op & 1) {
10686 tcg_gen_sari_i32(tmp, tmp, shift);
10687 } else {
10688 tcg_gen_shli_i32(tmp, tmp, shift);
10690 tmp2 = tcg_const_i32(imm);
10691 if (op & 4) {
10692 /* Unsigned. */
10693 if ((op & 1) && shift == 0) {
10694 if (!arm_dc_feature(s, ARM_FEATURE_THUMB_DSP)) {
10695 tcg_temp_free_i32(tmp);
10696 tcg_temp_free_i32(tmp2);
10697 goto illegal_op;
10699 gen_helper_usat16(tmp, cpu_env, tmp, tmp2);
10700 } else {
10701 gen_helper_usat(tmp, cpu_env, tmp, tmp2);
10703 } else {
10704 /* Signed. */
10705 if ((op & 1) && shift == 0) {
10706 if (!arm_dc_feature(s, ARM_FEATURE_THUMB_DSP)) {
10707 tcg_temp_free_i32(tmp);
10708 tcg_temp_free_i32(tmp2);
10709 goto illegal_op;
10711 gen_helper_ssat16(tmp, cpu_env, tmp, tmp2);
10712 } else {
10713 gen_helper_ssat(tmp, cpu_env, tmp, tmp2);
10716 tcg_temp_free_i32(tmp2);
10717 break;
10719 store_reg(s, rd, tmp);
10720 } else {
10721 imm = ((insn & 0x04000000) >> 15)
10722 | ((insn & 0x7000) >> 4) | (insn & 0xff);
10723 if (insn & (1 << 22)) {
10724 /* 16-bit immediate. */
10725 imm |= (insn >> 4) & 0xf000;
10726 if (insn & (1 << 23)) {
10727 /* movt */
10728 tmp = load_reg(s, rd);
10729 tcg_gen_ext16u_i32(tmp, tmp);
10730 tcg_gen_ori_i32(tmp, tmp, imm << 16);
10731 } else {
10732 /* movw */
10733 tmp = tcg_temp_new_i32();
10734 tcg_gen_movi_i32(tmp, imm);
10736 store_reg(s, rd, tmp);
10737 } else {
10738 /* Add/sub 12-bit immediate, in decodetree */
10739 goto illegal_op;
10742 } else {
10743 /* Data-processing (modified immediate) */
10744 /* All done in decodetree. Reach here for illegal ops. */
10745 goto illegal_op;
10748 break;
10749 case 12: /* Load/store single data item. */
10751 int postinc = 0;
10752 int writeback = 0;
10753 int memidx;
10754 ISSInfo issinfo;
10756 if ((insn & 0x01100000) == 0x01000000) {
10757 if (disas_neon_ls_insn(s, insn)) {
10758 goto illegal_op;
10760 break;
10762 op = ((insn >> 21) & 3) | ((insn >> 22) & 4);
10763 if (rs == 15) {
10764 if (!(insn & (1 << 20))) {
10765 goto illegal_op;
10767 if (op != 2) {
10768 /* Byte or halfword load space with dest == r15 : memory hints.
10769 * Catch them early so we don't emit pointless addressing code.
10770 * This space is a mix of:
10771 * PLD/PLDW/PLI, which we implement as NOPs (note that unlike
10772 * the ARM encodings, PLDW space doesn't UNDEF for non-v7MP
10773 * cores)
10774 * unallocated hints, which must be treated as NOPs
10775 * UNPREDICTABLE space, which we NOP or UNDEF depending on
10776 * which is easiest for the decoding logic
10777 * Some space which must UNDEF
10779 int op1 = (insn >> 23) & 3;
10780 int op2 = (insn >> 6) & 0x3f;
10781 if (op & 2) {
10782 goto illegal_op;
10784 if (rn == 15) {
10785 /* UNPREDICTABLE, unallocated hint or
10786 * PLD/PLDW/PLI (literal)
10788 return;
10790 if (op1 & 1) {
10791 return; /* PLD/PLDW/PLI or unallocated hint */
10793 if ((op2 == 0) || ((op2 & 0x3c) == 0x30)) {
10794 return; /* PLD/PLDW/PLI or unallocated hint */
10796 /* UNDEF space, or an UNPREDICTABLE */
10797 goto illegal_op;
10800 memidx = get_mem_index(s);
10801 imm = insn & 0xfff;
10802 if (insn & (1 << 23)) {
10803 /* PC relative or Positive offset. */
10804 addr = add_reg_for_lit(s, rn, imm);
10805 } else if (rn == 15) {
10806 /* PC relative with negative offset. */
10807 addr = add_reg_for_lit(s, rn, -imm);
10808 } else {
10809 addr = load_reg(s, rn);
10810 imm = insn & 0xff;
10811 switch ((insn >> 8) & 0xf) {
10812 case 0x0: /* Shifted Register. */
10813 shift = (insn >> 4) & 0xf;
10814 if (shift > 3) {
10815 tcg_temp_free_i32(addr);
10816 goto illegal_op;
10818 tmp = load_reg(s, rm);
10819 tcg_gen_shli_i32(tmp, tmp, shift);
10820 tcg_gen_add_i32(addr, addr, tmp);
10821 tcg_temp_free_i32(tmp);
10822 break;
10823 case 0xc: /* Negative offset. */
10824 tcg_gen_addi_i32(addr, addr, -imm);
10825 break;
10826 case 0xe: /* User privilege. */
10827 tcg_gen_addi_i32(addr, addr, imm);
10828 memidx = get_a32_user_mem_index(s);
10829 break;
10830 case 0x9: /* Post-decrement. */
10831 imm = -imm;
10832 /* Fall through. */
10833 case 0xb: /* Post-increment. */
10834 postinc = 1;
10835 writeback = 1;
10836 break;
10837 case 0xd: /* Pre-decrement. */
10838 imm = -imm;
10839 /* Fall through. */
10840 case 0xf: /* Pre-increment. */
10841 writeback = 1;
10842 break;
10843 default:
10844 tcg_temp_free_i32(addr);
10845 goto illegal_op;
10849 issinfo = writeback ? ISSInvalid : rs;
10851 if (s->v8m_stackcheck && rn == 13 && writeback) {
10853 * Stackcheck. Here we know 'addr' is the current SP;
10854 * if imm is +ve we're moving SP up, else down. It is
10855 * UNKNOWN whether the limit check triggers when SP starts
10856 * below the limit and ends up above it; we chose to do so.
10858 if ((int32_t)imm < 0) {
10859 TCGv_i32 newsp = tcg_temp_new_i32();
10861 tcg_gen_addi_i32(newsp, addr, imm);
10862 gen_helper_v8m_stackcheck(cpu_env, newsp);
10863 tcg_temp_free_i32(newsp);
10864 } else {
10865 gen_helper_v8m_stackcheck(cpu_env, addr);
10869 if (writeback && !postinc) {
10870 tcg_gen_addi_i32(addr, addr, imm);
10873 if (insn & (1 << 20)) {
10874 /* Load. */
10875 tmp = tcg_temp_new_i32();
10876 switch (op) {
10877 case 0:
10878 gen_aa32_ld8u_iss(s, tmp, addr, memidx, issinfo);
10879 break;
10880 case 4:
10881 gen_aa32_ld8s_iss(s, tmp, addr, memidx, issinfo);
10882 break;
10883 case 1:
10884 gen_aa32_ld16u_iss(s, tmp, addr, memidx, issinfo);
10885 break;
10886 case 5:
10887 gen_aa32_ld16s_iss(s, tmp, addr, memidx, issinfo);
10888 break;
10889 case 2:
10890 gen_aa32_ld32u_iss(s, tmp, addr, memidx, issinfo);
10891 break;
10892 default:
10893 tcg_temp_free_i32(tmp);
10894 tcg_temp_free_i32(addr);
10895 goto illegal_op;
10897 store_reg_from_load(s, rs, tmp);
10898 } else {
10899 /* Store. */
10900 tmp = load_reg(s, rs);
10901 switch (op) {
10902 case 0:
10903 gen_aa32_st8_iss(s, tmp, addr, memidx, issinfo);
10904 break;
10905 case 1:
10906 gen_aa32_st16_iss(s, tmp, addr, memidx, issinfo);
10907 break;
10908 case 2:
10909 gen_aa32_st32_iss(s, tmp, addr, memidx, issinfo);
10910 break;
10911 default:
10912 tcg_temp_free_i32(tmp);
10913 tcg_temp_free_i32(addr);
10914 goto illegal_op;
10916 tcg_temp_free_i32(tmp);
10918 if (postinc)
10919 tcg_gen_addi_i32(addr, addr, imm);
10920 if (writeback) {
10921 store_reg(s, rn, addr);
10922 } else {
10923 tcg_temp_free_i32(addr);
10926 break;
10927 default:
10928 goto illegal_op;
10930 return;
10931 illegal_op:
10932 unallocated_encoding(s);
10935 static void disas_thumb_insn(DisasContext *s, uint32_t insn)
10937 uint32_t val, op, rm, rn, rd, shift, cond;
10938 int32_t offset;
10939 int i;
10940 TCGv_i32 tmp;
10941 TCGv_i32 tmp2;
10942 TCGv_i32 addr;
10944 switch (insn >> 12) {
10945 case 0: case 1:
10947 rd = insn & 7;
10948 op = (insn >> 11) & 3;
10949 if (op == 3) {
10951 * 0b0001_1xxx_xxxx_xxxx
10952 * - Add, subtract (three low registers)
10953 * - Add, subtract (two low registers and immediate)
10955 rn = (insn >> 3) & 7;
10956 tmp = load_reg(s, rn);
10957 if (insn & (1 << 10)) {
10958 /* immediate */
10959 tmp2 = tcg_temp_new_i32();
10960 tcg_gen_movi_i32(tmp2, (insn >> 6) & 7);
10961 } else {
10962 /* reg */
10963 rm = (insn >> 6) & 7;
10964 tmp2 = load_reg(s, rm);
10966 if (insn & (1 << 9)) {
10967 if (s->condexec_mask)
10968 tcg_gen_sub_i32(tmp, tmp, tmp2);
10969 else
10970 gen_sub_CC(tmp, tmp, tmp2);
10971 } else {
10972 if (s->condexec_mask)
10973 tcg_gen_add_i32(tmp, tmp, tmp2);
10974 else
10975 gen_add_CC(tmp, tmp, tmp2);
10977 tcg_temp_free_i32(tmp2);
10978 store_reg(s, rd, tmp);
10979 } else {
10980 /* shift immediate */
10981 rm = (insn >> 3) & 7;
10982 shift = (insn >> 6) & 0x1f;
10983 tmp = load_reg(s, rm);
10984 gen_arm_shift_im(tmp, op, shift, s->condexec_mask == 0);
10985 if (!s->condexec_mask)
10986 gen_logic_CC(tmp);
10987 store_reg(s, rd, tmp);
10989 break;
10990 case 2: case 3:
10992 * 0b001x_xxxx_xxxx_xxxx
10993 * - Add, subtract, compare, move (one low register and immediate)
10995 op = (insn >> 11) & 3;
10996 rd = (insn >> 8) & 0x7;
10997 if (op == 0) { /* mov */
10998 tmp = tcg_temp_new_i32();
10999 tcg_gen_movi_i32(tmp, insn & 0xff);
11000 if (!s->condexec_mask)
11001 gen_logic_CC(tmp);
11002 store_reg(s, rd, tmp);
11003 } else {
11004 tmp = load_reg(s, rd);
11005 tmp2 = tcg_temp_new_i32();
11006 tcg_gen_movi_i32(tmp2, insn & 0xff);
11007 switch (op) {
11008 case 1: /* cmp */
11009 gen_sub_CC(tmp, tmp, tmp2);
11010 tcg_temp_free_i32(tmp);
11011 tcg_temp_free_i32(tmp2);
11012 break;
11013 case 2: /* add */
11014 if (s->condexec_mask)
11015 tcg_gen_add_i32(tmp, tmp, tmp2);
11016 else
11017 gen_add_CC(tmp, tmp, tmp2);
11018 tcg_temp_free_i32(tmp2);
11019 store_reg(s, rd, tmp);
11020 break;
11021 case 3: /* sub */
11022 if (s->condexec_mask)
11023 tcg_gen_sub_i32(tmp, tmp, tmp2);
11024 else
11025 gen_sub_CC(tmp, tmp, tmp2);
11026 tcg_temp_free_i32(tmp2);
11027 store_reg(s, rd, tmp);
11028 break;
11031 break;
11032 case 4:
11033 if (insn & (1 << 11)) {
11034 rd = (insn >> 8) & 7;
11035 /* load pc-relative. Bit 1 of PC is ignored. */
11036 addr = add_reg_for_lit(s, 15, (insn & 0xff) * 4);
11037 tmp = tcg_temp_new_i32();
11038 gen_aa32_ld32u_iss(s, tmp, addr, get_mem_index(s),
11039 rd | ISSIs16Bit);
11040 tcg_temp_free_i32(addr);
11041 store_reg(s, rd, tmp);
11042 break;
11044 if (insn & (1 << 10)) {
11045 /* 0b0100_01xx_xxxx_xxxx
11046 * - data processing extended, branch and exchange
11048 rd = (insn & 7) | ((insn >> 4) & 8);
11049 rm = (insn >> 3) & 0xf;
11050 op = (insn >> 8) & 3;
11051 switch (op) {
11052 case 0: /* add */
11053 tmp = load_reg(s, rd);
11054 tmp2 = load_reg(s, rm);
11055 tcg_gen_add_i32(tmp, tmp, tmp2);
11056 tcg_temp_free_i32(tmp2);
11057 if (rd == 13) {
11058 /* ADD SP, SP, reg */
11059 store_sp_checked(s, tmp);
11060 } else {
11061 store_reg(s, rd, tmp);
11063 break;
11064 case 1: /* cmp */
11065 tmp = load_reg(s, rd);
11066 tmp2 = load_reg(s, rm);
11067 gen_sub_CC(tmp, tmp, tmp2);
11068 tcg_temp_free_i32(tmp2);
11069 tcg_temp_free_i32(tmp);
11070 break;
11071 case 2: /* mov/cpy */
11072 tmp = load_reg(s, rm);
11073 if (rd == 13) {
11074 /* MOV SP, reg */
11075 store_sp_checked(s, tmp);
11076 } else {
11077 store_reg(s, rd, tmp);
11079 break;
11080 case 3:
11082 /* 0b0100_0111_xxxx_xxxx
11083 * - branch [and link] exchange thumb register
11085 bool link = insn & (1 << 7);
11087 if (insn & 3) {
11088 goto undef;
11090 if (link) {
11091 ARCH(5);
11093 if ((insn & 4)) {
11094 /* BXNS/BLXNS: only exists for v8M with the
11095 * security extensions, and always UNDEF if NonSecure.
11096 * We don't implement these in the user-only mode
11097 * either (in theory you can use them from Secure User
11098 * mode but they are too tied in to system emulation.)
11100 if (!s->v8m_secure || IS_USER_ONLY) {
11101 goto undef;
11103 if (link) {
11104 gen_blxns(s, rm);
11105 } else {
11106 gen_bxns(s, rm);
11108 break;
11110 /* BLX/BX */
11111 tmp = load_reg(s, rm);
11112 if (link) {
11113 val = (uint32_t)s->base.pc_next | 1;
11114 tmp2 = tcg_temp_new_i32();
11115 tcg_gen_movi_i32(tmp2, val);
11116 store_reg(s, 14, tmp2);
11117 gen_bx(s, tmp);
11118 } else {
11119 /* Only BX works as exception-return, not BLX */
11120 gen_bx_excret(s, tmp);
11122 break;
11125 break;
11129 * 0b0100_00xx_xxxx_xxxx
11130 * - Data-processing (two low registers)
11132 rd = insn & 7;
11133 rm = (insn >> 3) & 7;
11134 op = (insn >> 6) & 0xf;
11135 if (op == 2 || op == 3 || op == 4 || op == 7) {
11136 /* the shift/rotate ops want the operands backwards */
11137 val = rm;
11138 rm = rd;
11139 rd = val;
11140 val = 1;
11141 } else {
11142 val = 0;
11145 if (op == 9) { /* neg */
11146 tmp = tcg_temp_new_i32();
11147 tcg_gen_movi_i32(tmp, 0);
11148 } else if (op != 0xf) { /* mvn doesn't read its first operand */
11149 tmp = load_reg(s, rd);
11150 } else {
11151 tmp = NULL;
11154 tmp2 = load_reg(s, rm);
11155 switch (op) {
11156 case 0x0: /* and */
11157 tcg_gen_and_i32(tmp, tmp, tmp2);
11158 if (!s->condexec_mask)
11159 gen_logic_CC(tmp);
11160 break;
11161 case 0x1: /* eor */
11162 tcg_gen_xor_i32(tmp, tmp, tmp2);
11163 if (!s->condexec_mask)
11164 gen_logic_CC(tmp);
11165 break;
11166 case 0x2: /* lsl */
11167 if (s->condexec_mask) {
11168 gen_shl(tmp2, tmp2, tmp);
11169 } else {
11170 gen_helper_shl_cc(tmp2, cpu_env, tmp2, tmp);
11171 gen_logic_CC(tmp2);
11173 break;
11174 case 0x3: /* lsr */
11175 if (s->condexec_mask) {
11176 gen_shr(tmp2, tmp2, tmp);
11177 } else {
11178 gen_helper_shr_cc(tmp2, cpu_env, tmp2, tmp);
11179 gen_logic_CC(tmp2);
11181 break;
11182 case 0x4: /* asr */
11183 if (s->condexec_mask) {
11184 gen_sar(tmp2, tmp2, tmp);
11185 } else {
11186 gen_helper_sar_cc(tmp2, cpu_env, tmp2, tmp);
11187 gen_logic_CC(tmp2);
11189 break;
11190 case 0x5: /* adc */
11191 if (s->condexec_mask) {
11192 gen_adc(tmp, tmp2);
11193 } else {
11194 gen_adc_CC(tmp, tmp, tmp2);
11196 break;
11197 case 0x6: /* sbc */
11198 if (s->condexec_mask) {
11199 gen_sub_carry(tmp, tmp, tmp2);
11200 } else {
11201 gen_sbc_CC(tmp, tmp, tmp2);
11203 break;
11204 case 0x7: /* ror */
11205 if (s->condexec_mask) {
11206 tcg_gen_andi_i32(tmp, tmp, 0x1f);
11207 tcg_gen_rotr_i32(tmp2, tmp2, tmp);
11208 } else {
11209 gen_helper_ror_cc(tmp2, cpu_env, tmp2, tmp);
11210 gen_logic_CC(tmp2);
11212 break;
11213 case 0x8: /* tst */
11214 tcg_gen_and_i32(tmp, tmp, tmp2);
11215 gen_logic_CC(tmp);
11216 rd = 16;
11217 break;
11218 case 0x9: /* neg */
11219 if (s->condexec_mask)
11220 tcg_gen_neg_i32(tmp, tmp2);
11221 else
11222 gen_sub_CC(tmp, tmp, tmp2);
11223 break;
11224 case 0xa: /* cmp */
11225 gen_sub_CC(tmp, tmp, tmp2);
11226 rd = 16;
11227 break;
11228 case 0xb: /* cmn */
11229 gen_add_CC(tmp, tmp, tmp2);
11230 rd = 16;
11231 break;
11232 case 0xc: /* orr */
11233 tcg_gen_or_i32(tmp, tmp, tmp2);
11234 if (!s->condexec_mask)
11235 gen_logic_CC(tmp);
11236 break;
11237 case 0xd: /* mul */
11238 tcg_gen_mul_i32(tmp, tmp, tmp2);
11239 if (!s->condexec_mask)
11240 gen_logic_CC(tmp);
11241 break;
11242 case 0xe: /* bic */
11243 tcg_gen_andc_i32(tmp, tmp, tmp2);
11244 if (!s->condexec_mask)
11245 gen_logic_CC(tmp);
11246 break;
11247 case 0xf: /* mvn */
11248 tcg_gen_not_i32(tmp2, tmp2);
11249 if (!s->condexec_mask)
11250 gen_logic_CC(tmp2);
11251 val = 1;
11252 rm = rd;
11253 break;
11255 if (rd != 16) {
11256 if (val) {
11257 store_reg(s, rm, tmp2);
11258 if (op != 0xf)
11259 tcg_temp_free_i32(tmp);
11260 } else {
11261 store_reg(s, rd, tmp);
11262 tcg_temp_free_i32(tmp2);
11264 } else {
11265 tcg_temp_free_i32(tmp);
11266 tcg_temp_free_i32(tmp2);
11268 break;
11270 case 5:
11271 /* load/store register offset. */
11272 rd = insn & 7;
11273 rn = (insn >> 3) & 7;
11274 rm = (insn >> 6) & 7;
11275 op = (insn >> 9) & 7;
11276 addr = load_reg(s, rn);
11277 tmp = load_reg(s, rm);
11278 tcg_gen_add_i32(addr, addr, tmp);
11279 tcg_temp_free_i32(tmp);
11281 if (op < 3) { /* store */
11282 tmp = load_reg(s, rd);
11283 } else {
11284 tmp = tcg_temp_new_i32();
11287 switch (op) {
11288 case 0: /* str */
11289 gen_aa32_st32_iss(s, tmp, addr, get_mem_index(s), rd | ISSIs16Bit);
11290 break;
11291 case 1: /* strh */
11292 gen_aa32_st16_iss(s, tmp, addr, get_mem_index(s), rd | ISSIs16Bit);
11293 break;
11294 case 2: /* strb */
11295 gen_aa32_st8_iss(s, tmp, addr, get_mem_index(s), rd | ISSIs16Bit);
11296 break;
11297 case 3: /* ldrsb */
11298 gen_aa32_ld8s_iss(s, tmp, addr, get_mem_index(s), rd | ISSIs16Bit);
11299 break;
11300 case 4: /* ldr */
11301 gen_aa32_ld32u_iss(s, tmp, addr, get_mem_index(s), rd | ISSIs16Bit);
11302 break;
11303 case 5: /* ldrh */
11304 gen_aa32_ld16u_iss(s, tmp, addr, get_mem_index(s), rd | ISSIs16Bit);
11305 break;
11306 case 6: /* ldrb */
11307 gen_aa32_ld8u_iss(s, tmp, addr, get_mem_index(s), rd | ISSIs16Bit);
11308 break;
11309 case 7: /* ldrsh */
11310 gen_aa32_ld16s_iss(s, tmp, addr, get_mem_index(s), rd | ISSIs16Bit);
11311 break;
11313 if (op >= 3) { /* load */
11314 store_reg(s, rd, tmp);
11315 } else {
11316 tcg_temp_free_i32(tmp);
11318 tcg_temp_free_i32(addr);
11319 break;
11321 case 6:
11322 /* load/store word immediate offset */
11323 rd = insn & 7;
11324 rn = (insn >> 3) & 7;
11325 addr = load_reg(s, rn);
11326 val = (insn >> 4) & 0x7c;
11327 tcg_gen_addi_i32(addr, addr, val);
11329 if (insn & (1 << 11)) {
11330 /* load */
11331 tmp = tcg_temp_new_i32();
11332 gen_aa32_ld32u(s, tmp, addr, get_mem_index(s));
11333 store_reg(s, rd, tmp);
11334 } else {
11335 /* store */
11336 tmp = load_reg(s, rd);
11337 gen_aa32_st32(s, tmp, addr, get_mem_index(s));
11338 tcg_temp_free_i32(tmp);
11340 tcg_temp_free_i32(addr);
11341 break;
11343 case 7:
11344 /* load/store byte immediate offset */
11345 rd = insn & 7;
11346 rn = (insn >> 3) & 7;
11347 addr = load_reg(s, rn);
11348 val = (insn >> 6) & 0x1f;
11349 tcg_gen_addi_i32(addr, addr, val);
11351 if (insn & (1 << 11)) {
11352 /* load */
11353 tmp = tcg_temp_new_i32();
11354 gen_aa32_ld8u_iss(s, tmp, addr, get_mem_index(s), rd | ISSIs16Bit);
11355 store_reg(s, rd, tmp);
11356 } else {
11357 /* store */
11358 tmp = load_reg(s, rd);
11359 gen_aa32_st8_iss(s, tmp, addr, get_mem_index(s), rd | ISSIs16Bit);
11360 tcg_temp_free_i32(tmp);
11362 tcg_temp_free_i32(addr);
11363 break;
11365 case 8:
11366 /* load/store halfword immediate offset */
11367 rd = insn & 7;
11368 rn = (insn >> 3) & 7;
11369 addr = load_reg(s, rn);
11370 val = (insn >> 5) & 0x3e;
11371 tcg_gen_addi_i32(addr, addr, val);
11373 if (insn & (1 << 11)) {
11374 /* load */
11375 tmp = tcg_temp_new_i32();
11376 gen_aa32_ld16u_iss(s, tmp, addr, get_mem_index(s), rd | ISSIs16Bit);
11377 store_reg(s, rd, tmp);
11378 } else {
11379 /* store */
11380 tmp = load_reg(s, rd);
11381 gen_aa32_st16_iss(s, tmp, addr, get_mem_index(s), rd | ISSIs16Bit);
11382 tcg_temp_free_i32(tmp);
11384 tcg_temp_free_i32(addr);
11385 break;
11387 case 9:
11388 /* load/store from stack */
11389 rd = (insn >> 8) & 7;
11390 addr = load_reg(s, 13);
11391 val = (insn & 0xff) * 4;
11392 tcg_gen_addi_i32(addr, addr, val);
11394 if (insn & (1 << 11)) {
11395 /* load */
11396 tmp = tcg_temp_new_i32();
11397 gen_aa32_ld32u_iss(s, tmp, addr, get_mem_index(s), rd | ISSIs16Bit);
11398 store_reg(s, rd, tmp);
11399 } else {
11400 /* store */
11401 tmp = load_reg(s, rd);
11402 gen_aa32_st32_iss(s, tmp, addr, get_mem_index(s), rd | ISSIs16Bit);
11403 tcg_temp_free_i32(tmp);
11405 tcg_temp_free_i32(addr);
11406 break;
11408 case 10:
11410 * 0b1010_xxxx_xxxx_xxxx
11411 * - Add PC/SP (immediate)
11413 rd = (insn >> 8) & 7;
11414 val = (insn & 0xff) * 4;
11415 tmp = add_reg_for_lit(s, insn & (1 << 11) ? 13 : 15, val);
11416 store_reg(s, rd, tmp);
11417 break;
11419 case 11:
11420 /* misc */
11421 op = (insn >> 8) & 0xf;
11422 switch (op) {
11423 case 0:
11425 * 0b1011_0000_xxxx_xxxx
11426 * - ADD (SP plus immediate)
11427 * - SUB (SP minus immediate)
11429 tmp = load_reg(s, 13);
11430 val = (insn & 0x7f) * 4;
11431 if (insn & (1 << 7))
11432 val = -(int32_t)val;
11433 tcg_gen_addi_i32(tmp, tmp, val);
11434 store_sp_checked(s, tmp);
11435 break;
11437 case 2: /* sign/zero extend. */
11438 ARCH(6);
11439 rd = insn & 7;
11440 rm = (insn >> 3) & 7;
11441 tmp = load_reg(s, rm);
11442 switch ((insn >> 6) & 3) {
11443 case 0: gen_sxth(tmp); break;
11444 case 1: gen_sxtb(tmp); break;
11445 case 2: gen_uxth(tmp); break;
11446 case 3: gen_uxtb(tmp); break;
11448 store_reg(s, rd, tmp);
11449 break;
11450 case 4: case 5: case 0xc: case 0xd:
11452 * 0b1011_x10x_xxxx_xxxx
11453 * - push/pop
11455 addr = load_reg(s, 13);
11456 if (insn & (1 << 8))
11457 offset = 4;
11458 else
11459 offset = 0;
11460 for (i = 0; i < 8; i++) {
11461 if (insn & (1 << i))
11462 offset += 4;
11464 if ((insn & (1 << 11)) == 0) {
11465 tcg_gen_addi_i32(addr, addr, -offset);
11468 if (s->v8m_stackcheck) {
11470 * Here 'addr' is the lower of "old SP" and "new SP";
11471 * if this is a pop that starts below the limit and ends
11472 * above it, it is UNKNOWN whether the limit check triggers;
11473 * we choose to trigger.
11475 gen_helper_v8m_stackcheck(cpu_env, addr);
11478 for (i = 0; i < 8; i++) {
11479 if (insn & (1 << i)) {
11480 if (insn & (1 << 11)) {
11481 /* pop */
11482 tmp = tcg_temp_new_i32();
11483 gen_aa32_ld32u(s, tmp, addr, get_mem_index(s));
11484 store_reg(s, i, tmp);
11485 } else {
11486 /* push */
11487 tmp = load_reg(s, i);
11488 gen_aa32_st32(s, tmp, addr, get_mem_index(s));
11489 tcg_temp_free_i32(tmp);
11491 /* advance to the next address. */
11492 tcg_gen_addi_i32(addr, addr, 4);
11495 tmp = NULL;
11496 if (insn & (1 << 8)) {
11497 if (insn & (1 << 11)) {
11498 /* pop pc */
11499 tmp = tcg_temp_new_i32();
11500 gen_aa32_ld32u(s, tmp, addr, get_mem_index(s));
11501 /* don't set the pc until the rest of the instruction
11502 has completed */
11503 } else {
11504 /* push lr */
11505 tmp = load_reg(s, 14);
11506 gen_aa32_st32(s, tmp, addr, get_mem_index(s));
11507 tcg_temp_free_i32(tmp);
11509 tcg_gen_addi_i32(addr, addr, 4);
11511 if ((insn & (1 << 11)) == 0) {
11512 tcg_gen_addi_i32(addr, addr, -offset);
11514 /* write back the new stack pointer */
11515 store_reg(s, 13, addr);
11516 /* set the new PC value */
11517 if ((insn & 0x0900) == 0x0900) {
11518 store_reg_from_load(s, 15, tmp);
11520 break;
11522 case 1: case 3: case 9: case 11: /* czb */
11523 rm = insn & 7;
11524 tmp = load_reg(s, rm);
11525 arm_gen_condlabel(s);
11526 if (insn & (1 << 11))
11527 tcg_gen_brcondi_i32(TCG_COND_EQ, tmp, 0, s->condlabel);
11528 else
11529 tcg_gen_brcondi_i32(TCG_COND_NE, tmp, 0, s->condlabel);
11530 tcg_temp_free_i32(tmp);
11531 offset = ((insn & 0xf8) >> 2) | (insn & 0x200) >> 3;
11532 gen_jmp(s, read_pc(s) + offset);
11533 break;
11535 case 15: /* IT, nop-hint. */
11536 if ((insn & 0xf) == 0) {
11537 gen_nop_hint(s, (insn >> 4) & 0xf);
11538 break;
11541 * IT (If-Then)
11543 * Combinations of firstcond and mask which set up an 0b1111
11544 * condition are UNPREDICTABLE; we take the CONSTRAINED
11545 * UNPREDICTABLE choice to treat 0b1111 the same as 0b1110,
11546 * i.e. both meaning "execute always".
11548 s->condexec_cond = (insn >> 4) & 0xe;
11549 s->condexec_mask = insn & 0x1f;
11550 /* No actual code generated for this insn, just setup state. */
11551 break;
11553 case 0xe: /* bkpt */
11555 int imm8 = extract32(insn, 0, 8);
11556 ARCH(5);
11557 gen_exception_bkpt_insn(s, syn_aa32_bkpt(imm8, true));
11558 break;
11561 case 0xa: /* rev, and hlt */
11563 int op1 = extract32(insn, 6, 2);
11565 if (op1 == 2) {
11566 /* HLT */
11567 int imm6 = extract32(insn, 0, 6);
11569 gen_hlt(s, imm6);
11570 break;
11573 /* Otherwise this is rev */
11574 ARCH(6);
11575 rn = (insn >> 3) & 0x7;
11576 rd = insn & 0x7;
11577 tmp = load_reg(s, rn);
11578 switch (op1) {
11579 case 0: tcg_gen_bswap32_i32(tmp, tmp); break;
11580 case 1: gen_rev16(tmp); break;
11581 case 3: gen_revsh(tmp); break;
11582 default:
11583 g_assert_not_reached();
11585 store_reg(s, rd, tmp);
11586 break;
11589 case 6:
11590 switch ((insn >> 5) & 7) {
11591 case 2:
11592 /* setend */
11593 ARCH(6);
11594 if (((insn >> 3) & 1) != !!(s->be_data == MO_BE)) {
11595 gen_helper_setend(cpu_env);
11596 s->base.is_jmp = DISAS_UPDATE;
11598 break;
11599 case 3:
11600 /* cps */
11601 ARCH(6);
11602 if (IS_USER(s)) {
11603 break;
11605 if (arm_dc_feature(s, ARM_FEATURE_M)) {
11606 tmp = tcg_const_i32((insn & (1 << 4)) != 0);
11607 /* FAULTMASK */
11608 if (insn & 1) {
11609 addr = tcg_const_i32(19);
11610 gen_helper_v7m_msr(cpu_env, addr, tmp);
11611 tcg_temp_free_i32(addr);
11613 /* PRIMASK */
11614 if (insn & 2) {
11615 addr = tcg_const_i32(16);
11616 gen_helper_v7m_msr(cpu_env, addr, tmp);
11617 tcg_temp_free_i32(addr);
11619 tcg_temp_free_i32(tmp);
11620 gen_lookup_tb(s);
11621 } else {
11622 if (insn & (1 << 4)) {
11623 shift = CPSR_A | CPSR_I | CPSR_F;
11624 } else {
11625 shift = 0;
11627 gen_set_psr_im(s, ((insn & 7) << 6), 0, shift);
11629 break;
11630 default:
11631 goto undef;
11633 break;
11635 default:
11636 goto undef;
11638 break;
11640 case 12:
11642 /* load/store multiple */
11643 TCGv_i32 loaded_var = NULL;
11644 rn = (insn >> 8) & 0x7;
11645 addr = load_reg(s, rn);
11646 for (i = 0; i < 8; i++) {
11647 if (insn & (1 << i)) {
11648 if (insn & (1 << 11)) {
11649 /* load */
11650 tmp = tcg_temp_new_i32();
11651 gen_aa32_ld32u(s, tmp, addr, get_mem_index(s));
11652 if (i == rn) {
11653 loaded_var = tmp;
11654 } else {
11655 store_reg(s, i, tmp);
11657 } else {
11658 /* store */
11659 tmp = load_reg(s, i);
11660 gen_aa32_st32(s, tmp, addr, get_mem_index(s));
11661 tcg_temp_free_i32(tmp);
11663 /* advance to the next address */
11664 tcg_gen_addi_i32(addr, addr, 4);
11667 if ((insn & (1 << rn)) == 0) {
11668 /* base reg not in list: base register writeback */
11669 store_reg(s, rn, addr);
11670 } else {
11671 /* base reg in list: if load, complete it now */
11672 if (insn & (1 << 11)) {
11673 store_reg(s, rn, loaded_var);
11675 tcg_temp_free_i32(addr);
11677 break;
11679 case 13:
11680 /* conditional branch or swi */
11681 cond = (insn >> 8) & 0xf;
11682 if (cond == 0xe)
11683 goto undef;
11685 if (cond == 0xf) {
11686 /* swi */
11687 gen_set_pc_im(s, s->base.pc_next);
11688 s->svc_imm = extract32(insn, 0, 8);
11689 s->base.is_jmp = DISAS_SWI;
11690 break;
11692 /* generate a conditional jump to next instruction */
11693 arm_skip_unless(s, cond);
11695 /* jump to the offset */
11696 val = read_pc(s);
11697 offset = ((int32_t)insn << 24) >> 24;
11698 val += offset << 1;
11699 gen_jmp(s, val);
11700 break;
11702 case 14:
11703 if (insn & (1 << 11)) {
11704 /* thumb_insn_is_16bit() ensures we can't get here for
11705 * a Thumb2 CPU, so this must be a thumb1 split BL/BLX:
11706 * 0b1110_1xxx_xxxx_xxxx : BLX suffix (or UNDEF)
11708 assert(!arm_dc_feature(s, ARM_FEATURE_THUMB2));
11709 ARCH(5);
11710 offset = ((insn & 0x7ff) << 1);
11711 tmp = load_reg(s, 14);
11712 tcg_gen_addi_i32(tmp, tmp, offset);
11713 tcg_gen_andi_i32(tmp, tmp, 0xfffffffc);
11715 tmp2 = tcg_temp_new_i32();
11716 tcg_gen_movi_i32(tmp2, s->base.pc_next | 1);
11717 store_reg(s, 14, tmp2);
11718 gen_bx(s, tmp);
11719 break;
11721 /* unconditional branch */
11722 val = read_pc(s);
11723 offset = ((int32_t)insn << 21) >> 21;
11724 val += offset << 1;
11725 gen_jmp(s, val);
11726 break;
11728 case 15:
11729 /* thumb_insn_is_16bit() ensures we can't get here for
11730 * a Thumb2 CPU, so this must be a thumb1 split BL/BLX.
11732 assert(!arm_dc_feature(s, ARM_FEATURE_THUMB2));
11734 if (insn & (1 << 11)) {
11735 /* 0b1111_1xxx_xxxx_xxxx : BL suffix */
11736 offset = ((insn & 0x7ff) << 1) | 1;
11737 tmp = load_reg(s, 14);
11738 tcg_gen_addi_i32(tmp, tmp, offset);
11740 tmp2 = tcg_temp_new_i32();
11741 tcg_gen_movi_i32(tmp2, s->base.pc_next | 1);
11742 store_reg(s, 14, tmp2);
11743 gen_bx(s, tmp);
11744 } else {
11745 /* 0b1111_0xxx_xxxx_xxxx : BL/BLX prefix */
11746 uint32_t uoffset = ((int32_t)insn << 21) >> 9;
11748 tcg_gen_movi_i32(cpu_R[14], read_pc(s) + uoffset);
11750 break;
11752 return;
11753 illegal_op:
11754 undef:
11755 unallocated_encoding(s);
11758 static bool insn_crosses_page(CPUARMState *env, DisasContext *s)
11760 /* Return true if the insn at dc->base.pc_next might cross a page boundary.
11761 * (False positives are OK, false negatives are not.)
11762 * We know this is a Thumb insn, and our caller ensures we are
11763 * only called if dc->base.pc_next is less than 4 bytes from the page
11764 * boundary, so we cross the page if the first 16 bits indicate
11765 * that this is a 32 bit insn.
11767 uint16_t insn = arm_lduw_code(env, s->base.pc_next, s->sctlr_b);
11769 return !thumb_insn_is_16bit(s, s->base.pc_next, insn);
11772 static void arm_tr_init_disas_context(DisasContextBase *dcbase, CPUState *cs)
11774 DisasContext *dc = container_of(dcbase, DisasContext, base);
11775 CPUARMState *env = cs->env_ptr;
11776 ARMCPU *cpu = env_archcpu(env);
11777 uint32_t tb_flags = dc->base.tb->flags;
11778 uint32_t condexec, core_mmu_idx;
11780 dc->isar = &cpu->isar;
11781 dc->condjmp = 0;
11783 dc->aarch64 = 0;
11784 /* If we are coming from secure EL0 in a system with a 32-bit EL3, then
11785 * there is no secure EL1, so we route exceptions to EL3.
11787 dc->secure_routed_to_el3 = arm_feature(env, ARM_FEATURE_EL3) &&
11788 !arm_el_is_aa64(env, 3);
11789 dc->thumb = FIELD_EX32(tb_flags, TBFLAG_A32, THUMB);
11790 dc->sctlr_b = FIELD_EX32(tb_flags, TBFLAG_A32, SCTLR_B);
11791 dc->be_data = FIELD_EX32(tb_flags, TBFLAG_ANY, BE_DATA) ? MO_BE : MO_LE;
11792 condexec = FIELD_EX32(tb_flags, TBFLAG_A32, CONDEXEC);
11793 dc->condexec_mask = (condexec & 0xf) << 1;
11794 dc->condexec_cond = condexec >> 4;
11795 core_mmu_idx = FIELD_EX32(tb_flags, TBFLAG_ANY, MMUIDX);
11796 dc->mmu_idx = core_to_arm_mmu_idx(env, core_mmu_idx);
11797 dc->current_el = arm_mmu_idx_to_el(dc->mmu_idx);
11798 #if !defined(CONFIG_USER_ONLY)
11799 dc->user = (dc->current_el == 0);
11800 #endif
11801 dc->ns = FIELD_EX32(tb_flags, TBFLAG_A32, NS);
11802 dc->fp_excp_el = FIELD_EX32(tb_flags, TBFLAG_ANY, FPEXC_EL);
11803 dc->vfp_enabled = FIELD_EX32(tb_flags, TBFLAG_A32, VFPEN);
11804 dc->vec_len = FIELD_EX32(tb_flags, TBFLAG_A32, VECLEN);
11805 if (arm_feature(env, ARM_FEATURE_XSCALE)) {
11806 dc->c15_cpar = FIELD_EX32(tb_flags, TBFLAG_A32, XSCALE_CPAR);
11807 dc->vec_stride = 0;
11808 } else {
11809 dc->vec_stride = FIELD_EX32(tb_flags, TBFLAG_A32, VECSTRIDE);
11810 dc->c15_cpar = 0;
11812 dc->v7m_handler_mode = FIELD_EX32(tb_flags, TBFLAG_A32, HANDLER);
11813 dc->v8m_secure = arm_feature(env, ARM_FEATURE_M_SECURITY) &&
11814 regime_is_secure(env, dc->mmu_idx);
11815 dc->v8m_stackcheck = FIELD_EX32(tb_flags, TBFLAG_A32, STACKCHECK);
11816 dc->v8m_fpccr_s_wrong = FIELD_EX32(tb_flags, TBFLAG_A32, FPCCR_S_WRONG);
11817 dc->v7m_new_fp_ctxt_needed =
11818 FIELD_EX32(tb_flags, TBFLAG_A32, NEW_FP_CTXT_NEEDED);
11819 dc->v7m_lspact = FIELD_EX32(tb_flags, TBFLAG_A32, LSPACT);
11820 dc->cp_regs = cpu->cp_regs;
11821 dc->features = env->features;
11823 /* Single step state. The code-generation logic here is:
11824 * SS_ACTIVE == 0:
11825 * generate code with no special handling for single-stepping (except
11826 * that anything that can make us go to SS_ACTIVE == 1 must end the TB;
11827 * this happens anyway because those changes are all system register or
11828 * PSTATE writes).
11829 * SS_ACTIVE == 1, PSTATE.SS == 1: (active-not-pending)
11830 * emit code for one insn
11831 * emit code to clear PSTATE.SS
11832 * emit code to generate software step exception for completed step
11833 * end TB (as usual for having generated an exception)
11834 * SS_ACTIVE == 1, PSTATE.SS == 0: (active-pending)
11835 * emit code to generate a software step exception
11836 * end the TB
11838 dc->ss_active = FIELD_EX32(tb_flags, TBFLAG_ANY, SS_ACTIVE);
11839 dc->pstate_ss = FIELD_EX32(tb_flags, TBFLAG_ANY, PSTATE_SS);
11840 dc->is_ldex = false;
11841 if (!arm_feature(env, ARM_FEATURE_M)) {
11842 dc->debug_target_el = FIELD_EX32(tb_flags, TBFLAG_ANY, DEBUG_TARGET_EL);
11845 dc->page_start = dc->base.pc_first & TARGET_PAGE_MASK;
11847 /* If architectural single step active, limit to 1. */
11848 if (is_singlestepping(dc)) {
11849 dc->base.max_insns = 1;
11852 /* ARM is a fixed-length ISA. Bound the number of insns to execute
11853 to those left on the page. */
11854 if (!dc->thumb) {
11855 int bound = -(dc->base.pc_first | TARGET_PAGE_MASK) / 4;
11856 dc->base.max_insns = MIN(dc->base.max_insns, bound);
11859 cpu_V0 = tcg_temp_new_i64();
11860 cpu_V1 = tcg_temp_new_i64();
11861 /* FIXME: cpu_M0 can probably be the same as cpu_V0. */
11862 cpu_M0 = tcg_temp_new_i64();
11865 static void arm_tr_tb_start(DisasContextBase *dcbase, CPUState *cpu)
11867 DisasContext *dc = container_of(dcbase, DisasContext, base);
11869 /* A note on handling of the condexec (IT) bits:
11871 * We want to avoid the overhead of having to write the updated condexec
11872 * bits back to the CPUARMState for every instruction in an IT block. So:
11873 * (1) if the condexec bits are not already zero then we write
11874 * zero back into the CPUARMState now. This avoids complications trying
11875 * to do it at the end of the block. (For example if we don't do this
11876 * it's hard to identify whether we can safely skip writing condexec
11877 * at the end of the TB, which we definitely want to do for the case
11878 * where a TB doesn't do anything with the IT state at all.)
11879 * (2) if we are going to leave the TB then we call gen_set_condexec()
11880 * which will write the correct value into CPUARMState if zero is wrong.
11881 * This is done both for leaving the TB at the end, and for leaving
11882 * it because of an exception we know will happen, which is done in
11883 * gen_exception_insn(). The latter is necessary because we need to
11884 * leave the TB with the PC/IT state just prior to execution of the
11885 * instruction which caused the exception.
11886 * (3) if we leave the TB unexpectedly (eg a data abort on a load)
11887 * then the CPUARMState will be wrong and we need to reset it.
11888 * This is handled in the same way as restoration of the
11889 * PC in these situations; we save the value of the condexec bits
11890 * for each PC via tcg_gen_insn_start(), and restore_state_to_opc()
11891 * then uses this to restore them after an exception.
11893 * Note that there are no instructions which can read the condexec
11894 * bits, and none which can write non-static values to them, so
11895 * we don't need to care about whether CPUARMState is correct in the
11896 * middle of a TB.
11899 /* Reset the conditional execution bits immediately. This avoids
11900 complications trying to do it at the end of the block. */
11901 if (dc->condexec_mask || dc->condexec_cond) {
11902 TCGv_i32 tmp = tcg_temp_new_i32();
11903 tcg_gen_movi_i32(tmp, 0);
11904 store_cpu_field(tmp, condexec_bits);
11908 static void arm_tr_insn_start(DisasContextBase *dcbase, CPUState *cpu)
11910 DisasContext *dc = container_of(dcbase, DisasContext, base);
11912 tcg_gen_insn_start(dc->base.pc_next,
11913 (dc->condexec_cond << 4) | (dc->condexec_mask >> 1),
11915 dc->insn_start = tcg_last_op();
11918 static bool arm_tr_breakpoint_check(DisasContextBase *dcbase, CPUState *cpu,
11919 const CPUBreakpoint *bp)
11921 DisasContext *dc = container_of(dcbase, DisasContext, base);
11923 if (bp->flags & BP_CPU) {
11924 gen_set_condexec(dc);
11925 gen_set_pc_im(dc, dc->base.pc_next);
11926 gen_helper_check_breakpoints(cpu_env);
11927 /* End the TB early; it's likely not going to be executed */
11928 dc->base.is_jmp = DISAS_TOO_MANY;
11929 } else {
11930 gen_exception_internal_insn(dc, dc->base.pc_next, EXCP_DEBUG);
11931 /* The address covered by the breakpoint must be
11932 included in [tb->pc, tb->pc + tb->size) in order
11933 to for it to be properly cleared -- thus we
11934 increment the PC here so that the logic setting
11935 tb->size below does the right thing. */
11936 /* TODO: Advance PC by correct instruction length to
11937 * avoid disassembler error messages */
11938 dc->base.pc_next += 2;
11939 dc->base.is_jmp = DISAS_NORETURN;
11942 return true;
11945 static bool arm_pre_translate_insn(DisasContext *dc)
11947 #ifdef CONFIG_USER_ONLY
11948 /* Intercept jump to the magic kernel page. */
11949 if (dc->base.pc_next >= 0xffff0000) {
11950 /* We always get here via a jump, so know we are not in a
11951 conditional execution block. */
11952 gen_exception_internal(EXCP_KERNEL_TRAP);
11953 dc->base.is_jmp = DISAS_NORETURN;
11954 return true;
11956 #endif
11958 if (dc->ss_active && !dc->pstate_ss) {
11959 /* Singlestep state is Active-pending.
11960 * If we're in this state at the start of a TB then either
11961 * a) we just took an exception to an EL which is being debugged
11962 * and this is the first insn in the exception handler
11963 * b) debug exceptions were masked and we just unmasked them
11964 * without changing EL (eg by clearing PSTATE.D)
11965 * In either case we're going to take a swstep exception in the
11966 * "did not step an insn" case, and so the syndrome ISV and EX
11967 * bits should be zero.
11969 assert(dc->base.num_insns == 1);
11970 gen_swstep_exception(dc, 0, 0);
11971 dc->base.is_jmp = DISAS_NORETURN;
11972 return true;
11975 return false;
11978 static void arm_post_translate_insn(DisasContext *dc)
11980 if (dc->condjmp && !dc->base.is_jmp) {
11981 gen_set_label(dc->condlabel);
11982 dc->condjmp = 0;
11984 translator_loop_temp_check(&dc->base);
11987 static void arm_tr_translate_insn(DisasContextBase *dcbase, CPUState *cpu)
11989 DisasContext *dc = container_of(dcbase, DisasContext, base);
11990 CPUARMState *env = cpu->env_ptr;
11991 unsigned int insn;
11993 if (arm_pre_translate_insn(dc)) {
11994 return;
11997 dc->pc_curr = dc->base.pc_next;
11998 insn = arm_ldl_code(env, dc->base.pc_next, dc->sctlr_b);
11999 dc->insn = insn;
12000 dc->base.pc_next += 4;
12001 disas_arm_insn(dc, insn);
12003 arm_post_translate_insn(dc);
12005 /* ARM is a fixed-length ISA. We performed the cross-page check
12006 in init_disas_context by adjusting max_insns. */
12009 static bool thumb_insn_is_unconditional(DisasContext *s, uint32_t insn)
12011 /* Return true if this Thumb insn is always unconditional,
12012 * even inside an IT block. This is true of only a very few
12013 * instructions: BKPT, HLT, and SG.
12015 * A larger class of instructions are UNPREDICTABLE if used
12016 * inside an IT block; we do not need to detect those here, because
12017 * what we do by default (perform the cc check and update the IT
12018 * bits state machine) is a permitted CONSTRAINED UNPREDICTABLE
12019 * choice for those situations.
12021 * insn is either a 16-bit or a 32-bit instruction; the two are
12022 * distinguishable because for the 16-bit case the top 16 bits
12023 * are zeroes, and that isn't a valid 32-bit encoding.
12025 if ((insn & 0xffffff00) == 0xbe00) {
12026 /* BKPT */
12027 return true;
12030 if ((insn & 0xffffffc0) == 0xba80 && arm_dc_feature(s, ARM_FEATURE_V8) &&
12031 !arm_dc_feature(s, ARM_FEATURE_M)) {
12032 /* HLT: v8A only. This is unconditional even when it is going to
12033 * UNDEF; see the v8A ARM ARM DDI0487B.a H3.3.
12034 * For v7 cores this was a plain old undefined encoding and so
12035 * honours its cc check. (We might be using the encoding as
12036 * a semihosting trap, but we don't change the cc check behaviour
12037 * on that account, because a debugger connected to a real v7A
12038 * core and emulating semihosting traps by catching the UNDEF
12039 * exception would also only see cases where the cc check passed.
12040 * No guest code should be trying to do a HLT semihosting trap
12041 * in an IT block anyway.
12043 return true;
12046 if (insn == 0xe97fe97f && arm_dc_feature(s, ARM_FEATURE_V8) &&
12047 arm_dc_feature(s, ARM_FEATURE_M)) {
12048 /* SG: v8M only */
12049 return true;
12052 return false;
12055 static void thumb_tr_translate_insn(DisasContextBase *dcbase, CPUState *cpu)
12057 DisasContext *dc = container_of(dcbase, DisasContext, base);
12058 CPUARMState *env = cpu->env_ptr;
12059 uint32_t insn;
12060 bool is_16bit;
12062 if (arm_pre_translate_insn(dc)) {
12063 return;
12066 dc->pc_curr = dc->base.pc_next;
12067 insn = arm_lduw_code(env, dc->base.pc_next, dc->sctlr_b);
12068 is_16bit = thumb_insn_is_16bit(dc, dc->base.pc_next, insn);
12069 dc->base.pc_next += 2;
12070 if (!is_16bit) {
12071 uint32_t insn2 = arm_lduw_code(env, dc->base.pc_next, dc->sctlr_b);
12073 insn = insn << 16 | insn2;
12074 dc->base.pc_next += 2;
12076 dc->insn = insn;
12078 if (dc->condexec_mask && !thumb_insn_is_unconditional(dc, insn)) {
12079 uint32_t cond = dc->condexec_cond;
12082 * Conditionally skip the insn. Note that both 0xe and 0xf mean
12083 * "always"; 0xf is not "never".
12085 if (cond < 0x0e) {
12086 arm_skip_unless(dc, cond);
12090 if (is_16bit) {
12091 disas_thumb_insn(dc, insn);
12092 } else {
12093 disas_thumb2_insn(dc, insn);
12096 /* Advance the Thumb condexec condition. */
12097 if (dc->condexec_mask) {
12098 dc->condexec_cond = ((dc->condexec_cond & 0xe) |
12099 ((dc->condexec_mask >> 4) & 1));
12100 dc->condexec_mask = (dc->condexec_mask << 1) & 0x1f;
12101 if (dc->condexec_mask == 0) {
12102 dc->condexec_cond = 0;
12106 arm_post_translate_insn(dc);
12108 /* Thumb is a variable-length ISA. Stop translation when the next insn
12109 * will touch a new page. This ensures that prefetch aborts occur at
12110 * the right place.
12112 * We want to stop the TB if the next insn starts in a new page,
12113 * or if it spans between this page and the next. This means that
12114 * if we're looking at the last halfword in the page we need to
12115 * see if it's a 16-bit Thumb insn (which will fit in this TB)
12116 * or a 32-bit Thumb insn (which won't).
12117 * This is to avoid generating a silly TB with a single 16-bit insn
12118 * in it at the end of this page (which would execute correctly
12119 * but isn't very efficient).
12121 if (dc->base.is_jmp == DISAS_NEXT
12122 && (dc->base.pc_next - dc->page_start >= TARGET_PAGE_SIZE
12123 || (dc->base.pc_next - dc->page_start >= TARGET_PAGE_SIZE - 3
12124 && insn_crosses_page(env, dc)))) {
12125 dc->base.is_jmp = DISAS_TOO_MANY;
12129 static void arm_tr_tb_stop(DisasContextBase *dcbase, CPUState *cpu)
12131 DisasContext *dc = container_of(dcbase, DisasContext, base);
12133 if (tb_cflags(dc->base.tb) & CF_LAST_IO && dc->condjmp) {
12134 /* FIXME: This can theoretically happen with self-modifying code. */
12135 cpu_abort(cpu, "IO on conditional branch instruction");
12138 /* At this stage dc->condjmp will only be set when the skipped
12139 instruction was a conditional branch or trap, and the PC has
12140 already been written. */
12141 gen_set_condexec(dc);
12142 if (dc->base.is_jmp == DISAS_BX_EXCRET) {
12143 /* Exception return branches need some special case code at the
12144 * end of the TB, which is complex enough that it has to
12145 * handle the single-step vs not and the condition-failed
12146 * insn codepath itself.
12148 gen_bx_excret_final_code(dc);
12149 } else if (unlikely(is_singlestepping(dc))) {
12150 /* Unconditional and "condition passed" instruction codepath. */
12151 switch (dc->base.is_jmp) {
12152 case DISAS_SWI:
12153 gen_ss_advance(dc);
12154 gen_exception(EXCP_SWI, syn_aa32_svc(dc->svc_imm, dc->thumb),
12155 default_exception_el(dc));
12156 break;
12157 case DISAS_HVC:
12158 gen_ss_advance(dc);
12159 gen_exception(EXCP_HVC, syn_aa32_hvc(dc->svc_imm), 2);
12160 break;
12161 case DISAS_SMC:
12162 gen_ss_advance(dc);
12163 gen_exception(EXCP_SMC, syn_aa32_smc(), 3);
12164 break;
12165 case DISAS_NEXT:
12166 case DISAS_TOO_MANY:
12167 case DISAS_UPDATE:
12168 gen_set_pc_im(dc, dc->base.pc_next);
12169 /* fall through */
12170 default:
12171 /* FIXME: Single stepping a WFI insn will not halt the CPU. */
12172 gen_singlestep_exception(dc);
12173 break;
12174 case DISAS_NORETURN:
12175 break;
12177 } else {
12178 /* While branches must always occur at the end of an IT block,
12179 there are a few other things that can cause us to terminate
12180 the TB in the middle of an IT block:
12181 - Exception generating instructions (bkpt, swi, undefined).
12182 - Page boundaries.
12183 - Hardware watchpoints.
12184 Hardware breakpoints have already been handled and skip this code.
12186 switch(dc->base.is_jmp) {
12187 case DISAS_NEXT:
12188 case DISAS_TOO_MANY:
12189 gen_goto_tb(dc, 1, dc->base.pc_next);
12190 break;
12191 case DISAS_JUMP:
12192 gen_goto_ptr();
12193 break;
12194 case DISAS_UPDATE:
12195 gen_set_pc_im(dc, dc->base.pc_next);
12196 /* fall through */
12197 default:
12198 /* indicate that the hash table must be used to find the next TB */
12199 tcg_gen_exit_tb(NULL, 0);
12200 break;
12201 case DISAS_NORETURN:
12202 /* nothing more to generate */
12203 break;
12204 case DISAS_WFI:
12206 TCGv_i32 tmp = tcg_const_i32((dc->thumb &&
12207 !(dc->insn & (1U << 31))) ? 2 : 4);
12209 gen_helper_wfi(cpu_env, tmp);
12210 tcg_temp_free_i32(tmp);
12211 /* The helper doesn't necessarily throw an exception, but we
12212 * must go back to the main loop to check for interrupts anyway.
12214 tcg_gen_exit_tb(NULL, 0);
12215 break;
12217 case DISAS_WFE:
12218 gen_helper_wfe(cpu_env);
12219 break;
12220 case DISAS_YIELD:
12221 gen_helper_yield(cpu_env);
12222 break;
12223 case DISAS_SWI:
12224 gen_exception(EXCP_SWI, syn_aa32_svc(dc->svc_imm, dc->thumb),
12225 default_exception_el(dc));
12226 break;
12227 case DISAS_HVC:
12228 gen_exception(EXCP_HVC, syn_aa32_hvc(dc->svc_imm), 2);
12229 break;
12230 case DISAS_SMC:
12231 gen_exception(EXCP_SMC, syn_aa32_smc(), 3);
12232 break;
12236 if (dc->condjmp) {
12237 /* "Condition failed" instruction codepath for the branch/trap insn */
12238 gen_set_label(dc->condlabel);
12239 gen_set_condexec(dc);
12240 if (unlikely(is_singlestepping(dc))) {
12241 gen_set_pc_im(dc, dc->base.pc_next);
12242 gen_singlestep_exception(dc);
12243 } else {
12244 gen_goto_tb(dc, 1, dc->base.pc_next);
12249 static void arm_tr_disas_log(const DisasContextBase *dcbase, CPUState *cpu)
12251 DisasContext *dc = container_of(dcbase, DisasContext, base);
12253 qemu_log("IN: %s\n", lookup_symbol(dc->base.pc_first));
12254 log_target_disas(cpu, dc->base.pc_first, dc->base.tb->size);
12257 static const TranslatorOps arm_translator_ops = {
12258 .init_disas_context = arm_tr_init_disas_context,
12259 .tb_start = arm_tr_tb_start,
12260 .insn_start = arm_tr_insn_start,
12261 .breakpoint_check = arm_tr_breakpoint_check,
12262 .translate_insn = arm_tr_translate_insn,
12263 .tb_stop = arm_tr_tb_stop,
12264 .disas_log = arm_tr_disas_log,
12267 static const TranslatorOps thumb_translator_ops = {
12268 .init_disas_context = arm_tr_init_disas_context,
12269 .tb_start = arm_tr_tb_start,
12270 .insn_start = arm_tr_insn_start,
12271 .breakpoint_check = arm_tr_breakpoint_check,
12272 .translate_insn = thumb_tr_translate_insn,
12273 .tb_stop = arm_tr_tb_stop,
12274 .disas_log = arm_tr_disas_log,
12277 /* generate intermediate code for basic block 'tb'. */
12278 void gen_intermediate_code(CPUState *cpu, TranslationBlock *tb, int max_insns)
12280 DisasContext dc;
12281 const TranslatorOps *ops = &arm_translator_ops;
12283 if (FIELD_EX32(tb->flags, TBFLAG_A32, THUMB)) {
12284 ops = &thumb_translator_ops;
12286 #ifdef TARGET_AARCH64
12287 if (FIELD_EX32(tb->flags, TBFLAG_ANY, AARCH64_STATE)) {
12288 ops = &aarch64_translator_ops;
12290 #endif
12292 translator_loop(ops, &dc.base, cpu, tb, max_insns);
12295 void restore_state_to_opc(CPUARMState *env, TranslationBlock *tb,
12296 target_ulong *data)
12298 if (is_a64(env)) {
12299 env->pc = data[0];
12300 env->condexec_bits = 0;
12301 env->exception.syndrome = data[2] << ARM_INSN_START_WORD2_SHIFT;
12302 } else {
12303 env->regs[15] = data[0];
12304 env->condexec_bits = data[1];
12305 env->exception.syndrome = data[2] << ARM_INSN_START_WORD2_SHIFT;