From 071ea11e85eb9d529cc5eb3d35f6247466a21b99 Mon Sep 17 00:00:00 2001 From: Stan Shebs Date: Fri, 16 Apr 1999 01:34:07 +0000 Subject: Initial creation of sourceware repository --- sim/ppc/emul_netbsd.c | 1425 ------------------------------------------------- 1 file changed, 1425 deletions(-) delete mode 100644 sim/ppc/emul_netbsd.c (limited to 'sim/ppc/emul_netbsd.c') diff --git a/sim/ppc/emul_netbsd.c b/sim/ppc/emul_netbsd.c deleted file mode 100644 index fae6f91..0000000 --- a/sim/ppc/emul_netbsd.c +++ /dev/null @@ -1,1425 +0,0 @@ -/* This file is part of the program psim. - - Copyright (C) 1994-1996, Andrew Cagney - - 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., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. - - */ - - -#ifndef _EMUL_NETBSD_C_ -#define _EMUL_NETBSD_C_ - - -/* Note: this module is called via a table. There is no benefit in - making it inline */ - -#include "emul_generic.h" -#include "emul_netbsd.h" - -#ifdef HAVE_STRING_H -#include -#else -#ifdef HAVE_STRINGS_H -#include -#endif -#endif - -#include -#include -#include -#include -#include -#include -#include -#include - -#ifdef HAVE_GETRUSAGE -#ifndef HAVE_SYS_RESOURCE_H -#undef HAVE_GETRUSAGE -#endif -#endif - -#ifdef HAVE_GETRUSAGE -#include -int getrusage(); -#endif - -#if HAVE_SYS_IOCTL_H -#include -#endif - -#if HAVE_SYS_MOUNT_H -#include -#endif - -#if HAVE_DIRENT_H -# include -# define NAMLEN(dirent) strlen((dirent)->d_name) -#else -# define dirent direct -# define NAMLEN(dirent) (dirent)->d_namlen -# if HAVE_SYS_NDIR_H -# include -# endif -# if HAVE_SYS_DIR_H -# include -# endif -# if HAVE_NDIR_H -# include -# endif -#endif - -#ifdef HAVE_UNISTD_H -#undef MAXPATHLEN /* sys/param.h might define this also */ -#include -#endif - -#ifdef HAVE_STDLIB_H -#include -#endif - -#define WITH_NetBSD_HOST (NetBSD >= 199306) -#if WITH_NetBSD_HOST /* here NetBSD as that is what we're emulating */ -#include /* FIXME - should not be including this one */ -#include -extern int getdirentries(int fd, char *buf, int nbytes, long *basep); -#else - -/* If this is not netbsd, don't allow fstatfs or getdirentries at this time */ -#undef HAVE_FSTATFS -#undef HAVE_GETDIRENTRIES -#endif - -#if (BSD < 199306) /* here BSD as just a bug */ -extern int errno; -#endif - -#ifndef STATIC_INLINE_EMUL_NETBSD -#define STATIC_INLINE_EMUL_NETBSD STATIC_INLINE -#endif - - -#if WITH_NetBSD_HOST -#define SYS(X) ASSERT(call == (SYS_##X)) -#else -#define SYS(X) -#endif - -#if WITH_NetBSD_HOST && (PATH_MAX != 1024) -#error "PATH_MAX not 1024" -#elif !defined(PATH_MAX) -#define PATH_MAX 1024 -#endif - - -/* NetBSD's idea of what is needed to implement emulations */ - -struct _os_emul_data { - device *vm; - emul_syscall *syscalls; -}; - - - -STATIC_INLINE_EMUL_NETBSD void -write_stat(unsigned_word addr, - struct stat buf, - cpu *processor, - unsigned_word cia) -{ - H2T(buf.st_dev); - H2T(buf.st_ino); - H2T(buf.st_mode); - H2T(buf.st_nlink); - H2T(buf.st_uid); - H2T(buf.st_gid); - H2T(buf.st_size); - H2T(buf.st_atime); - /* H2T(buf.st_spare1); */ - H2T(buf.st_mtime); - /* H2T(buf.st_spare2); */ - H2T(buf.st_ctime); - /* H2T(buf.st_spare3); */ -#ifdef AC_STRUCT_ST_RDEV - H2T(buf.st_rdev); -#endif -#ifdef AC_STRUCT_ST_BLKSIZE - H2T(buf.st_blksize); -#endif -#ifdef AC_STRUCT_ST_BLOCKS - H2T(buf.st_blocks); -#endif -#if WITH_NetBSD_HOST - H2T(buf.st_flags); - H2T(buf.st_gen); -#endif - emul_write_buffer(&buf, addr, sizeof(buf), processor, cia); -} - - -#ifdef HAVE_FSTATFS -STATIC_INLINE_EMUL_NETBSD void -write_statfs(unsigned_word addr, - struct statfs buf, - cpu *processor, - unsigned_word cia) -{ - H2T(buf.f_type); - H2T(buf.f_flags); - H2T(buf.f_bsize); - H2T(buf.f_iosize); - H2T(buf.f_blocks); - H2T(buf.f_bfree); - H2T(buf.f_bavail); - H2T(buf.f_files); - H2T(buf.f_ffree); - H2T(buf.f_fsid.val[0]); - H2T(buf.f_fsid.val[1]); - H2T(buf.f_owner); - /* f_spare[4]; */ - /* f_fstypename[MFSNAMELEN]; */ - /* f_mntonname[MNAMELEN]; */ - /* f_mntfromname[MNAMELEN]; */ - emul_write_buffer(&buf, addr, sizeof(buf), processor, cia); -} -#endif - - -STATIC_INLINE_EMUL_NETBSD void -write_timeval(unsigned_word addr, - struct timeval t, - cpu *processor, - unsigned_word cia) -{ - H2T(t.tv_sec); - H2T(t.tv_usec); - emul_write_buffer(&t, addr, sizeof(t), processor, cia); -} - - -STATIC_INLINE_EMUL_NETBSD void -write_timezone(unsigned_word addr, - struct timezone tz, - cpu *processor, - unsigned_word cia) -{ - H2T(tz.tz_minuteswest); - H2T(tz.tz_dsttime); - emul_write_buffer(&tz, addr, sizeof(tz), processor, cia); -} - - -#ifdef HAVE_GETDIRENTRIES -STATIC_INLINE_EMUL_NETBSD void -write_direntries(unsigned_word addr, - char *buf, - int nbytes, - cpu *processor, - unsigned_word cia) -{ - while (nbytes > 0) { - struct dirent *out; - struct dirent *in = (struct dirent*)buf; - ASSERT(in->d_reclen <= nbytes); - out = (struct dirent*)zalloc(in->d_reclen); - memcpy(out/*dest*/, in/*src*/, in->d_reclen); - H2T(out->d_fileno); - H2T(out->d_reclen); - H2T(out->d_type); - H2T(out->d_namlen); - emul_write_buffer(out, addr, in->d_reclen, processor, cia); - nbytes -= in->d_reclen; - addr += in->d_reclen; - buf += in->d_reclen; - zfree(out); - } -} -#endif - - -#ifdef HAVE_GETRUSAGE -STATIC_INLINE_EMUL_NETBSD void -write_rusage(unsigned_word addr, - struct rusage rusage, - cpu *processor, - unsigned_word cia) -{ - H2T(rusage.ru_utime.tv_sec); /* user time used */ - H2T(rusage.ru_utime.tv_usec); - H2T(rusage.ru_stime.tv_sec); /* system time used */ - H2T(rusage.ru_stime.tv_usec); - H2T(rusage.ru_maxrss); /* integral max resident set size */ - H2T(rusage.ru_ixrss); /* integral shared text memory size */ - H2T(rusage.ru_idrss); /* integral unshared data size */ - H2T(rusage.ru_isrss); /* integral unshared stack size */ - H2T(rusage.ru_minflt); /* page reclaims */ - H2T(rusage.ru_majflt); /* page faults */ - H2T(rusage.ru_nswap); /* swaps */ - H2T(rusage.ru_inblock); /* block input operations */ - H2T(rusage.ru_oublock); /* block output operations */ - H2T(rusage.ru_msgsnd); /* messages sent */ - H2T(rusage.ru_msgrcv); /* messages received */ - H2T(rusage.ru_nsignals); /* signals received */ - H2T(rusage.ru_nvcsw); /* voluntary context switches */ - H2T(rusage.ru_nivcsw); /* involuntary context switches */ - emul_write_buffer(&rusage, addr, sizeof(rusage), processor, cia); -} -#endif - -static void -do_exit(os_emul_data *emul, - unsigned call, - const int arg0, - cpu *processor, - unsigned_word cia) -{ - int status = (int)cpu_registers(processor)->gpr[arg0]; - SYS(exit); - if (WITH_TRACE && ppc_trace[trace_os_emul]) - printf_filtered ("%d)\n", status); - - cpu_halt(processor, cia, was_exited, status); -} - - -static void -do_read(os_emul_data *emul, - unsigned call, - const int arg0, - cpu *processor, - unsigned_word cia) -{ - void *scratch_buffer; - int d = (int)cpu_registers(processor)->gpr[arg0]; - unsigned_word buf = cpu_registers(processor)->gpr[arg0+1]; - int nbytes = cpu_registers(processor)->gpr[arg0+2]; - int status; - SYS(read); - - if (WITH_TRACE && ppc_trace[trace_os_emul]) - printf_filtered ("%d, 0x%lx, %d", d, (long)buf, nbytes); - - /* get a tempoary bufer */ - scratch_buffer = zalloc(nbytes); - - /* check if buffer exists by reading it */ - emul_read_buffer(scratch_buffer, buf, nbytes, processor, cia); - - /* read */ -#if 0 - if (d == 0) { - status = fread (scratch_buffer, 1, nbytes, stdin); - if (status == 0 && ferror (stdin)) - status = -1; - } -#endif - status = read (d, scratch_buffer, nbytes); - - emul_write_status(processor, status, errno); - if (status > 0) - emul_write_buffer(scratch_buffer, buf, status, processor, cia); - - zfree(scratch_buffer); -} - - -static void -do_write(os_emul_data *emul, - unsigned call, - const int arg0, - cpu *processor, - unsigned_word cia) -{ - void *scratch_buffer = NULL; - int nr_moved; - int d = (int)cpu_registers(processor)->gpr[arg0]; - unsigned_word buf = cpu_registers(processor)->gpr[arg0+1]; - int nbytes = cpu_registers(processor)->gpr[arg0+2]; - int status; - SYS(write); - - if (WITH_TRACE && ppc_trace[trace_os_emul]) - printf_filtered ("%d, 0x%lx, %d", d, (long)buf, nbytes); - - /* get a tempoary bufer */ - scratch_buffer = zalloc(nbytes); /* FIXME - nbytes == 0 */ - - /* copy in */ - nr_moved = vm_data_map_read_buffer(cpu_data_map(processor), - scratch_buffer, - buf, - nbytes); - if (nr_moved != nbytes) { - /* FIXME - should handle better */ - error("system_call()write copy failed (nr_moved=%d != nbytes=%d)\n", - nr_moved, nbytes); - } - - /* write */ - status = write(d, scratch_buffer, nbytes); - emul_write_status(processor, status, errno); - zfree(scratch_buffer); - - flush_stdoutput(); -} - - -static void -do_open(os_emul_data *emul, - unsigned call, - const int arg0, - cpu *processor, - unsigned_word cia) -{ - unsigned_word path_addr = cpu_registers(processor)->gpr[arg0]; - char path_buf[PATH_MAX]; - char *path = emul_read_string(path_buf, path_addr, PATH_MAX, processor, cia); - int flags = (int)cpu_registers(processor)->gpr[arg0+1]; - int mode = (int)cpu_registers(processor)->gpr[arg0+2]; - - if (WITH_TRACE && ppc_trace[trace_os_emul]) - printf_filtered ("0x%lx [%s], 0x%x, 0x%x", (long)path_addr, path, flags, mode); - - SYS(open); - emul_write_status(processor, open(path, flags, mode), errno); -} - - -static void -do_close(os_emul_data *emul, - unsigned call, - const int arg0, - cpu *processor, - unsigned_word cia) -{ - int d = (int)cpu_registers(processor)->gpr[arg0]; - - if (WITH_TRACE && ppc_trace[trace_os_emul]) - printf_filtered ("%d", d); - - SYS(close); - emul_write_status(processor, close(d), errno); -} - - -static void -do_break(os_emul_data *emul, - unsigned call, - const int arg0, - cpu *processor, - unsigned_word cia) -{ - /* just pass this onto the `vm' device */ - psim *system = cpu_system(processor); - unsigned_word new_break = cpu_registers(processor)->gpr[arg0]; - int status; - - if (WITH_TRACE && ppc_trace[trace_os_emul]) - printf_filtered ("0x%lx", (long)cpu_registers(processor)->gpr[arg0]); - - SYS(break); - status = device_ioctl(emul->vm, - system, - processor, - cia, - new_break); /*ioctl-data*/ - emul_write_status(processor, 0, status); -} - - -#ifndef HAVE_GETPID -#define do_getpid 0 -#else -static void -do_getpid(os_emul_data *emul, - unsigned call, - const int arg0, - cpu *processor, - unsigned_word cia) -{ - SYS(getpid); - emul_write_status(processor, (int)getpid(), 0); -} -#endif - -#ifndef HAVE_GETUID -#define do_getuid 0 -#else -static void -do_getuid(os_emul_data *emul, - unsigned call, - const int arg0, - cpu *processor, - unsigned_word cia) -{ - SYS(getuid); - emul_write_status(processor, (int)getuid(), 0); -} -#endif - -#ifndef HAVE_GETEUID -#define do_geteuid 0 -#else -static void -do_geteuid(os_emul_data *emul, - unsigned call, - const int arg0, - cpu *processor, - unsigned_word cia) -{ - SYS(geteuid); - emul_write_status(processor, (int)geteuid(), 0); -} -#endif - -#ifndef HAVE_KILL -#define do_kill 0 -#else -static void -do_kill(os_emul_data *emul, - unsigned call, - const int arg0, - cpu *processor, - unsigned_word cia) -{ - pid_t pid = cpu_registers(processor)->gpr[arg0]; - int sig = cpu_registers(processor)->gpr[arg0+1]; - - if (WITH_TRACE && ppc_trace[trace_os_emul]) - printf_filtered ("%d, %d", (int)pid, sig); - - SYS(kill); - printf_filtered("SYS_kill at 0x%lx - more to this than just being killed\n", - (long)cia); - cpu_halt(processor, cia, was_signalled, sig); -} -#endif - -#ifndef HAVE_DUP -#define do_dup 0 -#else -static void -do_dup(os_emul_data *emul, - unsigned call, - const int arg0, - cpu *processor, - unsigned_word cia) -{ - int oldd = cpu_registers(processor)->gpr[arg0]; - int status = dup(oldd); - int err = errno; - - if (WITH_TRACE && ppc_trace[trace_os_emul]) - printf_filtered ("%d", oldd); - - SYS(dup); - emul_write_status(processor, status, err); -} -#endif - -#ifndef HAVE_GETEGID -#define do_getegid 0 -#else -static void -do_getegid(os_emul_data *emul, - unsigned call, - const int arg0, - cpu *processor, - unsigned_word cia) -{ - SYS(getegid); - emul_write_status(processor, (int)getegid(), 0); -} -#endif - -#ifndef HAVE_GETGID -#define do_getgid 0 -#else -static void -do_getgid(os_emul_data *emul, - unsigned call, - const int arg0, - cpu *processor, - unsigned_word cia) -{ - SYS(getgid); - emul_write_status(processor, (int)getgid(), 0); -} -#endif - -#ifndef HAVE_SIGPROCMASK -#define do_sigprocmask 0 -#else -static void -do_sigprocmask(os_emul_data *emul, - unsigned call, - const int arg0, - cpu *processor, - unsigned_word cia) -{ - natural_word how = cpu_registers(processor)->gpr[arg0]; - unsigned_word set = cpu_registers(processor)->gpr[arg0+1]; - unsigned_word oset = cpu_registers(processor)->gpr[arg0+2]; - SYS(sigprocmask); - - if (WITH_TRACE && ppc_trace[trace_os_emul]) - printf_filtered ("%ld, 0x%ld, 0x%ld", (long)how, (long)set, (long)oset); - - emul_write_status(processor, 0, 0); - cpu_registers(processor)->gpr[4] = set; -} -#endif - -#ifndef HAVE_IOCTL -#define do_ioctl 0 -#else -static void -do_ioctl(os_emul_data *emul, - unsigned call, - const int arg0, - cpu *processor, - unsigned_word cia) -{ - int d = cpu_registers(processor)->gpr[arg0]; - unsigned request = cpu_registers(processor)->gpr[arg0+1]; - unsigned_word argp_addr = cpu_registers(processor)->gpr[arg0+2]; - -#if !WITH_NetBSD_HOST - cpu_registers(processor)->gpr[arg0] = 0; /* just succeed */ -#else - unsigned dir = request & IOC_DIRMASK; - int status; - SYS(ioctl); - /* what we haven't done */ - if (dir & IOC_IN /* write into the io device */ - || dir & IOC_OUT - || !(dir & IOC_VOID)) - error("do_ioctl() read or write of parameter not implemented\n"); - status = ioctl(d, request, NULL); - emul_write_status(processor, status, errno); -#endif - - if (WITH_TRACE && ppc_trace[trace_os_emul]) - printf_filtered ("%d, 0x%x, 0x%lx", d, request, (long)argp_addr); -} -#endif - -#ifndef HAVE_UMASK -#define do_umask 0 -#else -static void -do_umask(os_emul_data *emul, - unsigned call, - const int arg0, - cpu *processor, - unsigned_word cia) -{ - int mask = cpu_registers(processor)->gpr[arg0]; - - if (WITH_TRACE && ppc_trace[trace_os_emul]) - printf_filtered ("0%o", mask); - - SYS(umask); - emul_write_status(processor, umask(mask), 0); -} -#endif - -#ifndef HAVE_DUP2 -#define do_dup2 0 -#else -static void -do_dup2(os_emul_data *emul, - unsigned call, - const int arg0, - cpu *processor, - unsigned_word cia) -{ - int oldd = cpu_registers(processor)->gpr[arg0]; - int newd = cpu_registers(processor)->gpr[arg0+1]; - int status = dup2(oldd, newd); - int err = errno; - - if (WITH_TRACE && ppc_trace[trace_os_emul]) - printf_filtered ("%d, %d", oldd, newd); - - SYS(dup2); - emul_write_status(processor, status, err); -} -#endif - -#ifndef HAVE_FCNTL -#define do_fcntl 0 -#else -static void -do_fcntl(os_emul_data *emul, - unsigned call, - const int arg0, - cpu *processor, - unsigned_word cia) -{ - int fd = cpu_registers(processor)->gpr[arg0]; - int cmd = cpu_registers(processor)->gpr[arg0+1]; - int arg = cpu_registers(processor)->gpr[arg0+2]; - int status; - - if (WITH_TRACE && ppc_trace[trace_os_emul]) - printf_filtered ("%d, %d, %d", fd, cmd, arg); - - SYS(fcntl); - status = fcntl(fd, cmd, arg); - emul_write_status(processor, status, errno); -} -#endif - -#ifndef HAVE_GETTIMEOFDAY -#define do_gettimeofday 0 -#else -static void -do_gettimeofday(os_emul_data *emul, - unsigned call, - const int arg0, - cpu *processor, - unsigned_word cia) -{ - unsigned_word t_addr = cpu_registers(processor)->gpr[arg0]; - unsigned_word tz_addr = cpu_registers(processor)->gpr[arg0+1]; - struct timeval t; - struct timezone tz; - int status = gettimeofday((t_addr != 0 ? &t : NULL), - (tz_addr != 0 ? &tz : NULL)); - int err = errno; - - if (WITH_TRACE && ppc_trace[trace_os_emul]) - printf_filtered ("0x%lx, 0x%lx", (long)t_addr, (long)tz_addr); - - SYS(gettimeofday); - emul_write_status(processor, status, err); - if (status == 0) { - if (t_addr != 0) - write_timeval(t_addr, t, processor, cia); - if (tz_addr != 0) - write_timezone(tz_addr, tz, processor, cia); - } -} -#endif - -#ifndef HAVE_GETRUSAGE -#define do_getrusage 0 -#else -static void -do_getrusage(os_emul_data *emul, - unsigned call, - const int arg0, - cpu *processor, - unsigned_word cia) -{ - int who = cpu_registers(processor)->gpr[arg0]; - unsigned_word rusage_addr = cpu_registers(processor)->gpr[arg0+1]; - struct rusage rusage; - int status = getrusage(who, (rusage_addr != 0 ? &rusage : NULL)); - int err = errno; - - if (WITH_TRACE && ppc_trace[trace_os_emul]) - printf_filtered ("%d, 0x%lx", who, (long)rusage_addr); - - SYS(getrusage); - emul_write_status(processor, status, err); - if (status == 0) { - if (rusage_addr != 0) - write_rusage(rusage_addr, rusage, processor, cia); - } -} -#endif - - -#ifndef HAVE_FSTATFS -#define do_fstatfs 0 -#else -static void -do_fstatfs(os_emul_data *emul, - unsigned call, - const int arg0, - cpu *processor, - unsigned_word cia) -{ - int fd = cpu_registers(processor)->gpr[arg0]; - unsigned_word buf_addr = cpu_registers(processor)->gpr[arg0+1]; - struct statfs buf; - int status; - - if (WITH_TRACE && ppc_trace[trace_os_emul]) - printf_filtered ("%d, 0x%lx", fd, (long)buf_addr); - - SYS(fstatfs); - status = fstatfs(fd, (buf_addr == 0 ? NULL : &buf)); - emul_write_status(processor, status, errno); - if (status == 0) { - if (buf_addr != 0) - write_statfs(buf_addr, buf, processor, cia); - } -} -#endif - -#ifndef HAVE_STAT -#define do_stat 0 -#else -static void -do_stat(os_emul_data *emul, - unsigned call, - const int arg0, - cpu *processor, - unsigned_word cia) -{ - char path_buf[PATH_MAX]; - unsigned_word path_addr = cpu_registers(processor)->gpr[arg0]; - unsigned_word stat_buf_addr = cpu_registers(processor)->gpr[arg0+1]; - char *path = emul_read_string(path_buf, path_addr, PATH_MAX, processor, cia); - struct stat buf; - int status; - SYS(stat); - status = stat(path, &buf); - emul_write_status(processor, status, errno); - if (status == 0) - write_stat(stat_buf_addr, buf, processor, cia); -} -#endif - -#ifndef HAVE_FSTAT -#define do_fstat 0 -#else -static void -do_fstat(os_emul_data *emul, - unsigned call, - const int arg0, - cpu *processor, - unsigned_word cia) -{ - int fd = cpu_registers(processor)->gpr[arg0]; - unsigned_word stat_buf_addr = cpu_registers(processor)->gpr[arg0+1]; - struct stat buf; - SYS(fstat); - emul_write_status(processor, fstat(fd, &buf), errno); - write_stat(stat_buf_addr, buf, processor, cia); -} -#endif - -#ifndef HAVE_LSTAT -#define do_lstat 0 -#else -static void -do_lstat(os_emul_data *emul, - unsigned call, - const int arg0, - cpu *processor, - unsigned_word cia) -{ - char path_buf[PATH_MAX]; - unsigned_word path_addr = cpu_registers(processor)->gpr[arg0]; - char *path = emul_read_string(path_buf, path_addr, PATH_MAX, processor, cia); - unsigned_word stat_buf_addr = cpu_registers(processor)->gpr[arg0+1]; - struct stat buf; - SYS(lstat); - emul_write_status(processor, stat(path, &buf), errno); - write_stat(stat_buf_addr, buf, processor, cia); -} -#endif - -#ifndef HAVE_GETDIRENTRIES -#define do_getdirentries 0 -#else -static void -do_getdirentries(os_emul_data *emul, - unsigned call, - const int arg0, - cpu *processor, - unsigned_word cia) -{ - int fd = cpu_registers(processor)->gpr[arg0]; - unsigned_word buf_addr = cpu_registers(processor)->gpr[arg0+1]; - char *buf; - int nbytes = cpu_registers(processor)->gpr[arg0+2]; - unsigned_word basep_addr = cpu_registers(processor)->gpr[arg0+3]; - long basep; - int status; - SYS(getdirentries); - if (buf_addr != 0 && nbytes >= 0) - buf = zalloc(nbytes); - else - buf = NULL; - status = getdirentries(fd, - (buf_addr == 0 ? NULL : buf), - nbytes, - (basep_addr == 0 ? NULL : &basep)); - emul_write_status(processor, status, errno); - if (basep_addr != 0) - emul_write_word(basep_addr, basep, processor, cia); - if (status > 0) - write_direntries(buf_addr, buf, status, processor, cia); - if (buf != NULL) - zfree(buf); -} -#endif - - -static void -do___syscall(os_emul_data *emul, - unsigned call, - const int arg0, - cpu *processor, - unsigned_word cia) -{ - SYS(__syscall); - emul_do_system_call(emul, - emul->syscalls, - cpu_registers(processor)->gpr[arg0], - arg0 + 1, - processor, - cia); -} - -#ifndef HAVE_LSEEK -#define do_lseek 0 -#else -static void -do_lseek(os_emul_data *emul, - unsigned call, - const int arg0, - cpu *processor, - unsigned_word cia) -{ - int fildes = cpu_registers(processor)->gpr[arg0]; - off_t offset = emul_read_gpr64(processor, arg0+2); - int whence = cpu_registers(processor)->gpr[arg0+4]; - off_t status; - SYS(lseek); - status = lseek(fildes, offset, whence); - if (status == -1) - emul_write_status(processor, -1, errno); - else { - emul_write_status(processor, 0, 0); /* success */ - emul_write_gpr64(processor, 3, status); - } -} -#endif - -static void -do___sysctl(os_emul_data *emul, - unsigned call, - const int arg0, - cpu *processor, - unsigned_word cia) -{ - /* call the arguments by their real name */ - unsigned_word name = cpu_registers(processor)->gpr[arg0]; - natural_word namelen = cpu_registers(processor)->gpr[arg0+1]; - unsigned_word oldp = cpu_registers(processor)->gpr[arg0+2]; - unsigned_word oldlenp = cpu_registers(processor)->gpr[arg0+3]; - natural_word oldlen; - natural_word mib; - natural_word int_val; - SYS(__sysctl); - - /* pluck out the management information base id */ - if (namelen < 1) - error("system_call()SYS___sysctl bad name[0]\n"); - mib = vm_data_map_read_word(cpu_data_map(processor), - name, - processor, - cia); - name += sizeof(mib); - - /* see what to do with it ... */ - switch ((int)mib) { - case 6/*CTL_HW*/: -#if WITH_NetBSD_HOST && (CTL_HW != 6) -# error "CTL_HW" -#endif - if (namelen < 2) - error("system_call()SYS___sysctl - CTL_HW - bad name[1]\n"); - mib = vm_data_map_read_word(cpu_data_map(processor), - name, - processor, - cia); - name += sizeof(mib); - switch ((int)mib) { - case 7/*HW_PAGESIZE*/: -#if WITH_NetBSD_HOST && (HW_PAGESIZE != 7) -# error "HW_PAGESIZE" -#endif - oldlen = vm_data_map_read_word(cpu_data_map(processor), - oldlenp, - processor, - cia); - if (sizeof(natural_word) > oldlen) - error("system_call()sysctl - CTL_HW.HW_PAGESIZE - to small\n"); - int_val = 8192; - oldlen = sizeof(int_val); - emul_write_word(oldp, int_val, processor, cia); - emul_write_word(oldlenp, oldlen, processor, cia); - break; - default: - error("sysctl() CTL_HW.%d unknown\n", mib); - break; - } - break; - default: - error("sysctl() name[0]=%d unknown\n", (int)mib); - break; - } - emul_write_status(processor, 0, 0); /* always succeed */ -} - - - -static emul_syscall_descriptor netbsd_descriptors[] = { - /* 0 */ { 0, "syscall" }, - /* 1 */ { do_exit, "exit" }, - /* 2 */ { 0, "fork" }, - /* 3 */ { do_read, "read" }, - /* 4 */ { do_write, "write" }, - /* 5 */ { do_open, "open" }, - /* 6 */ { do_close, "close" }, - /* 7 */ { 0, "wait4" }, - { 0, }, /* 8 is old creat */ - /* 9 */ { 0, "link" }, - /* 10 */ { 0, "unlink" }, - { 0, }, /* 11 is obsolete execv */ - /* 12 */ { 0, "chdir" }, - /* 13 */ { 0, "fchdir" }, - /* 14 */ { 0, "mknod" }, - /* 15 */ { 0, "chmod" }, - /* 16 */ { 0, "chown" }, - /* 17 */ { do_break, "break" }, - /* 18 */ { 0, "getfsstat" }, - { 0, }, /* 19 is old lseek */ - /* 20 */ { do_getpid, "getpid" }, - /* 21 */ { 0, "mount" }, - /* 22 */ { 0, "unmount" }, - /* 23 */ { 0, "setuid" }, - /* 24 */ { do_getuid, "getuid" }, - /* 25 */ { do_geteuid, "geteuid" }, - /* 26 */ { 0, "ptrace" }, - /* 27 */ { 0, "recvmsg" }, - /* 28 */ { 0, "sendmsg" }, - /* 29 */ { 0, "recvfrom" }, - /* 30 */ { 0, "accept" }, - /* 31 */ { 0, "getpeername" }, - /* 32 */ { 0, "getsockname" }, - /* 33 */ { 0, "access" }, - /* 34 */ { 0, "chflags" }, - /* 35 */ { 0, "fchflags" }, - /* 36 */ { 0, "sync" }, - /* 37 */ { do_kill, "kill" }, - { 0, }, /* 38 is old stat */ - /* 39 */ { 0, "getppid" }, - { 0, }, /* 40 is old lstat */ - /* 41 */ { do_dup, "dup" }, - /* 42 */ { 0, "pipe" }, - /* 43 */ { do_getegid, "getegid" }, - /* 44 */ { 0, "profil" }, - /* 45 */ { 0, "ktrace" }, - /* 46 */ { 0, "sigaction" }, - /* 47 */ { do_getgid, "getgid" }, - /* 48 */ { do_sigprocmask, "sigprocmask" }, - /* 49 */ { 0, "getlogin" }, - /* 50 */ { 0, "setlogin" }, - /* 51 */ { 0, "acct" }, - /* 52 */ { 0, "sigpending" }, - /* 53 */ { 0, "sigaltstack" }, - /* 54 */ { do_ioctl, "ioctl" }, - /* 55 */ { 0, "reboot" }, - /* 56 */ { 0, "revoke" }, - /* 57 */ { 0, "symlink" }, - /* 58 */ { 0, "readlink" }, - /* 59 */ { 0, "execve" }, - /* 60 */ { do_umask, "umask" }, - /* 61 */ { 0, "chroot" }, - { 0, }, /* 62 is old fstat */ - { 0, }, /* 63 is old getkerninfo */ - { 0, }, /* 64 is old getpagesize */ - /* 65 */ { 0, "msync" }, - /* 66 */ { 0, "vfork" }, - { 0, }, /* 67 is obsolete vread */ - { 0, }, /* 68 is obsolete vwrite */ - /* 69 */ { 0, "sbrk" }, - /* 70 */ { 0, "sstk" }, - { 0, }, /* 71 is old mmap */ - /* 72 */ { 0, "vadvise" }, - /* 73 */ { 0, "munmap" }, - /* 74 */ { 0, "mprotect" }, - /* 75 */ { 0, "madvise" }, - { 0, }, /* 76 is obsolete vhangup */ - { 0, }, /* 77 is obsolete vlimit */ - /* 78 */ { 0, "mincore" }, - /* 79 */ { 0, "getgroups" }, - /* 80 */ { 0, "setgroups" }, - /* 81 */ { 0, "getpgrp" }, - /* 82 */ { 0, "setpgid" }, - /* 83 */ { 0, "setitimer" }, - { 0, }, /* 84 is old wait */ - /* 85 */ { 0, "swapon" }, - /* 86 */ { 0, "getitimer" }, - { 0, }, /* 87 is old gethostname */ - { 0, }, /* 88 is old sethostname */ - { 0, }, /* 89 is old getdtablesize */ - { do_dup2, "dup2" }, - { 0, }, /* 91 */ - /* 92 */ { do_fcntl, "fcntl" }, - /* 93 */ { 0, "select" }, - { 0, }, /* 94 */ - /* 95 */ { 0, "fsync" }, - /* 96 */ { 0, "setpriority" }, - /* 97 */ { 0, "socket" }, - /* 98 */ { 0, "connect" }, - { 0, }, /* 99 is old accept */ - /* 100 */ { 0, "getpriority" }, - { 0, }, /* 101 is old send */ - { 0, }, /* 102 is old recv */ - /* 103 */ { 0, "sigreturn" }, - /* 104 */ { 0, "bind" }, - /* 105 */ { 0, "setsockopt" }, - /* 106 */ { 0, "listen" }, - { 0, }, /* 107 is obsolete vtimes */ - { 0, }, /* 108 is old sigvec */ - { 0, }, /* 109 is old sigblock */ - { 0, }, /* 110 is old sigsetmask */ - /* 111 */ { 0, "sigsuspend" }, - { 0, }, /* 112 is old sigstack */ - { 0, }, /* 113 is old recvmsg */ - { 0, }, /* 114 is old sendmsg */ - /* - is obsolete vtrace */ { 0, "vtrace 115" }, - /* 116 */ { do_gettimeofday, "gettimeofday" }, - /* 117 */ { do_getrusage, "getrusage" }, - /* 118 */ { 0, "getsockopt" }, - /* 119 */ { 0, "resuba" }, - /* 120 */ { 0, "readv" }, - /* 121 */ { 0, "writev" }, - /* 122 */ { 0, "settimeofday" }, - /* 123 */ { 0, "fchown" }, - /* 124 */ { 0, "fchmod" }, - { 0, }, /* 125 is old recvfrom */ - { 0, }, /* 126 is old setreuid */ - { 0, }, /* 127 is old setregid */ - /* 128 */ { 0, "rename" }, - { 0, }, /* 129 is old truncate */ - { 0, }, /* 130 is old ftruncate */ - /* 131 */ { 0, "flock" }, - /* 132 */ { 0, "mkfifo" }, - /* 133 */ { 0, "sendto" }, - /* 134 */ { 0, "shutdown" }, - /* 135 */ { 0, "socketpair" }, - /* 136 */ { 0, "mkdir" }, - /* 137 */ { 0, "rmdir" }, - /* 138 */ { 0, "utimes" }, - { 0, }, /* 139 is obsolete 4.2 sigreturn */ - /* 140 */ { 0, "adjtime" }, - { 0, }, /* 141 is old getpeername */ - { 0, }, /* 142 is old gethostid */ - { 0, }, /* 143 is old sethostid */ - { 0, }, /* 144 is old getrlimit */ - { 0, }, /* 145 is old setrlimit */ - { 0, }, /* 146 is old killpg */ - /* 147 */ { 0, "setsid" }, - /* 148 */ { 0, "quotactl" }, - { 0, }, /* 149 is old quota */ - { 0, }, /* 150 is old getsockname */ - { 0, }, /* 151 */ - { 0, }, /* 152 */ - { 0, }, /* 153 */ - { 0, }, /* 154 */ - /* 155 */ { 0, "nfssvc" }, - { 0, }, /* 156 is old getdirentries */ - /* 157 */ { 0, "statfs" }, - /* 158 */ { do_fstatfs, "fstatfs" }, - { 0, }, /* 159 */ - { 0, }, /* 160 */ - /* 161 */ { 0, "getfh" }, - { 0, }, /* 162 is old getdomainname */ - { 0, }, /* 163 is old setdomainname */ - { 0, }, /* 164 is old uname */ - /* 165 */ { 0, "sysarch" }, - { 0, }, /* 166 */ - { 0, }, /* 167 */ - { 0, }, /* 168 */ - /* 169 */ { 0, "semsys" }, - /* 170 */ { 0, "msgsys" }, - /* 171 */ { 0, "shmsys" }, - { 0, }, /* 172 */ - { 0, }, /* 173 */ - { 0, }, /* 174 */ - { 0, }, /* 175 */ - { 0, }, /* 176 */ - { 0, }, /* 177 */ - { 0, }, /* 178 */ - { 0, }, /* 179 */ - { 0, }, /* 180 */ - /* 181 */ { 0, "setgid" }, - /* 182 */ { 0, "setegid" }, - /* 183 */ { 0, "seteuid" }, - /* 184 */ { 0, "lfs_bmapv" }, - /* 185 */ { 0, "lfs_markv" }, - /* 186 */ { 0, "lfs_segclean" }, - /* 187 */ { 0, "lfs_segwait" }, - /* 188 */ { do_stat, "stat" }, - /* 189 */ { do_fstat, "fstat" }, - /* 190 */ { do_lstat, "lstat" }, - /* 191 */ { 0, "pathconf" }, - /* 192 */ { 0, "fpathconf" }, - { 0, }, /* 193 */ - /* 194 */ { 0, "getrlimit" }, - /* 195 */ { 0, "setrlimit" }, - /* 196 */ { do_getdirentries, "getdirentries" }, - /* 197 */ { 0, "mmap" }, - /* 198 */ { do___syscall, "__syscall" }, - /* 199 */ { do_lseek, "lseek" }, - /* 200 */ { 0, "truncate" }, - /* 201 */ { 0, "ftruncate" }, - /* 202 */ { do___sysctl, "__sysctl" }, - /* 203 */ { 0, "mlock" }, - /* 204 */ { 0, "munlock" }, -}; - -static char *(netbsd_error_names[]) = { - /* 0 */ "ESUCCESS", - /* 1 */ "EPERM", - /* 2 */ "ENOENT", - /* 3 */ "ESRCH", - /* 4 */ "EINTR", - /* 5 */ "EIO", - /* 6 */ "ENXIO", - /* 7 */ "E2BIG", - /* 8 */ "ENOEXEC", - /* 9 */ "EBADF", - /* 10 */ "ECHILD", - /* 11 */ "EDEADLK", - /* 12 */ "ENOMEM", - /* 13 */ "EACCES", - /* 14 */ "EFAULT", - /* 15 */ "ENOTBLK", - /* 16 */ "EBUSY", - /* 17 */ "EEXIST", - /* 18 */ "EXDEV", - /* 19 */ "ENODEV", - /* 20 */ "ENOTDIR", - /* 21 */ "EISDIR", - /* 22 */ "EINVAL", - /* 23 */ "ENFILE", - /* 24 */ "EMFILE", - /* 25 */ "ENOTTY", - /* 26 */ "ETXTBSY", - /* 27 */ "EFBIG", - /* 28 */ "ENOSPC", - /* 29 */ "ESPIPE", - /* 30 */ "EROFS", - /* 31 */ "EMLINK", - /* 32 */ "EPIPE", - /* 33 */ "EDOM", - /* 34 */ "ERANGE", - /* 35 */ "EAGAIN", - /* 36 */ "EINPROGRESS", - /* 37 */ "EALREADY", - /* 38 */ "ENOTSOCK", - /* 39 */ "EDESTADDRREQ", - /* 40 */ "EMSGSIZE", - /* 41 */ "EPROTOTYPE", - /* 42 */ "ENOPROTOOPT", - /* 43 */ "EPROTONOSUPPORT", - /* 44 */ "ESOCKTNOSUPPORT", - /* 45 */ "EOPNOTSUPP", - /* 46 */ "EPFNOSUPPORT", - /* 47 */ "EAFNOSUPPORT", - /* 48 */ "EADDRINUSE", - /* 49 */ "EADDRNOTAVAIL", - /* 50 */ "ENETDOWN", - /* 51 */ "ENETUNREACH", - /* 52 */ "ENETRESET", - /* 53 */ "ECONNABORTED", - /* 54 */ "ECONNRESET", - /* 55 */ "ENOBUFS", - /* 56 */ "EISCONN", - /* 57 */ "ENOTCONN", - /* 58 */ "ESHUTDOWN", - /* 59 */ "ETOOMANYREFS", - /* 60 */ "ETIMEDOUT", - /* 61 */ "ECONNREFUSED", - /* 62 */ "ELOOP", - /* 63 */ "ENAMETOOLONG", - /* 64 */ "EHOSTDOWN", - /* 65 */ "EHOSTUNREACH", - /* 66 */ "ENOTEMPTY", - /* 67 */ "EPROCLIM", - /* 68 */ "EUSERS", - /* 69 */ "EDQUOT", - /* 70 */ "ESTALE", - /* 71 */ "EREMOTE", - /* 72 */ "EBADRPC", - /* 73 */ "ERPCMISMATCH", - /* 74 */ "EPROGUNAVAIL", - /* 75 */ "EPROGMISMATCH", - /* 76 */ "EPROCUNAVAIL", - /* 77 */ "ENOLCK", - /* 78 */ "ENOSYS", - /* 79 */ "EFTYPE", - /* 80 */ "EAUTH", - /* 81 */ "ENEEDAUTH", - /* 81 */ "ELAST", -}; - -static char *(netbsd_signal_names[]) = { - /* 0 */ 0, - /* 1 */ "SIGHUP", - /* 2 */ "SIGINT", - /* 3 */ "SIGQUIT", - /* 4 */ "SIGILL", - /* 5 */ "SIGTRAP", - /* 6 */ "SIGABRT", - /* 7 */ "SIGEMT", - /* 8 */ "SIGFPE", - /* 9 */ "SIGKILL", - /* 10 */ "SIGBUS", - /* 11 */ "SIGSEGV", - /* 12 */ "SIGSYS", - /* 13 */ "SIGPIPE", - /* 14 */ "SIGALRM", - /* 15 */ "SIGTERM", - /* 16 */ "SIGURG", - /* 17 */ "SIGSTOP", - /* 18 */ "SIGTSTP", - /* 19 */ "SIGCONT", - /* 20 */ "SIGCHLD", - /* 21 */ "SIGTTIN", - /* 22 */ "SIGTTOU", - /* 23 */ "SIGIO", - /* 24 */ "SIGXCPU", - /* 25 */ "SIGXFSZ", - /* 26 */ "SIGVTALRM", - /* 27 */ "SIGPROF", - /* 28 */ "SIGWINCH", - /* 29 */ "SIGINFO", - /* 30 */ "SIGUSR1", - /* 31 */ "SIGUSR2", -}; - -static emul_syscall emul_netbsd_syscalls = { - netbsd_descriptors, - sizeof(netbsd_descriptors) / sizeof(netbsd_descriptors[0]), - netbsd_error_names, - sizeof(netbsd_error_names) / sizeof(netbsd_error_names[0]), - netbsd_signal_names, - sizeof(netbsd_signal_names) / sizeof(netbsd_signal_names[0]), -}; - - -/* NetBSD's os_emul interface, most are just passed on to the generic - syscall stuff */ - -static os_emul_data * -emul_netbsd_create(device *root, - bfd *image, - const char *name) -{ - unsigned_word top_of_stack; - unsigned stack_size; - int elf_binary; - os_emul_data *bsd_data; - device *vm; - - /* check that this emulation is really for us */ - if (name != NULL && strcmp(name, "netbsd") != 0) - return NULL; - if (image == NULL) - return NULL; - - - /* merge any emulation specific entries into the device tree */ - - /* establish a few defaults */ - if (image->xvec->flavour == bfd_target_elf_flavour) { - elf_binary = 1; - top_of_stack = 0xe0000000; - stack_size = 0x00100000; - } - else { - elf_binary = 0; - top_of_stack = 0x20000000; - stack_size = 0x00100000; - } - - /* options */ - emul_add_tree_options(root, image, "netbsd", - (WITH_ENVIRONMENT == USER_ENVIRONMENT - ? "user" : "virtual"), - 0 /*oea-interrupt-prefix*/); - - /* virtual memory - handles growth of stack/heap */ - vm = device_tree_add_parsed(root, "/openprom/vm@0x%lx", - (unsigned long)(top_of_stack - stack_size)); - device_tree_add_parsed(vm, "./stack-base 0x%lx", - (unsigned long)(top_of_stack - stack_size)); - device_tree_add_parsed(vm, "./nr-bytes 0x%x", stack_size); - - device_tree_add_parsed(root, "/openprom/vm/map-binary/file-name %s", - bfd_get_filename(image)); - - /* finish the init */ - device_tree_add_parsed(root, "/openprom/init/register/pc 0x%lx", - (unsigned long)bfd_get_start_address(image)); - device_tree_add_parsed(root, "/openprom/init/register/sp 0x%lx", - (unsigned long)top_of_stack); - device_tree_add_parsed(root, "/openprom/init/register/msr 0x%x", - (device_find_boolean_property(root, "/options/little-endian?") - ? msr_little_endian_mode - : 0)); - device_tree_add_parsed(root, "/openprom/init/stack/stack-type %s", - (elf_binary ? "elf" : "xcoff")); - - /* finally our emulation data */ - bsd_data = ZALLOC(os_emul_data); - bsd_data->vm = vm; - bsd_data->syscalls = &emul_netbsd_syscalls; - return bsd_data; -} - -static void -emul_netbsd_init(os_emul_data *emul_data, - int nr_cpus) -{ - /* nothing yet */ -} - -static void -emul_netbsd_system_call(cpu *processor, - unsigned_word cia, - os_emul_data *emul_data) -{ - emul_do_system_call(emul_data, - emul_data->syscalls, - cpu_registers(processor)->gpr[0], - 3, /*r3 contains arg0*/ - processor, - cia); -} - -const os_emul emul_netbsd = { - "netbsd", - emul_netbsd_create, - emul_netbsd_init, - emul_netbsd_system_call, - 0, /*instruction_call*/ - 0 /*data*/ -}; - -#endif /* _EMUL_NETBSD_C_ */ -- cgit v1.1