773a6faceb14c96b5379c8d6fdc219563cffbce2
1 /* Simulator instruction semantics for m32r.
3 Copyright (C) 1996, 1997, 1998 Free Software Foundation, Inc.
5 This file is part of the GNU Simulators.
7 This program is free software; you can redistribute it and/or modify
8 it under the terms of the GNU General Public License as published by
9 the Free Software Foundation; either version 2, or (at your option)
12 This program 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
15 GNU General Public License for more details.
17 You should have received a copy of the GNU General Public License along
18 with this program; if not, write to the Free Software Foundation, Inc.,
19 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
27 /* The labels have the case they have because the enum of insn types
28 is all uppercase and in the non-stdc case the insn symbol is built
31 The order here must match the order in m32r_decode_vars in decode.c. */
33 static void *labels
[] = {
34 && case_sem_INSN_ILLEGAL
,
36 && case_sem_INSN_ADD3
,
38 && case_sem_INSN_AND3
,
42 && case_sem_INSN_XOR3
,
43 && case_sem_INSN_ADDI
,
44 && case_sem_INSN_ADDV
,
45 && case_sem_INSN_ADDV3
,
46 && case_sem_INSN_ADDX
,
48 && case_sem_INSN_BC24
,
50 && case_sem_INSN_BEQZ
,
51 && case_sem_INSN_BGEZ
,
52 && case_sem_INSN_BGTZ
,
53 && case_sem_INSN_BLEZ
,
54 && case_sem_INSN_BLTZ
,
55 && case_sem_INSN_BNEZ
,
57 && case_sem_INSN_BL24
,
58 && case_sem_INSN_BNC8
,
59 && case_sem_INSN_BNC24
,
61 && case_sem_INSN_BRA8
,
62 && case_sem_INSN_BRA24
,
64 && case_sem_INSN_CMPI
,
65 && case_sem_INSN_CMPU
,
66 && case_sem_INSN_CMPUI
,
68 && case_sem_INSN_DIVU
,
70 && case_sem_INSN_REMU
,
74 && case_sem_INSN_LD_D
,
76 && case_sem_INSN_LDB_D
,
78 && case_sem_INSN_LDH_D
,
79 && case_sem_INSN_LDUB
,
80 && case_sem_INSN_LDUB_D
,
81 && case_sem_INSN_LDUH
,
82 && case_sem_INSN_LDUH_D
,
83 && case_sem_INSN_LD_PLUS
,
84 && case_sem_INSN_LD24
,
85 && case_sem_INSN_LDI8
,
86 && case_sem_INSN_LDI16
,
87 && case_sem_INSN_LOCK
,
88 && case_sem_INSN_MACHI
,
89 && case_sem_INSN_MACLO
,
90 && case_sem_INSN_MACWHI
,
91 && case_sem_INSN_MACWLO
,
93 && case_sem_INSN_MULHI
,
94 && case_sem_INSN_MULLO
,
95 && case_sem_INSN_MULWHI
,
96 && case_sem_INSN_MULWLO
,
98 && case_sem_INSN_MVFACHI
,
99 && case_sem_INSN_MVFACLO
,
100 && case_sem_INSN_MVFACMI
,
101 && case_sem_INSN_MVFC
,
102 && case_sem_INSN_MVTACHI
,
103 && case_sem_INSN_MVTACLO
,
104 && case_sem_INSN_MVTC
,
105 && case_sem_INSN_NEG
,
106 && case_sem_INSN_NOP
,
107 && case_sem_INSN_NOT
,
108 && case_sem_INSN_RAC
,
109 && case_sem_INSN_RACH
,
110 && case_sem_INSN_RTE
,
111 && case_sem_INSN_SETH
,
112 && case_sem_INSN_SLL
,
113 && case_sem_INSN_SLL3
,
114 && case_sem_INSN_SLLI
,
115 && case_sem_INSN_SRA
,
116 && case_sem_INSN_SRA3
,
117 && case_sem_INSN_SRAI
,
118 && case_sem_INSN_SRL
,
119 && case_sem_INSN_SRL3
,
120 && case_sem_INSN_SRLI
,
122 && case_sem_INSN_ST_D
,
123 && case_sem_INSN_STB
,
124 && case_sem_INSN_STB_D
,
125 && case_sem_INSN_STH
,
126 && case_sem_INSN_STH_D
,
127 && case_sem_INSN_ST_PLUS
,
128 && case_sem_INSN_ST_MINUS
,
129 && case_sem_INSN_SUB
,
130 && case_sem_INSN_SUBV
,
131 && case_sem_INSN_SUBX
,
132 && case_sem_INSN_TRAP
,
133 && case_sem_INSN_UNLOCK
,
136 extern DECODE
*m32r_decode_vars
[];
139 for (i
= 0; m32r_decode_vars
[i
] != 0; ++i
)
140 m32r_decode_vars
[i
]->semantic_lab
= labels
[i
];
142 #endif /* DEFINE_LABELS */
147 /* If hyper-fast [well not unnecessarily slow] execution is selected, turn
148 off frills like tracing and profiling. */
149 /* FIXME: A better way would be to have TRACE_RESULT check for something
150 that can cause it to be optimized out. */
154 #define TRACE_RESULT(cpu, name, type, val)
158 #define GET_ATTR(cpu, num, attr) CGEN_INSN_ATTR (abuf->opcode, CGEN_INSN_##attr)
161 SEM_ARG sem_arg
= sc
;
162 ARGBUF
*abuf
= SEM_ARGBUF (sem_arg
);
163 CIA new_pc
= SEM_NEXT_PC (sem_arg
);
165 SWITCH (sem
, sem_arg
->semantic
.sem_case
)
168 CASE (sem
, INSN_ILLEGAL
) :
170 sim_engine_halt (CPU_STATE (current_cpu
), current_cpu
, NULL
, NULL_CIA
/*FIXME*/,
171 sim_stopped
, SIM_SIGILL
);
175 CASE (sem
, INSN_ADD
) : /* add $dr,$sr */
177 #define FLD(f) abuf->fields.fmt_0_add.f
178 * FLD (f_r1
) = ADDSI (* FLD (f_r1
), * FLD (f_r2
));
179 TRACE_RESULT (current_cpu
, "dr", 'x', * FLD (f_r1
));
184 CASE (sem
, INSN_ADD3
) : /* add3 $dr,$sr,$slo16 */
186 #define FLD(f) abuf->fields.fmt_1_add3.f
187 * FLD (f_r1
) = ADDSI (* FLD (f_r2
), FLD (f_simm16
));
188 TRACE_RESULT (current_cpu
, "dr", 'x', * FLD (f_r1
));
193 CASE (sem
, INSN_AND
) : /* and $dr,$sr */
195 #define FLD(f) abuf->fields.fmt_0_add.f
196 * FLD (f_r1
) = ANDSI (* FLD (f_r1
), * FLD (f_r2
));
197 TRACE_RESULT (current_cpu
, "dr", 'x', * FLD (f_r1
));
202 CASE (sem
, INSN_AND3
) : /* and3 $dr,$sr,$uimm16 */
204 #define FLD(f) abuf->fields.fmt_2_and3.f
205 * FLD (f_r1
) = ANDSI (* FLD (f_r2
), FLD (f_uimm16
));
206 TRACE_RESULT (current_cpu
, "dr", 'x', * FLD (f_r1
));
211 CASE (sem
, INSN_OR
) : /* or $dr,$sr */
213 #define FLD(f) abuf->fields.fmt_0_add.f
214 * FLD (f_r1
) = ORSI (* FLD (f_r1
), * FLD (f_r2
));
215 TRACE_RESULT (current_cpu
, "dr", 'x', * FLD (f_r1
));
220 CASE (sem
, INSN_OR3
) : /* or3 $dr,$sr,$ulo16 */
222 #define FLD(f) abuf->fields.fmt_3_or3.f
223 * FLD (f_r1
) = ORSI (* FLD (f_r2
), FLD (f_uimm16
));
224 TRACE_RESULT (current_cpu
, "dr", 'x', * FLD (f_r1
));
229 CASE (sem
, INSN_XOR
) : /* xor $dr,$sr */
231 #define FLD(f) abuf->fields.fmt_0_add.f
232 * FLD (f_r1
) = XORSI (* FLD (f_r1
), * FLD (f_r2
));
233 TRACE_RESULT (current_cpu
, "dr", 'x', * FLD (f_r1
));
238 CASE (sem
, INSN_XOR3
) : /* xor3 $dr,$sr,$uimm16 */
240 #define FLD(f) abuf->fields.fmt_2_and3.f
241 * FLD (f_r1
) = XORSI (* FLD (f_r2
), FLD (f_uimm16
));
242 TRACE_RESULT (current_cpu
, "dr", 'x', * FLD (f_r1
));
247 CASE (sem
, INSN_ADDI
) : /* addi $dr,$simm8 */
249 #define FLD(f) abuf->fields.fmt_4_addi.f
250 * FLD (f_r1
) = ADDSI (* FLD (f_r1
), FLD (f_simm8
));
251 TRACE_RESULT (current_cpu
, "dr", 'x', * FLD (f_r1
));
256 CASE (sem
, INSN_ADDV
) : /* addv $dr,$sr */
258 #define FLD(f) abuf->fields.fmt_0_add.f
261 temp0
= ADDSI (* FLD (f_r1
), * FLD (f_r2
));
262 temp1
= ADDOFSI (* FLD (f_r1
), * FLD (f_r2
), 0);
263 * FLD (f_r1
) = temp0
;
264 TRACE_RESULT (current_cpu
, "dr", 'x', * FLD (f_r1
));
265 CPU (h_cond
) = temp1
;
266 TRACE_RESULT (current_cpu
, "condbit", 'x', CPU (h_cond
));
272 CASE (sem
, INSN_ADDV3
) : /* addv3 $dr,$sr,$simm16 */
274 #define FLD(f) abuf->fields.fmt_5_addv3.f
277 temp0
= ADDSI (* FLD (f_r2
), FLD (f_simm16
));
278 temp1
= ADDOFSI (* FLD (f_r2
), FLD (f_simm16
), 0);
279 * FLD (f_r1
) = temp0
;
280 TRACE_RESULT (current_cpu
, "dr", 'x', * FLD (f_r1
));
281 CPU (h_cond
) = temp1
;
282 TRACE_RESULT (current_cpu
, "condbit", 'x', CPU (h_cond
));
288 CASE (sem
, INSN_ADDX
) : /* addx $dr,$sr */
290 #define FLD(f) abuf->fields.fmt_6_addx.f
293 temp0
= ADDCSI (* FLD (f_r1
), * FLD (f_r2
), CPU (h_cond
));
294 temp1
= ADDCFSI (* FLD (f_r1
), * FLD (f_r2
), CPU (h_cond
));
295 * FLD (f_r1
) = temp0
;
296 TRACE_RESULT (current_cpu
, "dr", 'x', * FLD (f_r1
));
297 CPU (h_cond
) = temp1
;
298 TRACE_RESULT (current_cpu
, "condbit", 'x', CPU (h_cond
));
304 CASE (sem
, INSN_BC8
) : /* bc $disp8 */
306 #define FLD(f) abuf->fields.fmt_7_bc8.f
308 BRANCH_NEW_PC (current_cpu
, new_pc
, SEM_BRANCH_VIA_CACHE (sem_arg
, FLD (f_disp8
)));
314 CASE (sem
, INSN_BC24
) : /* bc $disp24 */
316 #define FLD(f) abuf->fields.fmt_8_bc24.f
318 BRANCH_NEW_PC (current_cpu
, new_pc
, SEM_BRANCH_VIA_CACHE (sem_arg
, FLD (f_disp24
)));
324 CASE (sem
, INSN_BEQ
) : /* beq $src1,$src2,$disp16 */
326 #define FLD(f) abuf->fields.fmt_9_beq.f
327 if (EQSI (* FLD (f_r1
), * FLD (f_r2
))) {
328 BRANCH_NEW_PC (current_cpu
, new_pc
, SEM_BRANCH_VIA_CACHE (sem_arg
, FLD (f_disp16
)));
334 CASE (sem
, INSN_BEQZ
) : /* beqz $src2,$disp16 */
336 #define FLD(f) abuf->fields.fmt_10_beqz.f
337 if (EQSI (* FLD (f_r2
), 0)) {
338 BRANCH_NEW_PC (current_cpu
, new_pc
, SEM_BRANCH_VIA_CACHE (sem_arg
, FLD (f_disp16
)));
344 CASE (sem
, INSN_BGEZ
) : /* bgez $src2,$disp16 */
346 #define FLD(f) abuf->fields.fmt_10_beqz.f
347 if (GESI (* FLD (f_r2
), 0)) {
348 BRANCH_NEW_PC (current_cpu
, new_pc
, SEM_BRANCH_VIA_CACHE (sem_arg
, FLD (f_disp16
)));
354 CASE (sem
, INSN_BGTZ
) : /* bgtz $src2,$disp16 */
356 #define FLD(f) abuf->fields.fmt_10_beqz.f
357 if (GTSI (* FLD (f_r2
), 0)) {
358 BRANCH_NEW_PC (current_cpu
, new_pc
, SEM_BRANCH_VIA_CACHE (sem_arg
, FLD (f_disp16
)));
364 CASE (sem
, INSN_BLEZ
) : /* blez $src2,$disp16 */
366 #define FLD(f) abuf->fields.fmt_10_beqz.f
367 if (LESI (* FLD (f_r2
), 0)) {
368 BRANCH_NEW_PC (current_cpu
, new_pc
, SEM_BRANCH_VIA_CACHE (sem_arg
, FLD (f_disp16
)));
374 CASE (sem
, INSN_BLTZ
) : /* bltz $src2,$disp16 */
376 #define FLD(f) abuf->fields.fmt_10_beqz.f
377 if (LTSI (* FLD (f_r2
), 0)) {
378 BRANCH_NEW_PC (current_cpu
, new_pc
, SEM_BRANCH_VIA_CACHE (sem_arg
, FLD (f_disp16
)));
384 CASE (sem
, INSN_BNEZ
) : /* bnez $src2,$disp16 */
386 #define FLD(f) abuf->fields.fmt_10_beqz.f
387 if (NESI (* FLD (f_r2
), 0)) {
388 BRANCH_NEW_PC (current_cpu
, new_pc
, SEM_BRANCH_VIA_CACHE (sem_arg
, FLD (f_disp16
)));
394 CASE (sem
, INSN_BL8
) : /* bl $disp8 */
396 #define FLD(f) abuf->fields.fmt_11_bl8.f
398 CPU (h_gr
[14]) = ADDSI (ANDSI (CPU (h_pc
), -4), 4);
399 TRACE_RESULT (current_cpu
, "h-gr", 'x', CPU (h_gr
[14]));
400 BRANCH_NEW_PC (current_cpu
, new_pc
, SEM_BRANCH_VIA_CACHE (sem_arg
, FLD (f_disp8
)));
406 CASE (sem
, INSN_BL24
) : /* bl $disp24 */
408 #define FLD(f) abuf->fields.fmt_12_bl24.f
410 CPU (h_gr
[14]) = ADDSI (CPU (h_pc
), 4);
411 TRACE_RESULT (current_cpu
, "h-gr", 'x', CPU (h_gr
[14]));
412 BRANCH_NEW_PC (current_cpu
, new_pc
, SEM_BRANCH_VIA_CACHE (sem_arg
, FLD (f_disp24
)));
418 CASE (sem
, INSN_BNC8
) : /* bnc $disp8 */
420 #define FLD(f) abuf->fields.fmt_7_bc8.f
421 if (NOTBI (CPU (h_cond
))) {
422 BRANCH_NEW_PC (current_cpu
, new_pc
, SEM_BRANCH_VIA_CACHE (sem_arg
, FLD (f_disp8
)));
428 CASE (sem
, INSN_BNC24
) : /* bnc $disp24 */
430 #define FLD(f) abuf->fields.fmt_8_bc24.f
431 if (NOTBI (CPU (h_cond
))) {
432 BRANCH_NEW_PC (current_cpu
, new_pc
, SEM_BRANCH_VIA_CACHE (sem_arg
, FLD (f_disp24
)));
438 CASE (sem
, INSN_BNE
) : /* bne $src1,$src2,$disp16 */
440 #define FLD(f) abuf->fields.fmt_9_beq.f
441 if (NESI (* FLD (f_r1
), * FLD (f_r2
))) {
442 BRANCH_NEW_PC (current_cpu
, new_pc
, SEM_BRANCH_VIA_CACHE (sem_arg
, FLD (f_disp16
)));
448 CASE (sem
, INSN_BRA8
) : /* bra $disp8 */
450 #define FLD(f) abuf->fields.fmt_13_bra8.f
451 BRANCH_NEW_PC (current_cpu
, new_pc
, SEM_BRANCH_VIA_CACHE (sem_arg
, FLD (f_disp8
)));
456 CASE (sem
, INSN_BRA24
) : /* bra $disp24 */
458 #define FLD(f) abuf->fields.fmt_14_bra24.f
459 BRANCH_NEW_PC (current_cpu
, new_pc
, SEM_BRANCH_VIA_CACHE (sem_arg
, FLD (f_disp24
)));
464 CASE (sem
, INSN_CMP
) : /* cmp $src1,$src2 */
466 #define FLD(f) abuf->fields.fmt_15_cmp.f
467 CPU (h_cond
) = LTSI (* FLD (f_r1
), * FLD (f_r2
));
468 TRACE_RESULT (current_cpu
, "condbit", 'x', CPU (h_cond
));
473 CASE (sem
, INSN_CMPI
) : /* cmpi $src2,$simm16 */
475 #define FLD(f) abuf->fields.fmt_16_cmpi.f
476 CPU (h_cond
) = LTSI (* FLD (f_r2
), FLD (f_simm16
));
477 TRACE_RESULT (current_cpu
, "condbit", 'x', CPU (h_cond
));
482 CASE (sem
, INSN_CMPU
) : /* cmpu $src1,$src2 */
484 #define FLD(f) abuf->fields.fmt_15_cmp.f
485 CPU (h_cond
) = LTUSI (* FLD (f_r1
), * FLD (f_r2
));
486 TRACE_RESULT (current_cpu
, "condbit", 'x', CPU (h_cond
));
491 CASE (sem
, INSN_CMPUI
) : /* cmpui $src2,$uimm16 */
493 #define FLD(f) abuf->fields.fmt_17_cmpui.f
494 CPU (h_cond
) = LTUSI (* FLD (f_r2
), FLD (f_uimm16
));
495 TRACE_RESULT (current_cpu
, "condbit", 'x', CPU (h_cond
));
500 CASE (sem
, INSN_DIV
) : /* div $dr,$sr */
502 #define FLD(f) abuf->fields.fmt_18_div.f
503 if (NESI (* FLD (f_r2
), 0)) {
504 * FLD (f_r1
) = DIVSI (* FLD (f_r1
), * FLD (f_r2
));
505 TRACE_RESULT (current_cpu
, "dr", 'x', * FLD (f_r1
));
511 CASE (sem
, INSN_DIVU
) : /* divu $dr,$sr */
513 #define FLD(f) abuf->fields.fmt_18_div.f
514 if (NESI (* FLD (f_r2
), 0)) {
515 * FLD (f_r1
) = UDIVSI (* FLD (f_r1
), * FLD (f_r2
));
516 TRACE_RESULT (current_cpu
, "dr", 'x', * FLD (f_r1
));
522 CASE (sem
, INSN_REM
) : /* rem $dr,$sr */
524 #define FLD(f) abuf->fields.fmt_18_div.f
525 if (NESI (* FLD (f_r2
), 0)) {
526 * FLD (f_r1
) = MODSI (* FLD (f_r1
), * FLD (f_r2
));
527 TRACE_RESULT (current_cpu
, "dr", 'x', * FLD (f_r1
));
533 CASE (sem
, INSN_REMU
) : /* remu $dr,$sr */
535 #define FLD(f) abuf->fields.fmt_18_div.f
536 if (NESI (* FLD (f_r2
), 0)) {
537 * FLD (f_r1
) = UMODSI (* FLD (f_r1
), * FLD (f_r2
));
538 TRACE_RESULT (current_cpu
, "dr", 'x', * FLD (f_r1
));
544 CASE (sem
, INSN_JL
) : /* jl $sr */
546 #define FLD(f) abuf->fields.fmt_19_jl.f
549 temp0
= ADDSI (ANDSI (CPU (h_pc
), -4), 4);
550 temp1
= * FLD (f_r2
);
551 CPU (h_gr
[14]) = temp0
;
552 TRACE_RESULT (current_cpu
, "h-gr", 'x', CPU (h_gr
[14]));
553 BRANCH_NEW_PC (current_cpu
, new_pc
, SEM_BRANCH_VIA_ADDR (sem_arg
, temp1
));
559 CASE (sem
, INSN_JMP
) : /* jmp $sr */
561 #define FLD(f) abuf->fields.fmt_20_jmp.f
562 BRANCH_NEW_PC (current_cpu
, new_pc
, SEM_BRANCH_VIA_ADDR (sem_arg
, * FLD (f_r2
)));
567 CASE (sem
, INSN_LD
) : /* ld $dr,@$sr */
569 #define FLD(f) abuf->fields.fmt_21_ld.f
570 * FLD (f_r1
) = GETMEMSI (current_cpu
, * FLD (f_r2
));
571 TRACE_RESULT (current_cpu
, "dr", 'x', * FLD (f_r1
));
576 CASE (sem
, INSN_LD_D
) : /* ld $dr,@($slo16,$sr) */
578 #define FLD(f) abuf->fields.fmt_22_ld_d.f
579 * FLD (f_r1
) = GETMEMSI (current_cpu
, ADDSI (* FLD (f_r2
), FLD (f_simm16
)));
580 TRACE_RESULT (current_cpu
, "dr", 'x', * FLD (f_r1
));
585 CASE (sem
, INSN_LDB
) : /* ldb $dr,@$sr */
587 #define FLD(f) abuf->fields.fmt_23_ldb.f
588 * FLD (f_r1
) = EXTQISI (GETMEMQI (current_cpu
, * FLD (f_r2
)));
589 TRACE_RESULT (current_cpu
, "dr", 'x', * FLD (f_r1
));
594 CASE (sem
, INSN_LDB_D
) : /* ldb $dr,@($slo16,$sr) */
596 #define FLD(f) abuf->fields.fmt_24_ldb_d.f
597 * FLD (f_r1
) = EXTQISI (GETMEMQI (current_cpu
, ADDSI (* FLD (f_r2
), FLD (f_simm16
))));
598 TRACE_RESULT (current_cpu
, "dr", 'x', * FLD (f_r1
));
603 CASE (sem
, INSN_LDH
) : /* ldh $dr,@$sr */
605 #define FLD(f) abuf->fields.fmt_25_ldh.f
606 * FLD (f_r1
) = EXTHISI (GETMEMHI (current_cpu
, * FLD (f_r2
)));
607 TRACE_RESULT (current_cpu
, "dr", 'x', * FLD (f_r1
));
612 CASE (sem
, INSN_LDH_D
) : /* ldh $dr,@($slo16,$sr) */
614 #define FLD(f) abuf->fields.fmt_26_ldh_d.f
615 * FLD (f_r1
) = EXTHISI (GETMEMHI (current_cpu
, ADDSI (* FLD (f_r2
), FLD (f_simm16
))));
616 TRACE_RESULT (current_cpu
, "dr", 'x', * FLD (f_r1
));
621 CASE (sem
, INSN_LDUB
) : /* ldub $dr,@$sr */
623 #define FLD(f) abuf->fields.fmt_23_ldb.f
624 * FLD (f_r1
) = ZEXTQISI (GETMEMQI (current_cpu
, * FLD (f_r2
)));
625 TRACE_RESULT (current_cpu
, "dr", 'x', * FLD (f_r1
));
630 CASE (sem
, INSN_LDUB_D
) : /* ldub $dr,@($slo16,$sr) */
632 #define FLD(f) abuf->fields.fmt_24_ldb_d.f
633 * FLD (f_r1
) = ZEXTQISI (GETMEMQI (current_cpu
, ADDSI (* FLD (f_r2
), FLD (f_simm16
))));
634 TRACE_RESULT (current_cpu
, "dr", 'x', * FLD (f_r1
));
639 CASE (sem
, INSN_LDUH
) : /* lduh $dr,@$sr */
641 #define FLD(f) abuf->fields.fmt_25_ldh.f
642 * FLD (f_r1
) = ZEXTHISI (GETMEMHI (current_cpu
, * FLD (f_r2
)));
643 TRACE_RESULT (current_cpu
, "dr", 'x', * FLD (f_r1
));
648 CASE (sem
, INSN_LDUH_D
) : /* lduh $dr,@($slo16,$sr) */
650 #define FLD(f) abuf->fields.fmt_26_ldh_d.f
651 * FLD (f_r1
) = ZEXTHISI (GETMEMHI (current_cpu
, ADDSI (* FLD (f_r2
), FLD (f_simm16
))));
652 TRACE_RESULT (current_cpu
, "dr", 'x', * FLD (f_r1
));
657 CASE (sem
, INSN_LD_PLUS
) : /* ld $dr,@$sr+ */
659 #define FLD(f) abuf->fields.fmt_21_ld.f
662 temp0
= GETMEMSI (current_cpu
, * FLD (f_r2
));
663 temp1
= ADDSI (* FLD (f_r2
), 4);
664 * FLD (f_r1
) = temp0
;
665 TRACE_RESULT (current_cpu
, "dr", 'x', * FLD (f_r1
));
666 * FLD (f_r2
) = temp1
;
667 TRACE_RESULT (current_cpu
, "sr", 'x', * FLD (f_r2
));
673 CASE (sem
, INSN_LD24
) : /* ld24 $dr,$uimm24 */
675 #define FLD(f) abuf->fields.fmt_27_ld24.f
676 * FLD (f_r1
) = FLD (f_uimm24
);
677 TRACE_RESULT (current_cpu
, "dr", 'x', * FLD (f_r1
));
682 CASE (sem
, INSN_LDI8
) : /* ldi $dr,$simm8 */
684 #define FLD(f) abuf->fields.fmt_28_ldi8.f
685 * FLD (f_r1
) = FLD (f_simm8
);
686 TRACE_RESULT (current_cpu
, "dr", 'x', * FLD (f_r1
));
691 CASE (sem
, INSN_LDI16
) : /* ldi $dr,$slo16 */
693 #define FLD(f) abuf->fields.fmt_29_ldi16.f
694 * FLD (f_r1
) = FLD (f_simm16
);
695 TRACE_RESULT (current_cpu
, "dr", 'x', * FLD (f_r1
));
700 CASE (sem
, INSN_LOCK
) : /* lock $dr,@$sr */
702 #define FLD(f) abuf->fields.fmt_0_add.f
703 do_lock (current_cpu
, * FLD (f_r1
), * FLD (f_r2
));
708 CASE (sem
, INSN_MACHI
) : /* machi $src1,$src2 */
710 #define FLD(f) abuf->fields.fmt_30_machi.f
711 CPU (h_accum
) = SRADI (SLLDI (ADDDI (CPU (h_accum
), MULDI (EXTSIDI (ANDSI (* FLD (f_r1
), 0xffff0000)), EXTHIDI (TRUNCSIHI (SRASI (* FLD (f_r2
), 16))))), 8), 8);
712 TRACE_RESULT (current_cpu
, "accum", 'D', CPU (h_accum
));
717 CASE (sem
, INSN_MACLO
) : /* maclo $src1,$src2 */
719 #define FLD(f) abuf->fields.fmt_30_machi.f
720 CPU (h_accum
) = SRADI (SLLDI (ADDDI (CPU (h_accum
), MULDI (EXTSIDI (SLLSI (* FLD (f_r1
), 16)), EXTHIDI (TRUNCSIHI (* FLD (f_r2
))))), 8), 8);
721 TRACE_RESULT (current_cpu
, "accum", 'D', CPU (h_accum
));
726 CASE (sem
, INSN_MACWHI
) : /* macwhi $src1,$src2 */
728 #define FLD(f) abuf->fields.fmt_30_machi.f
729 CPU (h_accum
) = SRADI (SLLDI (ADDDI (CPU (h_accum
), MULDI (EXTSIDI (* FLD (f_r1
)), EXTHIDI (TRUNCSIHI (SRASI (* FLD (f_r2
), 16))))), 8), 8);
730 TRACE_RESULT (current_cpu
, "accum", 'D', CPU (h_accum
));
735 CASE (sem
, INSN_MACWLO
) : /* macwlo $src1,$src2 */
737 #define FLD(f) abuf->fields.fmt_30_machi.f
738 CPU (h_accum
) = SRADI (SLLDI (ADDDI (CPU (h_accum
), MULDI (EXTSIDI (* FLD (f_r1
)), EXTHIDI (TRUNCSIHI (* FLD (f_r2
))))), 8), 8);
739 TRACE_RESULT (current_cpu
, "accum", 'D', CPU (h_accum
));
744 CASE (sem
, INSN_MUL
) : /* mul $dr,$sr */
746 #define FLD(f) abuf->fields.fmt_0_add.f
747 * FLD (f_r1
) = MULSI (* FLD (f_r1
), * FLD (f_r2
));
748 TRACE_RESULT (current_cpu
, "dr", 'x', * FLD (f_r1
));
753 CASE (sem
, INSN_MULHI
) : /* mulhi $src1,$src2 */
755 #define FLD(f) abuf->fields.fmt_15_cmp.f
756 CPU (h_accum
) = SRADI (SLLDI (MULDI (EXTSIDI (ANDSI (* FLD (f_r1
), 0xffff0000)), EXTHIDI (TRUNCSIHI (SRASI (* FLD (f_r2
), 16)))), 16), 16);
757 TRACE_RESULT (current_cpu
, "accum", 'D', CPU (h_accum
));
762 CASE (sem
, INSN_MULLO
) : /* mullo $src1,$src2 */
764 #define FLD(f) abuf->fields.fmt_15_cmp.f
765 CPU (h_accum
) = SRADI (SLLDI (MULDI (EXTSIDI (SLLSI (* FLD (f_r1
), 16)), EXTHIDI (TRUNCSIHI (* FLD (f_r2
)))), 16), 16);
766 TRACE_RESULT (current_cpu
, "accum", 'D', CPU (h_accum
));
771 CASE (sem
, INSN_MULWHI
) : /* mulwhi $src1,$src2 */
773 #define FLD(f) abuf->fields.fmt_15_cmp.f
774 CPU (h_accum
) = SRADI (SLLDI (MULDI (EXTSIDI (* FLD (f_r1
)), EXTHIDI (TRUNCSIHI (SRASI (* FLD (f_r2
), 16)))), 8), 8);
775 TRACE_RESULT (current_cpu
, "accum", 'D', CPU (h_accum
));
780 CASE (sem
, INSN_MULWLO
) : /* mulwlo $src1,$src2 */
782 #define FLD(f) abuf->fields.fmt_15_cmp.f
783 CPU (h_accum
) = SRADI (SLLDI (MULDI (EXTSIDI (* FLD (f_r1
)), EXTHIDI (TRUNCSIHI (* FLD (f_r2
)))), 8), 8);
784 TRACE_RESULT (current_cpu
, "accum", 'D', CPU (h_accum
));
789 CASE (sem
, INSN_MV
) : /* mv $dr,$sr */
791 #define FLD(f) abuf->fields.fmt_31_mv.f
792 * FLD (f_r1
) = * FLD (f_r2
);
793 TRACE_RESULT (current_cpu
, "dr", 'x', * FLD (f_r1
));
798 CASE (sem
, INSN_MVFACHI
) : /* mvfachi $dr */
800 #define FLD(f) abuf->fields.fmt_32_mvfachi.f
801 * FLD (f_r1
) = TRUNCDISI (SRADI (CPU (h_accum
), 32));
802 TRACE_RESULT (current_cpu
, "dr", 'x', * FLD (f_r1
));
807 CASE (sem
, INSN_MVFACLO
) : /* mvfaclo $dr */
809 #define FLD(f) abuf->fields.fmt_32_mvfachi.f
810 * FLD (f_r1
) = TRUNCDISI (CPU (h_accum
));
811 TRACE_RESULT (current_cpu
, "dr", 'x', * FLD (f_r1
));
816 CASE (sem
, INSN_MVFACMI
) : /* mvfacmi $dr */
818 #define FLD(f) abuf->fields.fmt_32_mvfachi.f
819 * FLD (f_r1
) = TRUNCDISI (SRADI (CPU (h_accum
), 16));
820 TRACE_RESULT (current_cpu
, "dr", 'x', * FLD (f_r1
));
825 CASE (sem
, INSN_MVFC
) : /* mvfc $dr,$scr */
827 #define FLD(f) abuf->fields.fmt_33_mvfc.f
828 * FLD (f_r1
) = m32r_h_cr_get (current_cpu
, FLD (f_r2
));
829 TRACE_RESULT (current_cpu
, "dr", 'x', * FLD (f_r1
));
834 CASE (sem
, INSN_MVTACHI
) : /* mvtachi $src1 */
836 #define FLD(f) abuf->fields.fmt_34_mvtachi.f
837 CPU (h_accum
) = ORDI (ANDDI (CPU (h_accum
), MAKEDI (0, 0xffffffff)), SLLDI (EXTSIDI (* FLD (f_r1
)), 32));
838 TRACE_RESULT (current_cpu
, "accum", 'D', CPU (h_accum
));
843 CASE (sem
, INSN_MVTACLO
) : /* mvtaclo $src1 */
845 #define FLD(f) abuf->fields.fmt_34_mvtachi.f
846 CPU (h_accum
) = ORDI (ANDDI (CPU (h_accum
), MAKEDI (0xffffffff, 0)), EXTSIDI (* FLD (f_r1
)));
847 TRACE_RESULT (current_cpu
, "accum", 'D', CPU (h_accum
));
852 CASE (sem
, INSN_MVTC
) : /* mvtc $sr,$dcr */
854 #define FLD(f) abuf->fields.fmt_35_mvtc.f
855 m32r_h_cr_set (current_cpu
, FLD (f_r1
), * FLD (f_r2
));
856 TRACE_RESULT (current_cpu
, "dcr", 'x', m32r_h_cr_get (current_cpu
, FLD (f_r1
)));
861 CASE (sem
, INSN_NEG
) : /* neg $dr,$sr */
863 #define FLD(f) abuf->fields.fmt_31_mv.f
864 * FLD (f_r1
) = NEGSI (* FLD (f_r2
));
865 TRACE_RESULT (current_cpu
, "dr", 'x', * FLD (f_r1
));
870 CASE (sem
, INSN_NOP
) : /* nop */
872 #define FLD(f) abuf->fields.fmt_36_nop.f
873 PROFILE_COUNT_FILLNOPS (current_cpu
, abuf
->addr
);
878 CASE (sem
, INSN_NOT
) : /* not $dr,$sr */
880 #define FLD(f) abuf->fields.fmt_31_mv.f
881 * FLD (f_r1
) = INVSI (* FLD (f_r2
));
882 TRACE_RESULT (current_cpu
, "dr", 'x', * FLD (f_r1
));
887 CASE (sem
, INSN_RAC
) : /* rac */
889 #define FLD(f) abuf->fields.fmt_37_rac.f
892 tmp_tmp1
= ANDDI (CPU (h_accum
), MAKEDI (16777215, 0xffffffff));
893 if (ANDIFSI (GEDI (tmp_tmp1
, MAKEDI (16383, 0xffff8000)), LEDI (tmp_tmp1
, MAKEDI (8388607, 0xffffffff)))) {
894 tmp_tmp1
= MAKEDI (16383, 0xffff8000);
896 if (ANDIFSI (GEDI (tmp_tmp1
, MAKEDI (8388608, 0)), LEDI (tmp_tmp1
, MAKEDI (16760832, 0)))) {
897 tmp_tmp1
= MAKEDI (16760832, 0);
899 tmp_tmp1
= ANDDI (ADDDI (CPU (h_accum
), MAKEDI (0, 16384)), MAKEDI (16777215, 0xffff8000));
902 tmp_tmp1
= SLLDI (tmp_tmp1
, 1);
903 CPU (h_accum
) = SRADI (SLLDI (tmp_tmp1
, 7), 7);
904 TRACE_RESULT (current_cpu
, "accum", 'D', CPU (h_accum
));
910 CASE (sem
, INSN_RACH
) : /* rach */
912 #define FLD(f) abuf->fields.fmt_37_rac.f
915 tmp_tmp1
= ANDDI (CPU (h_accum
), MAKEDI (16777215, 0xffffffff));
916 if (ANDIFSI (GEDI (tmp_tmp1
, MAKEDI (16383, 0x80000000)), LEDI (tmp_tmp1
, MAKEDI (8388607, 0xffffffff)))) {
917 tmp_tmp1
= MAKEDI (16383, 0x80000000);
919 if (ANDIFSI (GEDI (tmp_tmp1
, MAKEDI (8388608, 0)), LEDI (tmp_tmp1
, MAKEDI (16760832, 0)))) {
920 tmp_tmp1
= MAKEDI (16760832, 0);
922 tmp_tmp1
= ANDDI (ADDDI (CPU (h_accum
), MAKEDI (0, 1073741824)), MAKEDI (0xffffffff, 0x80000000));
925 tmp_tmp1
= SLLDI (tmp_tmp1
, 1);
926 CPU (h_accum
) = SRADI (SLLDI (tmp_tmp1
, 7), 7);
927 TRACE_RESULT (current_cpu
, "accum", 'D', CPU (h_accum
));
933 CASE (sem
, INSN_RTE
) : /* rte */
935 #define FLD(f) abuf->fields.fmt_36_nop.f
937 CPU (h_sm
) = CPU (h_bsm
);
938 TRACE_RESULT (current_cpu
, "h-sm", 'x', CPU (h_sm
));
939 CPU (h_ie
) = CPU (h_bie
);
940 TRACE_RESULT (current_cpu
, "h-ie", 'x', CPU (h_ie
));
941 CPU (h_cond
) = CPU (h_bcond
);
942 TRACE_RESULT (current_cpu
, "condbit", 'x', CPU (h_cond
));
943 BRANCH_NEW_PC (current_cpu
, new_pc
, SEM_BRANCH_VIA_ADDR (sem_arg
, CPU (h_bpc
)));
944 TRACE_RESULT (current_cpu
, "pc", 'x', CPU (h_pc
));
950 CASE (sem
, INSN_SETH
) : /* seth $dr,$hi16 */
952 #define FLD(f) abuf->fields.fmt_38_seth.f
953 * FLD (f_r1
) = SLLSI (FLD (f_hi16
), 16);
954 TRACE_RESULT (current_cpu
, "dr", 'x', * FLD (f_r1
));
959 CASE (sem
, INSN_SLL
) : /* sll $dr,$sr */
961 #define FLD(f) abuf->fields.fmt_0_add.f
962 * FLD (f_r1
) = SLLSI (* FLD (f_r1
), ANDSI (* FLD (f_r2
), 31));
963 TRACE_RESULT (current_cpu
, "dr", 'x', * FLD (f_r1
));
968 CASE (sem
, INSN_SLL3
) : /* sll3 $dr,$sr,$simm16 */
970 #define FLD(f) abuf->fields.fmt_5_addv3.f
971 * FLD (f_r1
) = SLLSI (* FLD (f_r2
), ANDSI (FLD (f_simm16
), 31));
972 TRACE_RESULT (current_cpu
, "dr", 'x', * FLD (f_r1
));
977 CASE (sem
, INSN_SLLI
) : /* slli $dr,$uimm5 */
979 #define FLD(f) abuf->fields.fmt_39_slli.f
980 * FLD (f_r1
) = SLLSI (* FLD (f_r1
), FLD (f_uimm5
));
981 TRACE_RESULT (current_cpu
, "dr", 'x', * FLD (f_r1
));
986 CASE (sem
, INSN_SRA
) : /* sra $dr,$sr */
988 #define FLD(f) abuf->fields.fmt_0_add.f
989 * FLD (f_r1
) = SRASI (* FLD (f_r1
), ANDSI (* FLD (f_r2
), 31));
990 TRACE_RESULT (current_cpu
, "dr", 'x', * FLD (f_r1
));
995 CASE (sem
, INSN_SRA3
) : /* sra3 $dr,$sr,$simm16 */
997 #define FLD(f) abuf->fields.fmt_5_addv3.f
998 * FLD (f_r1
) = SRASI (* FLD (f_r2
), ANDSI (FLD (f_simm16
), 31));
999 TRACE_RESULT (current_cpu
, "dr", 'x', * FLD (f_r1
));
1004 CASE (sem
, INSN_SRAI
) : /* srai $dr,$uimm5 */
1006 #define FLD(f) abuf->fields.fmt_39_slli.f
1007 * FLD (f_r1
) = SRASI (* FLD (f_r1
), FLD (f_uimm5
));
1008 TRACE_RESULT (current_cpu
, "dr", 'x', * FLD (f_r1
));
1013 CASE (sem
, INSN_SRL
) : /* srl $dr,$sr */
1015 #define FLD(f) abuf->fields.fmt_0_add.f
1016 * FLD (f_r1
) = SRLSI (* FLD (f_r1
), ANDSI (* FLD (f_r2
), 31));
1017 TRACE_RESULT (current_cpu
, "dr", 'x', * FLD (f_r1
));
1022 CASE (sem
, INSN_SRL3
) : /* srl3 $dr,$sr,$simm16 */
1024 #define FLD(f) abuf->fields.fmt_5_addv3.f
1025 * FLD (f_r1
) = SRLSI (* FLD (f_r2
), ANDSI (FLD (f_simm16
), 31));
1026 TRACE_RESULT (current_cpu
, "dr", 'x', * FLD (f_r1
));
1031 CASE (sem
, INSN_SRLI
) : /* srli $dr,$uimm5 */
1033 #define FLD(f) abuf->fields.fmt_39_slli.f
1034 * FLD (f_r1
) = SRLSI (* FLD (f_r1
), FLD (f_uimm5
));
1035 TRACE_RESULT (current_cpu
, "dr", 'x', * FLD (f_r1
));
1040 CASE (sem
, INSN_ST
) : /* st $src1,@$src2 */
1042 #define FLD(f) abuf->fields.fmt_15_cmp.f
1043 SETMEMSI (current_cpu
, * FLD (f_r2
), * FLD (f_r1
));
1044 TRACE_RESULT (current_cpu
, "h-memory", 'x', GETMEMSI (current_cpu
, * FLD (f_r2
)));
1049 CASE (sem
, INSN_ST_D
) : /* st $src1,@($slo16,$src2) */
1051 #define FLD(f) abuf->fields.fmt_40_st_d.f
1052 SETMEMSI (current_cpu
, ADDSI (* FLD (f_r2
), FLD (f_simm16
)), * FLD (f_r1
));
1053 TRACE_RESULT (current_cpu
, "h-memory", 'x', GETMEMSI (current_cpu
, ADDSI (* FLD (f_r2
), FLD (f_simm16
))));
1058 CASE (sem
, INSN_STB
) : /* stb $src1,@$src2 */
1060 #define FLD(f) abuf->fields.fmt_15_cmp.f
1061 SETMEMQI (current_cpu
, * FLD (f_r2
), * FLD (f_r1
));
1062 TRACE_RESULT (current_cpu
, "h-memory", 'x', GETMEMQI (current_cpu
, * FLD (f_r2
)));
1067 CASE (sem
, INSN_STB_D
) : /* stb $src1,@($slo16,$src2) */
1069 #define FLD(f) abuf->fields.fmt_40_st_d.f
1070 SETMEMQI (current_cpu
, ADDSI (* FLD (f_r2
), FLD (f_simm16
)), * FLD (f_r1
));
1071 TRACE_RESULT (current_cpu
, "h-memory", 'x', GETMEMQI (current_cpu
, ADDSI (* FLD (f_r2
), FLD (f_simm16
))));
1076 CASE (sem
, INSN_STH
) : /* sth $src1,@$src2 */
1078 #define FLD(f) abuf->fields.fmt_15_cmp.f
1079 SETMEMHI (current_cpu
, * FLD (f_r2
), * FLD (f_r1
));
1080 TRACE_RESULT (current_cpu
, "h-memory", 'x', GETMEMHI (current_cpu
, * FLD (f_r2
)));
1085 CASE (sem
, INSN_STH_D
) : /* sth $src1,@($slo16,$src2) */
1087 #define FLD(f) abuf->fields.fmt_40_st_d.f
1088 SETMEMHI (current_cpu
, ADDSI (* FLD (f_r2
), FLD (f_simm16
)), * FLD (f_r1
));
1089 TRACE_RESULT (current_cpu
, "h-memory", 'x', GETMEMHI (current_cpu
, ADDSI (* FLD (f_r2
), FLD (f_simm16
))));
1094 CASE (sem
, INSN_ST_PLUS
) : /* st $src1,@+$src2 */
1096 #define FLD(f) abuf->fields.fmt_15_cmp.f
1098 * FLD (f_r2
) = ADDSI (* FLD (f_r2
), 4);
1099 TRACE_RESULT (current_cpu
, "src2", 'x', * FLD (f_r2
));
1100 SETMEMSI (current_cpu
, * FLD (f_r2
), * FLD (f_r1
));
1101 TRACE_RESULT (current_cpu
, "h-memory", 'x', GETMEMSI (current_cpu
, * FLD (f_r2
)));
1107 CASE (sem
, INSN_ST_MINUS
) : /* st $src1,@-$src2 */
1109 #define FLD(f) abuf->fields.fmt_15_cmp.f
1111 * FLD (f_r2
) = SUBSI (* FLD (f_r2
), 4);
1112 TRACE_RESULT (current_cpu
, "src2", 'x', * FLD (f_r2
));
1113 SETMEMSI (current_cpu
, * FLD (f_r2
), * FLD (f_r1
));
1114 TRACE_RESULT (current_cpu
, "h-memory", 'x', GETMEMSI (current_cpu
, * FLD (f_r2
)));
1120 CASE (sem
, INSN_SUB
) : /* sub $dr,$sr */
1122 #define FLD(f) abuf->fields.fmt_0_add.f
1123 * FLD (f_r1
) = SUBSI (* FLD (f_r1
), * FLD (f_r2
));
1124 TRACE_RESULT (current_cpu
, "dr", 'x', * FLD (f_r1
));
1129 CASE (sem
, INSN_SUBV
) : /* subv $dr,$sr */
1131 #define FLD(f) abuf->fields.fmt_0_add.f
1134 temp0
= SUBSI (* FLD (f_r1
), * FLD (f_r2
));
1135 temp1
= SUBOFSI (* FLD (f_r1
), * FLD (f_r2
), 0);
1136 * FLD (f_r1
) = temp0
;
1137 TRACE_RESULT (current_cpu
, "dr", 'x', * FLD (f_r1
));
1138 CPU (h_cond
) = temp1
;
1139 TRACE_RESULT (current_cpu
, "condbit", 'x', CPU (h_cond
));
1145 CASE (sem
, INSN_SUBX
) : /* subx $dr,$sr */
1147 #define FLD(f) abuf->fields.fmt_6_addx.f
1150 temp0
= SUBCSI (* FLD (f_r1
), * FLD (f_r2
), CPU (h_cond
));
1151 temp1
= SUBCFSI (* FLD (f_r1
), * FLD (f_r2
), CPU (h_cond
));
1152 * FLD (f_r1
) = temp0
;
1153 TRACE_RESULT (current_cpu
, "dr", 'x', * FLD (f_r1
));
1154 CPU (h_cond
) = temp1
;
1155 TRACE_RESULT (current_cpu
, "condbit", 'x', CPU (h_cond
));
1161 CASE (sem
, INSN_TRAP
) : /* trap $uimm4 */
1163 #define FLD(f) abuf->fields.fmt_41_trap.f
1164 do_trap (current_cpu
, FLD (f_uimm4
));
1169 CASE (sem
, INSN_UNLOCK
) : /* unlock $src1,@$src2 */
1171 #define FLD(f) abuf->fields.fmt_15_cmp.f
1172 do_unlock (current_cpu
, * FLD (f_r1
), * FLD (f_r2
));
1179 ENDSWITCH (sem
) /* End of semantic switch. */
1184 #endif /* DEFINE_SWITCH */
This page took 0.057791 seconds and 4 git commands to generate.