/* * Copyright (c) 2001-2005 The Regents of The University of Michigan * All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions are * met: redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer; * redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution; * neither the name of the copyright holders nor the names of its * contributors may be used to endorse or promote products derived from * this software without specific prior written permission. * * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS * "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT * LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR * A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT * OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT * LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE * OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. */ #ifndef __TRU64_HH__ #define __TRU64_HH__ #include "config/full_system.hh" #if FULL_SYSTEM class Tru64 {}; #else //!FULL_SYSTEM #include #include #if defined(__OpenBSD__) || defined(__APPLE__) || defined(__FreeBSD__) #include #include #else #include #endif #include #include #include #include // for memset() #include #include "cpu/base.hh" #include "sim/root.hh" #include "sim/syscall_emul.hh" using namespace std; typedef struct stat global_stat; typedef struct statfs global_statfs; typedef struct dirent global_dirent; class TranslatingPort; /// /// This class encapsulates the types, structures, constants, /// functions, and syscall-number mappings specific to the Alpha Tru64 /// syscall interface. /// class Tru64 { public: //@{ /// Basic Tru64 types. typedef uint64_t size_t; typedef uint64_t off_t; typedef uint16_t nlink_t; typedef int32_t dev_t; typedef uint32_t uid_t; typedef uint32_t gid_t; typedef uint32_t time_t; typedef uint32_t mode_t; typedef uint32_t ino_t; typedef struct { int val[2]; } quad; typedef quad fsid_t; //@} //@{ /// open(2) flag values. static const int TGT_O_RDONLY = 00000000; static const int TGT_O_WRONLY = 00000001; static const int TGT_O_RDWR = 00000002; static const int TGT_O_NONBLOCK = 00000004; static const int TGT_O_APPEND = 00000010; static const int TGT_O_CREAT = 00001000; static const int TGT_O_TRUNC = 00002000; static const int TGT_O_EXCL = 00004000; static const int TGT_O_NOCTTY = 00010000; static const int TGT_O_SYNC = 00040000; static const int TGT_O_DRD = 00100000; static const int TGT_O_DIRECTIO = 00200000; static const int TGT_O_CACHE = 00400000; static const int TGT_O_DSYNC = 02000000; static const int TGT_O_RSYNC = 04000000; //@} /// This table maps the target open() flags to the corresponding /// host open() flags. static OpenFlagTransTable openFlagTable[]; /// Number of entries in openFlagTable[]. static const int NUM_OPEN_FLAGS; /// Stat buffer. Note that Tru64 v5.0+ use a new "F64" stat /// structure, and a new set of syscall numbers for stat calls. /// On some hosts (notably Linux) define st_atime, st_mtime, and /// st_ctime as macros, so we append an X to get around this. struct F64_stat { dev_t st_dev; //!< st_dev int32_t st_retired1; //!< st_retired1 mode_t st_mode; //!< st_mode nlink_t st_nlink; //!< st_nlink uint16_t st_nlink_reserved; //!< st_nlink_reserved uid_t st_uid; //!< st_uid gid_t st_gid; //!< st_gid dev_t st_rdev; //!< st_rdev dev_t st_ldev; //!< st_ldev off_t st_size; //!< st_size time_t st_retired2; //!< st_retired2 int32_t st_uatime; //!< st_uatime time_t st_retired3; //!< st_retired3 int32_t st_umtime; //!< st_umtime time_t st_retired4; //!< st_retired4 int32_t st_uctime; //!< st_uctime int32_t st_retired5; //!< st_retired5 int32_t st_retired6; //!< st_retired6 uint32_t st_flags; //!< st_flags uint32_t st_gen; //!< st_gen uint64_t st_spare[4]; //!< st_spare[4] ino_t st_ino; //!< st_ino int32_t st_ino_reserved; //!< st_ino_reserved time_t st_atimeX; //!< st_atime int32_t st_atime_reserved; //!< st_atime_reserved time_t st_mtimeX; //!< st_mtime int32_t st_mtime_reserved; //!< st_mtime_reserved time_t st_ctimeX; //!< st_ctime int32_t st_ctime_reserved; //!< st_ctime_reserved uint64_t st_blksize; //!< st_blksize uint64_t st_blocks; //!< st_blocks }; /// Old Tru64 v4.x stat struct. /// Tru64 maintains backwards compatibility with v4.x by /// implementing another set of stat functions using the old /// structure definition and binding them to the old syscall /// numbers. struct pre_F64_stat { dev_t st_dev; ino_t st_ino; mode_t st_mode; nlink_t st_nlink; uid_t st_uid __attribute__ ((aligned(sizeof(uid_t)))); gid_t st_gid; dev_t st_rdev; off_t st_size __attribute__ ((aligned(sizeof(off_t)))); time_t st_atimeX; int32_t st_uatime; time_t st_mtimeX; int32_t st_umtime; time_t st_ctimeX; int32_t st_uctime; uint32_t st_blksize; int32_t st_blocks; uint32_t st_flags; uint32_t st_gen; }; /// For statfs(). struct F64_statfs { int16_t f_type; int16_t f_flags; int32_t f_retired1; int32_t f_retired2; int32_t f_retired3; int32_t f_retired4; int32_t f_retired5; int32_t f_retired6; int32_t f_retired7; fsid_t f_fsid; int32_t f_spare[9]; char f_retired8[90]; char f_retired9[90]; uint64_t dummy[10]; // was union mount_info mount_info; uint64_t f_flags2; int64_t f_spare2[14]; int64_t f_fsize; int64_t f_bsize; int64_t f_blocks; int64_t f_bfree; int64_t f_bavail; int64_t f_files; int64_t f_ffree; char f_mntonname[1024]; char f_mntfromname[1024]; }; /// For old Tru64 v4.x statfs() struct pre_F64_statfs { int16_t f_type; int16_t f_flags; int32_t f_fsize; int32_t f_bsize; int32_t f_blocks; int32_t f_bfree; int32_t f_bavail; int32_t f_files; int32_t f_ffree; fsid_t f_fsid; int32_t f_spare[9]; char f_mntonname[90]; char f_mntfromname[90]; uint64_t dummy[10]; // was union mount_info mount_info; }; /// For getdirentries(). struct dirent { ino_t d_ino; //!< file number of entry uint16_t d_reclen; //!< length of this record uint16_t d_namlen; //!< length of string in d_name char d_name[256]; //!< dummy name length }; /// Length of strings in struct utsname (plus 1 for null char). static const int _SYS_NMLN = 32; /// Interface struct for uname(). struct utsname { char sysname[_SYS_NMLN]; //!< System name. char nodename[_SYS_NMLN]; //!< Node name. char release[_SYS_NMLN]; //!< OS release. char version[_SYS_NMLN]; //!< OS version. char machine[_SYS_NMLN]; //!< Machine type. }; //@{ /// ioctl() command codes. static const unsigned TIOCGETP = 0x40067408; static const unsigned TIOCSETP = 0x80067409; static const unsigned TIOCSETN = 0x8006740a; static const unsigned TIOCSETC = 0x80067411; static const unsigned TIOCGETC = 0x40067412; static const unsigned FIONREAD = 0x4004667f; static const unsigned TIOCISATTY = 0x2000745e; // TIOCGETS not defined in tru64, so I made up a number static const unsigned TIOCGETS = 0x40000000; static const unsigned TIOCGETA = 0x402c7413; //@} /// Resource enumeration for getrlimit(). enum rlimit_resources { TGT_RLIMIT_CPU = 0, TGT_RLIMIT_FSIZE = 1, TGT_RLIMIT_DATA = 2, TGT_RLIMIT_STACK = 3, TGT_RLIMIT_CORE = 4, TGT_RLIMIT_RSS = 5, TGT_RLIMIT_NOFILE = 6, TGT_RLIMIT_AS = 7, TGT_RLIMIT_VMEM = 7 }; /// Limit struct for getrlimit/setrlimit. struct rlimit { uint64_t rlim_cur; //!< soft limit uint64_t rlim_max; //!< hard limit }; /// For mmap(). static const unsigned TGT_MAP_ANONYMOUS = 0x10; //@{ /// For getsysinfo(). static const unsigned GSI_PLATFORM_NAME = 103; //!< platform name as string static const unsigned GSI_CPU_INFO = 59; //!< CPU information static const unsigned GSI_PROC_TYPE = 60; //!< get proc_type static const unsigned GSI_MAX_CPU = 30; //!< max # cpu's on this machine static const unsigned GSI_CPUS_IN_BOX = 55; //!< number of CPUs in system static const unsigned GSI_PHYSMEM = 19; //!< Physical memory in KB static const unsigned GSI_CLK_TCK = 42; //!< clock freq in Hz //@} /// For getsysinfo() GSI_CPU_INFO option. struct cpu_info { uint32_t current_cpu; //!< current_cpu uint32_t cpus_in_box; //!< cpus_in_box uint32_t cpu_type; //!< cpu_type uint32_t ncpus; //!< ncpus uint64_t cpus_present; //!< cpus_present uint64_t cpus_running; //!< cpus_running uint64_t cpu_binding; //!< cpu_binding uint64_t cpu_ex_binding; //!< cpu_ex_binding uint32_t mhz; //!< mhz uint32_t unused[3]; //!< future expansion }; //@{ /// For setsysinfo(). static const unsigned SSI_IEEE_FP_CONTROL = 14; //!< ieee_set_fp_control() //@} /// For gettimeofday. struct timeval { uint32_t tv_sec; //!< seconds uint32_t tv_usec; //!< microseconds }; //@{ /// For getrusage(). static const int TGT_RUSAGE_THREAD = 1; static const int TGT_RUSAGE_SELF = 0; static const int TGT_RUSAGE_CHILDREN = -1; //@} /// For getrusage(). struct rusage { struct timeval ru_utime; //!< user time used struct timeval ru_stime; //!< system time used uint64_t ru_maxrss; //!< ru_maxrss uint64_t ru_ixrss; //!< integral shared memory size uint64_t ru_idrss; //!< integral unshared data " uint64_t ru_isrss; //!< integral unshared stack " uint64_t ru_minflt; //!< page reclaims - total vmfaults uint64_t ru_majflt; //!< page faults uint64_t ru_nswap; //!< swaps uint64_t ru_inblock; //!< block input operations uint64_t ru_oublock; //!< block output operations uint64_t ru_msgsnd; //!< messages sent uint64_t ru_msgrcv; //!< messages received uint64_t ru_nsignals; //!< signals received uint64_t ru_nvcsw; //!< voluntary context switches uint64_t ru_nivcsw; //!< involuntary " }; /// For sigreturn(). struct sigcontext { int64_t sc_onstack; //!< sigstack state to restore int64_t sc_mask; //!< signal mask to restore int64_t sc_pc; //!< pc at time of signal int64_t sc_ps; //!< psl to retore int64_t sc_regs[32]; //!< processor regs 0 to 31 int64_t sc_ownedfp; //!< fp has been used int64_t sc_fpregs[32]; //!< fp regs 0 to 31 uint64_t sc_fpcr; //!< floating point control reg uint64_t sc_fp_control; //!< software fpcr int64_t sc_reserved1; //!< reserved for kernel uint32_t sc_kreserved1; //!< reserved for kernel uint32_t sc_kreserved2; //!< reserved for kernel size_t sc_ssize; //!< stack size caddr_t sc_sbase; //!< stack start uint64_t sc_traparg_a0; //!< a0 argument to trap on exc uint64_t sc_traparg_a1; //!< a1 argument to trap on exc uint64_t sc_traparg_a2; //!< a2 argument to trap on exc uint64_t sc_fp_trap_pc; //!< imprecise pc uint64_t sc_fp_trigger_sum; //!< Exception summary at trigg uint64_t sc_fp_trigger_inst; //!< Instruction at trigger pc }; /// For table(). static const int TBL_SYSINFO = 12; /// For table(). struct tbl_sysinfo { uint64_t si_user; //!< User time uint64_t si_nice; //!< Nice time uint64_t si_sys; //!< System time uint64_t si_idle; //!< Idle time uint64_t si_hz; //!< hz uint64_t si_phz; //!< phz uint64_t si_boottime; //!< Boot time in seconds uint64_t wait; //!< Wait time uint32_t si_max_procs; //!< rpb->rpb_numprocs uint32_t pad; //!< padding }; /// For stack_create. struct vm_stack { // was void * Addr address; //!< address hint size_t rsize; //!< red zone size size_t ysize; //!< yellow zone size size_t gsize; //!< green zone size size_t swap; //!< amount of swap to reserve size_t incr; //!< growth increment uint64_t align; //!< address alignment uint64_t flags; //!< MAP_FIXED etc. // was struct memalloc_attr * Addr attr; //!< allocation policy uint64_t reserved; //!< reserved }; /// Return values for nxm calls. enum { KERN_NOT_RECEIVER = 7, KERN_NOT_IN_SET = 12 }; /// For nxm_task_init. static const int NXM_TASK_INIT_VP = 2; //!< initial thread is VP /// Task attribute structure. struct nxm_task_attr { int64_t nxm_callback; //!< nxm_callback unsigned int nxm_version; //!< nxm_version unsigned short nxm_uniq_offset; //!< nxm_uniq_offset unsigned short flags; //!< flags int nxm_quantum; //!< nxm_quantum int pad1; //!< pad1 int64_t pad2; //!< pad2 }; /// Signal set. typedef uint64_t sigset_t; /// Thread state shared between user & kernel. struct ushared_state { sigset_t sigmask; //!< thread signal mask sigset_t sig; //!< thread pending mask // struct nxm_pth_state * Addr pth_id; //!< out-of-line state int flags; //!< shared flags #define US_SIGSTACK 0x1 // thread called sigaltstack #define US_ONSTACK 0x2 // thread is running on altstack #define US_PROFILE 0x4 // thread called profil #define US_SYSCALL 0x8 // thread in syscall #define US_TRAP 0x10 // thread has trapped #define US_YELLOW 0x20 // thread has mellowed yellow #define US_YZONE 0x40 // thread has zoned out #define US_FP_OWNED 0x80 // thread used floating point int cancel_state; //!< thread's cancelation state #define US_CANCEL 0x1 // cancel pending #define US_NOCANCEL 0X2 // synch cancel disabled #define US_SYS_NOCANCEL 0x4 // syscall cancel disabled #define US_ASYNC_NOCANCEL 0x8 // asynch cancel disabled #define US_CANCEL_BITS (US_NOCANCEL|US_SYS_NOCANCEL|US_ASYNC_NOCANCEL) #define US_CANCEL_MASK (US_CANCEL|US_NOCANCEL|US_SYS_NOCANCEL| \ US_ASYNC_NOCANCEL) // These are semi-shared. They are always visible to // the kernel but are never context-switched by the library. int nxm_ssig; //!< scheduler's synchronous signals int reserved1; //!< reserved1 int64_t nxm_active; //!< scheduler active int64_t reserved2; //!< reserved2 }; struct nxm_sched_state { struct ushared_state nxm_u; //!< state own by user thread unsigned int nxm_bits; //!< scheduler state / slot int nxm_quantum; //!< quantum count-down value int nxm_set_quantum; //!< quantum reset value int nxm_sysevent; //!< syscall state // struct nxm_upcall * Addr nxm_uc_ret; //!< stack ptr of null thread // void * Addr nxm_tid; //!< scheduler's thread id int64_t nxm_va; //!< page fault address // struct nxm_pth_state * Addr nxm_pthid; //!< id of null thread uint64_t nxm_bound_pcs_count; //!< bound PCS thread count int64_t pad[2]; //!< pad }; /// nxm_shared. struct nxm_shared { int64_t nxm_callback; //!< address of upcall routine unsigned int nxm_version; //!< version number unsigned short nxm_uniq_offset; //!< correction factor for TEB unsigned short pad1; //!< pad1 int64_t space[2]; //!< future growth struct nxm_sched_state nxm_ss[1]; //!< array of shared areas }; /// nxm_slot_state_t. enum nxm_slot_state_t { NXM_SLOT_AVAIL, NXM_SLOT_BOUND, NXM_SLOT_UNBOUND, NXM_SLOT_EMPTY }; /// nxm_config_info struct nxm_config_info { int nxm_nslots_per_rad; //!< max number of VP slots per RAD int nxm_nrads; //!< max number of RADs // nxm_slot_state_t * Addr nxm_slot_state; //!< per-VP slot state // struct nxm_shared * Addr nxm_rad[1]; //!< per-RAD shared areas }; /// For nxm_thread_create. enum nxm_thread_type { NXM_TYPE_SCS = 0, NXM_TYPE_VP = 1, NXM_TYPE_MANAGER = 2 }; /// Thread attributes. struct nxm_thread_attr { int version; //!< version int type; //!< type int cancel_flags; //!< cancel_flags int priority; //!< priority int policy; //!< policy int signal_type; //!< signal_type // void * Addr pthid; //!< pthid sigset_t sigmask; //!< sigmask /// Initial register values. struct { uint64_t pc; //!< pc uint64_t sp; //!< sp uint64_t a0; //!< a0 } registers; uint64_t pad2[2]; //!< pad2 }; /// Helper function to convert a host stat buffer to a target stat /// buffer. Also copies the target buffer out to the simulated /// memory space. Used by stat(), fstat(), and lstat(). template static void copyOutStatBuf(TranslatingPort *mem, Addr addr, global_stat *host) { using namespace TheISA; TypedBufferArg tgt(addr); tgt->st_dev = htog(host->st_dev); tgt->st_ino = htog(host->st_ino); tgt->st_mode = htog(host->st_mode); tgt->st_nlink = htog(host->st_nlink); tgt->st_uid = htog(host->st_uid); tgt->st_gid = htog(host->st_gid); tgt->st_rdev = htog(host->st_rdev); tgt->st_size = htog(host->st_size); tgt->st_atimeX = htog(host->st_atime); tgt->st_mtimeX = htog(host->st_mtime); tgt->st_ctimeX = htog(host->st_ctime); tgt->st_blksize = htog(host->st_blksize); tgt->st_blocks = htog(host->st_blocks); tgt.copyOut(mem); } /// Helper function to convert a host statfs buffer to a target statfs /// buffer. Also copies the target buffer out to the simulated /// memory space. Used by statfs() and fstatfs(). template static void copyOutStatfsBuf(TranslatingPort *mem, Addr addr, global_statfs *host) { using namespace TheISA; TypedBufferArg tgt(addr); #if defined(__OpenBSD__) || defined(__APPLE__) || defined(__FreeBSD__) tgt->f_type = 0; #else tgt->f_type = htog(host->f_type); #endif tgt->f_bsize = htog(host->f_bsize); tgt->f_blocks = htog(host->f_blocks); tgt->f_bfree = htog(host->f_bfree); tgt->f_bavail = htog(host->f_bavail); tgt->f_files = htog(host->f_files); tgt->f_ffree = htog(host->f_ffree); // Is this as string normally? memcpy(&tgt->f_fsid, &host->f_fsid, sizeof(host->f_fsid)); tgt.copyOut(mem); } class F64 { public: static void copyOutStatBuf(TranslatingPort *mem, Addr addr, global_stat *host) { Tru64::copyOutStatBuf(mem, addr, host); } static void copyOutStatfsBuf(TranslatingPort *mem, Addr addr, global_statfs *host) { Tru64::copyOutStatfsBuf(mem, addr, host); } }; class PreF64 { public: static void copyOutStatBuf(TranslatingPort *mem, Addr addr, global_stat *host) { Tru64::copyOutStatBuf(mem, addr, host); } static void copyOutStatfsBuf(TranslatingPort *mem, Addr addr, global_statfs *host) { Tru64::copyOutStatfsBuf(mem, addr, host); } }; /// Helper function to convert a host stat buffer to an old pre-F64 /// (4.x) target stat buffer. Also copies the target buffer out to /// the simulated memory space. Used by pre_F64_stat(), /// pre_F64_fstat(), and pre_F64_lstat(). static void copyOutPreF64StatBuf(TranslatingPort *mem, Addr addr, struct stat *host) { using namespace TheISA; TypedBufferArg tgt(addr); tgt->st_dev = htog(host->st_dev); tgt->st_ino = htog(host->st_ino); tgt->st_mode = htog(host->st_mode); tgt->st_nlink = htog(host->st_nlink); tgt->st_uid = htog(host->st_uid); tgt->st_gid = htog(host->st_gid); tgt->st_rdev = htog(host->st_rdev); tgt->st_size = htog(host->st_size); tgt->st_atimeX = htog(host->st_atime); tgt->st_mtimeX = htog(host->st_mtime); tgt->st_ctimeX = htog(host->st_ctime); tgt->st_blksize = htog(host->st_blksize); tgt->st_blocks = htog(host->st_blocks); tgt.copyOut(mem); } /// The target system's hostname. static const char *hostname; /// Target getdirentries() handler. static SyscallReturn getdirentriesFunc(SyscallDesc *desc, int callnum, Process *process, ExecContext *xc) { using namespace TheISA; #ifdef __CYGWIN__ panic("getdirent not implemented on cygwin!"); #else int fd = process->sim_fd(xc->getSyscallArg(0)); Addr tgt_buf = xc->getSyscallArg(1); int tgt_nbytes = xc->getSyscallArg(2); Addr tgt_basep = xc->getSyscallArg(3); char * const host_buf = new char[tgt_nbytes]; // just pass basep through uninterpreted. TypedBufferArg basep(tgt_basep); basep.copyIn(xc->getMemPort()); long host_basep = (off_t)htog((int64_t)*basep); int host_result = getdirentries(fd, host_buf, tgt_nbytes, &host_basep); // check for error if (host_result < 0) { delete [] host_buf; return -errno; } // no error: copy results back to target space Addr tgt_buf_ptr = tgt_buf; char *host_buf_ptr = host_buf; char *host_buf_end = host_buf + host_result; while (host_buf_ptr < host_buf_end) { global_dirent *host_dp = (global_dirent *)host_buf_ptr; int namelen = strlen(host_dp->d_name); // Actual size includes padded string rounded up for alignment. // Subtract 256 for dummy char array in Tru64::dirent definition. // Add 1 to namelen for terminating null char. int tgt_bufsize = sizeof(Tru64::dirent) - 256 + roundUp(namelen+1, 8); TypedBufferArg tgt_dp(tgt_buf_ptr, tgt_bufsize); tgt_dp->d_ino = host_dp->d_ino; tgt_dp->d_reclen = tgt_bufsize; tgt_dp->d_namlen = namelen; strcpy(tgt_dp->d_name, host_dp->d_name); tgt_dp.copyOut(xc->getMemPort()); tgt_buf_ptr += tgt_bufsize; host_buf_ptr += host_dp->d_reclen; } delete [] host_buf; *basep = htog((int64_t)host_basep); basep.copyOut(xc->getMemPort()); return tgt_buf_ptr - tgt_buf; #endif } /// Target sigreturn() handler. static SyscallReturn sigreturnFunc(SyscallDesc *desc, int callnum, Process *process, ExecContext *xc) { using namespace TheISA; using TheISA::RegFile; TypedBufferArg sc(xc->getSyscallArg(0)); sc.copyIn(xc->getMemPort()); // Restore state from sigcontext structure. // Note that we'll advance PC <- NPC before the end of the cycle, // so we need to restore the desired PC into NPC. // The current regs->pc will get clobbered. xc->setNextPC(htog(sc->sc_pc)); for (int i = 0; i < 31; ++i) { xc->setIntReg(i, htog(sc->sc_regs[i])); xc->setFloatRegBits(i, htog(sc->sc_fpregs[i])); } xc->setMiscReg(TheISA::Fpcr_DepTag, htog(sc->sc_fpcr)); return 0; } /// Target table() handler. static SyscallReturn tableFunc(SyscallDesc *desc, int callnum, Process *process, ExecContext *xc) { using namespace TheISA; int id = xc->getSyscallArg(0); // table ID int index = xc->getSyscallArg(1); // index into table // arg 2 is buffer pointer; type depends on table ID int nel = xc->getSyscallArg(3); // number of elements int lel = xc->getSyscallArg(4); // expected element size switch (id) { case Tru64::TBL_SYSINFO: { if (index != 0 || nel != 1 || lel != sizeof(Tru64::tbl_sysinfo)) return -EINVAL; TypedBufferArg elp(xc->getSyscallArg(2)); const int clk_hz = one_million; elp->si_user = htog(curTick / (Clock::Frequency / clk_hz)); elp->si_nice = htog(0); elp->si_sys = htog(0); elp->si_idle = htog(0); elp->wait = htog(0); elp->si_hz = htog(clk_hz); elp->si_phz = htog(clk_hz); elp->si_boottime = htog(seconds_since_epoch); // seconds since epoch? elp->si_max_procs = htog(process->numCpus()); elp.copyOut(xc->getMemPort()); return 0; } default: cerr << "table(): id " << id << " unknown." << endl; return -EINVAL; } } // // Mach syscalls -- identified by negated syscall numbers // /// Create a stack region for a thread. static SyscallReturn stack_createFunc(SyscallDesc *desc, int callnum, Process *process, ExecContext *xc) { using namespace TheISA; TypedBufferArg argp(xc->getSyscallArg(0)); argp.copyIn(xc->getMemPort()); // if the user chose an address, just let them have it. Otherwise // pick one for them. if (htog(argp->address) == 0) { argp->address = htog(process->next_thread_stack_base); int stack_size = (htog(argp->rsize) + htog(argp->ysize) + htog(argp->gsize)); process->next_thread_stack_base -= stack_size; argp.copyOut(xc->getMemPort()); } return 0; } /// NXM library version stamp. static const int NXM_LIB_VERSION = 301003; /// This call sets up the interface between the user and kernel /// schedulers by creating a shared-memory region. The shared memory /// region has several structs, some global, some per-RAD, some per-VP. static SyscallReturn nxm_task_initFunc(SyscallDesc *desc, int callnum, Process *process, ExecContext *xc) { using namespace TheISA; TypedBufferArg attrp(xc->getSyscallArg(0)); TypedBufferArg configptr_ptr(xc->getSyscallArg(1)); attrp.copyIn(xc->getMemPort()); if (gtoh(attrp->nxm_version) != NXM_LIB_VERSION) { cerr << "nxm_task_init: thread library version mismatch! " << "got " << attrp->nxm_version << ", expected " << NXM_LIB_VERSION << endl; abort(); } if (gtoh(attrp->flags) != Tru64::NXM_TASK_INIT_VP) { cerr << "nxm_task_init: bad flag value " << attrp->flags << " (expected " << Tru64::NXM_TASK_INIT_VP << ")" << endl; abort(); } const Addr base_addr = 0x12000; // was 0x3f0000000LL; Addr cur_addr = base_addr; // next addresses to use // first comes the config_info struct Addr config_addr = cur_addr; cur_addr += sizeof(Tru64::nxm_config_info); // next comes the per-cpu state vector Addr slot_state_addr = cur_addr; int slot_state_size = process->numCpus() * sizeof(Tru64::nxm_slot_state_t); cur_addr += slot_state_size; // now the per-RAD state struct (we only support one RAD) cur_addr = 0x14000; // bump up addr for alignment Addr rad_state_addr = cur_addr; int rad_state_size = (sizeof(Tru64::nxm_shared) + (process->numCpus()-1) * sizeof(Tru64::nxm_sched_state)); cur_addr += rad_state_size; // now initialize a config_info struct and copy it out to user space TypedBufferArg config(config_addr); config->nxm_nslots_per_rad = htog(process->numCpus()); config->nxm_nrads = htog(1); // only one RAD in our system! config->nxm_slot_state = htog(slot_state_addr); config->nxm_rad[0] = htog(rad_state_addr); config.copyOut(xc->getMemPort()); // initialize the slot_state array and copy it out TypedBufferArg slot_state(slot_state_addr, slot_state_size); for (int i = 0; i < process->numCpus(); ++i) { // CPU 0 is bound to the calling process; all others are available // XXX this code should have an endian conversion, but I don't think // it works anyway slot_state[i] = (i == 0) ? Tru64::NXM_SLOT_BOUND : Tru64::NXM_SLOT_AVAIL; } slot_state.copyOut(xc->getMemPort()); // same for the per-RAD "shared" struct. Note that we need to // allocate extra bytes for the per-VP array which is embedded at // the end. TypedBufferArg rad_state(rad_state_addr, rad_state_size); rad_state->nxm_callback = attrp->nxm_callback; rad_state->nxm_version = attrp->nxm_version; rad_state->nxm_uniq_offset = attrp->nxm_uniq_offset; for (int i = 0; i < process->numCpus(); ++i) { Tru64::nxm_sched_state *ssp = &rad_state->nxm_ss[i]; ssp->nxm_u.sigmask = htog(0); ssp->nxm_u.sig = htog(0); ssp->nxm_u.flags = htog(0); ssp->nxm_u.cancel_state = htog(0); ssp->nxm_u.nxm_ssig = 0; ssp->nxm_bits = htog(0); ssp->nxm_quantum = attrp->nxm_quantum; ssp->nxm_set_quantum = attrp->nxm_quantum; ssp->nxm_sysevent = htog(0); if (i == 0) { uint64_t uniq = xc->readMiscReg(TheISA::Uniq_DepTag); ssp->nxm_u.pth_id = htog(uniq + gtoh(attrp->nxm_uniq_offset)); ssp->nxm_u.nxm_active = htog(uniq | 1); } else { ssp->nxm_u.pth_id = htog(0); ssp->nxm_u.nxm_active = htog(0); } } rad_state.copyOut(xc->getMemPort()); // // copy pointer to shared config area out to user // *configptr_ptr = htog(config_addr); configptr_ptr.copyOut(xc->getMemPort()); // Register this as a valid address range with the process process->nxm_start = base_addr; process->nxm_end = cur_addr; return 0; } /// Initialize execution context. static void init_exec_context(ExecContext *ec, Tru64::nxm_thread_attr *attrp, uint64_t uniq_val) { using namespace TheISA; ec->clearArchRegs(); ec->setIntReg(TheISA::ArgumentReg0, gtoh(attrp->registers.a0)); ec->setIntReg(27/*t12*/, gtoh(attrp->registers.pc)); ec->setIntReg(TheISA::StackPointerReg, gtoh(attrp->registers.sp)); ec->setMiscReg(TheISA::Uniq_DepTag, uniq_val); ec->setPC(gtoh(attrp->registers.pc)); ec->setNextPC(gtoh(attrp->registers.pc) + sizeof(TheISA::MachInst)); ec->activate(); } /// Create thread. static SyscallReturn nxm_thread_createFunc(SyscallDesc *desc, int callnum, Process *process, ExecContext *xc) { using namespace TheISA; TypedBufferArg attrp(xc->getSyscallArg(0)); TypedBufferArg kidp(xc->getSyscallArg(1)); int thread_index = xc->getSyscallArg(2); // get attribute args attrp.copyIn(xc->getMemPort()); if (gtoh(attrp->version) != NXM_LIB_VERSION) { cerr << "nxm_thread_create: thread library version mismatch! " << "got " << attrp->version << ", expected " << NXM_LIB_VERSION << endl; abort(); } if (thread_index < 0 | thread_index > process->numCpus()) { cerr << "nxm_thread_create: bad thread index " << thread_index << endl; abort(); } // On a real machine, the per-RAD shared structure is in // shared memory, so both the user and kernel can get at it. // We don't have that luxury, so we just copy it in and then // back out again. int rad_state_size = (sizeof(Tru64::nxm_shared) + (process->numCpus()-1) * sizeof(Tru64::nxm_sched_state)); TypedBufferArg rad_state(0x14000, rad_state_size); rad_state.copyIn(xc->getMemPort()); uint64_t uniq_val = gtoh(attrp->pthid) - gtoh(rad_state->nxm_uniq_offset); if (gtoh(attrp->type) == Tru64::NXM_TYPE_MANAGER) { // DEC pthreads seems to always create one of these (in // addition to N application threads), but we don't use it, // so don't bother creating it. // This is supposed to be a port number. Make something up. *kidp = htog(99); kidp.copyOut(xc->getMemPort()); return 0; } else if (gtoh(attrp->type) == Tru64::NXM_TYPE_VP) { // A real "virtual processor" kernel thread. Need to fork // this thread on another CPU. Tru64::nxm_sched_state *ssp = &rad_state->nxm_ss[thread_index]; if (gtoh(ssp->nxm_u.nxm_active) != 0) return (int) Tru64::KERN_NOT_RECEIVER; ssp->nxm_u.pth_id = attrp->pthid; ssp->nxm_u.nxm_active = htog(uniq_val | 1); rad_state.copyOut(xc->getMemPort()); Addr slot_state_addr = 0x12000 + sizeof(Tru64::nxm_config_info); int slot_state_size = process->numCpus() * sizeof(Tru64::nxm_slot_state_t); TypedBufferArg slot_state(slot_state_addr, slot_state_size); slot_state.copyIn(xc->getMemPort()); if (slot_state[thread_index] != Tru64::NXM_SLOT_AVAIL) { cerr << "nxm_thread_createFunc: requested VP slot " << thread_index << " not available!" << endl; fatal(""); } // XXX This should have an endian conversion but I think this code // doesn't work anyway slot_state[thread_index] = Tru64::NXM_SLOT_BOUND; slot_state.copyOut(xc->getMemPort()); // Find a free simulator execution context. for (int i = 0; i < process->numCpus(); ++i) { ExecContext *xc = process->execContexts[i]; if (xc->status() == ExecContext::Unallocated) { // inactive context... grab it init_exec_context(xc, attrp, uniq_val); // This is supposed to be a port number, but we'll try // and get away with just sticking the thread index // here. *kidp = htog(thread_index); kidp.copyOut(xc->getMemPort()); return 0; } } // fell out of loop... no available inactive context cerr << "nxm_thread_create: no idle contexts available." << endl; abort(); } else { cerr << "nxm_thread_create: can't handle thread type " << attrp->type << endl; abort(); } return 0; } /// Thread idle call (like yield()). static SyscallReturn nxm_idleFunc(SyscallDesc *desc, int callnum, Process *process, ExecContext *xc) { return 0; } /// Block thread. static SyscallReturn nxm_thread_blockFunc(SyscallDesc *desc, int callnum, Process *process, ExecContext *xc) { uint64_t tid = xc->getSyscallArg(0); uint64_t secs = xc->getSyscallArg(1); uint64_t flags = xc->getSyscallArg(2); uint64_t action = xc->getSyscallArg(3); uint64_t usecs = xc->getSyscallArg(4); cout << xc->getCpuPtr()->name() << ": nxm_thread_block " << tid << " " << secs << " " << flags << " " << action << " " << usecs << endl; return 0; } /// block. static SyscallReturn nxm_blockFunc(SyscallDesc *desc, int callnum, Process *process, ExecContext *xc) { Addr uaddr = xc->getSyscallArg(0); uint64_t val = xc->getSyscallArg(1); uint64_t secs = xc->getSyscallArg(2); uint64_t usecs = xc->getSyscallArg(3); uint64_t flags = xc->getSyscallArg(4); BaseCPU *cpu = xc->getCpuPtr(); cout << cpu->name() << ": nxm_block " << hex << uaddr << dec << " " << val << " " << secs << " " << usecs << " " << flags << endl; return 0; } /// Unblock thread. static SyscallReturn nxm_unblockFunc(SyscallDesc *desc, int callnum, Process *process, ExecContext *xc) { Addr uaddr = xc->getSyscallArg(0); cout << xc->getCpuPtr()->name() << ": nxm_unblock " << hex << uaddr << dec << endl; return 0; } /// Switch thread priority. static SyscallReturn swtch_priFunc(SyscallDesc *desc, int callnum, Process *process, ExecContext *xc) { // Attempts to switch to another runnable thread (if there is // one). Returns false if there are no other threads to run // (i.e., the thread can reasonably spin-wait) or true if there // are other threads. // // Since we assume at most one "kernel" thread per CPU, it's // always safe to return false here. return 0; //false; } /// Activate exec context waiting on a channel. Just activate one /// by default. static int activate_waiting_context(Addr uaddr, Process *process, bool activate_all = false) { int num_activated = 0; list::iterator i = process->waitList.begin(); list::iterator end = process->waitList.end(); while (i != end && (num_activated == 0 || activate_all)) { if (i->waitChan == uaddr) { // found waiting process: make it active ExecContext *newCtx = i->waitingContext; assert(newCtx->status() == ExecContext::Suspended); newCtx->activate(); // get rid of this record i = process->waitList.erase(i); ++num_activated; } else { ++i; } } return num_activated; } /// M5 hacked-up lock acquire. static void m5_lock_mutex(Addr uaddr, Process *process, ExecContext *xc) { using namespace TheISA; TypedBufferArg lockp(uaddr); lockp.copyIn(xc->getMemPort()); if (gtoh(*lockp) == 0) { // lock is free: grab it *lockp = htog(1); lockp.copyOut(xc->getMemPort()); } else { // lock is busy: disable until free process->waitList.push_back(Process::WaitRec(uaddr, xc)); xc->suspend(); } } /// M5 unlock call. static void m5_unlock_mutex(Addr uaddr, Process *process, ExecContext *xc) { TypedBufferArg lockp(uaddr); lockp.copyIn(xc->getMemPort()); assert(*lockp != 0); // Check for a process waiting on the lock. int num_waiting = activate_waiting_context(uaddr, process); // clear lock field if no waiting context is taking over the lock if (num_waiting == 0) { *lockp = 0; lockp.copyOut(xc->getMemPort()); } } /// Lock acquire syscall handler. static SyscallReturn m5_mutex_lockFunc(SyscallDesc *desc, int callnum, Process *process, ExecContext *xc) { Addr uaddr = xc->getSyscallArg(0); m5_lock_mutex(uaddr, process, xc); // Return 0 since we will always return to the user with the lock // acquired. We will just keep the context inactive until that is // true. return 0; } /// Try lock (non-blocking). static SyscallReturn m5_mutex_trylockFunc(SyscallDesc *desc, int callnum, Process *process, ExecContext *xc) { using namespace TheISA; Addr uaddr = xc->getSyscallArg(0); TypedBufferArg lockp(uaddr); lockp.copyIn(xc->getMemPort()); if (gtoh(*lockp) == 0) { // lock is free: grab it *lockp = htog(1); lockp.copyOut(xc->getMemPort()); return 0; } else { return 1; } } /// Unlock syscall handler. static SyscallReturn m5_mutex_unlockFunc(SyscallDesc *desc, int callnum, Process *process, ExecContext *xc) { Addr uaddr = xc->getSyscallArg(0); m5_unlock_mutex(uaddr, process, xc); return 0; } /// Signal ocndition. static SyscallReturn m5_cond_signalFunc(SyscallDesc *desc, int callnum, Process *process, ExecContext *xc) { Addr cond_addr = xc->getSyscallArg(0); // Wake up one process waiting on the condition variable. activate_waiting_context(cond_addr, process); return 0; } /// Wake up all processes waiting on the condition variable. static SyscallReturn m5_cond_broadcastFunc(SyscallDesc *desc, int callnum, Process *process, ExecContext *xc) { Addr cond_addr = xc->getSyscallArg(0); activate_waiting_context(cond_addr, process, true); return 0; } /// Wait on a condition. static SyscallReturn m5_cond_waitFunc(SyscallDesc *desc, int callnum, Process *process, ExecContext *xc) { using namespace TheISA; Addr cond_addr = xc->getSyscallArg(0); Addr lock_addr = xc->getSyscallArg(1); TypedBufferArg condp(cond_addr); TypedBufferArg lockp(lock_addr); // user is supposed to acquire lock before entering lockp.copyIn(xc->getMemPort()); assert(gtoh(*lockp) != 0); m5_unlock_mutex(lock_addr, process, xc); process->waitList.push_back(Process::WaitRec(cond_addr, xc)); xc->suspend(); return 0; } /// Thread exit. static SyscallReturn m5_thread_exitFunc(SyscallDesc *desc, int callnum, Process *process, ExecContext *xc) { assert(xc->status() == ExecContext::Active); xc->deallocate(); return 0; } /// Indirect syscall invocation (call #0). static SyscallReturn indirectSyscallFunc(SyscallDesc *desc, int callnum, Process *process, ExecContext *xc) { int new_callnum = xc->getSyscallArg(0); LiveProcess *lp = dynamic_cast(process); assert(lp); for (int i = 0; i < 5; ++i) xc->setSyscallArg(i, xc->getSyscallArg(i+1)); SyscallDesc *new_desc = lp->getDesc(new_callnum); if (desc == NULL) fatal("Syscall %d out of range", callnum); new_desc->doSyscall(new_callnum, process, xc); return 0; } }; // class Tru64 #endif // FULL_SYSTEM #endif // __TRU64_HH__