2007-05-26 17:09:38 +02:00
|
|
|
/*
|
|
|
|
* m68k/ColdFire Semihosting syscall interface
|
2007-09-16 23:08:06 +02:00
|
|
|
*
|
2007-05-26 17:09:38 +02:00
|
|
|
* Copyright (c) 2005-2007 CodeSourcery.
|
|
|
|
*
|
|
|
|
* This program is free software; you can redistribute it and/or modify
|
|
|
|
* it under the terms of the GNU General Public License as published by
|
|
|
|
* the Free Software Foundation; either version 2 of the License, or
|
|
|
|
* (at your option) any later version.
|
|
|
|
*
|
|
|
|
* This program is distributed in the hope that it will be useful,
|
|
|
|
* but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
|
|
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
|
|
* GNU General Public License for more details.
|
|
|
|
*
|
|
|
|
* You should have received a copy of the GNU General Public License
|
2009-07-16 22:47:01 +02:00
|
|
|
* along with this program; if not, see <http://www.gnu.org/licenses/>.
|
2007-05-26 17:09:38 +02:00
|
|
|
*/
|
|
|
|
|
2016-01-26 19:17:23 +01:00
|
|
|
#include "qemu/osdep.h"
|
2007-05-26 17:09:38 +02:00
|
|
|
|
|
|
|
#include "cpu.h"
|
2021-09-08 17:44:04 +02:00
|
|
|
#include "exec/gdbstub.h"
|
2022-04-30 02:38:59 +02:00
|
|
|
#include "semihosting/syscalls.h"
|
2022-04-28 05:48:41 +02:00
|
|
|
#include "semihosting/softmmu-uaccess.h"
|
2020-10-28 11:15:40 +01:00
|
|
|
#include "hw/boards.h"
|
2016-03-15 13:18:37 +01:00
|
|
|
#include "qemu/log.h"
|
2007-05-26 17:09:38 +02:00
|
|
|
|
|
|
|
#define HOSTED_EXIT 0
|
|
|
|
#define HOSTED_INIT_SIM 1
|
|
|
|
#define HOSTED_OPEN 2
|
|
|
|
#define HOSTED_CLOSE 3
|
|
|
|
#define HOSTED_READ 4
|
|
|
|
#define HOSTED_WRITE 5
|
|
|
|
#define HOSTED_LSEEK 6
|
|
|
|
#define HOSTED_RENAME 7
|
|
|
|
#define HOSTED_UNLINK 8
|
|
|
|
#define HOSTED_STAT 9
|
|
|
|
#define HOSTED_FSTAT 10
|
|
|
|
#define HOSTED_GETTIMEOFDAY 11
|
|
|
|
#define HOSTED_ISATTY 12
|
|
|
|
#define HOSTED_SYSTEM 13
|
|
|
|
|
2022-06-21 00:22:14 +02:00
|
|
|
static int host_to_gdb_errno(int err)
|
|
|
|
{
|
|
|
|
#define E(X) case E##X: return GDB_E##X
|
|
|
|
switch (err) {
|
|
|
|
E(PERM);
|
|
|
|
E(NOENT);
|
|
|
|
E(INTR);
|
|
|
|
E(BADF);
|
|
|
|
E(ACCES);
|
|
|
|
E(FAULT);
|
|
|
|
E(BUSY);
|
|
|
|
E(EXIST);
|
|
|
|
E(NODEV);
|
|
|
|
E(NOTDIR);
|
|
|
|
E(ISDIR);
|
|
|
|
E(INVAL);
|
|
|
|
E(NFILE);
|
|
|
|
E(MFILE);
|
|
|
|
E(FBIG);
|
|
|
|
E(NOSPC);
|
|
|
|
E(SPIPE);
|
|
|
|
E(ROFS);
|
|
|
|
E(NAMETOOLONG);
|
|
|
|
default:
|
|
|
|
return GDB_EUNKNOWN;
|
|
|
|
}
|
|
|
|
#undef E
|
|
|
|
}
|
|
|
|
|
2022-04-30 01:44:44 +02:00
|
|
|
static void m68k_semi_u32_cb(CPUState *cs, uint64_t ret, int err)
|
2012-10-29 13:05:11 +01:00
|
|
|
{
|
2022-04-30 01:44:44 +02:00
|
|
|
M68kCPU *cpu = M68K_CPU(cs);
|
|
|
|
CPUM68KState *env = &cpu->env;
|
|
|
|
|
2012-10-29 13:05:11 +01:00
|
|
|
target_ulong args = env->dregs[1];
|
|
|
|
if (put_user_u32(ret, args) ||
|
2022-06-21 00:22:14 +02:00
|
|
|
put_user_u32(host_to_gdb_errno(err), args + 4)) {
|
2019-06-07 01:41:25 +02:00
|
|
|
/*
|
|
|
|
* The m68k semihosting ABI does not provide any way to report this
|
2012-10-29 13:05:11 +01:00
|
|
|
* error to the guest, so the best we can do is log it in qemu.
|
|
|
|
* It is always a guest error not to pass us a valid argument block.
|
|
|
|
*/
|
|
|
|
qemu_log_mask(LOG_GUEST_ERROR, "m68k-semihosting: return value "
|
|
|
|
"discarded because argument block not writable\n");
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
2022-04-30 01:44:44 +02:00
|
|
|
static void m68k_semi_u64_cb(CPUState *cs, uint64_t ret, int err)
|
2012-10-29 13:05:11 +01:00
|
|
|
{
|
2022-04-30 01:44:44 +02:00
|
|
|
M68kCPU *cpu = M68K_CPU(cs);
|
|
|
|
CPUM68KState *env = &cpu->env;
|
|
|
|
|
2012-10-29 13:05:11 +01:00
|
|
|
target_ulong args = env->dregs[1];
|
|
|
|
if (put_user_u32(ret >> 32, args) ||
|
|
|
|
put_user_u32(ret, args + 4) ||
|
2022-06-21 00:22:14 +02:00
|
|
|
put_user_u32(host_to_gdb_errno(err), args + 8)) {
|
2012-10-29 13:05:11 +01:00
|
|
|
/* No way to report this via m68k semihosting ABI; just log it */
|
|
|
|
qemu_log_mask(LOG_GUEST_ERROR, "m68k-semihosting: return value "
|
|
|
|
"discarded because argument block not writable\n");
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
2019-06-07 01:41:25 +02:00
|
|
|
/*
|
|
|
|
* Read the input value from the argument block; fail the semihosting
|
2012-10-29 13:05:10 +01:00
|
|
|
* call if the memory read fails.
|
|
|
|
*/
|
|
|
|
#define GET_ARG(n) do { \
|
|
|
|
if (get_user_ual(arg ## n, args + (n) * 4)) { \
|
|
|
|
goto failed; \
|
|
|
|
} \
|
|
|
|
} while (0)
|
|
|
|
|
2022-04-30 02:38:59 +02:00
|
|
|
#define GET_ARG64(n) do { \
|
|
|
|
if (get_user_ual(arg ## n, args + (n) * 4)) { \
|
|
|
|
goto failed64; \
|
|
|
|
} \
|
|
|
|
} while (0)
|
|
|
|
|
|
|
|
|
2007-05-26 17:09:38 +02:00
|
|
|
void do_m68k_semihosting(CPUM68KState *env, int nr)
|
|
|
|
{
|
2022-04-30 01:44:44 +02:00
|
|
|
CPUState *cs = env_cpu(env);
|
2007-05-26 17:09:38 +02:00
|
|
|
uint32_t args;
|
2012-10-29 13:05:10 +01:00
|
|
|
target_ulong arg0, arg1, arg2, arg3;
|
2007-05-26 17:09:38 +02:00
|
|
|
|
|
|
|
args = env->dregs[1];
|
|
|
|
switch (nr) {
|
|
|
|
case HOSTED_EXIT:
|
2021-01-08 23:42:43 +01:00
|
|
|
gdb_exit(env->dregs[0]);
|
2007-05-26 17:09:38 +02:00
|
|
|
exit(env->dregs[0]);
|
2022-04-30 02:38:59 +02:00
|
|
|
|
2007-05-26 17:09:38 +02:00
|
|
|
case HOSTED_OPEN:
|
2012-10-29 13:05:10 +01:00
|
|
|
GET_ARG(0);
|
|
|
|
GET_ARG(1);
|
|
|
|
GET_ARG(2);
|
|
|
|
GET_ARG(3);
|
2022-04-30 02:38:59 +02:00
|
|
|
semihost_sys_open(cs, m68k_semi_u32_cb, arg0, arg1, arg2, arg3);
|
2007-05-26 17:09:38 +02:00
|
|
|
break;
|
2022-04-30 02:38:59 +02:00
|
|
|
|
2007-05-26 17:09:38 +02:00
|
|
|
case HOSTED_CLOSE:
|
2022-04-30 02:38:59 +02:00
|
|
|
GET_ARG(0);
|
|
|
|
semihost_sys_close(cs, m68k_semi_u32_cb, arg0);
|
|
|
|
break;
|
|
|
|
|
2007-05-26 17:09:38 +02:00
|
|
|
case HOSTED_READ:
|
2012-10-29 13:05:10 +01:00
|
|
|
GET_ARG(0);
|
|
|
|
GET_ARG(1);
|
|
|
|
GET_ARG(2);
|
2022-04-30 02:38:59 +02:00
|
|
|
semihost_sys_read(cs, m68k_semi_u32_cb, arg0, arg1, arg2);
|
2007-05-26 17:09:38 +02:00
|
|
|
break;
|
2022-04-30 02:38:59 +02:00
|
|
|
|
2007-05-26 17:09:38 +02:00
|
|
|
case HOSTED_WRITE:
|
2012-10-29 13:05:10 +01:00
|
|
|
GET_ARG(0);
|
|
|
|
GET_ARG(1);
|
|
|
|
GET_ARG(2);
|
2022-04-30 02:38:59 +02:00
|
|
|
semihost_sys_write(cs, m68k_semi_u32_cb, arg0, arg1, arg2);
|
2007-05-26 17:09:38 +02:00
|
|
|
break;
|
2022-04-30 02:38:59 +02:00
|
|
|
|
2007-05-26 17:09:38 +02:00
|
|
|
case HOSTED_LSEEK:
|
2022-04-30 02:38:59 +02:00
|
|
|
GET_ARG64(0);
|
|
|
|
GET_ARG64(1);
|
|
|
|
GET_ARG64(2);
|
|
|
|
GET_ARG64(3);
|
|
|
|
semihost_sys_lseek(cs, m68k_semi_u64_cb, arg0,
|
|
|
|
deposit64(arg2, arg1, 32, 32), arg3);
|
|
|
|
break;
|
|
|
|
|
2007-05-26 17:09:38 +02:00
|
|
|
case HOSTED_RENAME:
|
2012-10-29 13:05:10 +01:00
|
|
|
GET_ARG(0);
|
|
|
|
GET_ARG(1);
|
|
|
|
GET_ARG(2);
|
|
|
|
GET_ARG(3);
|
2022-04-30 02:38:59 +02:00
|
|
|
semihost_sys_rename(cs, m68k_semi_u32_cb, arg0, arg1, arg2, arg3);
|
2007-05-26 17:09:38 +02:00
|
|
|
break;
|
2022-04-30 02:38:59 +02:00
|
|
|
|
2007-05-26 17:09:38 +02:00
|
|
|
case HOSTED_UNLINK:
|
2012-10-29 13:05:10 +01:00
|
|
|
GET_ARG(0);
|
|
|
|
GET_ARG(1);
|
2022-04-30 02:38:59 +02:00
|
|
|
semihost_sys_remove(cs, m68k_semi_u32_cb, arg0, arg1);
|
2007-05-26 17:09:38 +02:00
|
|
|
break;
|
2022-04-30 02:38:59 +02:00
|
|
|
|
2007-05-26 17:09:38 +02:00
|
|
|
case HOSTED_STAT:
|
2012-10-29 13:05:10 +01:00
|
|
|
GET_ARG(0);
|
|
|
|
GET_ARG(1);
|
|
|
|
GET_ARG(2);
|
2022-04-30 02:38:59 +02:00
|
|
|
semihost_sys_stat(cs, m68k_semi_u32_cb, arg0, arg1, arg2);
|
2007-05-26 17:09:38 +02:00
|
|
|
break;
|
2022-04-30 02:38:59 +02:00
|
|
|
|
2007-05-26 17:09:38 +02:00
|
|
|
case HOSTED_FSTAT:
|
2012-10-29 13:05:10 +01:00
|
|
|
GET_ARG(0);
|
|
|
|
GET_ARG(1);
|
2022-04-30 02:38:59 +02:00
|
|
|
semihost_sys_fstat(cs, m68k_semi_u32_cb, arg0, arg1);
|
2007-05-26 17:09:38 +02:00
|
|
|
break;
|
2022-04-30 02:38:59 +02:00
|
|
|
|
2007-05-26 17:09:38 +02:00
|
|
|
case HOSTED_GETTIMEOFDAY:
|
2012-10-29 13:05:10 +01:00
|
|
|
GET_ARG(0);
|
|
|
|
GET_ARG(1);
|
2022-04-30 02:38:59 +02:00
|
|
|
semihost_sys_gettimeofday(cs, m68k_semi_u32_cb, arg0, arg1);
|
2007-05-26 17:09:38 +02:00
|
|
|
break;
|
2022-04-30 02:38:59 +02:00
|
|
|
|
2007-05-26 17:09:38 +02:00
|
|
|
case HOSTED_ISATTY:
|
2012-10-29 13:05:10 +01:00
|
|
|
GET_ARG(0);
|
2022-04-30 02:38:59 +02:00
|
|
|
semihost_sys_isatty(cs, m68k_semi_u32_cb, arg0);
|
2007-05-26 17:09:38 +02:00
|
|
|
break;
|
2022-04-30 02:38:59 +02:00
|
|
|
|
2007-05-26 17:09:38 +02:00
|
|
|
case HOSTED_SYSTEM:
|
2012-10-29 13:05:10 +01:00
|
|
|
GET_ARG(0);
|
|
|
|
GET_ARG(1);
|
2022-04-30 02:38:59 +02:00
|
|
|
semihost_sys_system(cs, m68k_semi_u32_cb, arg0, arg1);
|
2007-05-26 17:09:38 +02:00
|
|
|
break;
|
2022-04-30 02:38:59 +02:00
|
|
|
|
2007-05-26 17:09:38 +02:00
|
|
|
case HOSTED_INIT_SIM:
|
2019-06-07 01:41:25 +02:00
|
|
|
/*
|
|
|
|
* FIXME: This is wrong for boards where RAM does not start at
|
|
|
|
* address zero.
|
|
|
|
*/
|
2020-10-28 11:15:40 +01:00
|
|
|
env->dregs[1] = current_machine->ram_size;
|
|
|
|
env->aregs[7] = current_machine->ram_size;
|
2007-05-26 17:09:38 +02:00
|
|
|
return;
|
2022-04-30 02:38:59 +02:00
|
|
|
|
2007-05-26 17:09:38 +02:00
|
|
|
default:
|
2019-03-23 02:23:25 +01:00
|
|
|
cpu_abort(env_cpu(env), "Unsupported semihosting syscall %d\n", nr);
|
2022-04-30 02:38:59 +02:00
|
|
|
|
|
|
|
failed:
|
|
|
|
m68k_semi_u32_cb(cs, -1, EFAULT);
|
|
|
|
break;
|
|
|
|
failed64:
|
|
|
|
m68k_semi_u64_cb(cs, -1, EFAULT);
|
|
|
|
break;
|
2007-05-26 17:09:38 +02:00
|
|
|
}
|
|
|
|
}
|