2 * CRISv10 emulation for qemu: main translation routines.
4 * Copyright (c) 2010 AXIS Communications AB
5 * Written by Edgar E. Iglesias.
7 * This library is free software; you can redistribute it and/or
8 * modify it under the terms of the GNU Lesser General Public
9 * License as published by the Free Software Foundation; either
10 * version 2 of the License, or (at your option) any later version.
12 * This library is distributed in the hope that it will be useful,
13 * but WITHOUT ANY WARRANTY; without even the implied warranty of
14 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
15 * Lesser General Public License for more details.
17 * You should have received a copy of the GNU Lesser General Public
18 * License along with this library; if not, see <http://www.gnu.org/licenses/>.
21 #include "crisv10-decode.h"
23 static const char *regnames_v10
[] =
25 "$r0", "$r1", "$r2", "$r3",
26 "$r4", "$r5", "$r6", "$r7",
27 "$r8", "$r9", "$r10", "$r11",
28 "$r12", "$r13", "$sp", "$pc",
31 static const char *pregnames_v10
[] =
33 "$bz", "$vr", "$p2", "$p3",
34 "$wz", "$ccr", "$p6-prefix", "$mof",
35 "$dz", "$ibr", "$irp", "$srp",
36 "$bar", "$dccr", "$brp", "$usp",
39 /* We need this table to handle preg-moves with implicit width. */
40 static int preg_sizes_v10
[] = {
51 static inline int dec10_size(unsigned int size
)
59 static inline void cris_illegal_insn(DisasContext
*dc
)
61 qemu_log("illegal insn at pc=%x\n", dc
->pc
);
62 t_gen_raise_exception(EXCP_BREAK
);
65 /* Prefix flag and register are used to handle the more complex
67 static void cris_set_prefix(DisasContext
*dc
)
70 dc
->tb_flags
|= PFIX_FLAG
;
71 tcg_gen_ori_tl(cpu_PR
[PR_CCS
], cpu_PR
[PR_CCS
], PFIX_FLAG
);
73 /* prefix insns dont clear the x flag. */
78 static void crisv10_prepare_memaddr(DisasContext
*dc
,
79 TCGv addr
, unsigned int size
)
81 if (dc
->tb_flags
& PFIX_FLAG
) {
82 tcg_gen_mov_tl(addr
, cpu_PR
[PR_PREFIX
]);
84 tcg_gen_mov_tl(addr
, cpu_R
[dc
->src
]);
88 static unsigned int crisv10_post_memaddr(DisasContext
*dc
, unsigned int size
)
90 unsigned int insn_len
= 0;
92 if (dc
->tb_flags
& PFIX_FLAG
) {
93 if (dc
->mode
== CRISV10_MODE_AUTOINC
) {
94 tcg_gen_mov_tl(cpu_R
[dc
->src
], cpu_PR
[PR_PREFIX
]);
97 if (dc
->mode
== CRISV10_MODE_AUTOINC
) {
99 insn_len
+= size
& ~1;
101 tcg_gen_addi_tl(cpu_R
[dc
->src
], cpu_R
[dc
->src
], size
);
108 static int dec10_prep_move_m(DisasContext
*dc
, int s_ext
, int memsize
,
117 is_imm
= rs
== 15 && !(dc
->tb_flags
& PFIX_FLAG
);
118 LOG_DIS("rs=%d rd=%d is_imm=%d mode=%d pfix=%d\n",
119 rs
, dc
->dst
, is_imm
, dc
->mode
, dc
->tb_flags
& PFIX_FLAG
);
121 /* Load [$rs] onto T1. */
126 imm
= ldsb_code(dc
->pc
+ 2);
128 imm
= ldsw_code(dc
->pc
+ 2);
131 imm
= ldub_code(dc
->pc
+ 2);
133 imm
= lduw_code(dc
->pc
+ 2);
136 imm
= ldl_code(dc
->pc
+ 2);
138 tcg_gen_movi_tl(dst
, imm
);
140 if (dc
->mode
== CRISV10_MODE_AUTOINC
) {
144 tcg_gen_addi_tl(cpu_R
[15], cpu_R
[15], insn_len
);
149 addr
= tcg_temp_new();
150 cris_flush_cc_state(dc
);
151 crisv10_prepare_memaddr(dc
, addr
, memsize
);
152 gen_load(dc
, dst
, addr
, memsize
, 0);
154 t_gen_sext(dst
, dst
, memsize
);
156 t_gen_zext(dst
, dst
, memsize
);
157 insn_len
+= crisv10_post_memaddr(dc
, memsize
);
161 if (dc
->mode
== CRISV10_MODE_INDIRECT
&& (dc
->tb_flags
& PFIX_FLAG
)) {
167 static unsigned int dec10_quick_imm(DisasContext
*dc
)
173 imm
= dc
->ir
& ((1 << 6) - 1);
174 simm
= (int8_t) (imm
<< 2);
176 switch (dc
->opcode
) {
177 case CRISV10_QIMM_BDAP_R0
:
178 case CRISV10_QIMM_BDAP_R1
:
179 case CRISV10_QIMM_BDAP_R2
:
180 case CRISV10_QIMM_BDAP_R3
:
181 simm
= (int8_t)dc
->ir
;
182 LOG_DIS("bdap %d $r%d\n", simm
, dc
->dst
);
183 LOG_DIS("pc=%x mode=%x quickimm %d r%d r%d\n",
184 dc
->pc
, dc
->mode
, dc
->opcode
, dc
->src
, dc
->dst
);
187 tcg_gen_movi_tl(cpu_PR
[PR_PREFIX
], dc
->pc
+ 2 + simm
);
189 tcg_gen_addi_tl(cpu_PR
[PR_PREFIX
], cpu_R
[dc
->dst
], simm
);
193 case CRISV10_QIMM_MOVEQ
:
194 LOG_DIS("moveq %d, $r%d\n", simm
, dc
->dst
);
196 cris_cc_mask(dc
, CC_MASK_NZVC
);
197 cris_alu(dc
, CC_OP_MOVE
, cpu_R
[dc
->dst
],
198 cpu_R
[dc
->dst
], tcg_const_tl(simm
), 4);
200 case CRISV10_QIMM_CMPQ
:
201 LOG_DIS("cmpq %d, $r%d\n", simm
, dc
->dst
);
203 cris_cc_mask(dc
, CC_MASK_NZVC
);
204 cris_alu(dc
, CC_OP_CMP
, cpu_R
[dc
->dst
],
205 cpu_R
[dc
->dst
], tcg_const_tl(simm
), 4);
207 case CRISV10_QIMM_ADDQ
:
208 LOG_DIS("addq %d, $r%d\n", imm
, dc
->dst
);
210 cris_cc_mask(dc
, CC_MASK_NZVC
);
211 cris_alu(dc
, CC_OP_ADD
, cpu_R
[dc
->dst
],
212 cpu_R
[dc
->dst
], tcg_const_tl(imm
), 4);
214 case CRISV10_QIMM_ANDQ
:
215 LOG_DIS("andq %d, $r%d\n", simm
, dc
->dst
);
217 cris_cc_mask(dc
, CC_MASK_NZVC
);
218 cris_alu(dc
, CC_OP_AND
, cpu_R
[dc
->dst
],
219 cpu_R
[dc
->dst
], tcg_const_tl(simm
), 4);
221 case CRISV10_QIMM_ASHQ
:
222 LOG_DIS("ashq %d, $r%d\n", simm
, dc
->dst
);
224 cris_cc_mask(dc
, CC_MASK_NZVC
);
228 cris_alu(dc
, CC_OP_ASR
, cpu_R
[dc
->dst
],
229 cpu_R
[dc
->dst
], tcg_const_tl(imm
), 4);
232 cris_update_cc_op(dc
, CC_OP_FLAGS
, 4);
233 gen_helper_btst(cpu_PR
[PR_CCS
], cpu_R
[dc
->dst
],
234 tcg_const_tl(imm
), cpu_PR
[PR_CCS
]);
237 case CRISV10_QIMM_LSHQ
:
238 LOG_DIS("lshq %d, $r%d\n", simm
, dc
->dst
);
241 if (imm
& (1 << 5)) {
245 cris_cc_mask(dc
, CC_MASK_NZVC
);
246 cris_alu(dc
, op
, cpu_R
[dc
->dst
],
247 cpu_R
[dc
->dst
], tcg_const_tl(imm
), 4);
249 case CRISV10_QIMM_SUBQ
:
250 LOG_DIS("subq %d, $r%d\n", imm
, dc
->dst
);
252 cris_cc_mask(dc
, CC_MASK_NZVC
);
253 cris_alu(dc
, CC_OP_SUB
, cpu_R
[dc
->dst
],
254 cpu_R
[dc
->dst
], tcg_const_tl(imm
), 4);
256 case CRISV10_QIMM_ORQ
:
257 LOG_DIS("andq %d, $r%d\n", simm
, dc
->dst
);
259 cris_cc_mask(dc
, CC_MASK_NZVC
);
260 cris_alu(dc
, CC_OP_OR
, cpu_R
[dc
->dst
],
261 cpu_R
[dc
->dst
], tcg_const_tl(simm
), 4);
264 case CRISV10_QIMM_BCC_R0
:
266 cpu_abort(dc
->env
, "opcode zero\n");
268 case CRISV10_QIMM_BCC_R1
:
269 case CRISV10_QIMM_BCC_R2
:
270 case CRISV10_QIMM_BCC_R3
:
272 /* bit 0 is a sign bit. */
274 imm
|= 0xffffff00; /* sign extend. */
275 imm
&= ~1; /* get rid of the sign bit. */
278 LOG_DIS("b%s %d\n", cc_name(dc
->cond
), imm
);
281 cris_prepare_cc_branch(dc
, imm
, dc
->cond
);
285 LOG_DIS("pc=%x mode=%x quickimm %d r%d r%d\n",
286 dc
->pc
, dc
->mode
, dc
->opcode
, dc
->src
, dc
->dst
);
287 cpu_abort(dc
->env
, "Unhandled quickimm\n");
293 static unsigned int dec10_setclrf(DisasContext
*dc
)
296 unsigned int set
= ~dc
->opcode
& 1;
298 flags
= EXTRACT_FIELD(dc
->ir
, 0, 3)
299 | (EXTRACT_FIELD(dc
->ir
, 12, 15) << 4);
300 LOG_DIS("%s set=%d flags=%x\n", __func__
, set
, flags
);
303 if (flags
& X_FLAG
) {
306 dc
->flags_x
= X_FLAG
;
311 cris_evaluate_flags (dc
);
312 cris_update_cc_op(dc
, CC_OP_FLAGS
, 4);
313 cris_update_cc_x(dc
);
314 tcg_gen_movi_tl(cc_op
, dc
->cc_op
);
317 tcg_gen_ori_tl(cpu_PR
[PR_CCS
], cpu_PR
[PR_CCS
], flags
);
319 tcg_gen_andi_tl(cpu_PR
[PR_CCS
], cpu_PR
[PR_CCS
], ~flags
);
322 dc
->flags_uptodate
= 1;
328 static inline void dec10_reg_prep_sext(DisasContext
*dc
, int size
, int sext
,
329 TCGv dd
, TCGv ds
, TCGv sd
, TCGv ss
)
332 t_gen_sext(dd
, sd
, size
);
333 t_gen_sext(ds
, ss
, size
);
335 t_gen_zext(dd
, sd
, size
);
336 t_gen_zext(ds
, ss
, size
);
340 static void dec10_reg_alu(DisasContext
*dc
, int op
, int size
, int sext
)
344 t
[0] = tcg_temp_new();
345 t
[1] = tcg_temp_new();
346 dec10_reg_prep_sext(dc
, size
, sext
,
347 t
[0], t
[1], cpu_R
[dc
->dst
], cpu_R
[dc
->src
]);
349 if (op
== CC_OP_LSL
|| op
== CC_OP_LSR
|| op
== CC_OP_ASR
) {
350 tcg_gen_andi_tl(t
[1], t
[1], 63);
353 assert(dc
->dst
!= 15);
354 cris_alu(dc
, op
, cpu_R
[dc
->dst
], t
[0], t
[1], size
);
359 static void dec10_reg_bound(DisasContext
*dc
, int size
)
363 t
= tcg_temp_local_new();
364 t_gen_zext(t
, cpu_R
[dc
->src
], size
);
365 cris_alu(dc
, CC_OP_BOUND
, cpu_R
[dc
->dst
], cpu_R
[dc
->dst
], t
, 4);
369 static void dec10_reg_mul(DisasContext
*dc
, int size
, int sext
)
371 int op
= sext
? CC_OP_MULS
: CC_OP_MULU
;
374 t
[0] = tcg_temp_new();
375 t
[1] = tcg_temp_new();
376 dec10_reg_prep_sext(dc
, size
, sext
,
377 t
[0], t
[1], cpu_R
[dc
->dst
], cpu_R
[dc
->src
]);
379 cris_alu(dc
, op
, cpu_R
[dc
->dst
], t
[0], t
[1], 4);
386 static void dec10_reg_movs(DisasContext
*dc
)
388 int size
= (dc
->size
& 1) + 1;
391 LOG_DIS("movx.%d $r%d, $r%d\n", size
, dc
->src
, dc
->dst
);
392 cris_cc_mask(dc
, CC_MASK_NZVC
);
396 t_gen_sext(t
, cpu_R
[dc
->src
], size
);
398 t_gen_zext(t
, cpu_R
[dc
->src
], size
);
400 cris_alu(dc
, CC_OP_MOVE
, cpu_R
[dc
->dst
], cpu_R
[dc
->dst
], t
, 4);
404 static void dec10_reg_alux(DisasContext
*dc
, int op
)
406 int size
= (dc
->size
& 1) + 1;
409 LOG_DIS("movx.%d $r%d, $r%d\n", size
, dc
->src
, dc
->dst
);
410 cris_cc_mask(dc
, CC_MASK_NZVC
);
414 t_gen_sext(t
, cpu_R
[dc
->src
], size
);
416 t_gen_zext(t
, cpu_R
[dc
->src
], size
);
418 cris_alu(dc
, op
, cpu_R
[dc
->dst
], cpu_R
[dc
->dst
], t
, 4);
422 static void dec10_reg_mov_pr(DisasContext
*dc
)
424 LOG_DIS("move p%d r%d sz=%d\n", dc
->dst
, dc
->src
, preg_sizes_v10
[dc
->dst
]);
427 tcg_gen_mov_tl(env_btarget
, cpu_PR
[dc
->dst
]);
428 cris_prepare_jmp(dc
, JMP_INDIRECT
);
431 if (dc
->dst
== PR_CCS
) {
432 cris_evaluate_flags(dc
);
434 cris_alu(dc
, CC_OP_MOVE
, cpu_R
[dc
->src
],
435 cpu_R
[dc
->src
], cpu_PR
[dc
->dst
], preg_sizes_v10
[dc
->dst
]);
438 static void dec10_reg_abs(DisasContext
*dc
)
442 LOG_DIS("abs $r%u, $r%u\n", dc
->src
, dc
->dst
);
444 assert(dc
->dst
!= 15);
446 tcg_gen_sari_tl(t0
, cpu_R
[dc
->src
], 31);
447 tcg_gen_xor_tl(cpu_R
[dc
->dst
], cpu_R
[dc
->src
], t0
);
448 tcg_gen_sub_tl(t0
, cpu_R
[dc
->dst
], t0
);
450 cris_alu(dc
, CC_OP_MOVE
, cpu_R
[dc
->dst
], cpu_R
[dc
->dst
], t0
, 4);
454 static void dec10_reg_swap(DisasContext
*dc
)
458 LOG_DIS("not $r%d, $r%d\n", dc
->src
, dc
->dst
);
460 cris_cc_mask(dc
, CC_MASK_NZVC
);
462 t_gen_mov_TN_reg(t0
, dc
->src
);
464 tcg_gen_not_tl(t0
, t0
);
471 cris_alu(dc
, CC_OP_MOVE
, cpu_R
[dc
->src
], cpu_R
[dc
->src
], t0
, 4);
475 static void dec10_reg_scc(DisasContext
*dc
)
479 LOG_DIS("s%s $r%u\n", cc_name(cond
), dc
->src
);
485 gen_tst_cc (dc
, cpu_R
[dc
->src
], cond
);
486 l1
= gen_new_label();
487 tcg_gen_brcondi_tl(TCG_COND_EQ
, cpu_R
[dc
->src
], 0, l1
);
488 tcg_gen_movi_tl(cpu_R
[dc
->src
], 1);
491 tcg_gen_movi_tl(cpu_R
[dc
->src
], 1);
497 static unsigned int dec10_reg(DisasContext
*dc
)
500 unsigned int insn_len
= 2;
501 unsigned int size
= dec10_size(dc
->size
);
505 switch (dc
->opcode
) {
506 case CRISV10_REG_MOVE_R
:
507 LOG_DIS("move.%d $r%d, $r%d\n", dc
->size
, dc
->src
, dc
->dst
);
508 cris_cc_mask(dc
, CC_MASK_NZVC
);
509 dec10_reg_alu(dc
, CC_OP_MOVE
, size
, 0);
511 tcg_gen_mov_tl(env_btarget
, cpu_R
[dc
->dst
]);
512 cris_prepare_jmp(dc
, JMP_INDIRECT
);
513 dc
->delayed_branch
= 1;
516 case CRISV10_REG_MOVX
:
517 cris_cc_mask(dc
, CC_MASK_NZVC
);
520 case CRISV10_REG_ADDX
:
521 cris_cc_mask(dc
, CC_MASK_NZVC
);
522 dec10_reg_alux(dc
, CC_OP_ADD
);
524 case CRISV10_REG_SUBX
:
525 cris_cc_mask(dc
, CC_MASK_NZVC
);
526 dec10_reg_alux(dc
, CC_OP_SUB
);
528 case CRISV10_REG_ADD
:
529 LOG_DIS("add $r%d, $r%d sz=%d\n", dc
->src
, dc
->dst
, size
);
530 cris_cc_mask(dc
, CC_MASK_NZVC
);
531 dec10_reg_alu(dc
, CC_OP_ADD
, size
, 0);
533 case CRISV10_REG_SUB
:
534 LOG_DIS("sub $r%d, $r%d sz=%d\n", dc
->src
, dc
->dst
, size
);
535 cris_cc_mask(dc
, CC_MASK_NZVC
);
536 dec10_reg_alu(dc
, CC_OP_SUB
, size
, 0);
538 case CRISV10_REG_CMP
:
539 LOG_DIS("cmp $r%d, $r%d sz=%d\n", dc
->src
, dc
->dst
, size
);
540 cris_cc_mask(dc
, CC_MASK_NZVC
);
541 dec10_reg_alu(dc
, CC_OP_CMP
, size
, 0);
543 case CRISV10_REG_BOUND
:
544 LOG_DIS("bound $r%d, $r%d sz=%d\n", dc
->src
, dc
->dst
, size
);
545 cris_cc_mask(dc
, CC_MASK_NZVC
);
546 dec10_reg_bound(dc
, size
);
548 case CRISV10_REG_AND
:
549 LOG_DIS("and $r%d, $r%d sz=%d\n", dc
->src
, dc
->dst
, size
);
550 cris_cc_mask(dc
, CC_MASK_NZVC
);
551 dec10_reg_alu(dc
, CC_OP_AND
, size
, 0);
553 case CRISV10_REG_ADDI
:
559 LOG_DIS("addi r%d r%d size=%d\n", dc
->src
, dc
->dst
, dc
->size
);
560 tcg_gen_shli_tl(t
, cpu_R
[dc
->dst
], dc
->size
& 3);
561 tcg_gen_add_tl(cpu_R
[dc
->src
], cpu_R
[dc
->src
], t
);
564 case CRISV10_REG_LSL
:
565 LOG_DIS("lsl $r%d, $r%d sz=%d\n", dc
->src
, dc
->dst
, size
);
566 cris_cc_mask(dc
, CC_MASK_NZVC
);
567 dec10_reg_alu(dc
, CC_OP_LSL
, size
, 0);
569 case CRISV10_REG_LSR
:
570 LOG_DIS("lsr $r%d, $r%d sz=%d\n", dc
->src
, dc
->dst
, size
);
571 cris_cc_mask(dc
, CC_MASK_NZVC
);
572 dec10_reg_alu(dc
, CC_OP_LSR
, size
, 0);
574 case CRISV10_REG_ASR
:
575 LOG_DIS("asr $r%d, $r%d sz=%d\n", dc
->src
, dc
->dst
, size
);
576 cris_cc_mask(dc
, CC_MASK_NZVC
);
577 dec10_reg_alu(dc
, CC_OP_ASR
, size
, 1);
580 LOG_DIS("or $r%d, $r%d sz=%d\n", dc
->src
, dc
->dst
, size
);
581 cris_cc_mask(dc
, CC_MASK_NZVC
);
582 dec10_reg_alu(dc
, CC_OP_OR
, size
, 0);
584 case CRISV10_REG_NEG
:
585 LOG_DIS("neg $r%d, $r%d sz=%d\n", dc
->src
, dc
->dst
, size
);
586 cris_cc_mask(dc
, CC_MASK_NZVC
);
587 dec10_reg_alu(dc
, CC_OP_NEG
, size
, 0);
589 case CRISV10_REG_BIAP
:
590 LOG_DIS("BIAP pc=%x reg %d r%d r%d size=%d\n", dc
->pc
,
591 dc
->opcode
, dc
->src
, dc
->dst
, size
);
593 case 4: tmp
= 2; break;
594 case 2: tmp
= 1; break;
595 case 1: tmp
= 0; break;
597 cpu_abort(dc
->env
, "Unhandled BIAP");
602 tcg_gen_shli_tl(t
, cpu_R
[dc
->dst
], tmp
);
604 tcg_gen_addi_tl(cpu_PR
[PR_PREFIX
], t
, ((dc
->pc
+2)| 1) + 1);
606 tcg_gen_add_tl(cpu_PR
[PR_PREFIX
], cpu_R
[dc
->src
], t
);
613 LOG_DIS("pc=%x reg %d r%d r%d\n", dc
->pc
,
614 dc
->opcode
, dc
->src
, dc
->dst
);
615 cpu_abort(dc
->env
, "Unhandled opcode");
619 switch (dc
->opcode
) {
620 case CRISV10_REG_MOVX
:
621 cris_cc_mask(dc
, CC_MASK_NZVC
);
624 case CRISV10_REG_ADDX
:
625 cris_cc_mask(dc
, CC_MASK_NZVC
);
626 dec10_reg_alux(dc
, CC_OP_ADD
);
628 case CRISV10_REG_SUBX
:
629 cris_cc_mask(dc
, CC_MASK_NZVC
);
630 dec10_reg_alux(dc
, CC_OP_SUB
);
632 case CRISV10_REG_MOVE_SPR_R
:
633 cris_evaluate_flags(dc
);
635 dec10_reg_mov_pr(dc
);
637 case CRISV10_REG_MOVE_R_SPR
:
638 LOG_DIS("move r%d p%d\n", dc
->src
, dc
->dst
);
639 cris_evaluate_flags(dc
);
640 if (dc
->src
!= 11) /* fast for srp. */
641 dc
->cpustate_changed
= 1;
642 t_gen_mov_preg_TN(dc
, dc
->dst
, cpu_R
[dc
->src
]);
644 case CRISV10_REG_SETF
:
645 case CRISV10_REG_CLEARF
:
648 case CRISV10_REG_SWAP
:
651 case CRISV10_REG_ABS
:
652 cris_cc_mask(dc
, CC_MASK_NZVC
);
656 LOG_DIS("lz $r%d, $r%d sz=%d\n", dc
->src
, dc
->dst
, size
);
657 cris_cc_mask(dc
, CC_MASK_NZVC
);
658 dec10_reg_alu(dc
, CC_OP_LZ
, 4, 0);
660 case CRISV10_REG_XOR
:
661 LOG_DIS("xor $r%d, $r%d sz=%d\n", dc
->src
, dc
->dst
, size
);
662 cris_cc_mask(dc
, CC_MASK_NZVC
);
663 dec10_reg_alu(dc
, CC_OP_XOR
, 4, 0);
665 case CRISV10_REG_BTST
:
666 LOG_DIS("btst $r%d, $r%d sz=%d\n", dc
->src
, dc
->dst
, size
);
667 cris_cc_mask(dc
, CC_MASK_NZVC
);
668 cris_update_cc_op(dc
, CC_OP_FLAGS
, 4);
669 gen_helper_btst(cpu_PR
[PR_CCS
], cpu_R
[dc
->dst
],
670 cpu_R
[dc
->src
], cpu_PR
[PR_CCS
]);
672 case CRISV10_REG_DSTEP
:
673 LOG_DIS("dstep $r%d, $r%d sz=%d\n", dc
->src
, dc
->dst
, size
);
674 cris_cc_mask(dc
, CC_MASK_NZVC
);
675 cris_alu(dc
, CC_OP_DSTEP
, cpu_R
[dc
->dst
],
676 cpu_R
[dc
->dst
], cpu_R
[dc
->src
], 4);
678 case CRISV10_REG_MSTEP
:
679 LOG_DIS("mstep $r%d, $r%d sz=%d\n", dc
->src
, dc
->dst
, size
);
680 cris_evaluate_flags(dc
);
681 cris_cc_mask(dc
, CC_MASK_NZVC
);
682 cris_alu(dc
, CC_OP_MSTEP
, cpu_R
[dc
->dst
],
683 cpu_R
[dc
->dst
], cpu_R
[dc
->src
], 4);
685 case CRISV10_REG_SCC
:
689 LOG_DIS("pc=%x reg %d r%d r%d\n", dc
->pc
,
690 dc
->opcode
, dc
->src
, dc
->dst
);
691 cpu_abort(dc
->env
, "Unhandled opcode");
698 static unsigned int dec10_ind_move_m_r(DisasContext
*dc
, unsigned int size
)
700 unsigned int insn_len
= 2;
703 LOG_DIS("%s: move.%d [$r%d], $r%d\n", __func__
,
704 size
, dc
->src
, dc
->dst
);
706 cris_cc_mask(dc
, CC_MASK_NZVC
);
708 insn_len
+= dec10_prep_move_m(dc
, 0, size
, t
);
709 cris_alu(dc
, CC_OP_MOVE
, cpu_R
[dc
->dst
], cpu_R
[dc
->dst
], t
, size
);
711 tcg_gen_mov_tl(env_btarget
, cpu_R
[dc
->dst
]);
712 cris_prepare_jmp(dc
, JMP_INDIRECT
);
713 dc
->delayed_branch
= 1;
721 static unsigned int dec10_ind_move_r_m(DisasContext
*dc
, unsigned int size
)
723 unsigned int insn_len
= 2;
726 LOG_DIS("move.%d $r%d, [$r%d]\n", dc
->size
, dc
->src
, dc
->dst
);
727 addr
= tcg_temp_new();
728 crisv10_prepare_memaddr(dc
, addr
, size
);
729 gen_store(dc
, addr
, cpu_R
[dc
->dst
], size
);
730 insn_len
+= crisv10_post_memaddr(dc
, size
);
735 static unsigned int dec10_ind_move_m_pr(DisasContext
*dc
)
737 unsigned int insn_len
= 2, rd
= dc
->dst
;
740 LOG_DIS("move.%d $p%d, [$r%d]\n", dc
->size
, dc
->dst
, dc
->src
);
743 addr
= tcg_temp_new();
745 insn_len
+= dec10_prep_move_m(dc
, 0, 4, t
);
747 tcg_gen_mov_tl(env_btarget
, t
);
748 cris_prepare_jmp(dc
, JMP_INDIRECT
);
749 dc
->delayed_branch
= 1;
753 tcg_gen_mov_tl(cpu_PR
[rd
], t
);
754 dc
->cpustate_changed
= 1;
760 static unsigned int dec10_ind_move_pr_m(DisasContext
*dc
)
762 unsigned int insn_len
= 2, size
= preg_sizes_v10
[dc
->dst
];
765 LOG_DIS("move.%d $p%d, [$r%d]\n", dc
->size
, dc
->dst
, dc
->src
);
767 addr
= tcg_temp_new();
768 crisv10_prepare_memaddr(dc
, addr
, size
);
769 if (dc
->dst
== PR_CCS
) {
771 cris_evaluate_flags(dc
);
772 tcg_gen_andi_tl(t0
, cpu_PR
[PR_CCS
], ~PFIX_FLAG
);
773 gen_store(dc
, addr
, t0
, size
);
776 gen_store(dc
, addr
, cpu_PR
[dc
->dst
], size
);
779 insn_len
+= crisv10_post_memaddr(dc
, size
);
785 static void dec10_movem_r_m(DisasContext
*dc
)
787 int i
, pfix
= dc
->tb_flags
& PFIX_FLAG
;
790 LOG_DIS("%s r%d, [r%d] pi=%d ir=%x\n", __func__
,
791 dc
->dst
, dc
->src
, dc
->postinc
, dc
->ir
);
793 addr
= tcg_temp_new();
795 crisv10_prepare_memaddr(dc
, addr
, 4);
796 tcg_gen_mov_tl(t0
, addr
);
797 for (i
= dc
->dst
; i
>= 0; i
--) {
798 if ((pfix
&& dc
->mode
== CRISV10_MODE_AUTOINC
) && dc
->src
== i
) {
799 gen_store(dc
, addr
, t0
, 4);
801 gen_store(dc
, addr
, cpu_R
[i
], 4);
803 tcg_gen_addi_tl(addr
, addr
, 4);
806 if (pfix
&& dc
->mode
== CRISV10_MODE_AUTOINC
) {
807 tcg_gen_mov_tl(cpu_R
[dc
->src
], t0
);
810 if (!pfix
&& dc
->mode
== CRISV10_MODE_AUTOINC
) {
811 tcg_gen_mov_tl(cpu_R
[dc
->src
], addr
);
817 static void dec10_movem_m_r(DisasContext
*dc
)
819 int i
, pfix
= dc
->tb_flags
& PFIX_FLAG
;
822 LOG_DIS("%s [r%d], r%d pi=%d ir=%x\n", __func__
,
823 dc
->src
, dc
->dst
, dc
->postinc
, dc
->ir
);
825 addr
= tcg_temp_new();
827 crisv10_prepare_memaddr(dc
, addr
, 4);
828 tcg_gen_mov_tl(t0
, addr
);
829 for (i
= dc
->dst
; i
>= 0; i
--) {
830 gen_load(dc
, cpu_R
[i
], addr
, 4, 0);
831 tcg_gen_addi_tl(addr
, addr
, 4);
834 if (pfix
&& dc
->mode
== CRISV10_MODE_AUTOINC
) {
835 tcg_gen_mov_tl(cpu_R
[dc
->src
], t0
);
838 if (!pfix
&& dc
->mode
== CRISV10_MODE_AUTOINC
) {
839 tcg_gen_mov_tl(cpu_R
[dc
->src
], addr
);
845 static int dec10_ind_alu(DisasContext
*dc
, int op
, unsigned int size
)
851 cris_alu_m_alloc_temps(t
);
852 insn_len
+= dec10_prep_move_m(dc
, 0, size
, t
[0]);
853 cris_alu(dc
, op
, cpu_R
[dc
->dst
], cpu_R
[rd
], t
[0], size
);
855 tcg_gen_mov_tl(env_btarget
, cpu_R
[dc
->dst
]);
856 cris_prepare_jmp(dc
, JMP_INDIRECT
);
857 dc
->delayed_branch
= 1;
861 cris_alu_m_free_temps(t
);
866 static int dec10_ind_bound(DisasContext
*dc
, unsigned int size
)
872 t
= tcg_temp_local_new();
873 insn_len
+= dec10_prep_move_m(dc
, 0, size
, t
);
874 cris_alu(dc
, CC_OP_BOUND
, cpu_R
[dc
->dst
], cpu_R
[rd
], t
, 4);
876 tcg_gen_mov_tl(env_btarget
, cpu_R
[dc
->dst
]);
877 cris_prepare_jmp(dc
, JMP_INDIRECT
);
878 dc
->delayed_branch
= 1;
886 static int dec10_alux_m(DisasContext
*dc
, int op
)
888 unsigned int size
= (dc
->size
& 1) ? 2 : 1;
889 unsigned int sx
= !!(dc
->size
& 2);
894 LOG_DIS("addx size=%d sx=%d op=%d %d\n", size
, sx
, dc
->src
, dc
->dst
);
898 cris_cc_mask(dc
, CC_MASK_NZVC
);
899 insn_len
+= dec10_prep_move_m(dc
, sx
, size
, t
);
900 cris_alu(dc
, op
, cpu_R
[dc
->dst
], cpu_R
[rd
], t
, 4);
902 tcg_gen_mov_tl(env_btarget
, cpu_R
[dc
->dst
]);
903 cris_prepare_jmp(dc
, JMP_INDIRECT
);
904 dc
->delayed_branch
= 1;
912 static int dec10_dip(DisasContext
*dc
)
917 LOG_DIS("dip pc=%x opcode=%d r%d r%d\n",
918 dc
->pc
, dc
->opcode
, dc
->src
, dc
->dst
);
920 imm
= ldl_code(dc
->pc
+ 2);
921 tcg_gen_movi_tl(cpu_PR
[PR_PREFIX
], imm
);
924 tcg_gen_addi_tl(cpu_R
[15], cpu_R
[15], insn_len
- 2);
926 gen_load(dc
, cpu_PR
[PR_PREFIX
], cpu_R
[dc
->src
], 4, 0);
928 tcg_gen_addi_tl(cpu_R
[dc
->src
], cpu_R
[dc
->src
], 4);
935 static int dec10_bdap_m(DisasContext
*dc
, int size
)
940 LOG_DIS("bdap_m pc=%x opcode=%d r%d r%d sz=%d\n",
941 dc
->pc
, dc
->opcode
, dc
->src
, dc
->dst
, size
);
943 assert(dc
->dst
!= 15);
945 /* 8bit embedded offset? */
946 if (!dc
->postinc
&& (dc
->ir
& (1 << 11))) {
947 int simm
= dc
->ir
& 0xff;
949 /* cpu_abort(dc->env, "Unhandled opcode"); */
953 tcg_gen_addi_tl(cpu_PR
[PR_PREFIX
], cpu_R
[dc
->dst
], simm
);
959 /* Now the rest of the modes are truely indirect. */
960 insn_len
+= dec10_prep_move_m(dc
, 1, size
, cpu_PR
[PR_PREFIX
]);
961 tcg_gen_add_tl(cpu_PR
[PR_PREFIX
], cpu_PR
[PR_PREFIX
], cpu_R
[rd
]);
966 static unsigned int dec10_ind(DisasContext
*dc
)
968 unsigned int insn_len
= 2;
969 unsigned int size
= dec10_size(dc
->size
);
975 switch (dc
->opcode
) {
976 case CRISV10_IND_MOVE_M_R
:
977 return dec10_ind_move_m_r(dc
, size
);
979 case CRISV10_IND_MOVE_R_M
:
980 return dec10_ind_move_r_m(dc
, size
);
982 case CRISV10_IND_CMP
:
983 LOG_DIS("cmp size=%d op=%d %d\n", size
, dc
->src
, dc
->dst
);
984 cris_cc_mask(dc
, CC_MASK_NZVC
);
985 insn_len
+= dec10_ind_alu(dc
, CC_OP_CMP
, size
);
987 case CRISV10_IND_TEST
:
988 LOG_DIS("test size=%d op=%d %d\n", size
, dc
->src
, dc
->dst
);
990 cris_evaluate_flags(dc
);
991 cris_cc_mask(dc
, CC_MASK_NZVC
);
992 cris_alu_m_alloc_temps(t
);
993 insn_len
+= dec10_prep_move_m(dc
, 0, size
, t
[0]);
994 tcg_gen_andi_tl(cpu_PR
[PR_CCS
], cpu_PR
[PR_CCS
], ~3);
995 cris_alu(dc
, CC_OP_CMP
, cpu_R
[dc
->dst
],
996 t
[0], tcg_const_tl(0), size
);
997 cris_alu_m_free_temps(t
);
999 case CRISV10_IND_ADD
:
1000 LOG_DIS("add size=%d op=%d %d\n", size
, dc
->src
, dc
->dst
);
1001 cris_cc_mask(dc
, CC_MASK_NZVC
);
1002 insn_len
+= dec10_ind_alu(dc
, CC_OP_ADD
, size
);
1004 case CRISV10_IND_SUB
:
1005 LOG_DIS("sub size=%d op=%d %d\n", size
, dc
->src
, dc
->dst
);
1006 cris_cc_mask(dc
, CC_MASK_NZVC
);
1007 insn_len
+= dec10_ind_alu(dc
, CC_OP_SUB
, size
);
1009 case CRISV10_IND_BOUND
:
1010 LOG_DIS("bound size=%d op=%d %d\n", size
, dc
->src
, dc
->dst
);
1011 cris_cc_mask(dc
, CC_MASK_NZVC
);
1012 insn_len
+= dec10_ind_bound(dc
, size
);
1014 case CRISV10_IND_AND
:
1015 LOG_DIS("and size=%d op=%d %d\n", size
, dc
->src
, dc
->dst
);
1016 cris_cc_mask(dc
, CC_MASK_NZVC
);
1017 insn_len
+= dec10_ind_alu(dc
, CC_OP_AND
, size
);
1019 case CRISV10_IND_OR
:
1020 LOG_DIS("or size=%d op=%d %d\n", size
, dc
->src
, dc
->dst
);
1021 cris_cc_mask(dc
, CC_MASK_NZVC
);
1022 insn_len
+= dec10_ind_alu(dc
, CC_OP_OR
, size
);
1024 case CRISV10_IND_MOVX
:
1025 insn_len
= dec10_alux_m(dc
, CC_OP_MOVE
);
1027 case CRISV10_IND_ADDX
:
1028 insn_len
= dec10_alux_m(dc
, CC_OP_ADD
);
1030 case CRISV10_IND_SUBX
:
1031 insn_len
= dec10_alux_m(dc
, CC_OP_SUB
);
1033 case CRISV10_IND_CMPX
:
1034 insn_len
= dec10_alux_m(dc
, CC_OP_CMP
);
1036 case CRISV10_IND_MUL
:
1037 /* This is a reg insn coded in the mem indir space. */
1038 LOG_DIS("mul pc=%x opcode=%d\n", dc
->pc
, dc
->opcode
);
1039 cris_cc_mask(dc
, CC_MASK_NZVC
);
1040 dec10_reg_mul(dc
, size
, dc
->ir
& (1 << 10));
1042 case CRISV10_IND_BDAP_M
:
1043 insn_len
= dec10_bdap_m(dc
, size
);
1046 LOG_DIS("pc=%x var-ind.%d %d r%d r%d\n",
1047 dc
->pc
, size
, dc
->opcode
, dc
->src
, dc
->dst
);
1048 cpu_abort(dc
->env
, "Unhandled opcode");
1054 switch (dc
->opcode
) {
1055 case CRISV10_IND_MOVE_M_SPR
:
1056 insn_len
= dec10_ind_move_m_pr(dc
);
1058 case CRISV10_IND_MOVE_SPR_M
:
1059 insn_len
= dec10_ind_move_pr_m(dc
);
1061 case CRISV10_IND_JUMP_M
:
1062 if (dc
->src
== 15) {
1063 LOG_DIS("jump.%d %d r%d r%d direct\n", size
,
1064 dc
->opcode
, dc
->src
, dc
->dst
);
1065 imm
= ldl_code(dc
->pc
+ 2);
1066 if (dc
->mode
== CRISV10_MODE_AUTOINC
)
1069 t_gen_mov_preg_TN(dc
, dc
->dst
, tcg_const_tl(dc
->pc
+ insn_len
));
1071 cris_prepare_jmp(dc
, JMP_DIRECT
);
1072 dc
->delayed_branch
--; /* v10 has no dslot here. */
1074 if (dc
->dst
== 14) {
1075 LOG_DIS("break %d\n", dc
->src
);
1076 cris_evaluate_flags(dc
);
1077 tcg_gen_movi_tl(env_pc
, dc
->pc
+ 2);
1078 t_gen_raise_exception(EXCP_BREAK
);
1079 dc
->is_jmp
= DISAS_UPDATE
;
1082 LOG_DIS("%d: jump.%d %d r%d r%d\n", __LINE__
, size
,
1083 dc
->opcode
, dc
->src
, dc
->dst
);
1084 t
[0] = tcg_temp_new();
1085 t_gen_mov_preg_TN(dc
, dc
->dst
, tcg_const_tl(dc
->pc
+ insn_len
));
1086 crisv10_prepare_memaddr(dc
, t
[0], size
);
1087 gen_load(dc
, env_btarget
, t
[0], 4, 0);
1088 insn_len
+= crisv10_post_memaddr(dc
, size
);
1089 cris_prepare_jmp(dc
, JMP_INDIRECT
);
1090 dc
->delayed_branch
--; /* v10 has no dslot here. */
1091 tcg_temp_free(t
[0]);
1095 case CRISV10_IND_MOVEM_R_M
:
1096 LOG_DIS("movem_r_m pc=%x opcode=%d r%d r%d\n",
1097 dc
->pc
, dc
->opcode
, dc
->dst
, dc
->src
);
1098 dec10_movem_r_m(dc
);
1100 case CRISV10_IND_MOVEM_M_R
:
1101 LOG_DIS("movem_m_r pc=%x opcode=%d\n", dc
->pc
, dc
->opcode
);
1102 dec10_movem_m_r(dc
);
1104 case CRISV10_IND_JUMP_R
:
1105 LOG_DIS("jmp pc=%x opcode=%d r%d r%d\n",
1106 dc
->pc
, dc
->opcode
, dc
->dst
, dc
->src
);
1107 tcg_gen_mov_tl(env_btarget
, cpu_R
[dc
->src
]);
1108 t_gen_mov_preg_TN(dc
, dc
->dst
, tcg_const_tl(dc
->pc
+ insn_len
));
1109 cris_prepare_jmp(dc
, JMP_INDIRECT
);
1110 dc
->delayed_branch
--; /* v10 has no dslot here. */
1112 case CRISV10_IND_MOVX
:
1113 insn_len
= dec10_alux_m(dc
, CC_OP_MOVE
);
1115 case CRISV10_IND_ADDX
:
1116 insn_len
= dec10_alux_m(dc
, CC_OP_ADD
);
1118 case CRISV10_IND_SUBX
:
1119 insn_len
= dec10_alux_m(dc
, CC_OP_SUB
);
1121 case CRISV10_IND_CMPX
:
1122 insn_len
= dec10_alux_m(dc
, CC_OP_CMP
);
1124 case CRISV10_IND_DIP
:
1125 insn_len
= dec10_dip(dc
);
1127 case CRISV10_IND_BCC_M
:
1129 cris_cc_mask(dc
, 0);
1130 imm
= ldsw_code(dc
->pc
+ 2);
1131 simm
= (int16_t)imm
;
1134 LOG_DIS("bcc_m: b%s %x\n", cc_name(dc
->cond
), dc
->pc
+ simm
);
1135 cris_prepare_cc_branch(dc
, simm
, dc
->cond
);
1139 LOG_DIS("ERROR pc=%x opcode=%d\n", dc
->pc
, dc
->opcode
);
1140 cpu_abort(dc
->env
, "Unhandled opcode");
1147 static unsigned int crisv10_decoder(DisasContext
*dc
)
1149 unsigned int insn_len
= 2;
1151 if (unlikely(qemu_loglevel_mask(CPU_LOG_TB_OP
)))
1152 tcg_gen_debug_insn_start(dc
->pc
);
1154 /* Load a halfword onto the instruction register. */
1155 dc
->ir
= lduw_code(dc
->pc
);
1157 /* Now decode it. */
1158 dc
->opcode
= EXTRACT_FIELD(dc
->ir
, 6, 9);
1159 dc
->mode
= EXTRACT_FIELD(dc
->ir
, 10, 11);
1160 dc
->src
= EXTRACT_FIELD(dc
->ir
, 0, 3);
1161 dc
->size
= EXTRACT_FIELD(dc
->ir
, 4, 5);
1162 dc
->cond
= dc
->dst
= EXTRACT_FIELD(dc
->ir
, 12, 15);
1163 dc
->postinc
= EXTRACT_FIELD(dc
->ir
, 10, 10);
1165 dc
->clear_prefix
= 1;
1167 /* FIXME: What if this insn insn't 2 in length?? */
1168 if (dc
->src
== 15 || dc
->dst
== 15)
1169 tcg_gen_movi_tl(cpu_R
[15], dc
->pc
+ 2);
1172 case CRISV10_MODE_QIMMEDIATE
:
1173 insn_len
= dec10_quick_imm(dc
);
1175 case CRISV10_MODE_REG
:
1176 insn_len
= dec10_reg(dc
);
1178 case CRISV10_MODE_AUTOINC
:
1179 case CRISV10_MODE_INDIRECT
:
1180 insn_len
= dec10_ind(dc
);
1184 if (dc
->clear_prefix
&& dc
->tb_flags
& PFIX_FLAG
) {
1185 dc
->tb_flags
&= ~PFIX_FLAG
;
1186 tcg_gen_andi_tl(cpu_PR
[PR_CCS
], cpu_PR
[PR_CCS
], ~PFIX_FLAG
);
1187 if (dc
->tb_flags
!= dc
->tb
->flags
) {
1188 dc
->cpustate_changed
= 1;
1192 /* CRISv10 locks out interrupts on dslots. */
1193 if (dc
->delayed_branch
== 2) {
1199 static CPUCRISState
*cpu_crisv10_init (CPUState
*env
)
1203 cpu_env
= tcg_global_reg_new_ptr(TCG_AREG0
, "env");
1204 cc_x
= tcg_global_mem_new(TCG_AREG0
,
1205 offsetof(CPUState
, cc_x
), "cc_x");
1206 cc_src
= tcg_global_mem_new(TCG_AREG0
,
1207 offsetof(CPUState
, cc_src
), "cc_src");
1208 cc_dest
= tcg_global_mem_new(TCG_AREG0
,
1209 offsetof(CPUState
, cc_dest
),
1211 cc_result
= tcg_global_mem_new(TCG_AREG0
,
1212 offsetof(CPUState
, cc_result
),
1214 cc_op
= tcg_global_mem_new(TCG_AREG0
,
1215 offsetof(CPUState
, cc_op
), "cc_op");
1216 cc_size
= tcg_global_mem_new(TCG_AREG0
,
1217 offsetof(CPUState
, cc_size
),
1219 cc_mask
= tcg_global_mem_new(TCG_AREG0
,
1220 offsetof(CPUState
, cc_mask
),
1223 env_pc
= tcg_global_mem_new(TCG_AREG0
,
1224 offsetof(CPUState
, pc
),
1226 env_btarget
= tcg_global_mem_new(TCG_AREG0
,
1227 offsetof(CPUState
, btarget
),
1229 env_btaken
= tcg_global_mem_new(TCG_AREG0
,
1230 offsetof(CPUState
, btaken
),
1232 for (i
= 0; i
< 16; i
++) {
1233 cpu_R
[i
] = tcg_global_mem_new(TCG_AREG0
,
1234 offsetof(CPUState
, regs
[i
]),
1237 for (i
= 0; i
< 16; i
++) {
1238 cpu_PR
[i
] = tcg_global_mem_new(TCG_AREG0
,
1239 offsetof(CPUState
, pregs
[i
]),