1a87295e8Spbrook /*
2a87295e8Spbrook * m68k/ColdFire Semihosting syscall interface
3a87295e8Spbrook *
4a87295e8Spbrook * Copyright (c) 2005-2007 CodeSourcery.
5a87295e8Spbrook *
6a87295e8Spbrook * This program is free software; you can redistribute it and/or modify
7a87295e8Spbrook * it under the terms of the GNU General Public License as published by
8a87295e8Spbrook * the Free Software Foundation; either version 2 of the License, or
9a87295e8Spbrook * (at your option) any later version.
10a87295e8Spbrook *
11a87295e8Spbrook * This program is distributed in the hope that it will be useful,
12a87295e8Spbrook * but WITHOUT ANY WARRANTY; without even the implied warranty of
13a87295e8Spbrook * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14a87295e8Spbrook * GNU General Public License for more details.
15a87295e8Spbrook *
16a87295e8Spbrook * You should have received a copy of the GNU General Public License
178167ee88SBlue Swirl * along with this program; if not, see <http://www.gnu.org/licenses/>.
181321d844SPeter Maydell *
191321d844SPeter Maydell * The semihosting protocol implemented here is described in the
201321d844SPeter Maydell * libgloss sources:
211321d844SPeter Maydell * https://sourceware.org/git/?p=newlib-cygwin.git;a=blob;f=libgloss/m68k/m68k-semi.txt;hb=HEAD
22a87295e8Spbrook */
23a87295e8Spbrook
24d8416665SPeter Maydell #include "qemu/osdep.h"
25a87295e8Spbrook
26a87295e8Spbrook #include "cpu.h"
27c566080cSAlex Bennée #include "gdbstub/syscalls.h"
284ea5fe99SAlex Bennée #include "gdbstub/helpers.h"
2995027250SRichard Henderson #include "semihosting/syscalls.h"
30f14eced5SPhilippe Mathieu-Daudé #include "semihosting/uaccess.h"
315601d241SPaolo Bonzini #include "hw/boards.h"
3263c91552SPaolo Bonzini #include "qemu/log.h"
33a87295e8Spbrook
34a87295e8Spbrook #define HOSTED_EXIT 0
35a87295e8Spbrook #define HOSTED_INIT_SIM 1
36a87295e8Spbrook #define HOSTED_OPEN 2
37a87295e8Spbrook #define HOSTED_CLOSE 3
38a87295e8Spbrook #define HOSTED_READ 4
39a87295e8Spbrook #define HOSTED_WRITE 5
40a87295e8Spbrook #define HOSTED_LSEEK 6
41a87295e8Spbrook #define HOSTED_RENAME 7
42a87295e8Spbrook #define HOSTED_UNLINK 8
43a87295e8Spbrook #define HOSTED_STAT 9
44a87295e8Spbrook #define HOSTED_FSTAT 10
45a87295e8Spbrook #define HOSTED_GETTIMEOFDAY 11
46a87295e8Spbrook #define HOSTED_ISATTY 12
47a87295e8Spbrook #define HOSTED_SYSTEM 13
48a87295e8Spbrook
host_to_gdb_errno(int err)497327e602SRichard Henderson static int host_to_gdb_errno(int err)
507327e602SRichard Henderson {
517327e602SRichard Henderson #define E(X) case E##X: return GDB_E##X
527327e602SRichard Henderson switch (err) {
537327e602SRichard Henderson E(PERM);
547327e602SRichard Henderson E(NOENT);
557327e602SRichard Henderson E(INTR);
567327e602SRichard Henderson E(BADF);
577327e602SRichard Henderson E(ACCES);
587327e602SRichard Henderson E(FAULT);
597327e602SRichard Henderson E(BUSY);
607327e602SRichard Henderson E(EXIST);
617327e602SRichard Henderson E(NODEV);
627327e602SRichard Henderson E(NOTDIR);
637327e602SRichard Henderson E(ISDIR);
647327e602SRichard Henderson E(INVAL);
657327e602SRichard Henderson E(NFILE);
667327e602SRichard Henderson E(MFILE);
677327e602SRichard Henderson E(FBIG);
687327e602SRichard Henderson E(NOSPC);
697327e602SRichard Henderson E(SPIPE);
707327e602SRichard Henderson E(ROFS);
717327e602SRichard Henderson E(NAMETOOLONG);
727327e602SRichard Henderson default:
737327e602SRichard Henderson return GDB_EUNKNOWN;
747327e602SRichard Henderson }
757327e602SRichard Henderson #undef E
767327e602SRichard Henderson }
777327e602SRichard Henderson
m68k_semi_u32_cb(CPUState * cs,uint64_t ret,int err)78ab294b6cSRichard Henderson static void m68k_semi_u32_cb(CPUState *cs, uint64_t ret, int err)
791073bfd8SPeter Maydell {
80e22a4560SPhilippe Mathieu-Daudé CPUM68KState *env = cpu_env(cs);
81ab294b6cSRichard Henderson
821073bfd8SPeter Maydell target_ulong args = env->dregs[1];
831073bfd8SPeter Maydell if (put_user_u32(ret, args) ||
847327e602SRichard Henderson put_user_u32(host_to_gdb_errno(err), args + 4)) {
85808d77bcSLucien Murray-Pitts /*
86808d77bcSLucien Murray-Pitts * The m68k semihosting ABI does not provide any way to report this
871073bfd8SPeter Maydell * error to the guest, so the best we can do is log it in qemu.
881073bfd8SPeter Maydell * It is always a guest error not to pass us a valid argument block.
891073bfd8SPeter Maydell */
901073bfd8SPeter Maydell qemu_log_mask(LOG_GUEST_ERROR, "m68k-semihosting: return value "
911073bfd8SPeter Maydell "discarded because argument block not writable\n");
921073bfd8SPeter Maydell }
931073bfd8SPeter Maydell }
941073bfd8SPeter Maydell
m68k_semi_u64_cb(CPUState * cs,uint64_t ret,int err)95ab294b6cSRichard Henderson static void m68k_semi_u64_cb(CPUState *cs, uint64_t ret, int err)
961073bfd8SPeter Maydell {
97e22a4560SPhilippe Mathieu-Daudé CPUM68KState *env = cpu_env(cs);
98ab294b6cSRichard Henderson
991073bfd8SPeter Maydell target_ulong args = env->dregs[1];
1001073bfd8SPeter Maydell if (put_user_u32(ret >> 32, args) ||
1011073bfd8SPeter Maydell put_user_u32(ret, args + 4) ||
1027327e602SRichard Henderson put_user_u32(host_to_gdb_errno(err), args + 8)) {
1031073bfd8SPeter Maydell /* No way to report this via m68k semihosting ABI; just log it */
1041073bfd8SPeter Maydell qemu_log_mask(LOG_GUEST_ERROR, "m68k-semihosting: return value "
1051073bfd8SPeter Maydell "discarded because argument block not writable\n");
1061073bfd8SPeter Maydell }
1071073bfd8SPeter Maydell }
1081073bfd8SPeter Maydell
109808d77bcSLucien Murray-Pitts /*
110808d77bcSLucien Murray-Pitts * Read the input value from the argument block; fail the semihosting
1117ba6c104SPeter Maydell * call if the memory read fails.
1127ba6c104SPeter Maydell */
1137ba6c104SPeter Maydell #define GET_ARG(n) do { \
1147ba6c104SPeter Maydell if (get_user_ual(arg ## n, args + (n) * 4)) { \
1157ba6c104SPeter Maydell goto failed; \
1167ba6c104SPeter Maydell } \
1177ba6c104SPeter Maydell } while (0)
1187ba6c104SPeter Maydell
11995027250SRichard Henderson #define GET_ARG64(n) do { \
12095027250SRichard Henderson if (get_user_ual(arg ## n, args + (n) * 4)) { \
12195027250SRichard Henderson goto failed64; \
12295027250SRichard Henderson } \
12395027250SRichard Henderson } while (0)
12495027250SRichard Henderson
12595027250SRichard Henderson
do_m68k_semihosting(CPUM68KState * env,int nr)126a87295e8Spbrook void do_m68k_semihosting(CPUM68KState *env, int nr)
127a87295e8Spbrook {
128ab294b6cSRichard Henderson CPUState *cs = env_cpu(env);
129a87295e8Spbrook uint32_t args;
1307ba6c104SPeter Maydell target_ulong arg0, arg1, arg2, arg3;
131a87295e8Spbrook
132a87295e8Spbrook args = env->dregs[1];
133a87295e8Spbrook switch (nr) {
134a87295e8Spbrook case HOSTED_EXIT:
135*5fae5110SKeith Packard gdb_exit(env->dregs[1]);
136*5fae5110SKeith Packard exit(env->dregs[1]);
13795027250SRichard Henderson
138a87295e8Spbrook case HOSTED_OPEN:
1397ba6c104SPeter Maydell GET_ARG(0);
1407ba6c104SPeter Maydell GET_ARG(1);
1417ba6c104SPeter Maydell GET_ARG(2);
1427ba6c104SPeter Maydell GET_ARG(3);
14395027250SRichard Henderson semihost_sys_open(cs, m68k_semi_u32_cb, arg0, arg1, arg2, arg3);
144a87295e8Spbrook break;
14595027250SRichard Henderson
146a87295e8Spbrook case HOSTED_CLOSE:
1477ba6c104SPeter Maydell GET_ARG(0);
14895027250SRichard Henderson semihost_sys_close(cs, m68k_semi_u32_cb, arg0);
149a87295e8Spbrook break;
15095027250SRichard Henderson
151a87295e8Spbrook case HOSTED_READ:
1527ba6c104SPeter Maydell GET_ARG(0);
1537ba6c104SPeter Maydell GET_ARG(1);
1547ba6c104SPeter Maydell GET_ARG(2);
15595027250SRichard Henderson semihost_sys_read(cs, m68k_semi_u32_cb, arg0, arg1, arg2);
156a87295e8Spbrook break;
15795027250SRichard Henderson
158a87295e8Spbrook case HOSTED_WRITE:
1597ba6c104SPeter Maydell GET_ARG(0);
1607ba6c104SPeter Maydell GET_ARG(1);
1617ba6c104SPeter Maydell GET_ARG(2);
16295027250SRichard Henderson semihost_sys_write(cs, m68k_semi_u32_cb, arg0, arg1, arg2);
163a87295e8Spbrook break;
16495027250SRichard Henderson
165a87295e8Spbrook case HOSTED_LSEEK:
16695027250SRichard Henderson GET_ARG64(0);
16795027250SRichard Henderson GET_ARG64(1);
16895027250SRichard Henderson GET_ARG64(2);
16995027250SRichard Henderson GET_ARG64(3);
17095027250SRichard Henderson semihost_sys_lseek(cs, m68k_semi_u64_cb, arg0,
1718caaae73SPeter Maydell deposit64(arg2, 32, 32, arg1), arg3);
17295027250SRichard Henderson break;
17395027250SRichard Henderson
174a87295e8Spbrook case HOSTED_RENAME:
1757ba6c104SPeter Maydell GET_ARG(0);
1767ba6c104SPeter Maydell GET_ARG(1);
1777ba6c104SPeter Maydell GET_ARG(2);
1787ba6c104SPeter Maydell GET_ARG(3);
17995027250SRichard Henderson semihost_sys_rename(cs, m68k_semi_u32_cb, arg0, arg1, arg2, arg3);
180a87295e8Spbrook break;
18195027250SRichard Henderson
182a87295e8Spbrook case HOSTED_UNLINK:
1837ba6c104SPeter Maydell GET_ARG(0);
1847ba6c104SPeter Maydell GET_ARG(1);
18595027250SRichard Henderson semihost_sys_remove(cs, m68k_semi_u32_cb, arg0, arg1);
186a87295e8Spbrook break;
18795027250SRichard Henderson
188a87295e8Spbrook case HOSTED_STAT:
1897ba6c104SPeter Maydell GET_ARG(0);
1907ba6c104SPeter Maydell GET_ARG(1);
1917ba6c104SPeter Maydell GET_ARG(2);
19295027250SRichard Henderson semihost_sys_stat(cs, m68k_semi_u32_cb, arg0, arg1, arg2);
193a87295e8Spbrook break;
19495027250SRichard Henderson
195a87295e8Spbrook case HOSTED_FSTAT:
1967ba6c104SPeter Maydell GET_ARG(0);
1977ba6c104SPeter Maydell GET_ARG(1);
19895027250SRichard Henderson semihost_sys_fstat(cs, m68k_semi_u32_cb, arg0, arg1);
199a87295e8Spbrook break;
20095027250SRichard Henderson
201a87295e8Spbrook case HOSTED_GETTIMEOFDAY:
2027ba6c104SPeter Maydell GET_ARG(0);
2037ba6c104SPeter Maydell GET_ARG(1);
20495027250SRichard Henderson semihost_sys_gettimeofday(cs, m68k_semi_u32_cb, arg0, arg1);
205a87295e8Spbrook break;
20695027250SRichard Henderson
207a87295e8Spbrook case HOSTED_ISATTY:
2087ba6c104SPeter Maydell GET_ARG(0);
20995027250SRichard Henderson semihost_sys_isatty(cs, m68k_semi_u32_cb, arg0);
210a87295e8Spbrook break;
21195027250SRichard Henderson
212a87295e8Spbrook case HOSTED_SYSTEM:
2137ba6c104SPeter Maydell GET_ARG(0);
2147ba6c104SPeter Maydell GET_ARG(1);
21595027250SRichard Henderson semihost_sys_system(cs, m68k_semi_u32_cb, arg0, arg1);
216a87295e8Spbrook break;
21795027250SRichard Henderson
218a87295e8Spbrook case HOSTED_INIT_SIM:
219808d77bcSLucien Murray-Pitts /*
220808d77bcSLucien Murray-Pitts * FIXME: This is wrong for boards where RAM does not start at
221808d77bcSLucien Murray-Pitts * address zero.
222808d77bcSLucien Murray-Pitts */
2235601d241SPaolo Bonzini env->dregs[1] = current_machine->ram_size;
2245601d241SPaolo Bonzini env->aregs[7] = current_machine->ram_size;
225a87295e8Spbrook return;
22695027250SRichard Henderson
227a87295e8Spbrook default:
228a8d92fd8SRichard Henderson cpu_abort(env_cpu(env), "Unsupported semihosting syscall %d\n", nr);
22995027250SRichard Henderson
2307ba6c104SPeter Maydell failed:
23195027250SRichard Henderson m68k_semi_u32_cb(cs, -1, EFAULT);
23295027250SRichard Henderson break;
23395027250SRichard Henderson failed64:
23495027250SRichard Henderson m68k_semi_u64_cb(cs, -1, EFAULT);
23595027250SRichard Henderson break;
23695027250SRichard Henderson }
237a87295e8Spbrook }
238