diff -r ffa851df0825 -r 2fb8b9db1c86 symbian-qemu-0.9.1-12/qemu-symbian-svp/darwin-user/syscall.c --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/symbian-qemu-0.9.1-12/qemu-symbian-svp/darwin-user/syscall.c Fri Jul 31 15:01:17 2009 +0100 @@ -0,0 +1,1567 @@ +/* + * Darwin syscalls + * + * Copyright (c) 2003 Fabrice Bellard + * Copyright (c) 2006 Pierre d'Herbemont + * + * 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 + * along with this program; if not, write to the Free Software + * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. + */ +#include +#include +#include +#include + +#include +#include +#include +#include + +#include +#include + +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include + +#include +#include + +#include + +#include +#include + +#include + +#include "qemu.h" + +//#define DEBUG_SYSCALL + +#ifdef DEBUG_SYSCALL +# define DEBUG_FORCE_ENABLE_LOCAL() int __DEBUG_qemu_user_force_enable = 1 +# define DEBUG_BEGIN_ENABLE __DEBUG_qemu_user_force_enable = 1; +# define DEBUG_END_ENABLE __DEBUG_qemu_user_force_enable = 0; + +# define DEBUG_DISABLE_ALL() static int __DEBUG_qemu_user_force_enable = 0 +# define DEBUG_ENABLE_ALL() static int __DEBUG_qemu_user_force_enable = 1 + DEBUG_ENABLE_ALL(); + +# define DPRINTF(...) do { if(loglevel) fprintf(logfile, __VA_ARGS__); \ + if(__DEBUG_qemu_user_force_enable) fprintf(stderr, __VA_ARGS__); \ + } while(0) +#else +# define DEBUG_FORCE_ENABLE_LOCAL() +# define DEBUG_BEGIN_ENABLE +# define DEBUG_END_ENABLE + +# define DPRINTF(...) do { if(loglevel) fprintf(logfile, __VA_ARGS__); } while(0) +#endif + +enum { + bswap_out = 0, + bswap_in = 1 +}; + +extern const char *interp_prefix; + +static inline long get_errno(long ret) +{ + if (ret == -1) + return -errno; + else + return ret; +} + +static inline int is_error(long ret) +{ + return (unsigned long)ret >= (unsigned long)(-4096); +} + +/* ------------------------------------------------------------ + Mach syscall handling +*/ + +void static inline print_description_msg_header(mach_msg_header_t *hdr) +{ + char *name = NULL; + int i; + struct { int number; char *name; } msg_name[] = + { + /* see http://fxr.watson.org/fxr/source/compat/mach/mach_namemap.c?v=NETBSD */ + { 200, "host_info" }, + { 202, "host_page_size" }, + { 206, "host_get_clock_service" }, + { 206, "host_get_clock_service" }, + { 206, "host_get_clock_service" }, + { 306, "host_get_clock_service" }, + { 3204, "mach_port_allocate" }, + { 3206, "mach_port_deallocate" }, + { 3404, "mach_ports_lookup" }, + { 3409, "mach_task_get_special_port" }, + { 3414, "mach_task_get_exception_ports" }, + { 3418, "mach_semaphore_create" }, + { 3504, "mach_semaphore_create" }, + { 3509, "mach_semaphore_create" }, + { 3518, "semaphore_create" }, + { 3616, "thread_policy" }, + { 3801, "vm_allocate" }, + { 3802, "vm_deallocate" }, + { 3802, "vm_deallocate" }, + { 3803, "vm_protect" }, + { 3812, "vm_map" }, + { 4241776, "lu_message_send_id" }, /* lookupd */ + { 4241876, "lu_message_reply_id" }, /* lookupd */ + }; + + for(i = 0; i < ARRAY_SIZE(msg_name); i++) { + if(msg_name[i].number == hdr->msgh_id) + { + name = msg_name[i].name; + break; + } + } + if(!name) + DPRINTF("unknown mach msg %d 0x%x\n", hdr->msgh_id, hdr->msgh_id); + else + DPRINTF("%s\n", name); +#if 0 + DPRINTF("Bits: %8x\n", hdr->msgh_bits); + DPRINTF("Size: %8x\n", hdr->msgh_size); + DPRINTF("Rmte: %8x\n", hdr->msgh_remote_port); + DPRINTF("Locl: %8x\n", hdr->msgh_local_port); + DPRINTF("Rsrv: %8x\n", hdr->msgh_reserved); + + DPRINTF("Id : %8x\n", hdr->msgh_id); + + NDR_record_t *ndr = (NDR_record_t *)(hdr + 1); + DPRINTF("hdr = %p, sizeof(hdr) = %x, NDR = %p\n", hdr, (unsigned int)sizeof(mach_msg_header_t), ndr); + DPRINTF("%d %d %d %d %d %d %d %d\n", + ndr->mig_vers, ndr->if_vers, ndr->reserved1, ndr->mig_encoding, + ndr->int_rep, ndr->char_rep, ndr->float_rep, ndr->reserved2); +#endif +} + +static inline void print_mach_msg_return(mach_msg_return_t ret) +{ + int i, found = 0; +#define MACH_MSG_RET(msg) { msg, #msg } + struct { int code; char *name; } msg_name[] = + { + /* ref: http://darwinsource.opendarwin.org/10.4.2/xnu-792.2.4/osfmk/man/mach_msg.html */ + /* send message */ + MACH_MSG_RET(MACH_SEND_MSG_TOO_SMALL), + MACH_MSG_RET(MACH_SEND_NO_BUFFER), + MACH_MSG_RET(MACH_SEND_INVALID_DATA), + MACH_MSG_RET(MACH_SEND_INVALID_HEADER), + MACH_MSG_RET(MACH_SEND_INVALID_DEST), + MACH_MSG_RET(MACH_SEND_INVALID_NOTIFY), + MACH_MSG_RET(MACH_SEND_INVALID_REPLY), + MACH_MSG_RET(MACH_SEND_INVALID_TRAILER), + MACH_MSG_RET(MACH_SEND_INVALID_MEMORY), + MACH_MSG_RET(MACH_SEND_INVALID_RIGHT), + MACH_MSG_RET(MACH_SEND_INVALID_TYPE), + MACH_MSG_RET(MACH_SEND_INTERRUPTED), + MACH_MSG_RET(MACH_SEND_TIMED_OUT), + + MACH_MSG_RET(MACH_RCV_BODY_ERROR), + MACH_MSG_RET(MACH_RCV_HEADER_ERROR), + + MACH_MSG_RET(MACH_RCV_IN_SET), + MACH_MSG_RET(MACH_RCV_INTERRUPTED), + + MACH_MSG_RET(MACH_RCV_INVALID_DATA), + MACH_MSG_RET(MACH_RCV_INVALID_NAME), + MACH_MSG_RET(MACH_RCV_INVALID_NOTIFY), + MACH_MSG_RET(MACH_RCV_INVALID_TRAILER), + MACH_MSG_RET(MACH_RCV_INVALID_TYPE), + + MACH_MSG_RET(MACH_RCV_PORT_CHANGED), + MACH_MSG_RET(MACH_RCV_PORT_DIED), + + MACH_MSG_RET(MACH_RCV_SCATTER_SMALL), + MACH_MSG_RET(MACH_RCV_TIMED_OUT), + MACH_MSG_RET(MACH_RCV_TOO_LARGE) + }; +#undef MACH_MSG_RET + + if( ret == MACH_MSG_SUCCESS) + DPRINTF("MACH_MSG_SUCCESS\n"); + else + { + for( i = 0; i < ARRAY_SIZE(msg_name); i++) { + if(msg_name[i].code == ret) { + DPRINTF("%s\n", msg_name[i].name); + found = 1; + break; + } + } + if(!found) + qerror("unknow mach message ret code %d\n", ret); + } +} + +static inline void swap_mach_msg_header(mach_msg_header_t *hdr) +{ + hdr->msgh_bits = tswap32(hdr->msgh_bits); + hdr->msgh_size = tswap32(hdr->msgh_size); + hdr->msgh_remote_port = tswap32(hdr->msgh_remote_port); + hdr->msgh_local_port = tswap32(hdr->msgh_local_port); + hdr->msgh_reserved = tswap32(hdr->msgh_reserved); + hdr->msgh_id = tswap32(hdr->msgh_id); +} + +struct complex_msg { + mach_msg_header_t hdr; + mach_msg_body_t body; +}; + +static inline void swap_mach_msg_body(struct complex_msg *complex_msg, int bswap) +{ + mach_msg_port_descriptor_t *descr = (mach_msg_port_descriptor_t *)(complex_msg+1); + int i,j; + + if(bswap == bswap_in) + tswap32s(&complex_msg->body.msgh_descriptor_count); + + DPRINTF("body.msgh_descriptor_count %d\n", complex_msg->body.msgh_descriptor_count); + + for(i = 0; i < complex_msg->body.msgh_descriptor_count; i++) { + switch(descr->type) + { + case MACH_MSG_PORT_DESCRIPTOR: + tswap32s(&descr->name); + descr++; + break; + case MACH_MSG_OOL_DESCRIPTOR: + { + mach_msg_ool_descriptor_t *ool = (void *)descr; + tswap32s((uint32_t *)&ool->address); + tswap32s(&ool->size); + + descr = (mach_msg_port_descriptor_t *)(ool+1); + break; + } + case MACH_MSG_OOL_PORTS_DESCRIPTOR: + { + mach_msg_ool_ports_descriptor_t *ool_ports = (void *)descr; + mach_port_name_t * port_names; + + if(bswap == bswap_in) + { + tswap32s((uint32_t *)&ool_ports->address); + tswap32s(&ool_ports->count); + } + + port_names = ool_ports->address; + + for(j = 0; j < ool_ports->count; j++) + tswap32s(&port_names[j]); + + if(bswap == bswap_out) + { + tswap32s((uint32_t *)&ool_ports->address); + tswap32s(&ool_ports->count); + } + + descr = (mach_msg_port_descriptor_t *)(ool_ports+1); + break; + } + default: qerror("unknow mach msg descriptor type %x\n", descr->type); + } + } + if(bswap == bswap_out) + tswap32s(&complex_msg->body.msgh_descriptor_count); +} + +static inline void swap_mach_msg(mach_msg_header_t *hdr, int bswap) +{ + if (bswap == bswap_out && hdr->msgh_bits & MACH_MSGH_BITS_COMPLEX) + swap_mach_msg_body((struct complex_msg *)hdr, bswap); + + swap_mach_msg_header(hdr); + + if (bswap == bswap_in && hdr->msgh_bits & MACH_MSGH_BITS_COMPLEX) + swap_mach_msg_body((struct complex_msg *)hdr, bswap); +} + +static inline uint32_t target_mach_msg_trap( + mach_msg_header_t *hdr, uint32_t options, uint32_t send_size, + uint32_t rcv_size, uint32_t rcv_name, uint32_t time_out, uint32_t notify) +{ + extern int mach_msg_trap(mach_msg_header_t *, mach_msg_option_t, + mach_msg_size_t, mach_msg_size_t, mach_port_t, + mach_msg_timeout_t, mach_port_t); + mach_msg_audit_trailer_t *trailer; + mach_msg_id_t msg_id; + uint32_t ret = 0; + int i; + + swap_mach_msg(hdr, bswap_in); + + msg_id = hdr->msgh_id; + + print_description_msg_header(hdr); + + ret = mach_msg_trap(hdr, options, send_size, rcv_size, rcv_name, time_out, notify); + + print_mach_msg_return(ret); + + if( (options & MACH_RCV_MSG) && (REQUESTED_TRAILER_SIZE(options) > 0) ) + { + /* XXX: the kernel always return the full trailer with MACH_SEND_MSG, so we should + probably always bswap it */ + /* warning: according to Mac OS X Internals (the book) msg_size might be expressed in + natural_t units but according to xnu/osfmk/mach/message.h: "The size of + the message must be specified in bytes" */ + trailer = (mach_msg_audit_trailer_t *)((uint8_t *)hdr + hdr->msgh_size); + /* XXX: Should probably do that based on the option asked by the sender, but dealing + with kernel answer seems more sound */ + switch(trailer->msgh_trailer_size) + { + case sizeof(mach_msg_audit_trailer_t): + for(i = 0; i < 8; i++) + tswap32s(&trailer->msgh_audit.val[i]); + /* Fall in mach_msg_security_trailer_t case */ + case sizeof(mach_msg_security_trailer_t): + tswap32s(&trailer->msgh_sender.val[0]); + tswap32s(&trailer->msgh_sender.val[1]); + /* Fall in mach_msg_seqno_trailer_t case */ + case sizeof(mach_msg_seqno_trailer_t): + tswap32s(&trailer->msgh_seqno); + /* Fall in mach_msg_trailer_t case */ + case sizeof(mach_msg_trailer_t): + tswap32s(&trailer->msgh_trailer_type); + tswap32s(&trailer->msgh_trailer_size); + break; + case 0: + /* Safer not to byteswap, but probably wrong */ + break; + default: + qerror("unknow trailer type given its size %d\n", trailer->msgh_trailer_size); + break; + } + } + + /* Special message handling */ + switch (msg_id) { + case 200: /* host_info */ + { + mig_reply_error_t *err = (mig_reply_error_t *)hdr; + struct { + uint32_t unknow1; + uint32_t max_cpus; + uint32_t avail_cpus; + uint32_t memory_size; + uint32_t cpu_type; + uint32_t cpu_subtype; + } *data = (void *)(err+1); + + DPRINTF("maxcpu = 0x%x\n", data->max_cpus); + DPRINTF("numcpu = 0x%x\n", data->avail_cpus); + DPRINTF("memsize = 0x%x\n", data->memory_size); + +#if defined(TARGET_I386) + data->cpu_type = CPU_TYPE_I386; + DPRINTF("cpu_type changed to 0x%x(i386)\n", data->cpu_type); + data->cpu_subtype = CPU_SUBTYPE_PENT; + DPRINTF("cpu_subtype changed to 0x%x(i386_pent)\n", data->cpu_subtype); +#elif defined(TARGET_PPC) + data->cpu_type = CPU_TYPE_POWERPC; + DPRINTF("cpu_type changed to 0x%x(ppc)\n", data->cpu_type); + data->cpu_subtype = CPU_SUBTYPE_POWERPC_750; + DPRINTF("cpu_subtype changed to 0x%x(ppc_all)\n", data->cpu_subtype); +#else +# error target not supported +#endif + break; + } + case 202: /* host_page_size */ + { + mig_reply_error_t *err = (mig_reply_error_t *)hdr; + uint32_t *pagesize = (uint32_t *)(err+1); + + DPRINTF("pagesize = %d\n", *pagesize); + break; + } + default: break; + } + + swap_mach_msg(hdr, bswap_out); + + return ret; +} + +long do_mach_syscall(void *cpu_env, int num, uint32_t arg1, uint32_t arg2, uint32_t arg3, + uint32_t arg4, uint32_t arg5, uint32_t arg6, uint32_t arg7, + uint32_t arg8) +{ + extern uint32_t mach_reply_port(void); + + long ret = 0; + + arg1 = tswap32(arg1); + arg2 = tswap32(arg2); + arg3 = tswap32(arg3); + arg4 = tswap32(arg4); + arg5 = tswap32(arg5); + arg6 = tswap32(arg6); + arg7 = tswap32(arg7); + arg8 = tswap32(arg8); + + DPRINTF("mach syscall %d : " , num); + + switch(num) { + /* see xnu/osfmk/mach/syscall_sw.h */ + case -26: + DPRINTF("mach_reply_port()\n"); + ret = mach_reply_port(); + break; + case -27: + DPRINTF("mach_thread_self()\n"); + ret = mach_thread_self(); + break; + case -28: + DPRINTF("mach_task_self()\n"); + ret = mach_task_self(); + break; + case -29: + DPRINTF("mach_host_self()\n"); + ret = mach_host_self(); + break; + case -31: + DPRINTF("mach_msg_trap(0x%x, 0x%x, 0x%x, 0x%x, 0x%x, 0x%x, 0x%x)\n", + arg1, arg2, arg3, arg4, arg5, arg6, arg7); + ret = target_mach_msg_trap((mach_msg_header_t *)arg1, arg2, arg3, arg4, arg5, arg6, arg7); + break; +/* may need more translation if target arch is different from host */ +#if (defined(TARGET_I386) && defined(__i386__)) || (defined(TARGET_PPC) && defined(__ppc__)) + case -33: + DPRINTF("semaphore_signal_trap(0x%x)\n", arg1); + ret = semaphore_signal_trap(arg1); + break; + case -34: + DPRINTF("semaphore_signal_all_trap(0x%x)\n", arg1); + ret = semaphore_signal_all_trap(arg1); + break; + case -35: + DPRINTF("semaphore_signal_thread_trap(0x%x)\n", arg1, arg2); + ret = semaphore_signal_thread_trap(arg1,arg2); + break; +#endif + case -36: + DPRINTF("semaphore_wait_trap(0x%x)\n", arg1); + extern int semaphore_wait_trap(int); // XXX: is there any header for that? + ret = semaphore_wait_trap(arg1); + break; +/* may need more translation if target arch is different from host */ +#if (defined(TARGET_I386) && defined(__i386__)) || (defined(TARGET_PPC) && defined(__ppc__)) + case -37: + DPRINTF("semaphore_wait_signal_trap(0x%x, 0x%x)\n", arg1, arg2); + ret = semaphore_wait_signal_trap(arg1,arg2); + break; +#endif + case -43: + DPRINTF("map_fd(0x%x, 0x%x, 0x%x, 0x%x, 0x%x)\n", + arg1, arg2, arg3, arg4, arg5); + ret = map_fd(arg1, arg2, (void*)arg3, arg4, arg5); + tswap32s((uint32_t*)arg3); + break; +/* may need more translation if target arch is different from host */ +#if (defined(TARGET_I386) && defined(__i386__)) || (defined(TARGET_PPC) && defined(__ppc__)) + case -61: + DPRINTF("syscall_thread_switch(0x%x, 0x%x, 0x%x)\n", + arg1, arg2, arg3); + ret = syscall_thread_switch(arg1, arg2, arg3); // just a hint to the scheduler; can drop? + break; +#endif + case -89: + DPRINTF("mach_timebase_info(0x%x)\n", arg1); + struct mach_timebase_info info; + ret = mach_timebase_info(&info); + if(!is_error(ret)) + { + struct mach_timebase_info *outInfo = (void*)arg1; + outInfo->numer = tswap32(info.numer); + outInfo->denom = tswap32(info.denom); + } + break; + case -90: + DPRINTF("mach_wait_until()\n"); + extern int mach_wait_until(uint64_t); // XXX: is there any header for that? + ret = mach_wait_until(((uint64_t)arg2<<32) | (uint64_t)arg1); + break; + case -91: + DPRINTF("mk_timer_create()\n"); + extern int mk_timer_create(); // XXX: is there any header for that? + ret = mk_timer_create(); + break; + case -92: + DPRINTF("mk_timer_destroy()\n"); + extern int mk_timer_destroy(int); // XXX: is there any header for that? + ret = mk_timer_destroy(arg1); + break; + case -93: + DPRINTF("mk_timer_create()\n"); + extern int mk_timer_arm(int, uint64_t); // XXX: is there any header for that? + ret = mk_timer_arm(arg1, ((uint64_t)arg3<<32) | (uint64_t)arg2); + break; + case -94: + DPRINTF("mk_timer_cancel()\n"); + extern int mk_timer_cancel(int, uint64_t *); // XXX: is there any header for that? + ret = mk_timer_cancel(arg1, (uint64_t *)arg2); + if((!is_error(ret)) && arg2) + tswap64s((uint64_t *)arg2); + break; + default: + gemu_log("qemu: Unsupported mach syscall: %d(0x%x)\n", num, num); + gdb_handlesig (cpu_env, SIGTRAP); + exit(0); + break; + } + return ret; +} + +/* ------------------------------------------------------------ + thread type syscall handling +*/ +long do_thread_syscall(void *cpu_env, int num, uint32_t arg1, uint32_t arg2, uint32_t arg3, + uint32_t arg4, uint32_t arg5, uint32_t arg6, uint32_t arg7, + uint32_t arg8) +{ + extern uint32_t cthread_set_self(uint32_t); + extern uint32_t processor_facilities_used(void); + long ret = 0; + + arg1 = tswap32(arg1); + arg2 = tswap32(arg2); + arg3 = tswap32(arg3); + arg4 = tswap32(arg4); + arg5 = tswap32(arg5); + arg6 = tswap32(arg6); + arg7 = tswap32(arg7); + arg8 = tswap32(arg8); + + DPRINTF("thread syscall %d : " , num); + + switch(num) { +#ifdef TARGET_I386 + case 0x3: +#endif + case 0x7FF1: /* cthread_set_self */ + DPRINTF("cthread_set_self(0x%x)\n", (unsigned int)arg1); + ret = cthread_set_self(arg1); +#ifdef TARGET_I386 + /* we need to update the LDT with the address of the thread */ + write_dt((void *)(((CPUX86State *) cpu_env)->ldt.base + (4 * sizeof(uint64_t))), arg1, 1, + DESC_G_MASK | DESC_B_MASK | DESC_P_MASK | DESC_S_MASK | + (3 << DESC_DPL_SHIFT) | (0x2 << DESC_TYPE_SHIFT)); + /* New i386 convention, %gs should be set to our this LDT entry */ + cpu_x86_load_seg(cpu_env, R_GS, 0x27); + /* Old i386 convention, the kernel returns the selector for the cthread (pre-10.4.8?)*/ + ret = 0x27; +#endif + break; + case 0x7FF2: /* Called the super-fast pthread_self handler by the apple guys */ + DPRINTF("pthread_self()\n"); + ret = (uint32_t)pthread_self(); + break; + case 0x7FF3: + DPRINTF("processor_facilities_used()\n"); +#ifdef __i386__ + qerror("processor_facilities_used: not implemented!\n"); +#else + ret = (uint32_t)processor_facilities_used(); +#endif + break; + default: + gemu_log("qemu: Unsupported thread syscall: %d(0x%x)\n", num, num); + gdb_handlesig (cpu_env, SIGTRAP); + exit(0); + break; + } + return ret; +} + +/* ------------------------------------------------------------ + ioctl handling +*/ +static inline void byteswap_termios(struct termios *t) +{ + tswap32s((uint32_t*)&t->c_iflag); + tswap32s((uint32_t*)&t->c_oflag); + tswap32s((uint32_t*)&t->c_cflag); + tswap32s((uint32_t*)&t->c_lflag); + /* 20 (char) bytes then */ + tswap32s((uint32_t*)&t->c_ispeed); + tswap32s((uint32_t*)&t->c_ospeed); +} + +static inline void byteswap_winsize(struct winsize *w) +{ + tswap16s(&w->ws_row); + tswap16s(&w->ws_col); + tswap16s(&w->ws_xpixel); + tswap16s(&w->ws_ypixel); +} + +#define STRUCT(name, list...) STRUCT_ ## name, +#define STRUCT_SPECIAL(name) STRUCT_ ## name, +enum { +#include "ioctls_types.h" +}; +#undef STRUCT +#undef STRUCT_SPECIAL + +#define STRUCT(name, list...) const argtype struct_ ## name ## _def[] = { list, TYPE_NULL }; +#define STRUCT_SPECIAL(name) +#include "ioctls_types.h" +#undef STRUCT +#undef STRUCT_SPECIAL + +typedef struct IOCTLEntry { + unsigned int target_cmd; + unsigned int host_cmd; + const char *name; + int access; + const argtype arg_type[5]; +} IOCTLEntry; + +#define IOC_R 0x0001 +#define IOC_W 0x0002 +#define IOC_RW (IOC_R | IOC_W) + +#define MAX_STRUCT_SIZE 4096 + +static IOCTLEntry ioctl_entries[] = { +#define IOCTL(cmd, access, types...) \ + { cmd, cmd, #cmd, access, { types } }, +#include "ioctls.h" + { 0, 0, }, +}; + +/* ??? Implement proper locking for ioctls. */ +static long do_ioctl(long fd, long cmd, long arg) +{ + const IOCTLEntry *ie; + const argtype *arg_type; + int ret; + uint8_t buf_temp[MAX_STRUCT_SIZE]; + int target_size; + void *argptr; + + ie = ioctl_entries; + for(;;) { + if (ie->target_cmd == 0) { + gemu_log("Unsupported ioctl: cmd=0x%04lx\n", cmd); + return -ENOSYS; + } + if (ie->target_cmd == cmd) + break; + ie++; + } + arg_type = ie->arg_type; +#if defined(DEBUG) + gemu_log("ioctl: cmd=0x%04lx (%s)\n", cmd, ie->name); +#endif + switch(arg_type[0]) { + case TYPE_NULL: + /* no argument */ + ret = get_errno(ioctl(fd, ie->host_cmd)); + break; + case TYPE_PTRVOID: + case TYPE_INT: + /* int argment */ + ret = get_errno(ioctl(fd, ie->host_cmd, arg)); + break; + case TYPE_PTR: + arg_type++; + target_size = thunk_type_size(arg_type, 0); + switch(ie->access) { + case IOC_R: + ret = get_errno(ioctl(fd, ie->host_cmd, buf_temp)); + if (!is_error(ret)) { + argptr = lock_user(arg, target_size, 0); + thunk_convert(argptr, buf_temp, arg_type, THUNK_TARGET); + unlock_user(argptr, arg, target_size); + } + break; + case IOC_W: + argptr = lock_user(arg, target_size, 1); + thunk_convert(buf_temp, argptr, arg_type, THUNK_HOST); + unlock_user(argptr, arg, 0); + ret = get_errno(ioctl(fd, ie->host_cmd, buf_temp)); + break; + default: + case IOC_RW: + argptr = lock_user(arg, target_size, 1); + thunk_convert(buf_temp, argptr, arg_type, THUNK_HOST); + unlock_user(argptr, arg, 0); + ret = get_errno(ioctl(fd, ie->host_cmd, buf_temp)); + if (!is_error(ret)) { + argptr = lock_user(arg, target_size, 0); + thunk_convert(argptr, buf_temp, arg_type, THUNK_TARGET); + unlock_user(argptr, arg, target_size); + } + break; + } + break; + default: + gemu_log("Unsupported ioctl type: cmd=0x%04lx type=%d\n", cmd, arg_type[0]); + ret = -ENOSYS; + break; + } + return ret; +} + +/* ------------------------------------------------------------ + Unix syscall handling +*/ + +static inline void byteswap_attrlist(struct attrlist *a) +{ + tswap16s(&a->bitmapcount); + tswap16s(&a->reserved); + tswap32s(&a->commonattr); + tswap32s(&a->volattr); + tswap32s(&a->dirattr); + tswap32s(&a->fileattr); + tswap32s(&a->forkattr); +} + +struct attrbuf_header { + unsigned long length; +}; + +static inline void byteswap_attrbuf(struct attrbuf_header *attrbuf, struct attrlist *attrlist) +{ + DPRINTF("attrBuf.lenght %lx\n", attrbuf->length); +} + +static inline void byteswap_statfs(struct statfs *s) +{ + tswap16s((uint16_t*)&s->f_otype); + tswap16s((uint16_t*)&s->f_oflags); + tswap32s((uint32_t*)&s->f_bsize); + tswap32s((uint32_t*)&s->f_iosize); + tswap32s((uint32_t*)&s->f_blocks); + tswap32s((uint32_t*)&s->f_bfree); + tswap32s((uint32_t*)&s->f_bavail); + tswap32s((uint32_t*)&s->f_files); + tswap32s((uint32_t*)&s->f_ffree); + tswap32s((uint32_t*)&s->f_fsid.val[0]); + tswap32s((uint32_t*)&s->f_fsid.val[1]); + tswap16s((uint16_t*)&s->f_reserved1); + tswap16s((uint16_t*)&s->f_type); + tswap32s((uint32_t*)&s->f_flags); +} + +static inline void byteswap_stat(struct stat *s) +{ + tswap32s((uint32_t*)&s->st_dev); + tswap32s(&s->st_ino); + tswap16s(&s->st_mode); + tswap16s(&s->st_nlink); + tswap32s(&s->st_uid); + tswap32s(&s->st_gid); + tswap32s((uint32_t*)&s->st_rdev); + tswap32s((uint32_t*)&s->st_atimespec.tv_sec); + tswap32s((uint32_t*)&s->st_atimespec.tv_nsec); + tswap32s((uint32_t*)&s->st_mtimespec.tv_sec); + tswap32s((uint32_t*)&s->st_mtimespec.tv_nsec); + tswap32s((uint32_t*)&s->st_ctimespec.tv_sec); + tswap32s((uint32_t*)&s->st_ctimespec.tv_nsec); + tswap64s((uint64_t*)&s->st_size); + tswap64s((uint64_t*)&s->st_blocks); + tswap32s((uint32_t*)&s->st_blksize); + tswap32s(&s->st_flags); + tswap32s(&s->st_gen); +} + +static inline void byteswap_dirents(struct dirent *d, int bytes) +{ + char *b; + for( b = (char*)d; (int)b < (int)d+bytes; ) + { + unsigned short s = ((struct dirent *)b)->d_reclen; + tswap32s(&((struct dirent *)b)->d_ino); + tswap16s(&((struct dirent *)b)->d_reclen); + if(s<=0) + break; + b += s; + } +} + +static inline void byteswap_iovec(struct iovec *v, int n) +{ + int i; + for(i = 0; i < n; i++) + { + tswap32s((uint32_t*)&v[i].iov_base); + tswap32s((uint32_t*)&v[i].iov_len); + } +} + +static inline void byteswap_timeval(struct timeval *t) +{ + tswap32s((uint32_t*)&t->tv_sec); + tswap32s((uint32_t*)&t->tv_usec); +} + +long do_unix_syscall_indirect(void *cpu_env, int num); +long do_sync(void); +long do_exit(uint32_t arg1); +long do_getlogin(char *out, uint32_t size); +long do_open(char * arg1, uint32_t arg2, uint32_t arg3); +long do_getfsstat(struct statfs * arg1, uint32_t arg2, uint32_t arg3); +long do_sigprocmask(uint32_t arg1, uint32_t * arg2, uint32_t * arg3); +long do_execve(char* arg1, char ** arg2, char ** arg3); +long do_getgroups(uint32_t arg1, gid_t * arg2); +long do_gettimeofday(struct timeval * arg1, void * arg2); +long do_readv(uint32_t arg1, struct iovec * arg2, uint32_t arg3); +long do_writev(uint32_t arg1, struct iovec * arg2, uint32_t arg3); +long do_utimes(char * arg1, struct timeval * arg2); +long do_futimes(uint32_t arg1, struct timeval * arg2); +long do_statfs(char * arg1, struct statfs * arg2); +long do_fstatfs(uint32_t arg1, struct statfs * arg2); +long do_stat(char * arg1, struct stat * arg2); +long do_fstat(uint32_t arg1, struct stat * arg2); +long do_lstat(char * arg1, struct stat * arg2); +long do_getdirentries(uint32_t arg1, void* arg2, uint32_t arg3, void* arg4); +long do_lseek(void *cpu_env, int num); +long do___sysctl(int * name, uint32_t namelen, void * oldp, size_t * oldlenp, void * newp, size_t newlen /* ignored */); +long do_getattrlist(void * arg1, void * arg2, void * arg3, uint32_t arg4, uint32_t arg5); +long do_getdirentriesattr(uint32_t arg1, void * arg2, void * arg3, size_t arg4, void * arg5, void * arg6, void* arg7, uint32_t arg8); +long do_fcntl(int fd, int cmd, int arg); + +long no_syscall(void *cpu_env, int num); + +long do_pread(uint32_t arg1, void * arg2, size_t arg3, off_t arg4) +{ + DPRINTF("0x%x, %p, 0x%lx, 0x%llx\n", arg1, arg2, arg3, arg4); + long ret = pread(arg1, arg2, arg3, arg4); + return ret; +} + +long do_read(int d, void *buf, size_t nbytes) +{ + DPRINTF("0x%x, %p, 0x%lx\n", d, buf, nbytes); + long ret = get_errno(read(d, buf, nbytes)); + if(!is_error(ret)) + DPRINTF("%x\n", *(uint32_t*)buf); + return ret; +} + +long unimpl_unix_syscall(void *cpu_env, int num); + +typedef long (*syscall_function_t)(void *cpu_env, int num); + + +/* define a table that will handle the syscall number->function association */ +#define VOID void +#define INT (uint32_t)get_int_arg(&i, cpu_env) +#define INT64 (uint64_t)get_int64_arg(&i, cpu_env) +#define UINT (unsigned int)INT +#define PTR (void*)INT + +#define SIZE INT +#define OFFSET INT64 + +#define WRAPPER_CALL_DIRECT_0(function, args) long __qemu_##function(void *cpu_env) { return (long)function(); } +#define WRAPPER_CALL_DIRECT_1(function, _arg1) long __qemu_##function(void *cpu_env) { int i = 0; typeof(_arg1) arg1 = _arg1; return (long)function(arg1); } +#define WRAPPER_CALL_DIRECT_2(function, _arg1, _arg2) long __qemu_##function(void *cpu_env) { int i = 0; typeof(_arg1) arg1 = _arg1; typeof(_arg2) arg2 = _arg2; return (long)function(arg1, arg2); } +#define WRAPPER_CALL_DIRECT_3(function, _arg1, _arg2, _arg3) long __qemu_##function(void *cpu_env) { int i = 0; typeof(_arg1) arg1 = _arg1; typeof(_arg2) arg2 = _arg2; typeof(_arg3) arg3 = _arg3; return (long)function(arg1, arg2, arg3); } +#define WRAPPER_CALL_DIRECT_4(function, _arg1, _arg2, _arg3, _arg4) long __qemu_##function(void *cpu_env) { int i = 0; typeof(_arg1) arg1 = _arg1; typeof(_arg2) arg2 = _arg2; typeof(_arg3) arg3 = _arg3; typeof(_arg4) arg4 = _arg4; return (long)function(arg1, arg2, arg3, arg4); } +#define WRAPPER_CALL_DIRECT_5(function, _arg1, _arg2, _arg3, _arg4, _arg5) long __qemu_##function(void *cpu_env) { int i = 0; typeof(_arg1) arg1 = _arg1; typeof(_arg2) arg2 = _arg2; typeof(_arg3) arg3 = _arg3; typeof(_arg4) arg4 = _arg4; typeof(_arg5) arg5 = _arg5; return (long)function(arg1, arg2, arg3, arg4, arg5); } +#define WRAPPER_CALL_DIRECT_6(function, _arg1, _arg2, _arg3, _arg4, _arg5, _arg6) long __qemu_##function(void *cpu_env) { int i = 0; typeof(_arg1) arg1 = _arg1; typeof(_arg2) arg2 = _arg2; typeof(_arg3) arg3 = _arg3; typeof(_arg4) arg4 = _arg4; typeof(_arg5) arg5 = _arg5; typeof(_arg6) arg6 = _arg6; return (long)function(arg1, arg2, arg3, arg4, arg5, arg6); } +#define WRAPPER_CALL_DIRECT_7(function, _arg1, _arg2, _arg3, _arg4, _arg5, _arg6, _arg7) long __qemu_##function(void *cpu_env) { int i = 0; typeof(_arg1) arg1 = _arg1; typeof(_arg2) arg2 = _arg2; typeof(_arg3) arg3 = _arg3; typeof(_arg4) arg4 = _arg4; typeof(_arg5) arg5 = _arg5; typeof(_arg6) arg6 = _arg6; typeof(_arg7) arg7 = _arg7; return (long)function(arg1, arg2, arg3, arg4, arg5, arg6, arg7); } +#define WRAPPER_CALL_DIRECT_8(function, _arg1, _arg2, _arg3, _arg4, _arg5, _arg6, _arg7, _arg8) long __qemu_##function(void *cpu_env) { int i = 0; typeof(_arg1) arg1 = _arg1; typeof(_arg2) arg2 = _arg2; typeof(_arg3) arg3 = _arg3; typeof(_arg4) arg4 = _arg4; typeof(_arg5) arg5 = _arg5; typeof(_arg6) arg6 = _arg6; typeof(_arg7) arg7 = _arg7; typeof(_arg8) arg8 = _arg8; return (long)function(arg1, arg2, arg3, arg4, arg5, arg6, arg7, arg8); } +#define WRAPPER_CALL_DIRECT(function, nargs, args...) WRAPPER_CALL_DIRECT_##nargs(function, args) +#define WRAPPER_CALL_NOERRNO(function, nargs, args...) WRAPPER_CALL_DIRECT(function, nargs, args) +#define WRAPPER_CALL_INDIRECT(function, nargs, args...) +#define ENTRY(name, number, function, nargs, call_type, args...) WRAPPER_##call_type(function, nargs, args) + +#include "syscalls.h" + +#undef ENTRY +#undef WRAPPER_CALL_DIRECT +#undef WRAPPER_CALL_NOERRNO +#undef WRAPPER_CALL_INDIRECT +#undef OFFSET +#undef SIZE +#undef INT +#undef PTR +#undef INT64 + +#define _ENTRY(name, number, function, nargs, call_type) [number] = {\ + name, \ + number, \ + (syscall_function_t)function, \ + nargs, \ + call_type \ + }, + +#define ENTRY_CALL_DIRECT(name, number, function, nargs, call_type) _ENTRY(name, number, __qemu_##function, nargs, call_type) +#define ENTRY_CALL_NOERRNO(name, number, function, nargs, call_type) ENTRY_CALL_DIRECT(name, number, function, nargs, call_type) +#define ENTRY_CALL_INDIRECT(name, number, function, nargs, call_type) _ENTRY(name, number, function, nargs, call_type) +#define ENTRY(name, number, function, nargs, call_type, args...) ENTRY_##call_type(name, number, function, nargs, call_type) + +#define CALL_DIRECT 1 +#define CALL_INDIRECT 2 +#define CALL_NOERRNO (CALL_DIRECT | 4 /* = 5 */) + +struct unix_syscall { + char * name; + int number; + syscall_function_t function; + int nargs; + int call_type; +} unix_syscall_table[SYS_MAXSYSCALL] = { +#include "syscalls.h" +}; + +#undef ENTRY +#undef _ENTRY +#undef ENTRY_CALL_DIRECT +#undef ENTRY_CALL_INDIRECT +#undef ENTRY_CALL_NOERRNO + +/* Actual syscalls implementation */ + +long do_unix_syscall_indirect(void *cpu_env, int num) +{ + long ret; + int new_num; + int i = 0; + + new_num = get_int_arg(&i, cpu_env); +#ifdef TARGET_I386 + ((CPUX86State*)cpu_env)->regs[R_ESP] += 4; + /* XXX: not necessary */ + ((CPUX86State*)cpu_env)->regs[R_EAX] = new_num; +#elif TARGET_PPC + { + int i; + uint32_t **regs = ((CPUPPCState*)cpu_env)->gpr; + for(i = 3; i < 11; i++) + *regs[i] = *regs[i+1]; + /* XXX: not necessary */ + *regs[0] = new_num; + } +#endif + ret = do_unix_syscall(cpu_env, new_num); +#ifdef TARGET_I386 + ((CPUX86State*)cpu_env)->regs[R_ESP] -= 4; + /* XXX: not necessary */ + ((CPUX86State*)cpu_env)->regs[R_EAX] = num; +#elif TARGET_PPC + { + int i; + /* XXX: not really needed those regs are volatile accross calls */ + uint32_t **regs = ((CPUPPCState*)cpu_env)->gpr; + for(i = 11; i > 3; i--) + *regs[i] = *regs[i-1]; + regs[3] = new_num; + *regs[0] = num; + } +#endif + return ret; +} + +long do_exit(uint32_t arg1) +{ + exit(arg1); + /* not reached */ + return -1; +} + +long do_sync(void) +{ + sync(); + return 0; +} + +long do_getlogin(char *out, uint32_t size) +{ + char *login = getlogin(); + if(!login) + return -1; + memcpy(out, login, size); + return 0; +} +long do_open(char * arg1, uint32_t arg2, uint32_t arg3) +{ + /* XXX: don't let the %s stay in there */ + DPRINTF("open(%s, 0x%x, 0x%x)\n", arg1, arg2, arg3); + return get_errno(open(arg1, arg2, arg3)); +} + +long do_getfsstat(struct statfs * arg1, uint32_t arg2, uint32_t arg3) +{ + long ret; + DPRINTF("getfsstat(%p, 0x%x, 0x%x)\n", arg1, arg2, arg3); + ret = get_errno(getfsstat(arg1, arg2, arg3)); + if((!is_error(ret)) && arg1) + byteswap_statfs(arg1); + return ret; +} + +long do_sigprocmask(uint32_t arg1, uint32_t * arg2, uint32_t * arg3) +{ + long ret; + DPRINTF("sigprocmask(%d, %p, %p)\n", arg1, arg2, arg3); + gemu_log("XXX: sigprocmask not tested (%d, %p, %p)\n", arg1, arg2, arg3); + if(arg2) + tswap32s(arg2); + ret = get_errno(sigprocmask(arg1, (void *)arg2, (void *)arg3)); + if((!is_error(ret)) && arg3) + tswap32s(arg3); + if(arg2) + tswap32s(arg2); + return ret; +} + +long do_execve(char* arg1, char ** arg2, char ** arg3) +{ + long ret; + char **argv = arg2; + char **envp = arg3; + int argc; + int envc; + + /* XXX: don't let the %s stay in here */ + DPRINTF("execve(%s, %p, %p)\n", arg1, arg2, arg3); + + for(argc = 0; argv[argc]; argc++); + for(envc = 0; envp[envc]; envc++); + + argv = (char**)malloc(sizeof(char*)*argc); + envp = (char**)malloc(sizeof(char*)*envc); + + for(; argc >= 0; argc--) + argv[argc] = (char*)tswap32((uint32_t)(arg2)[argc]); + + for(; envc >= 0; envc--) + envp[envc] = (char*)tswap32((uint32_t)(arg3)[envc]); + + ret = get_errno(execve(arg1, argv, envp)); + free(argv); + free(envp); + return ret; +} + +long do_getgroups(uint32_t arg1, gid_t * arg2) +{ + long ret; + int i; + DPRINTF("getgroups(0x%x, %p)\n", arg1, arg2); + ret = get_errno(getgroups(arg1, arg2)); + if(ret > 0) + for(i = 0; i < arg1; i++) + tswap32s(&arg2[i]); + return ret; +} + +long do_gettimeofday(struct timeval * arg1, void * arg2) +{ + long ret; + DPRINTF("gettimeofday(%p, %p)\n", + arg1, arg2); + ret = get_errno(gettimeofday(arg1, arg2)); + if(!is_error(ret)) + { + /* timezone no longer used according to the manpage, so don't bother with it */ + byteswap_timeval(arg1); + } + return ret; +} + +long do_readv(uint32_t arg1, struct iovec * arg2, uint32_t arg3) +{ + long ret; + DPRINTF("readv(0x%x, %p, 0x%x)\n", arg1, arg2, arg3); + if(arg2) + byteswap_iovec(arg2, arg3); + ret = get_errno(readv(arg1, arg2, arg3)); + if((!is_error(ret)) && arg2) + byteswap_iovec(arg2, arg3); + return ret; +} + +long do_writev(uint32_t arg1, struct iovec * arg2, uint32_t arg3) +{ + long ret; + DPRINTF("writev(0x%x, %p, 0x%x)\n", arg1, arg2, arg3); + if(arg2) + byteswap_iovec(arg2, arg3); + ret = get_errno(writev(arg1, arg2, arg3)); + if((!is_error(ret)) && arg2) + byteswap_iovec(arg2, arg3); + return ret; +} + +long do_utimes(char * arg1, struct timeval * arg2) +{ + DPRINTF("utimes(%p, %p)\n", arg1, arg2); + if(arg2) + { + byteswap_timeval(arg2); + byteswap_timeval(arg2+1); + } + return get_errno(utimes(arg1, arg2)); +} + +long do_futimes(uint32_t arg1, struct timeval * arg2) +{ + DPRINTF("futimes(0x%x, %p)\n", arg1, arg2); + if(arg2) + { + byteswap_timeval(arg2); + byteswap_timeval(arg2+1); + } + return get_errno(futimes(arg1, arg2)); +} + +long do_statfs(char * arg1, struct statfs * arg2) +{ + long ret; + DPRINTF("statfs(%p, %p)\n", arg1, arg2); + ret = get_errno(statfs(arg1, arg2)); + if(!is_error(ret)) + byteswap_statfs(arg2); + return ret; +} + +long do_fstatfs(uint32_t arg1, struct statfs* arg2) +{ + long ret; + DPRINTF("fstatfs(0x%x, %p)\n", + arg1, arg2); + ret = get_errno(fstatfs(arg1, arg2)); + if(!is_error(ret)) + byteswap_statfs(arg2); + + return ret; +} + +long do_stat(char * arg1, struct stat * arg2) +{ + long ret; + /* XXX: don't let the %s stay in there */ + DPRINTF("stat(%s, %p)\n", arg1, arg2); + ret = get_errno(stat(arg1, arg2)); + if(!is_error(ret)) + byteswap_stat(arg2); + return ret; +} + +long do_fstat(uint32_t arg1, struct stat * arg2) +{ + long ret; + DPRINTF("fstat(0x%x, %p)\n", arg1, arg2); + ret = get_errno(fstat(arg1, arg2)); + if(!is_error(ret)) + byteswap_stat(arg2); + return ret; +} + +long do_lstat(char * arg1, struct stat * arg2) +{ + long ret; + /* XXX: don't let the %s stay in there */ + DPRINTF("lstat(%s, %p)\n", (const char *)arg1, arg2); + ret = get_errno(lstat(arg1, arg2)); + if(!is_error(ret)) + byteswap_stat(arg2); + return ret; +} + +long do_getdirentries(uint32_t arg1, void* arg2, uint32_t arg3, void* arg4) +{ + long ret; + DPRINTF("getdirentries(0x%x, %p, 0x%x, %p)\n", arg1, arg2, arg3, arg4); + if(arg4) + tswap32s((uint32_t *)arg4); + ret = get_errno(getdirentries(arg1, arg2, arg3, arg4)); + if(arg4) + tswap32s((uint32_t *)arg4); + if(!is_error(ret)) + byteswap_dirents(arg2, ret); + return ret; +} + +long do_lseek(void *cpu_env, int num) +{ + long ret; + int i = 0; + uint32_t arg1 = get_int_arg(&i, cpu_env); + uint64_t offset = get_int64_arg(&i, cpu_env); + uint32_t arg3 = get_int_arg(&i, cpu_env); + uint64_t r = lseek(arg1, offset, arg3); +#ifdef TARGET_I386 + /* lowest word in eax, highest in edx */ + ret = r & 0xffffffff; /* will be set to eax after do_unix_syscall exit */ + ((CPUX86State *)cpu_env)->regs[R_EDX] = (uint32_t)((r >> 32) & 0xffffffff) ; +#elif defined TARGET_PPC + ret = r & 0xffffffff; /* will be set to r3 after do_unix_syscall exit */ + ((CPUPPCState *)cpu_env)->gpr[4] = (uint32_t)((r >> 32) & 0xffffffff) ; +#else + qerror("64 bit ret value on your arch?"); +#endif + return get_errno(ret); +} + +void no_swap(void * oldp, int size) +{ +} + +void sysctl_tswap32s(void * oldp, int size) +{ + tswap32s(oldp); +} + +void bswap_oid(uint32_t * oldp, int size) +{ + int count = size / sizeof(int); + int i = 0; + do { tswap32s(oldp + i); } while (++i < count); +} + +void sysctl_usrstack(uint32_t * oldp, int size) +{ + DPRINTF("sysctl_usrstack: 0x%x\n", *oldp); + tswap32s(oldp); +} + +void sysctl_ncpu(uint32_t * ncpu, int size) +{ + *ncpu = 0x1; + DPRINTF("sysctl_ncpu: 0x%x\n", *ncpu); + tswap32s(ncpu); +} + +void sysctl_exec(char * exec, int size) +{ + DPRINTF("sysctl_exec: %s\n", exec); +} + +void sysctl_translate(char * exec, int size) +{ + DPRINTF("sysctl_translate: %s\n", exec); +} + +struct sysctl_dir { + int num; + const char * name; + void (*swap_func)(void *, int); + struct sysctl_dir *childs; +}; + +#define ENTRYD(num, name, childs) { num, name, NULL, childs } +#define ENTRYE(num, name, func) { num, name, (void (*)(void *, int))func, NULL } +struct sysctl_dir sysctls_unspec[] = { + ENTRYE(3, "oip", bswap_oid), + { 0, NULL, NULL, NULL } +}; + +struct sysctl_dir sysctls_kern[] = { + ENTRYE(KERN_TRANSLATE, "translate", sysctl_translate), /* 44 */ + ENTRYE(KERN_EXEC, "exec", sysctl_exec), /* 45 */ + ENTRYE(KERN_USRSTACK32, "KERN_USRSTACK32", sysctl_usrstack), /* 35 */ + ENTRYE(KERN_SHREG_PRIVATIZABLE, "KERN_SHREG_PRIVATIZABLE", sysctl_tswap32s), /* 54 */ + { 0, NULL, NULL, NULL } +}; + +struct sysctl_dir sysctls_hw[] = { + ENTRYE(HW_NCPU, "ncpud", sysctl_tswap32s), + ENTRYE(104, "104", no_swap), + ENTRYE(105, "105", no_swap), + { 0, NULL, NULL, NULL } +}; + +struct sysctl_dir sysctls[] = { + ENTRYD(CTL_UNSPEC, "unspec", sysctls_unspec), + ENTRYD(CTL_KERN, "kern", sysctls_kern), + ENTRYD(CTL_HW, "hw", sysctls_hw ), + { 0, NULL, NULL, NULL } +}; + +#undef ENTRYE +#undef ENTRYD + +static inline struct sysctl_dir * get_sysctl_entry_for_mib(int mib, struct sysctl_dir * sysctl_elmt) +{ + if(!sysctl_elmt) + return NULL; + for(; sysctl_elmt->name != NULL ; sysctl_elmt++) { + if(sysctl_elmt->num == mib) + return sysctl_elmt; + } + return NULL; +} + +static inline long bswap_syctl(int * mib, int count, void *buf, int size) +{ + int i; + struct sysctl_dir * sysctl = sysctls; + struct sysctl_dir * ret = NULL; + + for(i = 0; i < count; i++) { + + if(!(ret = sysctl = get_sysctl_entry_for_mib(mib[i], sysctl))) { + gemu_log("bswap_syctl: can't find mib %d\n", mib[i]); + return -ENOTDIR; + } + if(!(sysctl = sysctl->childs)) + break; + } + + if(ret->childs) + qerror("we shouldn't have a directory element\n"); + + ret->swap_func(buf, size); + return 0; +} + +static inline void print_syctl(int * mib, int count) +{ + int i; + struct sysctl_dir * sysctl = sysctls; + struct sysctl_dir * ret = NULL; + + for(i = 0; i < count; i++) { + if(!(ret = sysctl = get_sysctl_entry_for_mib(mib[i], sysctl))){ + gemu_log("print_syctl: can't find mib %d\n", mib[i]); + return; + } + DPRINTF("%s.", sysctl->name); + if(!(sysctl = sysctl->childs)) + break; + } + DPRINTF("\n"); +} + +long do___sysctl(int * name, uint32_t namelen, void * oldp, size_t * oldlenp, void * newp, size_t newlen /* ignored */) +{ + long ret = 0; + int i; + DPRINTF("sysctl(%p, 0x%x, %p, %p, %p, 0x%lx)\n", + name, namelen, oldp, oldlenp, newp, newlen); + if(name) { + i = 0; + do { tswap32s( name + i); } while (++i < namelen); + print_syctl(name, namelen); + //bswap_syctl(name, namelen, newp, newlen); + tswap32s((uint32_t*)oldlenp); + } + + if(name) /* Sometimes sysctl is called with no arg1, ignore */ + ret = get_errno(sysctl(name, namelen, oldp, oldlenp, newp, newlen)); + +#if defined(TARGET_I386) ^ defined(__i386__) || defined(TARGET_PPC) ^ defined(__ppc__) + if (!is_error(ret) && bswap_syctl(name, namelen, oldp, *oldlenp) != 0) { + return -ENOTDIR; + } +#endif + + if(name) { + //bswap_syctl(name, namelen, newp, newlen); + tswap32s((uint32_t*)oldlenp); + + i = 0; + do { tswap32s( name + i); } while (++i < namelen); + } + return ret; +} + +long do_getattrlist(void * arg1, void * arg2, void * arg3, uint32_t arg4, uint32_t arg5) +{ + struct attrlist * attrlist = (void *)arg2; + long ret; + +#if defined(TARGET_I386) ^ defined(__i386__) || defined(TARGET_PPC) ^ defined(__ppc__) + gemu_log("SYS_getdirentriesattr unimplemented\n"); + return -ENOTSUP; +#endif + /* XXX: don't let the %s stay in there */ + DPRINTF("getattrlist(%s, %p, %p, 0x%x, 0x%x)\n", + (char *)arg1, arg2, arg3, arg4, arg5); + + if(arg2) /* XXX: We should handle that in a copy especially + if the structure is not writable */ + byteswap_attrlist(attrlist); + + ret = get_errno(getattrlist((const char* )arg1, attrlist, (void *)arg3, arg4, arg5)); + + if(!is_error(ret)) + { + byteswap_attrbuf((void *)arg3, attrlist); + byteswap_attrlist(attrlist); + } + return ret; +} + +long do_getdirentriesattr(uint32_t arg1, void * arg2, void * arg3, size_t arg4, void * arg5, void * arg6, void* arg7, uint32_t arg8) +{ + DPRINTF("getdirentriesattr(0x%x, %p, %p, 0x%lx, %p, %p, %p, 0x%x)\n", + arg1, arg2, arg3, arg4, arg5, arg6, arg7, arg8); +#if defined(TARGET_I386) ^ defined(__i386__) || defined(TARGET_PPC) ^ defined(__ppc__) + qerror("SYS_getdirentriesattr unimplemented\n"); +#endif + + return get_errno(getdirentriesattr( arg1, (struct attrlist * )arg2, (void *)arg3, arg4, + (unsigned long *)arg5, (unsigned long *)arg6, + (unsigned long *)arg7, arg8)); +} + +static inline void bswap_flock(struct flock *f) +{ + tswap64s(&f->l_start); + tswap64s(&f->l_len); + tswap32s(&f->l_pid); + tswap16s(&f->l_type); + tswap16s(&f->l_whence); +} + +static inline void bswap_fstore(struct fstore *f) +{ + tswap32s(&f->fst_flags); + tswap32s(&f->fst_posmode); + tswap64s(&f->fst_offset); + tswap64s(&f->fst_length); + tswap64s(&f->fst_bytesalloc); +} + +static inline void bswap_radvisory(struct radvisory *f) +{ + tswap64s(&f->ra_offset); + tswap32s(&f->ra_count); +} + +static inline void bswap_fbootstraptransfer(struct fbootstraptransfer *f) +{ + tswap64s(&f->fbt_offset); + tswap32s((uint32_t*)&f->fbt_length); + tswap32s((uint32_t*)&f->fbt_buffer); /* XXX: this is a ptr */ +} + +static inline void bswap_log2phys(struct log2phys *f) +{ + tswap32s(&f->l2p_flags); + tswap64s(&f->l2p_contigbytes); + tswap64s(&f->l2p_devoffset); +} + +static inline void bswap_fcntl_arg(int cmd, void * arg) +{ + switch(cmd) + { + case F_DUPFD: + case F_GETFD: + case F_SETFD: + case F_GETFL: + case F_SETFL: + case F_GETOWN: + case F_SETOWN: + case F_SETSIZE: + case F_RDAHEAD: + case F_FULLFSYNC: + break; + case F_GETLK: + case F_SETLK: + case F_SETLKW: + bswap_flock(arg); + break; + case F_PREALLOCATE: + bswap_fstore(arg); + break; + case F_RDADVISE: + bswap_radvisory(arg); + break; + case F_READBOOTSTRAP: + case F_WRITEBOOTSTRAP: + bswap_fbootstraptransfer(arg); + break; + case F_LOG2PHYS: + bswap_log2phys(arg); + break; + default: + gemu_log("unknow cmd in fcntl\n"); + } +} + +long do_fcntl(int fd, int cmd, int arg) +{ + long ret; + bswap_fcntl_arg(cmd, (void *)arg); + ret = get_errno(fcntl(fd, cmd, arg)); + if(!is_error(ret)) + bswap_fcntl_arg(cmd, (void *)arg); + return ret; +} + +long no_syscall(void *cpu_env, int num) +{ + /* XXX: We should probably fordward it to the host kernel */ + qerror("no unix syscall %d\n", num); + /* not reached */ + return -1; +} + +long unimpl_unix_syscall(void *cpu_env, int num) +{ + if( (num < 0) || (num > SYS_MAXSYSCALL-1) ) + qerror("unix syscall %d is out of unix syscall bounds (0-%d) " , num, SYS_MAXSYSCALL-1); + + gemu_log("qemu: Unsupported unix syscall %s %d\n", unix_syscall_table[num].name , num); + gdb_handlesig (cpu_env, SIGTRAP); + exit(-1); +} + +long do_unix_syscall(void *cpu_env, int num) +{ + long ret = 0; + + DPRINTF("unix syscall %d: " , num); + + if( (num < 0) || (num > SYS_MAXSYSCALL-1) ) + qerror("unix syscall %d is out of unix syscall bounds (0-%d) " , num, SYS_MAXSYSCALL-1); + + DPRINTF("%s [%s]", unix_syscall_table[num].name, unix_syscall_table[num].call_type & CALL_DIRECT ? "direct" : "indirect" ); + ret = unix_syscall_table[num].function(cpu_env, num); + + if(!(unix_syscall_table[num].call_type & CALL_NOERRNO)) + ret = get_errno(ret); + + DPRINTF("[returned 0x%x(%d)]\n", (int)ret, (int)ret); + return ret; +} + +/* ------------------------------------------------------------ + syscall_init +*/ +void syscall_init(void) +{ + /* Nothing yet */ +}