]>
git.proxmox.com Git - mirror_qemu.git/blob - linux-user/s390x/cpu_loop.c
ae70f630532d961aa3ed8d679a1ff1383896d4a2
4 * Copyright (c) 2003-2008 Fabrice Bellard
6 * This program is free software; you can redistribute it and/or modify
7 * it under the terms of the GNU General Public License as published by
8 * the Free Software Foundation; either version 2 of the License, or
9 * (at your option) any later version.
11 * This program is distributed in the hope that it will be useful,
12 * but WITHOUT ANY WARRANTY; without even the implied warranty of
13 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 * GNU General Public License for more details.
16 * You should have received a copy of the GNU General Public License
17 * along with this program; if not, see <http://www.gnu.org/licenses/>.
20 #include "qemu/osdep.h"
21 #include "qemu-common.h"
23 #include "cpu_loop-common.h"
24 #include "signal-common.h"
26 /* s390x masks the fault address it reports in si_addr for SIGSEGV and SIGBUS */
27 #define S390X_FAIL_ADDR_MASK -4096LL
29 static int get_pgm_data_si_code(int dxc_code
)
32 /* Non-simulated IEEE exceptions */
34 return TARGET_FPE_FLTINV
;
36 return TARGET_FPE_FLTDIV
;
40 return TARGET_FPE_FLTOVF
;
44 return TARGET_FPE_FLTUND
;
47 return TARGET_FPE_FLTRES
;
50 * Non-IEEE and simulated IEEE:
51 * Includes compare-and-trap, quantum exception, etc.
52 * Simulated IEEE are included here to match current
58 void cpu_loop(CPUS390XState
*env
)
60 CPUState
*cs
= env_cpu(env
);
62 target_siginfo_t info
;
68 trapnr
= cpu_exec(cs
);
70 process_queued_cpu_work(cs
);
74 /* Just indicate that signals should be handled asap. */
78 n
= env
->int_svc_code
;
83 env
->psw
.addr
+= env
->int_svc_ilen
;
84 ret
= do_syscall(env
, n
, env
->regs
[2], env
->regs
[3],
85 env
->regs
[4], env
->regs
[5],
86 env
->regs
[6], env
->regs
[7], 0, 0);
87 if (ret
== -TARGET_ERESTARTSYS
) {
88 env
->psw
.addr
-= env
->int_svc_ilen
;
89 } else if (ret
!= -TARGET_QEMU_ESIGRETURN
) {
96 n
= TARGET_TRAP_BRKPT
;
98 * For SIGTRAP the PSW must point after the instruction, which it
99 * already does thanks to s390x_tr_tb_stop(). si_addr doesn't need
105 n
= env
->int_pgm_code
;
110 n
= TARGET_ILL_ILLOPC
;
114 sig
= TARGET_SIGSEGV
;
115 /* XXX: check env->error_code */
116 n
= TARGET_SEGV_MAPERR
;
117 addr
= env
->__excp_addr
& S390X_FAIL_ADDR_MASK
;
120 case PGM_SPECIFICATION
:
125 n
= TARGET_ILL_ILLOPN
;
128 case PGM_FIXPT_OVERFLOW
:
130 n
= TARGET_FPE_INTOVF
;
132 case PGM_FIXPT_DIVIDE
:
134 n
= TARGET_FPE_INTDIV
;
138 n
= (env
->fpc
>> 8) & 0xff;
144 n
= get_pgm_data_si_code(n
);
148 fprintf(stderr
, "Unhandled program exception: %#x\n", n
);
149 cpu_dump_state(cs
, stderr
, 0);
155 addr
= env
->psw
.addr
;
157 * For SIGILL and SIGFPE the PSW must point after the instruction.
159 env
->psw
.addr
+= env
->int_pgm_ilen
;
164 info
._sifields
._sigfault
._addr
= addr
;
165 queue_signal(env
, info
.si_signo
, QEMU_SI_FAULT
, &info
);
169 cpu_exec_step_atomic(cs
);
172 fprintf(stderr
, "Unhandled trap: 0x%x\n", trapnr
);
173 cpu_dump_state(cs
, stderr
, 0);
176 process_pending_signals (env
);
180 void target_cpu_copy_regs(CPUArchState
*env
, struct target_pt_regs
*regs
)
183 for (i
= 0; i
< 16; i
++) {
184 env
->regs
[i
] = regs
->gprs
[i
];
186 env
->psw
.mask
= regs
->psw
.mask
;
187 env
->psw
.addr
= regs
->psw
.addr
;