| /* |
| * 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 <fcntl.h> |
| #include <stdio.h> |
| #include <stdlib.h> |
| #include <errno.h> |
| |
| #include <mach/host_info.h> |
| #include <mach/mach.h> |
| #include <mach/mach_time.h> |
| #include <mach/message.h> |
| |
| #include <pthread.h> |
| #include <dirent.h> |
| |
| #include <sys/stat.h> |
| #include <sys/syscall.h> |
| #include <sys/sysctl.h> |
| #include <sys/types.h> |
| #include <unistd.h> |
| #include <sys/ioctl.h> |
| #include <sys/mman.h> |
| #include <sys/types.h> |
| #include <sys/dirent.h> |
| #include <sys/uio.h> |
| #include <sys/termios.h> |
| #include <sys/ptrace.h> |
| #include <net/if.h> |
| |
| #include <sys/param.h> |
| #include <sys/mount.h> |
| |
| #include <sys/attr.h> |
| |
| #include <mach/ndr.h> |
| #include <mach/mig_errors.h> |
| |
| #include <sys/xattr.h> |
| |
| #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 < sizeof(msg_name)/sizeof(msg_name[0]); 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 < sizeof(msg_name)/sizeof(msg_name[0]); 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 |
| |
| 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 */ |
| } |
