xref: /qemu/target/m68k/m68k-semi.c (revision 5da72194df36535d773c8bdc951529ecd5e31707)
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