2 * m68k/ColdFire Semihosting syscall interface
4 * Copyright (c) 2005-2007 CodeSourcery.
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"
23 #include "exec/gdbstub.h"
24 #include "semihosting/syscalls.h"
25 #include "semihosting/softmmu-uaccess.h"
26 #include "hw/boards.h"
30 #define HOSTED_INIT_SIM 1
32 #define HOSTED_CLOSE 3
34 #define HOSTED_WRITE 5
35 #define HOSTED_LSEEK 6
36 #define HOSTED_RENAME 7
37 #define HOSTED_UNLINK 8
39 #define HOSTED_FSTAT 10
40 #define HOSTED_GETTIMEOFDAY 11
41 #define HOSTED_ISATTY 12
42 #define HOSTED_SYSTEM 13
44 static int host_to_gdb_errno(int err)
46 #define E(X) case E##X: return GDB_E##X
73 static void m68k_semi_u32_cb(CPUState *cs, uint64_t ret, int err)
75 M68kCPU *cpu = M68K_CPU(cs);
76 CPUM68KState *env = &cpu->env;
78 target_ulong args = env->dregs[1];
79 if (put_user_u32(ret, args) ||
80 put_user_u32(host_to_gdb_errno(err), args + 4)) {
82 * The m68k semihosting ABI does not provide any way to report this
83 * error to the guest, so the best we can do is log it in qemu.
84 * It is always a guest error not to pass us a valid argument block.
86 qemu_log_mask(LOG_GUEST_ERROR, "m68k-semihosting: return value "
87 "discarded because argument block not writable\n");
91 static void m68k_semi_u64_cb(CPUState *cs, uint64_t ret, int err)
93 M68kCPU *cpu = M68K_CPU(cs);
94 CPUM68KState *env = &cpu->env;
96 target_ulong args = env->dregs[1];
97 if (put_user_u32(ret >> 32, args) ||
98 put_user_u32(ret, args + 4) ||
99 put_user_u32(host_to_gdb_errno(err), args + 8)) {
100 /* No way to report this via m68k semihosting ABI; just log it */
101 qemu_log_mask(LOG_GUEST_ERROR, "m68k-semihosting: return value "
102 "discarded because argument block not writable\n");
107 * Read the input value from the argument block; fail the semihosting
108 * call if the memory read fails.
110 #define GET_ARG(n) do { \
111 if (get_user_ual(arg ## n, args + (n) * 4)) { \
116 #define GET_ARG64(n) do { \
117 if (get_user_ual(arg ## n, args + (n) * 4)) { \
123 void do_m68k_semihosting(CPUM68KState *env, int nr)
125 CPUState *cs = env_cpu(env);
127 target_ulong arg0, arg1, arg2, arg3;
129 args = env->dregs[1];
132 gdb_exit(env->dregs[0]);
140 semihost_sys_open(cs, m68k_semi_u32_cb, arg0, arg1, arg2, arg3);
145 semihost_sys_close(cs, m68k_semi_u32_cb, arg0);
152 semihost_sys_read(cs, m68k_semi_u32_cb, arg0, arg1, arg2);
159 semihost_sys_write(cs, m68k_semi_u32_cb, arg0, arg1, arg2);
167 semihost_sys_lseek(cs, m68k_semi_u64_cb, arg0,
168 deposit64(arg2, arg1, 32, 32), arg3);
176 semihost_sys_rename(cs, m68k_semi_u32_cb, arg0, arg1, arg2, arg3);
182 semihost_sys_remove(cs, m68k_semi_u32_cb, arg0, arg1);
189 semihost_sys_stat(cs, m68k_semi_u32_cb, arg0, arg1, arg2);
195 semihost_sys_fstat(cs, m68k_semi_u32_cb, arg0, arg1);
198 case HOSTED_GETTIMEOFDAY:
201 semihost_sys_gettimeofday(cs, m68k_semi_u32_cb, arg0, arg1);
206 semihost_sys_isatty(cs, m68k_semi_u32_cb, arg0);
212 semihost_sys_system(cs, m68k_semi_u32_cb, arg0, arg1);
215 case HOSTED_INIT_SIM:
217 * FIXME: This is wrong for boards where RAM does not start at
220 env->dregs[1] = current_machine->ram_size;
221 env->aregs[7] = current_machine->ram_size;
225 cpu_abort(env_cpu(env), "Unsupported semihosting syscall %d\n", nr);
228 m68k_semi_u32_cb(cs, -1, EFAULT);
231 m68k_semi_u64_cb(cs, -1, EFAULT);