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"
22 #include "user-internals.h"
23 #include "cpu_loop-common.h"
24 #include "signal-common.h"
26 static abi_ulong
hppa_lws(CPUHPPAState
*env
)
28 CPUState
*cs
= env_cpu(env
);
29 uint32_t which
= env
->gr
[20];
30 abi_ulong addr
= env
->gr
[26];
31 abi_ulong old
= env
->gr
[25];
32 abi_ulong
new = env
->gr
[24];
37 return -TARGET_ENOSYS
;
39 case 0: /* elf32 atomic 32bit cmpxchg */
40 if ((addr
& 3) || !access_ok(cs
, VERIFY_WRITE
, addr
, 4)) {
41 return -TARGET_EFAULT
;
45 ret
= qatomic_cmpxchg((uint32_t *)g2h(cs
, addr
), old
, new);
49 case 2: /* elf32 atomic "new" cmpxchg */
52 return -TARGET_ENOSYS
;
54 if (((addr
| old
| new) & ((1 << size
) - 1))
55 || !access_ok(cs
, VERIFY_WRITE
, addr
, 1 << size
)
56 || !access_ok(cs
, VERIFY_READ
, old
, 1 << size
)
57 || !access_ok(cs
, VERIFY_READ
, new, 1 << size
)) {
58 return -TARGET_EFAULT
;
60 /* Note that below we use host-endian loads so that the cmpxchg
61 can be host-endian as well. */
64 old
= *(uint8_t *)g2h(cs
, old
);
65 new = *(uint8_t *)g2h(cs
, new);
66 ret
= qatomic_cmpxchg((uint8_t *)g2h(cs
, addr
), old
, new);
70 old
= *(uint16_t *)g2h(cs
, old
);
71 new = *(uint16_t *)g2h(cs
, new);
72 ret
= qatomic_cmpxchg((uint16_t *)g2h(cs
, addr
), old
, new);
76 old
= *(uint32_t *)g2h(cs
, old
);
77 new = *(uint32_t *)g2h(cs
, new);
78 ret
= qatomic_cmpxchg((uint32_t *)g2h(cs
, addr
), old
, new);
83 uint64_t o64
, n64
, r64
;
84 o64
= *(uint64_t *)g2h(cs
, old
);
85 n64
= *(uint64_t *)g2h(cs
, new);
86 #ifdef CONFIG_ATOMIC64
87 r64
= qatomic_cmpxchg__nocheck((aligned_uint64_t
*)g2h(cs
, addr
),
92 r64
= *(uint64_t *)g2h(cs
, addr
);
95 *(uint64_t *)g2h(cs
, addr
) = n64
;
110 void cpu_loop(CPUHPPAState
*env
)
112 CPUState
*cs
= env_cpu(env
);
118 trapnr
= cpu_exec(cs
);
120 process_queued_cpu_work(cs
);
124 ret
= do_syscall(env
, env
->gr
[20],
125 env
->gr
[26], env
->gr
[25],
126 env
->gr
[24], env
->gr
[23],
127 env
->gr
[22], env
->gr
[21], 0, 0);
131 /* We arrived here by faking the gateway page. Return. */
132 env
->iaoq_f
= env
->gr
[31] | PRIV_USER
;
133 env
->iaoq_b
= env
->iaoq_f
+ 4;
135 case -QEMU_ERESTARTSYS
:
136 case -QEMU_ESIGRETURN
:
140 case EXCP_SYSCALL_LWS
:
141 env
->gr
[21] = hppa_lws(env
);
142 /* We arrived here by faking the gateway page. Return. */
143 env
->iaoq_f
= env
->gr
[31] | PRIV_USER
;
144 env
->iaoq_b
= env
->iaoq_f
+ 4;
147 force_sig_fault(TARGET_SIGSEGV
, TARGET_SEGV_MAPERR
, env
->iaoq_f
);
150 force_sig_fault(TARGET_SIGILL
, TARGET_ILL_ILLOPC
, env
->iaoq_f
);
153 /* check for glibc ABORT_INSTRUCTION "iitlbp %r0,(%sr0, %r0)" */
154 if (env
->cr
[CR_IIR
] == 0x04000000) {
155 force_sig_fault(TARGET_SIGILL
, TARGET_ILL_ILLOPC
, env
->iaoq_f
);
157 force_sig_fault(TARGET_SIGILL
, TARGET_ILL_PRVOPC
, env
->iaoq_f
);
161 force_sig_fault(TARGET_SIGILL
, TARGET_ILL_PRVREG
, env
->iaoq_f
);
164 force_sig_fault(TARGET_SIGFPE
, TARGET_FPE_INTOVF
, env
->iaoq_f
);
167 force_sig_fault(TARGET_SIGFPE
, TARGET_FPE_CONDTRAP
, env
->iaoq_f
);
170 force_sig_fault(TARGET_SIGFPE
, 0, env
->iaoq_f
);
173 force_sig_fault(TARGET_SIGTRAP
, TARGET_TRAP_BRKPT
, env
->iaoq_f
);
176 force_sig_fault(TARGET_SIGTRAP
, TARGET_TRAP_BRKPT
, env
->iaoq_f
);
179 /* just indicate that signals should be handled asap */
182 EXCP_DUMP(env
, "qemu: unhandled CPU exception 0x%x - aborting\n", trapnr
);
185 process_pending_signals(env
);
189 void target_cpu_copy_regs(CPUArchState
*env
, struct target_pt_regs
*regs
)
192 for (i
= 1; i
< 32; i
++) {
193 env
->gr
[i
] = regs
->gr
[i
];
195 env
->iaoq_f
= regs
->iaoq
[0];
196 env
->iaoq_b
= regs
->iaoq
[1];