]>
git.proxmox.com Git - mirror_qemu.git/blob - target-s390x/helper.c
4 * Copyright (c) 2009 Ulrich Hecht
5 * Copyright (c) 2011 Alexander Graf
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/>.
22 #include "exec/gdbstub.h"
23 #include "qemu/timer.h"
24 #ifndef CONFIG_USER_ONLY
25 #include "sysemu/sysemu.h"
29 //#define DEBUG_S390_PTE
30 //#define DEBUG_S390_STDOUT
33 #ifdef DEBUG_S390_STDOUT
34 #define DPRINTF(fmt, ...) \
35 do { fprintf(stderr, fmt, ## __VA_ARGS__); \
36 qemu_log(fmt, ##__VA_ARGS__); } while (0)
38 #define DPRINTF(fmt, ...) \
39 do { qemu_log(fmt, ## __VA_ARGS__); } while (0)
42 #define DPRINTF(fmt, ...) \
47 #define PTE_DPRINTF DPRINTF
49 #define PTE_DPRINTF(fmt, ...) \
53 #ifndef CONFIG_USER_ONLY
54 void s390x_tod_timer(void *opaque
)
56 S390CPU
*cpu
= opaque
;
57 CPUS390XState
*env
= &cpu
->env
;
59 env
->pending_int
|= INTERRUPT_TOD
;
60 cpu_interrupt(env
, CPU_INTERRUPT_HARD
);
63 void s390x_cpu_timer(void *opaque
)
65 S390CPU
*cpu
= opaque
;
66 CPUS390XState
*env
= &cpu
->env
;
68 env
->pending_int
|= INTERRUPT_CPUTIMER
;
69 cpu_interrupt(env
, CPU_INTERRUPT_HARD
);
73 S390CPU
*cpu_s390x_init(const char *cpu_model
)
79 cpu
= S390_CPU(object_new(TYPE_S390_CPU
));
82 if (tcg_enabled() && !inited
) {
84 s390x_translate_init();
87 env
->cpu_model_str
= cpu_model
;
92 #if defined(CONFIG_USER_ONLY)
94 void do_interrupt(CPUS390XState
*env
)
96 env
->exception_index
= -1;
99 int cpu_s390x_handle_mmu_fault(CPUS390XState
*env
, target_ulong address
,
102 env
->exception_index
= EXCP_PGM
;
103 env
->int_pgm_code
= PGM_ADDRESSING
;
104 /* On real machines this value is dropped into LowMem. Since this
105 is userland, simply put this someplace that cpu_loop can find it. */
106 env
->__excp_addr
= address
;
110 #else /* !CONFIG_USER_ONLY */
112 /* Ensure to exit the TB after this call! */
113 static void trigger_pgm_exception(CPUS390XState
*env
, uint32_t code
,
116 env
->exception_index
= EXCP_PGM
;
117 env
->int_pgm_code
= code
;
118 env
->int_pgm_ilen
= ilen
;
121 static int trans_bits(CPUS390XState
*env
, uint64_t mode
)
126 case PSW_ASC_PRIMARY
:
129 case PSW_ASC_SECONDARY
:
136 cpu_abort(env
, "unknown asc mode\n");
143 static void trigger_prot_fault(CPUS390XState
*env
, target_ulong vaddr
,
146 int ilen
= ILEN_LATER_INC
;
147 int bits
= trans_bits(env
, mode
) | 4;
149 DPRINTF("%s: vaddr=%016" PRIx64
" bits=%d\n", __func__
, vaddr
, bits
);
151 stq_phys(env
->psa
+ offsetof(LowCore
, trans_exc_code
), vaddr
| bits
);
152 trigger_pgm_exception(env
, PGM_PROTECTION
, ilen
);
155 static void trigger_page_fault(CPUS390XState
*env
, target_ulong vaddr
,
156 uint32_t type
, uint64_t asc
, int rw
)
158 int ilen
= ILEN_LATER
;
159 int bits
= trans_bits(env
, asc
);
161 /* Code accesses have an undefined ilc. */
166 DPRINTF("%s: vaddr=%016" PRIx64
" bits=%d\n", __func__
, vaddr
, bits
);
168 stq_phys(env
->psa
+ offsetof(LowCore
, trans_exc_code
), vaddr
| bits
);
169 trigger_pgm_exception(env
, type
, ilen
);
172 static int mmu_translate_asce(CPUS390XState
*env
, target_ulong vaddr
,
173 uint64_t asc
, uint64_t asce
, int level
,
174 target_ulong
*raddr
, int *flags
, int rw
)
180 PTE_DPRINTF("%s: 0x%" PRIx64
"\n", __func__
, asce
);
182 if (((level
!= _ASCE_TYPE_SEGMENT
) && (asce
& _REGION_ENTRY_INV
)) ||
183 ((level
== _ASCE_TYPE_SEGMENT
) && (asce
& _SEGMENT_ENTRY_INV
))) {
184 /* XXX different regions have different faults */
185 DPRINTF("%s: invalid region\n", __func__
);
186 trigger_page_fault(env
, vaddr
, PGM_SEGMENT_TRANS
, asc
, rw
);
190 if ((level
<= _ASCE_TYPE_MASK
) && ((asce
& _ASCE_TYPE_MASK
) != level
)) {
191 trigger_page_fault(env
, vaddr
, PGM_TRANS_SPEC
, asc
, rw
);
195 if (asce
& _ASCE_REAL_SPACE
) {
202 origin
= asce
& _ASCE_ORIGIN
;
205 case _ASCE_TYPE_REGION1
+ 4:
206 offs
= (vaddr
>> 50) & 0x3ff8;
208 case _ASCE_TYPE_REGION1
:
209 offs
= (vaddr
>> 39) & 0x3ff8;
211 case _ASCE_TYPE_REGION2
:
212 offs
= (vaddr
>> 28) & 0x3ff8;
214 case _ASCE_TYPE_REGION3
:
215 offs
= (vaddr
>> 17) & 0x3ff8;
217 case _ASCE_TYPE_SEGMENT
:
218 offs
= (vaddr
>> 9) & 0x07f8;
219 origin
= asce
& _SEGMENT_ENTRY_ORIGIN
;
223 /* XXX region protection flags */
224 /* *flags &= ~PAGE_WRITE */
226 new_asce
= ldq_phys(origin
+ offs
);
227 PTE_DPRINTF("%s: 0x%" PRIx64
" + 0x%" PRIx64
" => 0x%016" PRIx64
"\n",
228 __func__
, origin
, offs
, new_asce
);
230 if (level
!= _ASCE_TYPE_SEGMENT
) {
231 /* yet another region */
232 return mmu_translate_asce(env
, vaddr
, asc
, new_asce
, level
- 4, raddr
,
237 if (new_asce
& _PAGE_INVALID
) {
238 DPRINTF("%s: PTE=0x%" PRIx64
" invalid\n", __func__
, new_asce
);
239 trigger_page_fault(env
, vaddr
, PGM_PAGE_TRANS
, asc
, rw
);
243 if (new_asce
& _PAGE_RO
) {
244 *flags
&= ~PAGE_WRITE
;
247 *raddr
= new_asce
& _ASCE_ORIGIN
;
249 PTE_DPRINTF("%s: PTE=0x%" PRIx64
"\n", __func__
, new_asce
);
254 static int mmu_translate_asc(CPUS390XState
*env
, target_ulong vaddr
,
255 uint64_t asc
, target_ulong
*raddr
, int *flags
,
259 int level
, new_level
;
263 case PSW_ASC_PRIMARY
:
264 PTE_DPRINTF("%s: asc=primary\n", __func__
);
265 asce
= env
->cregs
[1];
267 case PSW_ASC_SECONDARY
:
268 PTE_DPRINTF("%s: asc=secondary\n", __func__
);
269 asce
= env
->cregs
[7];
272 PTE_DPRINTF("%s: asc=home\n", __func__
);
273 asce
= env
->cregs
[13];
277 switch (asce
& _ASCE_TYPE_MASK
) {
278 case _ASCE_TYPE_REGION1
:
280 case _ASCE_TYPE_REGION2
:
281 if (vaddr
& 0xffe0000000000000ULL
) {
282 DPRINTF("%s: vaddr doesn't fit 0x%16" PRIx64
283 " 0xffe0000000000000ULL\n", __func__
, vaddr
);
284 trigger_page_fault(env
, vaddr
, PGM_TRANS_SPEC
, asc
, rw
);
288 case _ASCE_TYPE_REGION3
:
289 if (vaddr
& 0xfffffc0000000000ULL
) {
290 DPRINTF("%s: vaddr doesn't fit 0x%16" PRIx64
291 " 0xfffffc0000000000ULL\n", __func__
, vaddr
);
292 trigger_page_fault(env
, vaddr
, PGM_TRANS_SPEC
, asc
, rw
);
296 case _ASCE_TYPE_SEGMENT
:
297 if (vaddr
& 0xffffffff80000000ULL
) {
298 DPRINTF("%s: vaddr doesn't fit 0x%16" PRIx64
299 " 0xffffffff80000000ULL\n", __func__
, vaddr
);
300 trigger_page_fault(env
, vaddr
, PGM_TRANS_SPEC
, asc
, rw
);
306 /* fake level above current */
307 level
= asce
& _ASCE_TYPE_MASK
;
308 new_level
= level
+ 4;
309 asce
= (asce
& ~_ASCE_TYPE_MASK
) | (new_level
& _ASCE_TYPE_MASK
);
311 r
= mmu_translate_asce(env
, vaddr
, asc
, asce
, new_level
, raddr
, flags
, rw
);
313 if ((rw
== 1) && !(*flags
& PAGE_WRITE
)) {
314 trigger_prot_fault(env
, vaddr
, asc
);
321 int mmu_translate(CPUS390XState
*env
, target_ulong vaddr
, int rw
, uint64_t asc
,
322 target_ulong
*raddr
, int *flags
)
327 *flags
= PAGE_READ
| PAGE_WRITE
| PAGE_EXEC
;
328 vaddr
&= TARGET_PAGE_MASK
;
330 if (!(env
->psw
.mask
& PSW_MASK_DAT
)) {
337 case PSW_ASC_PRIMARY
:
339 r
= mmu_translate_asc(env
, vaddr
, asc
, raddr
, flags
, rw
);
341 case PSW_ASC_SECONDARY
:
343 * Instruction: Primary
347 r
= mmu_translate_asc(env
, vaddr
, PSW_ASC_PRIMARY
, raddr
, flags
,
349 *flags
&= ~(PAGE_READ
| PAGE_WRITE
);
351 r
= mmu_translate_asc(env
, vaddr
, PSW_ASC_SECONDARY
, raddr
, flags
,
353 *flags
&= ~(PAGE_EXEC
);
358 hw_error("guest switched to unknown asc mode\n");
363 /* Convert real address -> absolute address */
364 if (*raddr
< 0x2000) {
365 *raddr
= *raddr
+ env
->psa
;
368 if (*raddr
<= ram_size
) {
369 sk
= &env
->storage_keys
[*raddr
/ TARGET_PAGE_SIZE
];
370 if (*flags
& PAGE_READ
) {
374 if (*flags
& PAGE_WRITE
) {
382 int cpu_s390x_handle_mmu_fault(CPUS390XState
*env
, target_ulong orig_vaddr
,
385 uint64_t asc
= env
->psw
.mask
& PSW_MASK_ASC
;
386 target_ulong vaddr
, raddr
;
389 DPRINTF("%s: address 0x%" PRIx64
" rw %d mmu_idx %d\n",
390 __func__
, orig_vaddr
, rw
, mmu_idx
);
392 orig_vaddr
&= TARGET_PAGE_MASK
;
396 if (!(env
->psw
.mask
& PSW_MASK_64
)) {
400 if (mmu_translate(env
, vaddr
, rw
, asc
, &raddr
, &prot
)) {
401 /* Translation ended in exception */
405 /* check out of RAM access */
406 if (raddr
> (ram_size
+ virtio_size
)) {
407 DPRINTF("%s: raddr %" PRIx64
" > ram_size %" PRIx64
"\n", __func__
,
408 (uint64_t)raddr
, (uint64_t)ram_size
);
409 trigger_pgm_exception(env
, PGM_ADDRESSING
, ILEN_LATER
);
413 DPRINTF("%s: set tlb %" PRIx64
" -> %" PRIx64
" (%x)\n", __func__
,
414 (uint64_t)vaddr
, (uint64_t)raddr
, prot
);
416 tlb_set_page(env
, orig_vaddr
, raddr
, prot
,
417 mmu_idx
, TARGET_PAGE_SIZE
);
422 hwaddr
cpu_get_phys_page_debug(CPUS390XState
*env
,
426 int prot
= PAGE_READ
| PAGE_WRITE
| PAGE_EXEC
;
427 int old_exc
= env
->exception_index
;
428 uint64_t asc
= env
->psw
.mask
& PSW_MASK_ASC
;
431 if (!(env
->psw
.mask
& PSW_MASK_64
)) {
435 mmu_translate(env
, vaddr
, 2, asc
, &raddr
, &prot
);
436 env
->exception_index
= old_exc
;
441 void load_psw(CPUS390XState
*env
, uint64_t mask
, uint64_t addr
)
443 if (mask
& PSW_MASK_WAIT
) {
444 S390CPU
*cpu
= s390_env_get_cpu(env
);
445 if (!(mask
& (PSW_MASK_IO
| PSW_MASK_EXT
| PSW_MASK_MCHECK
))) {
446 if (s390_del_running_cpu(cpu
) == 0) {
447 #ifndef CONFIG_USER_ONLY
448 qemu_system_shutdown_request();
453 env
->exception_index
= EXCP_HLT
;
456 env
->psw
.addr
= addr
;
457 env
->psw
.mask
= mask
;
458 env
->cc_op
= (mask
>> 44) & 3;
461 static uint64_t get_psw_mask(CPUS390XState
*env
)
465 env
->cc_op
= calc_cc(env
, env
->cc_op
, env
->cc_src
, env
->cc_dst
, env
->cc_vr
);
469 assert(!(env
->cc_op
& ~3));
470 r
|= (uint64_t)env
->cc_op
<< 44;
475 static LowCore
*cpu_map_lowcore(CPUS390XState
*env
)
478 hwaddr len
= sizeof(LowCore
);
480 lowcore
= cpu_physical_memory_map(env
->psa
, &len
, 1);
482 if (len
< sizeof(LowCore
)) {
483 cpu_abort(env
, "Could not map lowcore\n");
489 static void cpu_unmap_lowcore(LowCore
*lowcore
)
491 cpu_physical_memory_unmap(lowcore
, sizeof(LowCore
), 1, sizeof(LowCore
));
494 void *s390_cpu_physical_memory_map(CPUS390XState
*env
, hwaddr addr
, hwaddr
*len
,
499 /* Mind the prefix area. */
501 /* Map the lowcore. */
503 *len
= MIN(*len
, 8192 - addr
);
504 } else if ((addr
>= env
->psa
) && (addr
< env
->psa
+ 8192)) {
505 /* Map the 0 page. */
507 *len
= MIN(*len
, 8192 - start
);
510 return cpu_physical_memory_map(start
, len
, is_write
);
513 void s390_cpu_physical_memory_unmap(CPUS390XState
*env
, void *addr
, hwaddr len
,
516 cpu_physical_memory_unmap(addr
, len
, is_write
, len
);
519 static void do_svc_interrupt(CPUS390XState
*env
)
524 lowcore
= cpu_map_lowcore(env
);
526 lowcore
->svc_code
= cpu_to_be16(env
->int_svc_code
);
527 lowcore
->svc_ilen
= cpu_to_be16(env
->int_svc_ilen
);
528 lowcore
->svc_old_psw
.mask
= cpu_to_be64(get_psw_mask(env
));
529 lowcore
->svc_old_psw
.addr
= cpu_to_be64(env
->psw
.addr
+ env
->int_svc_ilen
);
530 mask
= be64_to_cpu(lowcore
->svc_new_psw
.mask
);
531 addr
= be64_to_cpu(lowcore
->svc_new_psw
.addr
);
533 cpu_unmap_lowcore(lowcore
);
535 load_psw(env
, mask
, addr
);
538 static void do_program_interrupt(CPUS390XState
*env
)
542 int ilen
= env
->int_pgm_ilen
;
546 ilen
= get_ilen(cpu_ldub_code(env
, env
->psw
.addr
));
549 ilen
= get_ilen(cpu_ldub_code(env
, env
->psw
.addr
));
550 env
->psw
.addr
+= ilen
;
553 assert(ilen
== 2 || ilen
== 4 || ilen
== 6);
556 qemu_log_mask(CPU_LOG_INT
, "%s: code=0x%x ilen=%d\n",
557 __func__
, env
->int_pgm_code
, ilen
);
559 lowcore
= cpu_map_lowcore(env
);
561 lowcore
->pgm_ilen
= cpu_to_be16(ilen
);
562 lowcore
->pgm_code
= cpu_to_be16(env
->int_pgm_code
);
563 lowcore
->program_old_psw
.mask
= cpu_to_be64(get_psw_mask(env
));
564 lowcore
->program_old_psw
.addr
= cpu_to_be64(env
->psw
.addr
);
565 mask
= be64_to_cpu(lowcore
->program_new_psw
.mask
);
566 addr
= be64_to_cpu(lowcore
->program_new_psw
.addr
);
568 cpu_unmap_lowcore(lowcore
);
570 DPRINTF("%s: %x %x %" PRIx64
" %" PRIx64
"\n", __func__
,
571 env
->int_pgm_code
, ilen
, env
->psw
.mask
,
574 load_psw(env
, mask
, addr
);
577 #define VIRTIO_SUBCODE_64 0x0D00
579 static void do_ext_interrupt(CPUS390XState
*env
)
585 if (!(env
->psw
.mask
& PSW_MASK_EXT
)) {
586 cpu_abort(env
, "Ext int w/o ext mask\n");
589 if (env
->ext_index
< 0 || env
->ext_index
> MAX_EXT_QUEUE
) {
590 cpu_abort(env
, "Ext queue overrun: %d\n", env
->ext_index
);
593 q
= &env
->ext_queue
[env
->ext_index
];
594 lowcore
= cpu_map_lowcore(env
);
596 lowcore
->ext_int_code
= cpu_to_be16(q
->code
);
597 lowcore
->ext_params
= cpu_to_be32(q
->param
);
598 lowcore
->ext_params2
= cpu_to_be64(q
->param64
);
599 lowcore
->external_old_psw
.mask
= cpu_to_be64(get_psw_mask(env
));
600 lowcore
->external_old_psw
.addr
= cpu_to_be64(env
->psw
.addr
);
601 lowcore
->cpu_addr
= cpu_to_be16(env
->cpu_num
| VIRTIO_SUBCODE_64
);
602 mask
= be64_to_cpu(lowcore
->external_new_psw
.mask
);
603 addr
= be64_to_cpu(lowcore
->external_new_psw
.addr
);
605 cpu_unmap_lowcore(lowcore
);
608 if (env
->ext_index
== -1) {
609 env
->pending_int
&= ~INTERRUPT_EXT
;
612 DPRINTF("%s: %" PRIx64
" %" PRIx64
"\n", __func__
,
613 env
->psw
.mask
, env
->psw
.addr
);
615 load_psw(env
, mask
, addr
);
618 static void do_io_interrupt(CPUS390XState
*env
)
627 if (!(env
->psw
.mask
& PSW_MASK_IO
)) {
628 cpu_abort(env
, "I/O int w/o I/O mask\n");
631 for (isc
= 0; isc
< ARRAY_SIZE(env
->io_index
); isc
++) {
632 if (env
->io_index
[isc
] < 0) {
635 if (env
->io_index
[isc
] > MAX_IO_QUEUE
) {
636 cpu_abort(env
, "I/O queue overrun for isc %d: %d\n",
637 isc
, env
->io_index
[isc
]);
640 q
= &env
->io_queue
[env
->io_index
[isc
]][isc
];
641 if (!(env
->cregs
[6] & q
->word
)) {
646 lowcore
= cpu_map_lowcore(env
);
648 lowcore
->subchannel_id
= cpu_to_be16(q
->id
);
649 lowcore
->subchannel_nr
= cpu_to_be16(q
->nr
);
650 lowcore
->io_int_parm
= cpu_to_be32(q
->parm
);
651 lowcore
->io_int_word
= cpu_to_be32(q
->word
);
652 lowcore
->io_old_psw
.mask
= cpu_to_be64(get_psw_mask(env
));
653 lowcore
->io_old_psw
.addr
= cpu_to_be64(env
->psw
.addr
);
654 mask
= be64_to_cpu(lowcore
->io_new_psw
.mask
);
655 addr
= be64_to_cpu(lowcore
->io_new_psw
.addr
);
657 cpu_unmap_lowcore(lowcore
);
659 env
->io_index
[isc
]--;
660 if (env
->io_index
>= 0) {
667 env
->pending_int
&= ~INTERRUPT_IO
;
671 DPRINTF("%s: %" PRIx64
" %" PRIx64
"\n", __func__
,
672 env
->psw
.mask
, env
->psw
.addr
);
673 load_psw(env
, mask
, addr
);
677 static void do_mchk_interrupt(CPUS390XState
*env
)
684 if (!(env
->psw
.mask
& PSW_MASK_MCHECK
)) {
685 cpu_abort(env
, "Machine check w/o mchk mask\n");
688 if (env
->mchk_index
< 0 || env
->mchk_index
> MAX_MCHK_QUEUE
) {
689 cpu_abort(env
, "Mchk queue overrun: %d\n", env
->mchk_index
);
692 q
= &env
->mchk_queue
[env
->mchk_index
];
695 /* Don't know how to handle this... */
696 cpu_abort(env
, "Unknown machine check type %d\n", q
->type
);
698 if (!(env
->cregs
[14] & (1 << 28))) {
699 /* CRW machine checks disabled */
703 lowcore
= cpu_map_lowcore(env
);
705 for (i
= 0; i
< 16; i
++) {
706 lowcore
->floating_pt_save_area
[i
] = cpu_to_be64(env
->fregs
[i
].ll
);
707 lowcore
->gpregs_save_area
[i
] = cpu_to_be64(env
->regs
[i
]);
708 lowcore
->access_regs_save_area
[i
] = cpu_to_be32(env
->aregs
[i
]);
709 lowcore
->cregs_save_area
[i
] = cpu_to_be64(env
->cregs
[i
]);
711 lowcore
->prefixreg_save_area
= cpu_to_be32(env
->psa
);
712 lowcore
->fpt_creg_save_area
= cpu_to_be32(env
->fpc
);
713 lowcore
->tod_progreg_save_area
= cpu_to_be32(env
->todpr
);
714 lowcore
->cpu_timer_save_area
[0] = cpu_to_be32(env
->cputm
>> 32);
715 lowcore
->cpu_timer_save_area
[1] = cpu_to_be32((uint32_t)env
->cputm
);
716 lowcore
->clock_comp_save_area
[0] = cpu_to_be32(env
->ckc
>> 32);
717 lowcore
->clock_comp_save_area
[1] = cpu_to_be32((uint32_t)env
->ckc
);
719 lowcore
->mcck_interruption_code
[0] = cpu_to_be32(0x00400f1d);
720 lowcore
->mcck_interruption_code
[1] = cpu_to_be32(0x40330000);
721 lowcore
->mcck_old_psw
.mask
= cpu_to_be64(get_psw_mask(env
));
722 lowcore
->mcck_old_psw
.addr
= cpu_to_be64(env
->psw
.addr
);
723 mask
= be64_to_cpu(lowcore
->mcck_new_psw
.mask
);
724 addr
= be64_to_cpu(lowcore
->mcck_new_psw
.addr
);
726 cpu_unmap_lowcore(lowcore
);
729 if (env
->mchk_index
== -1) {
730 env
->pending_int
&= ~INTERRUPT_MCHK
;
733 DPRINTF("%s: %" PRIx64
" %" PRIx64
"\n", __func__
,
734 env
->psw
.mask
, env
->psw
.addr
);
736 load_psw(env
, mask
, addr
);
739 void do_interrupt(CPUS390XState
*env
)
741 S390CPU
*cpu
= s390_env_get_cpu(env
);
743 qemu_log_mask(CPU_LOG_INT
, "%s: %d at pc=%" PRIx64
"\n",
744 __func__
, env
->exception_index
, env
->psw
.addr
);
746 s390_add_running_cpu(cpu
);
747 /* handle machine checks */
748 if ((env
->psw
.mask
& PSW_MASK_MCHECK
) &&
749 (env
->exception_index
== -1)) {
750 if (env
->pending_int
& INTERRUPT_MCHK
) {
751 env
->exception_index
= EXCP_MCHK
;
754 /* handle external interrupts */
755 if ((env
->psw
.mask
& PSW_MASK_EXT
) &&
756 env
->exception_index
== -1) {
757 if (env
->pending_int
& INTERRUPT_EXT
) {
758 /* code is already in env */
759 env
->exception_index
= EXCP_EXT
;
760 } else if (env
->pending_int
& INTERRUPT_TOD
) {
761 cpu_inject_ext(cpu
, 0x1004, 0, 0);
762 env
->exception_index
= EXCP_EXT
;
763 env
->pending_int
&= ~INTERRUPT_EXT
;
764 env
->pending_int
&= ~INTERRUPT_TOD
;
765 } else if (env
->pending_int
& INTERRUPT_CPUTIMER
) {
766 cpu_inject_ext(cpu
, 0x1005, 0, 0);
767 env
->exception_index
= EXCP_EXT
;
768 env
->pending_int
&= ~INTERRUPT_EXT
;
769 env
->pending_int
&= ~INTERRUPT_TOD
;
772 /* handle I/O interrupts */
773 if ((env
->psw
.mask
& PSW_MASK_IO
) &&
774 (env
->exception_index
== -1)) {
775 if (env
->pending_int
& INTERRUPT_IO
) {
776 env
->exception_index
= EXCP_IO
;
780 switch (env
->exception_index
) {
782 do_program_interrupt(env
);
785 do_svc_interrupt(env
);
788 do_ext_interrupt(env
);
791 do_io_interrupt(env
);
794 do_mchk_interrupt(env
);
797 env
->exception_index
= -1;
799 if (!env
->pending_int
) {
800 env
->interrupt_request
&= ~CPU_INTERRUPT_HARD
;
804 #endif /* CONFIG_USER_ONLY */