/* $NetBSD: darwin_exec.c,v 1.37 2004/07/21 21:45:34 manu Exp $ */ /*- * Copyright (c) 2002 The NetBSD Foundation, Inc. * All rights reserved. * * This code is derived from software contributed to The NetBSD Foundation * by Emmanuel Dreyfus. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. 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. * 3. All advertising materials mentioning features or use of this software * must display the following acknowledgement: * This product includes software developed by the NetBSD * Foundation, Inc. and its contributors. * 4. Neither the name of The NetBSD Foundation 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 NETBSD FOUNDATION, INC. 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 FOUNDATION 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. */ #include "opt_compat_darwin.h" /* For COMPAT_DARWIN in mach_port.h */ #include __KERNEL_RCSID(0, "$NetBSD: darwin_exec.c,v 1.37 2004/07/21 21:45:34 manu Exp $"); #include "opt_syscall_debug.h" #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include /* Redefined from sys/dev/wscons/wsdisplay.c */ extern const struct cdevsw wsdisplay_cdevsw; static void darwin_e_proc_exec(struct proc *, struct exec_package *); static void darwin_e_proc_fork(struct proc *, struct proc *); static void darwin_e_proc_exit(struct proc *); static void darwin_e_proc_init(struct proc *, struct vmspace *); extern struct sysent darwin_sysent[]; #ifdef SYSCALL_DEBUG extern const char * const darwin_syscallnames[]; #endif #ifndef __HAVE_SYSCALL_INTERN void syscall(void); #else void mach_syscall_intern(struct proc *); #endif const struct emul emul_darwin = { "darwin", "/emul/darwin", #ifndef __HAVE_MINIMAL_EMUL 0, 0, DARWIN_SYS_syscall, DARWIN_SYS_NSYSENT, #endif darwin_sysent, #ifdef SYSCALL_DEBUG darwin_syscallnames, #else NULL, #endif darwin_sendsig, darwin_trapsignal, darwin_tracesig, NULL, NULL, NULL, setregs, darwin_e_proc_exec, darwin_e_proc_fork, darwin_e_proc_exit, mach_e_lwp_fork, mach_e_lwp_exit, #ifdef __HAVE_SYSCALL_INTERN mach_syscall_intern, #else syscall, #endif NULL, }; /* * Copy arguments onto the stack in the normal way, but add some * extra information in case of dynamic binding. */ int exec_darwin_copyargs(p, pack, arginfo, stackp, argp) struct proc *p; struct exec_package *pack; struct ps_strings *arginfo; char **stackp; void *argp; { struct exec_macho_emul_arg *emea; struct exec_macho_object_header *macho_hdr; char **cpp, *dp, *sp, *progname; size_t len; void *nullp = NULL; long argc, envc; int error; /* * Prepare the comm pages */ if ((error = darwin_commpage_map(p)) != 0) return error; /* * Set up the stack */ *stackp = (char *)(((unsigned long)*stackp - 1) & ~0xfUL); emea = (struct exec_macho_emul_arg *)pack->ep_emul_arg; if (emea->dynamic == 1) { macho_hdr = (struct exec_macho_object_header *)emea->macho_hdr; error = copyout(&macho_hdr, *stackp, sizeof(macho_hdr)); if (error != 0) return error; *stackp += sizeof(macho_hdr); } cpp = (char **)*stackp; argc = arginfo->ps_nargvstr; envc = arginfo->ps_nenvstr; if ((error = copyout(&argc, cpp++, sizeof(argc))) != 0) return error; dp = (char *) (cpp + argc + envc + 4); if ((error = copyoutstr(emea->filename, dp, (ARG_MAX < MAXPATHLEN) ? ARG_MAX : MAXPATHLEN, &len)) != 0) return error; progname = dp; dp += len; sp = argp; arginfo->ps_argvstr = cpp; /* remember location of argv for later */ for (; --argc >= 0; sp += len, dp += len) if ((error = copyout(&dp, cpp++, sizeof(dp))) != 0 || (error = copyoutstr(sp, dp, ARG_MAX, &len)) != 0) return error; if ((error = copyout(&nullp, cpp++, sizeof(nullp))) != 0) return error; arginfo->ps_envstr = cpp; /* remember location of envp for later */ for (; --envc >= 0; sp += len, dp += len) if ((error = copyout(&dp, cpp++, sizeof(dp))) != 0 || (error = copyoutstr(sp, dp, ARG_MAX, &len)) != 0) return error; if ((error = copyout(&nullp, cpp++, sizeof(nullp))) != 0) return error; if ((error = copyout(&progname, cpp++, sizeof(progname))) != 0) return error; if ((error = copyout(&nullp, cpp++, sizeof(nullp))) != 0) return error; *stackp = (char *)cpp; /* We don't need this anymore */ free(pack->ep_emul_arg, M_EXEC); pack->ep_emul_arg = NULL; return 0; } int exec_darwin_probe(path) char **path; { *path = (char *)emul_darwin.e_path; return 0; } static void darwin_e_proc_exec(p, epp) struct proc *p; struct exec_package *epp; { struct darwin_emuldata *ded; darwin_e_proc_init(p, p->p_vmspace); /* Setup the mach_emuldata part of darwin_emuldata */ mach_e_proc_exec(p, epp); ded = (struct darwin_emuldata *)p->p_emuldata; if (p->p_pid == darwin_init_pid) ded->ded_fakepid = 1; #ifdef DEBUG_DARWIN printf("pid %d exec'd: fakepid = %d\n", p->p_pid, ded->ded_fakepid); #endif return; } static void darwin_e_proc_fork(p, parent) struct proc *p; struct proc *parent; { struct darwin_emuldata *ded1; struct darwin_emuldata *ded2; char *ed1, *ed2; size_t len; p->p_emuldata = NULL; /* Use parent's vmspace because our vmspace may not be setup yet */ darwin_e_proc_init(p, parent->p_vmspace); /* * Setup the mach_emuldata part of darwin_emuldata * The null third argument asks to not re-allocate * p->p_emuldata again. */ mach_e_proc_fork1(p, parent, 0); ded1 = p->p_emuldata; ded2 = parent->p_emuldata; ed1 = (char *)ded1 + sizeof(struct mach_emuldata);; ed2 = (char *)ded2 + sizeof(struct mach_emuldata);; len = sizeof(struct darwin_emuldata) - sizeof(struct mach_emuldata); (void)memcpy(ed1, ed2, len); if ((ded2->ded_fakepid == 1) && (darwin_init_pid != 0)) { darwin_init_pid = 0; ded1->ded_fakepid = 2; } else { ded1->ded_fakepid = 0; } #ifdef DEBUG_DARWIN printf("pid %d fork'd: fakepid = %d\n", p->p_pid, ded1->ded_fakepid); #endif return; } static void darwin_e_proc_init(p, vmspace) struct proc *p; struct vmspace *vmspace; { struct darwin_emuldata *ded; if (!p->p_emuldata) { p->p_emuldata = malloc(sizeof(struct darwin_emuldata), M_EMULDATA, M_WAITOK | M_ZERO); } ded = (struct darwin_emuldata *)p->p_emuldata; ded->ded_fakepid = 0; ded->ded_wsdev = NODEV; ded->ded_vramoffset = NULL; /* Initalize the mach_emuldata part of darwin_emuldata */ mach_e_proc_init(p, vmspace); return; } static void darwin_e_proc_exit(p) struct proc *p; { struct darwin_emuldata *ded; int error, mode; struct wsdisplay_cmap cmap; u_char *red; u_char *green; u_char *blue; u_char kred[256]; u_char kgreen[256]; u_char kblue[256]; caddr_t sg = stackgap_init(p, 0); ded = p->p_emuldata; /* * mach_init is setting the bootstrap port for other processes. * If mach_init dies, we want to restore the original bootstrap * port. */ if (ded->ded_fakepid == 2) mach_bootstrap_port = mach_saved_bootstrap_port; /* * Terminate the iohidsystem kernel thread. * We need to post a fake event in case * the thread is sleeping for an event. */ if (ded->ded_hidsystem_finished != NULL) { *ded->ded_hidsystem_finished = 1; darwin_iohidsystem_postfake(p); wakeup(ded->ded_hidsystem_finished); } /* * Restore text mode and black and white colormap */ if (ded->ded_wsdev != NODEV) { mode = WSDISPLAYIO_MODE_EMUL; error = (*wsdisplay_cdevsw.d_ioctl)(ded->ded_wsdev, WSDISPLAYIO_SMODE, (caddr_t)&mode, 0, p); #ifdef DEBUG_DARWIN if (error != 0) printf("Unable to switch back to text mode\n"); #endif red = stackgap_alloc(p, &sg, 256); green = stackgap_alloc(p, &sg, 256); blue = stackgap_alloc(p, &sg, 256); (void)memset(kred, 255, 256); (void)memset(kgreen, 255, 256); (void)memset(kblue, 255, 256); kred[0] = 0; kgreen[0] = 0; kblue[0] = 0; cmap.index = 0; cmap.count = 256; cmap.red = red; cmap.green = green; cmap.blue = blue; if (((error = copyout(kred, red, 256)) != 0) || ((error = copyout(kgreen, green, 256)) != 0) || ((error = copyout(kblue, blue, 256)) != 0)) error = (*wsdisplay_cdevsw.d_ioctl)(ded->ded_wsdev, WSDISPLAYIO_PUTCMAP, (caddr_t)&cmap, 0, p); #ifdef DEBUG_DARWIN if (error != 0) printf("Cannot revert colormap (error %d)\n", error); #endif } /* * Cleanup mach_emuldata part of darwin_emuldata * It will also free p->p_emuldata. */ mach_e_proc_exit(p); return; } int darwin_exec_setup_stack(p, epp) struct proc *p; struct exec_package *epp; { u_long max_stack_size; u_long access_linear_min, access_size; u_long noaccess_linear_min, noaccess_size; if (epp->ep_flags & EXEC_32) { epp->ep_minsaddr = DARWIN_USRSTACK32; max_stack_size = MAXSSIZ; } else { epp->ep_minsaddr = DARWIN_USRSTACK; max_stack_size = MAXSSIZ; } epp->ep_maxsaddr = (u_long)STACK_GROW(epp->ep_minsaddr, max_stack_size); epp->ep_ssize = p->p_rlimit[RLIMIT_STACK].rlim_cur; /* * set up commands for stack. note that this takes *two*, one to * map the part of the stack which we can access, and one to map * the part which we can't. * * arguably, it could be made into one, but that would require the * addition of another mapping proc, which is unnecessary */ access_size = epp->ep_ssize; access_linear_min = (u_long)STACK_ALLOC(epp->ep_minsaddr, access_size); noaccess_size = max_stack_size - access_size; noaccess_linear_min = (u_long)STACK_ALLOC(STACK_GROW(epp->ep_minsaddr, access_size), noaccess_size); if (noaccess_size > 0) { NEW_VMCMD(&epp->ep_vmcmds, vmcmd_map_zero, noaccess_size, noaccess_linear_min, NULL, 0, VM_PROT_NONE); } KASSERT(access_size > 0); NEW_VMCMD(&epp->ep_vmcmds, vmcmd_map_zero, access_size, access_linear_min, NULL, 0, VM_PROT_READ | VM_PROT_WRITE); return 0; }