1 /* $NetBSD: linux_exec_machdep.c,v 1.14 2008/11/20 09:26:06 ad Exp $ */ 2 3 /*- 4 * Copyright (c) 2005 Emmanuel Dreyfus, all rights reserved 5 * 6 * Redistribution and use in source and binary forms, with or without 7 * modification, are permitted provided that the following conditions 8 * are met: 9 * 1. Redistributions of source code must retain the above copyright 10 * notice, this list of conditions and the following disclaimer. 11 * 2. Redistributions in binary form must reproduce the above copyright 12 * notice, this list of conditions and the following disclaimer in the 13 * documentation and/or other materials provided with the distribution. 14 * 3. All advertising materials mentioning features or use of this software 15 * must display the following acknowledgement: 16 * This product includes software developed by Emmanuel Dreyfus 17 * 4. The name of the author may not be used to endorse or promote 18 * products derived from this software without specific prior written 19 * permission. 20 * 21 * THIS SOFTWARE IS PROVIDED BY THE THE AUTHOR AND CONTRIBUTORS ``AS IS'' 22 * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, 23 * THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR 24 * PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS 25 * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR 26 * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF 27 * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS 28 * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN 29 * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) 30 * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE 31 * POSSIBILITY OF SUCH DAMAGE. 32 */ 33 34 #include <sys/cdefs.h> 35 __KERNEL_RCSID(0, "$NetBSD: linux_exec_machdep.c,v 1.14 2008/11/20 09:26:06 ad Exp $"); 36 37 #ifdef __amd64__ 38 #define ELFSIZE 64 39 #endif 40 41 #include <sys/param.h> 42 #include <sys/systm.h> 43 #include <sys/kernel.h> 44 #include <sys/resource.h> 45 #include <sys/proc.h> 46 #include <sys/conf.h> 47 #include <sys/malloc.h> 48 #include <sys/exec_elf.h> 49 #include <sys/vnode.h> 50 #include <sys/lwp.h> 51 #include <sys/exec.h> 52 #include <sys/stat.h> 53 #include <sys/kauth.h> 54 55 #include <sys/cpu.h> 56 #include <machine/vmparam.h> 57 #include <sys/syscallargs.h> 58 59 #include <uvm/uvm.h> 60 61 #include <compat/linux/common/linux_types.h> 62 #include <compat/linux/common/linux_signal.h> 63 #include <compat/linux/common/linux_machdep.h> 64 #include <compat/linux/common/linux_util.h> 65 #include <compat/linux/common/linux_ioctl.h> 66 #include <compat/linux/common/linux_hdio.h> 67 #include <compat/linux/common/linux_exec.h> 68 #include <compat/linux/common/linux_errno.h> 69 #include <compat/linux/common/linux_prctl.h> 70 #include <compat/linux/common/linux_ipc.h> 71 #include <compat/linux/common/linux_sem.h> 72 #include <compat/linux/linux_syscallargs.h> 73 74 int 75 linux_exec_setup_stack(struct lwp *l, struct exec_package *epp) 76 { 77 u_long max_stack_size; 78 u_long access_linear_min, access_size; 79 u_long noaccess_linear_min, noaccess_size; 80 81 #ifndef USRSTACK32 82 #define USRSTACK32 (0x00000000ffffffffL & ~PGOFSET) 83 #endif 84 85 if (epp->ep_flags & EXEC_32) { 86 epp->ep_minsaddr = USRSTACK32; 87 max_stack_size = MAXSSIZ; 88 if (epp->ep_minsaddr > LINUX_USRSTACK32) 89 epp->ep_minsaddr = LINUX_USRSTACK32; 90 } else { 91 epp->ep_minsaddr = USRSTACK; 92 max_stack_size = MAXSSIZ; 93 if (epp->ep_minsaddr > LINUX_USRSTACK) 94 epp->ep_minsaddr = LINUX_USRSTACK; 95 96 } 97 98 epp->ep_maxsaddr = (u_long)STACK_GROW(epp->ep_minsaddr, 99 max_stack_size); 100 epp->ep_ssize = l->l_proc->p_rlimit[RLIMIT_STACK].rlim_cur; 101 102 /* 103 * set up commands for stack. note that this takes *two*, one to 104 * map the part of the stack which we can access, and one to map 105 * the part which we can't. 106 * 107 * arguably, it could be made into one, but that would require the 108 * addition of another mapping proc, which is unnecessary 109 */ 110 access_size = epp->ep_ssize; 111 access_linear_min = (u_long)STACK_ALLOC(epp->ep_minsaddr, access_size); 112 noaccess_size = max_stack_size - access_size; 113 noaccess_linear_min = (u_long)STACK_ALLOC(STACK_GROW(epp->ep_minsaddr, 114 access_size), noaccess_size); 115 if (noaccess_size > 0) { 116 NEW_VMCMD(&epp->ep_vmcmds, vmcmd_map_zero, noaccess_size, 117 noaccess_linear_min, NULLVP, 0, VM_PROT_NONE); 118 } 119 KASSERT(access_size > 0); 120 NEW_VMCMD(&epp->ep_vmcmds, vmcmd_map_zero, access_size, 121 access_linear_min, NULLVP, 0, VM_PROT_READ | VM_PROT_WRITE); 122 123 return 0; 124 } 125 126 int 127 ELFNAME2(linux,copyargs)(l, pack, arginfo, stackp, argp) 128 struct lwp *l; 129 struct exec_package *pack; 130 struct ps_strings *arginfo; 131 char **stackp; 132 void *argp; 133 { 134 struct linux_extra_stack_data64 *esdp, esd; 135 struct elf_args *ap; 136 struct vattr *vap; 137 Elf_Ehdr *eh; 138 Elf_Phdr *ph; 139 u_long phsize; 140 Elf_Addr phdr = 0; 141 int error; 142 int i; 143 144 if ((error = copyargs(l, pack, arginfo, stackp, argp)) != 0) 145 return error; 146 147 /* 148 * Push extra arguments on the stack needed by dynamically 149 * linked binaries and static binaries as well. 150 */ 151 memset(&esd, 0, sizeof(esd)); 152 esdp = (struct linux_extra_stack_data64 *)(*stackp); 153 ap = (struct elf_args *)pack->ep_emul_arg; 154 vap = pack->ep_vap; 155 eh = (Elf_Ehdr *)pack->ep_hdr; 156 157 /* 158 * We forgot this, so we ned to reload it now. XXX keep track of it? 159 */ 160 if (ap == NULL) { 161 phsize = eh->e_phnum * sizeof(Elf_Phdr); 162 ph = (Elf_Phdr *)malloc(phsize, M_TEMP, M_WAITOK); 163 error = exec_read_from(l, pack->ep_vp, eh->e_phoff, ph, phsize); 164 if (error != 0) { 165 for (i = 0; i < eh->e_phnum; i++) { 166 if (ph[i].p_type == PT_PHDR) { 167 phdr = ph[i].p_vaddr; 168 break; 169 } 170 } 171 } 172 free(ph, M_TEMP); 173 } 174 175 176 /* 177 * The exec_package doesn't have a proc pointer and it's not 178 * exactly trivial to add one since the credentials are 179 * changing. XXX Linux uses curlwp's credentials. 180 * Why can't we use them too? 181 */ 182 183 i = 0; 184 esd.ai[i].a_type = LINUX_AT_HWCAP; 185 esd.ai[i++].a_v = rcr4(); 186 187 esd.ai[i].a_type = AT_PAGESZ; 188 esd.ai[i++].a_v = PAGE_SIZE; 189 190 esd.ai[i].a_type = LINUX_AT_CLKTCK; 191 esd.ai[i++].a_v = hz; 192 193 esd.ai[i].a_type = AT_PHDR; 194 esd.ai[i++].a_v = (ap ? ap->arg_phaddr: phdr); 195 196 esd.ai[i].a_type = AT_PHENT; 197 esd.ai[i++].a_v = (ap ? ap->arg_phentsize : eh->e_phentsize); 198 199 esd.ai[i].a_type = AT_PHNUM; 200 esd.ai[i++].a_v = (ap ? ap->arg_phnum : eh->e_phnum); 201 202 esd.ai[i].a_type = AT_BASE; 203 esd.ai[i++].a_v = (ap ? ap->arg_interp : 0); 204 205 esd.ai[i].a_type = AT_FLAGS; 206 esd.ai[i++].a_v = 0; 207 208 esd.ai[i].a_type = AT_ENTRY; 209 esd.ai[i++].a_v = (ap ? ap->arg_entry : eh->e_entry); 210 211 esd.ai[i].a_type = LINUX_AT_EGID; 212 esd.ai[i++].a_v = ((vap->va_mode & S_ISGID) ? 213 vap->va_gid : kauth_cred_getegid(l->l_cred)); 214 215 esd.ai[i].a_type = LINUX_AT_GID; 216 esd.ai[i++].a_v = kauth_cred_getgid(l->l_cred); 217 218 esd.ai[i].a_type = LINUX_AT_EUID; 219 esd.ai[i++].a_v = ((vap->va_mode & S_ISUID) ? 220 vap->va_uid : kauth_cred_geteuid(l->l_cred)); 221 222 esd.ai[i].a_type = LINUX_AT_UID; 223 esd.ai[i++].a_v = kauth_cred_getuid(l->l_cred); 224 225 esd.ai[i].a_type = LINUX_AT_SECURE; 226 esd.ai[i++].a_v = 0; 227 228 esd.ai[i].a_type = LINUX_AT_PLATFORM; 229 esd.ai[i++].a_v = (Elf_Addr)&esdp->hw_platform[0]; 230 231 esd.ai[i].a_type = AT_NULL; 232 esd.ai[i++].a_v = 0; 233 234 #ifdef DEBUG_LINUX 235 if (i != LINUX_ELF_AUX_ENTRIES) { 236 printf("linux_elf64_copyargs: %d Aux entries\n", i); 237 return EINVAL; 238 } 239 #endif 240 241 strcpy(esd.hw_platform, LINUX_PLATFORM); 242 243 if (ap) { 244 free((char *)ap, M_TEMP); 245 pack->ep_emul_arg = NULL; 246 } 247 248 /* 249 * Copy out the ELF auxiliary table and hw platform name 250 */ 251 if ((error = copyout(&esd, esdp, sizeof(esd))) != 0) 252 return error; 253 *stackp += sizeof(esd); 254 255 return 0; 256 } 257 258 #ifdef LINUX_NPTL 259 int 260 linux_init_thread_area(struct lwp *l, struct lwp *l2) 261 { 262 register_t retval; 263 struct linux_sys_arch_prctl_args uap; 264 struct trapframe *tf = l2->l_md.md_regs; 265 266 SCARG(&uap, code) = LINUX_ARCH_SET_FS; 267 SCARG(&uap, addr) = tf->tf_r8; 268 return linux_sys_arch_prctl(l2, &uap, &retval); 269 } 270 #endif 271