]>
git.proxmox.com Git - qemu.git/blob - target-cris/translate_v10.c
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
,
118 is_imm
= rs
== 15 && !(dc
->tb_flags
& PFIX_FLAG
);
119 LOG_DIS("rs=%d rd=%d is_imm=%d mode=%d pfix=%d\n",
120 rs
, rd
, is_imm
, dc
->mode
, dc
->tb_flags
& PFIX_FLAG
);
122 /* Load [$rs] onto T1. */
127 imm
= ldsb_code(dc
->pc
+ 2);
129 imm
= ldsw_code(dc
->pc
+ 2);
132 imm
= ldub_code(dc
->pc
+ 2);
134 imm
= lduw_code(dc
->pc
+ 2);
137 imm
= ldl_code(dc
->pc
+ 2);
139 tcg_gen_movi_tl(dst
, imm
);
141 if (dc
->mode
== CRISV10_MODE_AUTOINC
) {
145 tcg_gen_addi_tl(cpu_R
[15], cpu_R
[15], insn_len
);
150 addr
= tcg_temp_new();
151 cris_flush_cc_state(dc
);
152 crisv10_prepare_memaddr(dc
, addr
, memsize
);
153 gen_load(dc
, dst
, addr
, memsize
, 0);
155 t_gen_sext(dst
, dst
, memsize
);
157 t_gen_zext(dst
, dst
, memsize
);
158 insn_len
+= crisv10_post_memaddr(dc
, memsize
);
162 if (dc
->mode
== CRISV10_MODE_INDIRECT
&& (dc
->tb_flags
& PFIX_FLAG
)) {
168 static unsigned int dec10_quick_imm(DisasContext
*dc
)
174 imm
= dc
->ir
& ((1 << 6) - 1);
175 simm
= (int8_t) (imm
<< 2);
177 switch (dc
->opcode
) {
178 case CRISV10_QIMM_BDAP_R0
:
179 case CRISV10_QIMM_BDAP_R1
:
180 case CRISV10_QIMM_BDAP_R2
:
181 case CRISV10_QIMM_BDAP_R3
:
182 simm
= (int8_t)dc
->ir
;
183 LOG_DIS("bdap %d $r%d\n", simm
, dc
->dst
);
184 LOG_DIS("pc=%x mode=%x quickimm %d r%d r%d\n",
185 dc
->pc
, dc
->mode
, dc
->opcode
, dc
->src
, dc
->dst
);
188 tcg_gen_movi_tl(cpu_PR
[PR_PREFIX
], dc
->pc
+ 2 + simm
);
190 tcg_gen_addi_tl(cpu_PR
[PR_PREFIX
], cpu_R
[dc
->dst
], simm
);
194 case CRISV10_QIMM_MOVEQ
:
195 LOG_DIS("moveq %d, $r%d\n", simm
, dc
->dst
);
197 cris_cc_mask(dc
, CC_MASK_NZVC
);
198 cris_alu(dc
, CC_OP_MOVE
, cpu_R
[dc
->dst
],
199 cpu_R
[dc
->dst
], tcg_const_tl(simm
), 4);
201 case CRISV10_QIMM_CMPQ
:
202 LOG_DIS("cmpq %d, $r%d\n", simm
, dc
->dst
);
204 cris_cc_mask(dc
, CC_MASK_NZVC
);
205 cris_alu(dc
, CC_OP_CMP
, cpu_R
[dc
->dst
],
206 cpu_R
[dc
->dst
], tcg_const_tl(simm
), 4);
208 case CRISV10_QIMM_ADDQ
:
209 LOG_DIS("addq %d, $r%d\n", imm
, dc
->dst
);
211 cris_cc_mask(dc
, CC_MASK_NZVC
);
212 cris_alu(dc
, CC_OP_ADD
, cpu_R
[dc
->dst
],
213 cpu_R
[dc
->dst
], tcg_const_tl(imm
), 4);
215 case CRISV10_QIMM_ANDQ
:
216 LOG_DIS("andq %d, $r%d\n", simm
, dc
->dst
);
218 cris_cc_mask(dc
, CC_MASK_NZVC
);
219 cris_alu(dc
, CC_OP_AND
, cpu_R
[dc
->dst
],
220 cpu_R
[dc
->dst
], tcg_const_tl(simm
), 4);
222 case CRISV10_QIMM_ASHQ
:
223 LOG_DIS("ashq %d, $r%d\n", simm
, dc
->dst
);
225 cris_cc_mask(dc
, CC_MASK_NZVC
);
229 cris_alu(dc
, CC_OP_ASR
, cpu_R
[dc
->dst
],
230 cpu_R
[dc
->dst
], tcg_const_tl(imm
), 4);
233 cris_update_cc_op(dc
, CC_OP_FLAGS
, 4);
234 gen_helper_btst(cpu_PR
[PR_CCS
], cpu_R
[dc
->dst
],
235 tcg_const_tl(imm
), cpu_PR
[PR_CCS
]);
238 case CRISV10_QIMM_LSHQ
:
239 LOG_DIS("lshq %d, $r%d\n", simm
, dc
->dst
);
242 if (imm
& (1 << 5)) {
246 cris_cc_mask(dc
, CC_MASK_NZVC
);
247 cris_alu(dc
, op
, cpu_R
[dc
->dst
],
248 cpu_R
[dc
->dst
], tcg_const_tl(imm
), 4);
250 case CRISV10_QIMM_SUBQ
:
251 LOG_DIS("subq %d, $r%d\n", imm
, dc
->dst
);
253 cris_cc_mask(dc
, CC_MASK_NZVC
);
254 cris_alu(dc
, CC_OP_SUB
, cpu_R
[dc
->dst
],
255 cpu_R
[dc
->dst
], tcg_const_tl(imm
), 4);
257 case CRISV10_QIMM_ORQ
:
258 LOG_DIS("andq %d, $r%d\n", simm
, dc
->dst
);
260 cris_cc_mask(dc
, CC_MASK_NZVC
);
261 cris_alu(dc
, CC_OP_OR
, cpu_R
[dc
->dst
],
262 cpu_R
[dc
->dst
], tcg_const_tl(simm
), 4);
265 case CRISV10_QIMM_BCC_R0
:
267 cpu_abort(dc
->env
, "opcode zero\n");
269 case CRISV10_QIMM_BCC_R1
:
270 case CRISV10_QIMM_BCC_R2
:
271 case CRISV10_QIMM_BCC_R3
:
273 /* bit 0 is a sign bit. */
275 imm
|= 0xffffff00; /* sign extend. */
276 imm
&= ~1; /* get rid of the sign bit. */
279 LOG_DIS("b%s %d\n", cc_name(dc
->cond
), imm
);
282 cris_prepare_cc_branch(dc
, imm
, dc
->cond
);
286 LOG_DIS("pc=%x mode=%x quickimm %d r%d r%d\n",
287 dc
->pc
, dc
->mode
, dc
->opcode
, dc
->src
, dc
->dst
);
294 static unsigned int dec10_setclrf(DisasContext
*dc
)
297 unsigned int set
= ~dc
->opcode
& 1;
299 flags
= EXTRACT_FIELD(dc
->ir
, 0, 3)
300 | (EXTRACT_FIELD(dc
->ir
, 12, 15) << 4);
301 LOG_DIS("%s set=%d flags=%x\n", __func__
, set
, flags
);
304 if (flags
& X_FLAG
) {
307 dc
->flags_x
= X_FLAG
;
312 cris_evaluate_flags (dc
);
313 cris_update_cc_op(dc
, CC_OP_FLAGS
, 4);
314 cris_update_cc_x(dc
);
315 tcg_gen_movi_tl(cc_op
, dc
->cc_op
);
318 tcg_gen_ori_tl(cpu_PR
[PR_CCS
], cpu_PR
[PR_CCS
], flags
);
320 tcg_gen_andi_tl(cpu_PR
[PR_CCS
], cpu_PR
[PR_CCS
], ~flags
);
323 dc
->flags_uptodate
= 1;
329 static inline void dec10_reg_prep_sext(DisasContext
*dc
, int size
, int sext
,
330 TCGv dd
, TCGv ds
, TCGv sd
, TCGv ss
)
333 t_gen_sext(dd
, sd
, size
);
334 t_gen_sext(ds
, ss
, size
);
336 t_gen_zext(dd
, sd
, size
);
337 t_gen_zext(ds
, ss
, size
);
341 static void dec10_reg_alu(DisasContext
*dc
, int op
, int size
, int sext
)
345 t
[0] = tcg_temp_new();
346 t
[1] = tcg_temp_new();
347 dec10_reg_prep_sext(dc
, size
, sext
,
348 t
[0], t
[1], cpu_R
[dc
->dst
], cpu_R
[dc
->src
]);
350 if (op
== CC_OP_LSL
|| op
== CC_OP_LSR
|| op
== CC_OP_ASR
) {
351 tcg_gen_andi_tl(t
[1], t
[1], 63);
354 assert(dc
->dst
!= 15);
355 cris_alu(dc
, op
, cpu_R
[dc
->dst
], t
[0], t
[1], size
);
360 static void dec10_reg_bound(DisasContext
*dc
, int size
)
364 t
= tcg_temp_local_new();
365 t_gen_zext(t
, cpu_R
[dc
->src
], size
);
366 cris_alu(dc
, CC_OP_BOUND
, cpu_R
[dc
->dst
], cpu_R
[dc
->dst
], t
, 4);
370 static void dec10_reg_mul(DisasContext
*dc
, int size
, int sext
)
372 int op
= sext
? CC_OP_MULS
: CC_OP_MULU
;
375 t
[0] = tcg_temp_new();
376 t
[1] = tcg_temp_new();
377 dec10_reg_prep_sext(dc
, size
, sext
,
378 t
[0], t
[1], cpu_R
[dc
->dst
], cpu_R
[dc
->src
]);
380 cris_alu(dc
, op
, cpu_R
[dc
->dst
], t
[0], t
[1], 4);
387 static void dec10_reg_movs(DisasContext
*dc
)
389 int size
= (dc
->size
& 1) + 1;
392 LOG_DIS("movx.%d $r%d, $r%d\n", size
, dc
->src
, dc
->dst
);
393 cris_cc_mask(dc
, CC_MASK_NZVC
);
397 t_gen_sext(t
, cpu_R
[dc
->src
], size
);
399 t_gen_zext(t
, cpu_R
[dc
->src
], size
);
401 cris_alu(dc
, CC_OP_MOVE
, cpu_R
[dc
->dst
], cpu_R
[dc
->dst
], t
, 4);
405 static void dec10_reg_alux(DisasContext
*dc
, int op
)
407 int size
= (dc
->size
& 1) + 1;
410 LOG_DIS("movx.%d $r%d, $r%d\n", size
, dc
->src
, dc
->dst
);
411 cris_cc_mask(dc
, CC_MASK_NZVC
);
415 t_gen_sext(t
, cpu_R
[dc
->src
], size
);
417 t_gen_zext(t
, cpu_R
[dc
->src
], size
);
419 cris_alu(dc
, op
, cpu_R
[dc
->dst
], cpu_R
[dc
->dst
], t
, 4);
423 static void dec10_reg_mov_pr(DisasContext
*dc
)
425 LOG_DIS("move p%d r%d sz=%d\n", dc
->dst
, dc
->src
, preg_sizes_v10
[dc
->dst
]);
428 tcg_gen_mov_tl(env_btarget
, cpu_PR
[dc
->dst
]);
429 cris_prepare_jmp(dc
, JMP_INDIRECT
);
432 if (dc
->dst
== PR_CCS
) {
433 cris_evaluate_flags(dc
);
435 cris_alu(dc
, CC_OP_MOVE
, cpu_R
[dc
->src
],
436 cpu_R
[dc
->src
], cpu_PR
[dc
->dst
], preg_sizes_v10
[dc
->dst
]);
439 static void dec10_reg_abs(DisasContext
*dc
)
443 LOG_DIS("abs $r%u, $r%u\n", dc
->src
, dc
->dst
);
445 assert(dc
->dst
!= 15);
447 tcg_gen_sari_tl(t0
, cpu_R
[dc
->src
], 31);
448 tcg_gen_xor_tl(cpu_R
[dc
->dst
], cpu_R
[dc
->src
], t0
);
449 tcg_gen_sub_tl(t0
, cpu_R
[dc
->dst
], t0
);
451 cris_alu(dc
, CC_OP_MOVE
, cpu_R
[dc
->dst
], cpu_R
[dc
->dst
], t0
, 4);
455 static void dec10_reg_swap(DisasContext
*dc
)
459 LOG_DIS("not $r%d, $r%d\n", dc
->src
, dc
->dst
);
461 cris_cc_mask(dc
, CC_MASK_NZVC
);
463 t_gen_mov_TN_reg(t0
, dc
->src
);
465 tcg_gen_not_tl(t0
, t0
);
472 cris_alu(dc
, CC_OP_MOVE
, cpu_R
[dc
->src
], cpu_R
[dc
->src
], t0
, 4);
476 static void dec10_reg_scc(DisasContext
*dc
)
480 LOG_DIS("s%s $r%u\n", cc_name(cond
), dc
->src
);
486 gen_tst_cc (dc
, cpu_R
[dc
->src
], cond
);
487 l1
= gen_new_label();
488 tcg_gen_brcondi_tl(TCG_COND_EQ
, cpu_R
[dc
->src
], 0, l1
);
489 tcg_gen_movi_tl(cpu_R
[dc
->src
], 1);
492 tcg_gen_movi_tl(cpu_R
[dc
->src
], 1);
498 static unsigned int dec10_reg(DisasContext
*dc
)
501 unsigned int insn_len
= 2;
502 unsigned int size
= dec10_size(dc
->size
);
506 switch (dc
->opcode
) {
507 case CRISV10_REG_MOVE_R
:
508 LOG_DIS("move.%d $r%d, $r%d\n", dc
->size
, dc
->src
, dc
->dst
);
509 cris_cc_mask(dc
, CC_MASK_NZVC
);
510 dec10_reg_alu(dc
, CC_OP_MOVE
, size
, 0);
512 tcg_gen_mov_tl(env_btarget
, cpu_R
[dc
->dst
]);
513 cris_prepare_jmp(dc
, JMP_INDIRECT
);
514 dc
->delayed_branch
= 1;
517 case CRISV10_REG_MOVX
:
518 cris_cc_mask(dc
, CC_MASK_NZVC
);
521 case CRISV10_REG_ADDX
:
522 cris_cc_mask(dc
, CC_MASK_NZVC
);
523 dec10_reg_alux(dc
, CC_OP_ADD
);
525 case CRISV10_REG_SUBX
:
526 cris_cc_mask(dc
, CC_MASK_NZVC
);
527 dec10_reg_alux(dc
, CC_OP_SUB
);
529 case CRISV10_REG_ADD
:
530 LOG_DIS("add $r%d, $r%d sz=%d\n", dc
->src
, dc
->dst
, size
);
531 cris_cc_mask(dc
, CC_MASK_NZVC
);
532 dec10_reg_alu(dc
, CC_OP_ADD
, size
, 0);
534 case CRISV10_REG_SUB
:
535 LOG_DIS("sub $r%d, $r%d sz=%d\n", dc
->src
, dc
->dst
, size
);
536 cris_cc_mask(dc
, CC_MASK_NZVC
);
537 dec10_reg_alu(dc
, CC_OP_SUB
, size
, 0);
539 case CRISV10_REG_CMP
:
540 LOG_DIS("cmp $r%d, $r%d sz=%d\n", dc
->src
, dc
->dst
, size
);
541 cris_cc_mask(dc
, CC_MASK_NZVC
);
542 dec10_reg_alu(dc
, CC_OP_CMP
, size
, 0);
544 case CRISV10_REG_BOUND
:
545 LOG_DIS("bound $r%d, $r%d sz=%d\n", dc
->src
, dc
->dst
, size
);
546 cris_cc_mask(dc
, CC_MASK_NZVC
);
547 dec10_reg_bound(dc
, size
);
549 case CRISV10_REG_AND
:
550 LOG_DIS("and $r%d, $r%d sz=%d\n", dc
->src
, dc
->dst
, size
);
551 cris_cc_mask(dc
, CC_MASK_NZVC
);
552 dec10_reg_alu(dc
, CC_OP_AND
, size
, 0);
554 case CRISV10_REG_ADDI
:
560 LOG_DIS("addi r%d r%d size=%d\n", dc
->src
, dc
->dst
, dc
->size
);
561 tcg_gen_shli_tl(t
, cpu_R
[dc
->dst
], dc
->size
& 3);
562 tcg_gen_add_tl(cpu_R
[dc
->src
], cpu_R
[dc
->src
], t
);
565 case CRISV10_REG_LSL
:
566 LOG_DIS("lsl $r%d, $r%d sz=%d\n", dc
->src
, dc
->dst
, size
);
567 cris_cc_mask(dc
, CC_MASK_NZVC
);
568 dec10_reg_alu(dc
, CC_OP_LSL
, size
, 0);
570 case CRISV10_REG_LSR
:
571 LOG_DIS("lsr $r%d, $r%d sz=%d\n", dc
->src
, dc
->dst
, size
);
572 cris_cc_mask(dc
, CC_MASK_NZVC
);
573 dec10_reg_alu(dc
, CC_OP_LSR
, size
, 0);
575 case CRISV10_REG_ASR
:
576 LOG_DIS("asr $r%d, $r%d sz=%d\n", dc
->src
, dc
->dst
, size
);
577 cris_cc_mask(dc
, CC_MASK_NZVC
);
578 dec10_reg_alu(dc
, CC_OP_ASR
, size
, 1);
581 LOG_DIS("or $r%d, $r%d sz=%d\n", dc
->src
, dc
->dst
, size
);
582 cris_cc_mask(dc
, CC_MASK_NZVC
);
583 dec10_reg_alu(dc
, CC_OP_OR
, size
, 0);
585 case CRISV10_REG_NEG
:
586 LOG_DIS("neg $r%d, $r%d sz=%d\n", dc
->src
, dc
->dst
, size
);
587 cris_cc_mask(dc
, CC_MASK_NZVC
);
588 dec10_reg_alu(dc
, CC_OP_NEG
, size
, 0);
590 case CRISV10_REG_BIAP
:
591 LOG_DIS("BIAP pc=%x reg %d r%d r%d size=%d\n", dc
->pc
,
592 dc
->opcode
, dc
->src
, dc
->dst
, size
);
594 case 4: tmp
= 2; break;
595 case 2: tmp
= 1; break;
596 case 1: tmp
= 0; break;
597 default: assert(0); break;
601 tcg_gen_shli_tl(t
, cpu_R
[dc
->dst
], tmp
);
603 tcg_gen_addi_tl(cpu_PR
[PR_PREFIX
], t
, ((dc
->pc
+2)| 1) + 1);
605 tcg_gen_add_tl(cpu_PR
[PR_PREFIX
], cpu_R
[dc
->src
], t
);
612 LOG_DIS("pc=%x reg %d r%d r%d\n", dc
->pc
,
613 dc
->opcode
, dc
->src
, dc
->dst
);
618 switch (dc
->opcode
) {
619 case CRISV10_REG_MOVX
:
620 cris_cc_mask(dc
, CC_MASK_NZVC
);
623 case CRISV10_REG_ADDX
:
624 cris_cc_mask(dc
, CC_MASK_NZVC
);
625 dec10_reg_alux(dc
, CC_OP_ADD
);
627 case CRISV10_REG_SUBX
:
628 cris_cc_mask(dc
, CC_MASK_NZVC
);
629 dec10_reg_alux(dc
, CC_OP_SUB
);
631 case CRISV10_REG_MOVE_SPR_R
:
632 cris_evaluate_flags(dc
);
634 dec10_reg_mov_pr(dc
);
636 case CRISV10_REG_MOVE_R_SPR
:
637 LOG_DIS("move r%d p%d\n", dc
->src
, dc
->dst
);
638 cris_evaluate_flags(dc
);
639 if (dc
->src
!= 11) /* fast for srp. */
640 dc
->cpustate_changed
= 1;
641 t_gen_mov_preg_TN(dc
, dc
->dst
, cpu_R
[dc
->src
]);
643 case CRISV10_REG_SETF
:
644 case CRISV10_REG_CLEARF
:
647 case CRISV10_REG_SWAP
:
650 case CRISV10_REG_ABS
:
651 cris_cc_mask(dc
, CC_MASK_NZVC
);
655 LOG_DIS("lz $r%d, $r%d sz=%d\n", dc
->src
, dc
->dst
, size
);
656 cris_cc_mask(dc
, CC_MASK_NZVC
);
657 dec10_reg_alu(dc
, CC_OP_LZ
, 4, 0);
659 case CRISV10_REG_XOR
:
660 LOG_DIS("xor $r%d, $r%d sz=%d\n", dc
->src
, dc
->dst
, size
);
661 cris_cc_mask(dc
, CC_MASK_NZVC
);
662 dec10_reg_alu(dc
, CC_OP_XOR
, 4, 0);
664 case CRISV10_REG_BTST
:
665 LOG_DIS("btst $r%d, $r%d sz=%d\n", dc
->src
, dc
->dst
, size
);
666 cris_cc_mask(dc
, CC_MASK_NZVC
);
667 cris_update_cc_op(dc
, CC_OP_FLAGS
, 4);
668 gen_helper_btst(cpu_PR
[PR_CCS
], cpu_R
[dc
->dst
],
669 cpu_R
[dc
->src
], cpu_PR
[PR_CCS
]);
671 case CRISV10_REG_DSTEP
:
672 LOG_DIS("dstep $r%d, $r%d sz=%d\n", dc
->src
, dc
->dst
, size
);
673 cris_cc_mask(dc
, CC_MASK_NZVC
);
674 cris_alu(dc
, CC_OP_DSTEP
, cpu_R
[dc
->dst
],
675 cpu_R
[dc
->dst
], cpu_R
[dc
->src
], 4);
677 case CRISV10_REG_MSTEP
:
678 LOG_DIS("mstep $r%d, $r%d sz=%d\n", dc
->src
, dc
->dst
, size
);
679 cris_evaluate_flags(dc
);
680 cris_cc_mask(dc
, CC_MASK_NZVC
);
681 cris_alu(dc
, CC_OP_MSTEP
, cpu_R
[dc
->dst
],
682 cpu_R
[dc
->dst
], cpu_R
[dc
->src
], 4);
684 case CRISV10_REG_SCC
:
688 LOG_DIS("pc=%x reg %d r%d r%d\n", dc
->pc
,
689 dc
->opcode
, dc
->src
, dc
->dst
);
697 static unsigned int dec10_ind_move_m_r(DisasContext
*dc
, unsigned int size
)
699 unsigned int insn_len
= 2;
702 LOG_DIS("%s: move.%d [$r%d], $r%d\n", __func__
,
703 size
, dc
->src
, dc
->dst
);
705 cris_cc_mask(dc
, CC_MASK_NZVC
);
707 insn_len
+= dec10_prep_move_m(dc
, 0, size
, t
);
708 cris_alu(dc
, CC_OP_MOVE
, cpu_R
[dc
->dst
], cpu_R
[dc
->dst
], t
, size
);
710 tcg_gen_mov_tl(env_btarget
, cpu_R
[dc
->dst
]);
711 cris_prepare_jmp(dc
, JMP_INDIRECT
);
712 dc
->delayed_branch
= 1;
720 static unsigned int dec10_ind_move_r_m(DisasContext
*dc
, unsigned int size
)
722 unsigned int insn_len
= 2;
725 LOG_DIS("move.%d $r%d, [$r%d]\n", dc
->size
, dc
->src
, dc
->dst
);
726 addr
= tcg_temp_new();
727 crisv10_prepare_memaddr(dc
, addr
, size
);
728 gen_store(dc
, addr
, cpu_R
[dc
->dst
], size
);
729 insn_len
+= crisv10_post_memaddr(dc
, size
);
734 static unsigned int dec10_ind_move_m_pr(DisasContext
*dc
)
736 unsigned int insn_len
= 2, rd
= dc
->dst
;
739 LOG_DIS("move.%d $p%d, [$r%d]\n", dc
->size
, dc
->dst
, dc
->src
);
742 addr
= tcg_temp_new();
744 insn_len
+= dec10_prep_move_m(dc
, 0, 4, t
);
746 tcg_gen_mov_tl(env_btarget
, t
);
747 cris_prepare_jmp(dc
, JMP_INDIRECT
);
748 dc
->delayed_branch
= 1;
752 tcg_gen_mov_tl(cpu_PR
[rd
], t
);
753 dc
->cpustate_changed
= 1;
759 static unsigned int dec10_ind_move_pr_m(DisasContext
*dc
)
761 unsigned int insn_len
= 2, size
= preg_sizes_v10
[dc
->dst
];
764 LOG_DIS("move.%d $p%d, [$r%d]\n", dc
->size
, dc
->dst
, dc
->src
);
766 addr
= tcg_temp_new();
767 crisv10_prepare_memaddr(dc
, addr
, size
);
768 if (dc
->dst
== PR_CCS
) {
770 cris_evaluate_flags(dc
);
771 tcg_gen_andi_tl(t0
, cpu_PR
[PR_CCS
], ~PFIX_FLAG
);
772 gen_store(dc
, addr
, t0
, size
);
775 gen_store(dc
, addr
, cpu_PR
[dc
->dst
], size
);
778 insn_len
+= crisv10_post_memaddr(dc
, size
);
784 static void dec10_movem_r_m(DisasContext
*dc
)
786 int i
, pfix
= dc
->tb_flags
& PFIX_FLAG
;
789 LOG_DIS("%s r%d, [r%d] pi=%d ir=%x\n", __func__
,
790 dc
->dst
, dc
->src
, dc
->postinc
, dc
->ir
);
792 addr
= tcg_temp_new();
794 crisv10_prepare_memaddr(dc
, addr
, 4);
795 tcg_gen_mov_tl(t0
, addr
);
796 for (i
= dc
->dst
; i
>= 0; i
--) {
797 if ((pfix
&& dc
->mode
== CRISV10_MODE_AUTOINC
) && dc
->src
== i
) {
798 gen_store(dc
, addr
, t0
, 4);
800 gen_store(dc
, addr
, cpu_R
[i
], 4);
802 tcg_gen_addi_tl(addr
, addr
, 4);
805 if (pfix
&& dc
->mode
== CRISV10_MODE_AUTOINC
) {
806 tcg_gen_mov_tl(cpu_R
[dc
->src
], t0
);
809 if (!pfix
&& dc
->mode
== CRISV10_MODE_AUTOINC
) {
810 tcg_gen_mov_tl(cpu_R
[dc
->src
], addr
);
816 static void dec10_movem_m_r(DisasContext
*dc
)
818 int i
, pfix
= dc
->tb_flags
& PFIX_FLAG
;
821 LOG_DIS("%s [r%d], r%d pi=%d ir=%x\n", __func__
,
822 dc
->src
, dc
->dst
, dc
->postinc
, dc
->ir
);
824 addr
= tcg_temp_new();
826 crisv10_prepare_memaddr(dc
, addr
, 4);
827 tcg_gen_mov_tl(t0
, addr
);
828 for (i
= dc
->dst
; i
>= 0; i
--) {
829 gen_load(dc
, cpu_R
[i
], addr
, 4, 0);
830 tcg_gen_addi_tl(addr
, addr
, 4);
833 if (pfix
&& dc
->mode
== CRISV10_MODE_AUTOINC
) {
834 tcg_gen_mov_tl(cpu_R
[dc
->src
], t0
);
837 if (!pfix
&& dc
->mode
== CRISV10_MODE_AUTOINC
) {
838 tcg_gen_mov_tl(cpu_R
[dc
->src
], addr
);
844 static int dec10_ind_alu(DisasContext
*dc
, int op
, unsigned int size
)
850 cris_alu_m_alloc_temps(t
);
851 insn_len
+= dec10_prep_move_m(dc
, 0, size
, t
[0]);
852 cris_alu(dc
, op
, cpu_R
[dc
->dst
], cpu_R
[rd
], t
[0], size
);
854 tcg_gen_mov_tl(env_btarget
, cpu_R
[dc
->dst
]);
855 cris_prepare_jmp(dc
, JMP_INDIRECT
);
856 dc
->delayed_branch
= 1;
860 cris_alu_m_free_temps(t
);
865 static int dec10_ind_bound(DisasContext
*dc
, unsigned int size
)
871 t
= tcg_temp_local_new();
872 insn_len
+= dec10_prep_move_m(dc
, 0, size
, t
);
873 cris_alu(dc
, CC_OP_BOUND
, cpu_R
[dc
->dst
], cpu_R
[rd
], t
, 4);
875 tcg_gen_mov_tl(env_btarget
, cpu_R
[dc
->dst
]);
876 cris_prepare_jmp(dc
, JMP_INDIRECT
);
877 dc
->delayed_branch
= 1;
885 static int dec10_alux_m(DisasContext
*dc
, int op
)
887 unsigned int size
= (dc
->size
& 1) ? 2 : 1;
888 unsigned int sx
= !!(dc
->size
& 2);
893 LOG_DIS("addx size=%d sx=%d op=%d %d\n", size
, sx
, dc
->src
, dc
->dst
);
897 cris_cc_mask(dc
, CC_MASK_NZVC
);
898 insn_len
+= dec10_prep_move_m(dc
, sx
, size
, t
);
899 cris_alu(dc
, op
, cpu_R
[dc
->dst
], cpu_R
[rd
], t
, 4);
901 tcg_gen_mov_tl(env_btarget
, cpu_R
[dc
->dst
]);
902 cris_prepare_jmp(dc
, JMP_INDIRECT
);
903 dc
->delayed_branch
= 1;
911 static int dec10_dip(DisasContext
*dc
)
916 LOG_DIS("dip pc=%x opcode=%d r%d r%d\n",
917 dc
->pc
, dc
->opcode
, dc
->src
, dc
->dst
);
919 imm
= ldl_code(dc
->pc
+ 2);
920 tcg_gen_movi_tl(cpu_PR
[PR_PREFIX
], imm
);
923 tcg_gen_addi_tl(cpu_R
[15], cpu_R
[15], insn_len
- 2);
925 gen_load(dc
, cpu_PR
[PR_PREFIX
], cpu_R
[dc
->src
], 4, 0);
927 tcg_gen_addi_tl(cpu_R
[dc
->src
], cpu_R
[dc
->src
], 4);
934 static int dec10_bdap_m(DisasContext
*dc
, int size
)
939 LOG_DIS("bdap_m pc=%x opcode=%d r%d r%d sz=%d\n",
940 dc
->pc
, dc
->opcode
, dc
->src
, dc
->dst
, size
);
942 assert(dc
->dst
!= 15);
944 /* 8bit embedded offset? */
945 if (!dc
->postinc
&& (dc
->ir
& (1 << 11))) {
946 int simm
= dc
->ir
& 0xff;
952 tcg_gen_addi_tl(cpu_PR
[PR_PREFIX
], cpu_R
[dc
->dst
], simm
);
958 /* Now the rest of the modes are truely indirect. */
959 insn_len
+= dec10_prep_move_m(dc
, 1, size
, cpu_PR
[PR_PREFIX
]);
960 tcg_gen_add_tl(cpu_PR
[PR_PREFIX
], cpu_PR
[PR_PREFIX
], cpu_R
[rd
]);
965 static unsigned int dec10_ind(DisasContext
*dc
)
967 unsigned int insn_len
= 2;
968 unsigned int size
= dec10_size(dc
->size
);
974 switch (dc
->opcode
) {
975 case CRISV10_IND_MOVE_M_R
:
976 return dec10_ind_move_m_r(dc
, size
);
978 case CRISV10_IND_MOVE_R_M
:
979 return dec10_ind_move_r_m(dc
, size
);
981 case CRISV10_IND_CMP
:
982 LOG_DIS("cmp size=%d op=%d %d\n", size
, dc
->src
, dc
->dst
);
983 cris_cc_mask(dc
, CC_MASK_NZVC
);
984 insn_len
+= dec10_ind_alu(dc
, CC_OP_CMP
, size
);
986 case CRISV10_IND_TEST
:
987 LOG_DIS("test size=%d op=%d %d\n", size
, dc
->src
, dc
->dst
);
989 cris_evaluate_flags(dc
);
990 cris_cc_mask(dc
, CC_MASK_NZVC
);
991 cris_alu_m_alloc_temps(t
);
992 insn_len
+= dec10_prep_move_m(dc
, 0, size
, t
[0]);
993 tcg_gen_andi_tl(cpu_PR
[PR_CCS
], cpu_PR
[PR_CCS
], ~3);
994 cris_alu(dc
, CC_OP_CMP
, cpu_R
[dc
->dst
],
995 t
[0], tcg_const_tl(0), size
);
996 cris_alu_m_free_temps(t
);
998 case CRISV10_IND_ADD
:
999 LOG_DIS("add size=%d op=%d %d\n", size
, dc
->src
, dc
->dst
);
1000 cris_cc_mask(dc
, CC_MASK_NZVC
);
1001 insn_len
+= dec10_ind_alu(dc
, CC_OP_ADD
, size
);
1003 case CRISV10_IND_SUB
:
1004 LOG_DIS("sub size=%d op=%d %d\n", size
, dc
->src
, dc
->dst
);
1005 cris_cc_mask(dc
, CC_MASK_NZVC
);
1006 insn_len
+= dec10_ind_alu(dc
, CC_OP_SUB
, size
);
1008 case CRISV10_IND_BOUND
:
1009 LOG_DIS("bound size=%d op=%d %d\n", size
, dc
->src
, dc
->dst
);
1010 cris_cc_mask(dc
, CC_MASK_NZVC
);
1011 insn_len
+= dec10_ind_bound(dc
, size
);
1013 case CRISV10_IND_AND
:
1014 LOG_DIS("and size=%d op=%d %d\n", size
, dc
->src
, dc
->dst
);
1015 cris_cc_mask(dc
, CC_MASK_NZVC
);
1016 insn_len
+= dec10_ind_alu(dc
, CC_OP_AND
, size
);
1018 case CRISV10_IND_OR
:
1019 LOG_DIS("or size=%d op=%d %d\n", size
, dc
->src
, dc
->dst
);
1020 cris_cc_mask(dc
, CC_MASK_NZVC
);
1021 insn_len
+= dec10_ind_alu(dc
, CC_OP_OR
, size
);
1023 case CRISV10_IND_MOVX
:
1024 insn_len
= dec10_alux_m(dc
, CC_OP_MOVE
);
1026 case CRISV10_IND_ADDX
:
1027 insn_len
= dec10_alux_m(dc
, CC_OP_ADD
);
1029 case CRISV10_IND_SUBX
:
1030 insn_len
= dec10_alux_m(dc
, CC_OP_SUB
);
1032 case CRISV10_IND_CMPX
:
1033 insn_len
= dec10_alux_m(dc
, CC_OP_CMP
);
1035 case CRISV10_IND_MUL
:
1036 /* This is a reg insn coded in the mem indir space. */
1037 LOG_DIS("mul pc=%x opcode=%d\n", dc
->pc
, dc
->opcode
);
1038 cris_cc_mask(dc
, CC_MASK_NZVC
);
1039 dec10_reg_mul(dc
, size
, dc
->ir
& (1 << 10));
1041 case CRISV10_IND_BDAP_M
:
1042 insn_len
= dec10_bdap_m(dc
, size
);
1045 LOG_DIS("pc=%x var-ind.%d %d r%d r%d\n",
1046 dc
->pc
, size
, dc
->opcode
, dc
->src
, dc
->dst
);
1053 switch (dc
->opcode
) {
1054 case CRISV10_IND_MOVE_M_SPR
:
1055 insn_len
= dec10_ind_move_m_pr(dc
);
1057 case CRISV10_IND_MOVE_SPR_M
:
1058 insn_len
= dec10_ind_move_pr_m(dc
);
1060 case CRISV10_IND_JUMP_M
:
1061 if (dc
->src
== 15) {
1062 LOG_DIS("jump.%d %d r%d r%d\n", size
,
1063 dc
->opcode
, dc
->src
, dc
->dst
);
1064 imm
= ldl_code(dc
->pc
+ 2);
1065 if (dc
->mode
== CRISV10_MODE_AUTOINC
)
1068 t_gen_mov_preg_TN(dc
, dc
->dst
, tcg_const_tl(dc
->pc
+ insn_len
));
1069 tcg_gen_movi_tl(env_btarget
, imm
);
1070 cris_prepare_jmp(dc
, JMP_INDIRECT
);
1071 dc
->delayed_branch
--; /* v10 has no dslot here. */
1073 if (dc
->dst
== 14) {
1074 LOG_DIS("break %d\n", dc
->src
);
1075 cris_evaluate_flags(dc
);
1076 tcg_gen_movi_tl(env_pc
, dc
->pc
+ 2);
1077 t_gen_raise_exception(EXCP_BREAK
);
1078 dc
->is_jmp
= DISAS_UPDATE
;
1081 LOG_DIS("%d: jump.%d %d r%d r%d\n", __LINE__
, size
,
1082 dc
->opcode
, dc
->src
, dc
->dst
);
1083 t
[0] = tcg_temp_new();
1084 t_gen_mov_preg_TN(dc
, dc
->dst
, tcg_const_tl(dc
->pc
+ insn_len
));
1085 crisv10_prepare_memaddr(dc
, t
[0], size
);
1086 gen_load(dc
, env_btarget
, t
[0], 4, 0);
1087 insn_len
+= crisv10_post_memaddr(dc
, size
);
1088 cris_prepare_jmp(dc
, JMP_INDIRECT
);
1089 dc
->delayed_branch
--; /* v10 has no dslot here. */
1090 tcg_temp_free(t
[0]);
1094 case CRISV10_IND_MOVEM_R_M
:
1095 LOG_DIS("movem_r_m pc=%x opcode=%d r%d r%d\n",
1096 dc
->pc
, dc
->opcode
, dc
->dst
, dc
->src
);
1097 dec10_movem_r_m(dc
);
1099 case CRISV10_IND_MOVEM_M_R
:
1100 LOG_DIS("movem_m_r pc=%x opcode=%d\n", dc
->pc
, dc
->opcode
);
1101 dec10_movem_m_r(dc
);
1103 case CRISV10_IND_JUMP_R
:
1104 LOG_DIS("jmp pc=%x opcode=%d r%d r%d\n",
1105 dc
->pc
, dc
->opcode
, dc
->dst
, dc
->src
);
1106 tcg_gen_mov_tl(env_btarget
, cpu_R
[dc
->src
]);
1107 t_gen_mov_preg_TN(dc
, dc
->dst
, tcg_const_tl(dc
->pc
+ insn_len
));
1108 cris_prepare_jmp(dc
, JMP_INDIRECT
);
1109 dc
->delayed_branch
--; /* v10 has no dslot here. */
1111 case CRISV10_IND_MOVX
:
1112 insn_len
= dec10_alux_m(dc
, CC_OP_MOVE
);
1114 case CRISV10_IND_ADDX
:
1115 insn_len
= dec10_alux_m(dc
, CC_OP_ADD
);
1117 case CRISV10_IND_SUBX
:
1118 insn_len
= dec10_alux_m(dc
, CC_OP_SUB
);
1120 case CRISV10_IND_CMPX
:
1121 insn_len
= dec10_alux_m(dc
, CC_OP_CMP
);
1123 case CRISV10_IND_DIP
:
1124 insn_len
= dec10_dip(dc
);
1126 case CRISV10_IND_BCC_M
:
1128 cris_cc_mask(dc
, 0);
1129 imm
= ldsw_code(dc
->pc
+ 2);
1130 simm
= (int16_t)imm
;
1133 LOG_DIS("bcc_m: b%s %x\n", cc_name(dc
->cond
), dc
->pc
+ simm
);
1134 cris_prepare_cc_branch(dc
, simm
, dc
->cond
);
1138 LOG_DIS("ERROR pc=%x opcode=%d\n", dc
->pc
, dc
->opcode
);
1146 static unsigned int crisv10_decoder(DisasContext
*dc
)
1148 unsigned int insn_len
= 2;
1150 if (unlikely(qemu_loglevel_mask(CPU_LOG_TB_OP
)))
1151 tcg_gen_debug_insn_start(dc
->pc
);
1153 /* Load a halfword onto the instruction register. */
1154 dc
->ir
= lduw_code(dc
->pc
);
1156 /* Now decode it. */
1157 dc
->opcode
= EXTRACT_FIELD(dc
->ir
, 6, 9);
1158 dc
->mode
= EXTRACT_FIELD(dc
->ir
, 10, 11);
1159 dc
->src
= EXTRACT_FIELD(dc
->ir
, 0, 3);
1160 dc
->size
= EXTRACT_FIELD(dc
->ir
, 4, 5);
1161 dc
->cond
= dc
->dst
= EXTRACT_FIELD(dc
->ir
, 12, 15);
1162 dc
->postinc
= EXTRACT_FIELD(dc
->ir
, 10, 10);
1164 dc
->clear_prefix
= 1;
1166 /* FIXME: What if this insn insn't 2 in length?? */
1167 if (dc
->src
== 15 || dc
->dst
== 15)
1168 tcg_gen_movi_tl(cpu_R
[15], dc
->pc
+ 2);
1171 case CRISV10_MODE_QIMMEDIATE
:
1172 insn_len
= dec10_quick_imm(dc
);
1174 case CRISV10_MODE_REG
:
1175 insn_len
= dec10_reg(dc
);
1177 case CRISV10_MODE_AUTOINC
:
1178 case CRISV10_MODE_INDIRECT
:
1179 insn_len
= dec10_ind(dc
);
1183 if (dc
->clear_prefix
&& dc
->tb_flags
& PFIX_FLAG
) {
1184 dc
->tb_flags
&= ~PFIX_FLAG
;
1185 tcg_gen_andi_tl(cpu_PR
[PR_CCS
], cpu_PR
[PR_CCS
], ~PFIX_FLAG
);
1186 dc
->cpustate_changed
= 1;
1189 /* CRISv10 locks out interrupts on dslots. */
1190 if (dc
->delayed_branch
== 2) {
1196 static CPUCRISState
*cpu_crisv10_init (CPUState
*env
)
1200 cpu_env
= tcg_global_reg_new_ptr(TCG_AREG0
, "env");
1201 cc_x
= tcg_global_mem_new(TCG_AREG0
,
1202 offsetof(CPUState
, cc_x
), "cc_x");
1203 cc_src
= tcg_global_mem_new(TCG_AREG0
,
1204 offsetof(CPUState
, cc_src
), "cc_src");
1205 cc_dest
= tcg_global_mem_new(TCG_AREG0
,
1206 offsetof(CPUState
, cc_dest
),
1208 cc_result
= tcg_global_mem_new(TCG_AREG0
,
1209 offsetof(CPUState
, cc_result
),
1211 cc_op
= tcg_global_mem_new(TCG_AREG0
,
1212 offsetof(CPUState
, cc_op
), "cc_op");
1213 cc_size
= tcg_global_mem_new(TCG_AREG0
,
1214 offsetof(CPUState
, cc_size
),
1216 cc_mask
= tcg_global_mem_new(TCG_AREG0
,
1217 offsetof(CPUState
, cc_mask
),
1220 env_pc
= tcg_global_mem_new(TCG_AREG0
,
1221 offsetof(CPUState
, pc
),
1223 env_btarget
= tcg_global_mem_new(TCG_AREG0
,
1224 offsetof(CPUState
, btarget
),
1226 env_btaken
= tcg_global_mem_new(TCG_AREG0
,
1227 offsetof(CPUState
, btaken
),
1229 for (i
= 0; i
< 16; i
++) {
1230 cpu_R
[i
] = tcg_global_mem_new(TCG_AREG0
,
1231 offsetof(CPUState
, regs
[i
]),
1234 for (i
= 0; i
< 16; i
++) {
1235 cpu_PR
[i
] = tcg_global_mem_new(TCG_AREG0
,
1236 offsetof(CPUState
, pregs
[i
]),