d5ed80d9c6
address 0x200000 (disasembling usinit shows that this address is hardcoded in libc). It uses it for locks and semaphres. We therefore allocate this page of memory, to prevent IRIX process from faulting when thay call usinit(3).
314 lines
7.6 KiB
C
314 lines
7.6 KiB
C
/* $NetBSD: irix_exec.c,v 1.14 2002/04/20 16:19:22 manu Exp $ */
|
|
|
|
/*-
|
|
* Copyright (c) 2001-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 <sys/cdefs.h>
|
|
__KERNEL_RCSID(0, "$NetBSD: irix_exec.c,v 1.14 2002/04/20 16:19:22 manu Exp $");
|
|
|
|
#ifndef ELFSIZE
|
|
#define ELFSIZE 32 /* XXX should die */
|
|
#endif
|
|
|
|
#include <sys/param.h>
|
|
#include <sys/systm.h>
|
|
#include <sys/proc.h>
|
|
#include <sys/exec.h>
|
|
#include <sys/exec_elf.h>
|
|
#include <sys/malloc.h>
|
|
|
|
#include <uvm/uvm_extern.h>
|
|
|
|
#include <machine/regnum.h>
|
|
|
|
#include <compat/common/compat_util.h>
|
|
|
|
#include <compat/irix/irix_syscall.h>
|
|
#include <compat/irix/irix_types.h>
|
|
#include <compat/irix/irix_exec.h>
|
|
#include <compat/irix/irix_signal.h>
|
|
#include <compat/irix/irix_errno.h>
|
|
|
|
static void setregs_n32 __P((struct proc *, struct exec_package *, u_long));
|
|
static void irix_e_proc_exec __P((struct proc *, struct exec_package *));
|
|
static void irix_e_proc_fork __P((struct proc *, struct proc *));
|
|
static void irix_e_proc_exit __P((struct proc *));
|
|
static void irix_e_proc_init __P((struct proc *, struct vmspace *));
|
|
|
|
extern struct sysent irix_sysent[];
|
|
extern const char * const irix_syscallnames[];
|
|
|
|
#ifndef __HAVE_SYSCALL_INTERN
|
|
void irix_syscall __P((void));
|
|
#else
|
|
void irix_syscall_intern __P((struct proc *));
|
|
#endif
|
|
|
|
const struct emul emul_irix_o32 = {
|
|
"irix o32",
|
|
"/emul/irix",
|
|
#ifndef __HAVE_MINIMAL_EMUL
|
|
0,
|
|
native_to_irix_errno,
|
|
IRIX_SYS_syscall,
|
|
IRIX_SYS_MAXSYSCALL,
|
|
#endif
|
|
irix_sysent,
|
|
#ifdef SYSCALL_DEBUG
|
|
irix_syscallnames,
|
|
#else
|
|
NULL,
|
|
#endif
|
|
irix_sendsig,
|
|
trapsignal,
|
|
NULL,
|
|
NULL,
|
|
setregs,
|
|
irix_e_proc_exec,
|
|
irix_e_proc_fork,
|
|
irix_e_proc_exit,
|
|
#ifdef __HAVE_SYSCALL_INTERN
|
|
irix_syscall_intern,
|
|
#else
|
|
irix_syscall,
|
|
#endif
|
|
};
|
|
|
|
const struct emul emul_irix_n32 = {
|
|
"irix n32",
|
|
"/emul/irix",
|
|
#ifndef __HAVE_MINIMAL_EMUL
|
|
0,
|
|
native_to_irix_errno,
|
|
IRIX_SYS_syscall,
|
|
IRIX_SYS_MAXSYSCALL,
|
|
#endif
|
|
irix_sysent,
|
|
#ifdef SYSCALL_DEBUG
|
|
irix_syscallnames,
|
|
#else
|
|
NULL,
|
|
#endif
|
|
irix_sendsig,
|
|
trapsignal,
|
|
NULL,
|
|
NULL,
|
|
setregs_n32,
|
|
irix_e_proc_exec,
|
|
irix_e_proc_fork,
|
|
irix_e_proc_exit,
|
|
#ifdef __HAVE_SYSCALL_INTERN
|
|
irix_syscall_intern,
|
|
#else
|
|
irix_syscall,
|
|
#endif
|
|
};
|
|
|
|
/*
|
|
* IRIX o32 ABI probe function
|
|
*/
|
|
int
|
|
ELFNAME2(irix,probe_o32)(p, epp, eh, itp, pos)
|
|
struct proc *p;
|
|
struct exec_package *epp;
|
|
void *eh;
|
|
char *itp;
|
|
vaddr_t *pos;
|
|
{
|
|
const char *bp;
|
|
int error;
|
|
size_t len;
|
|
|
|
#ifdef DEBUG_IRIX
|
|
printf("irix_probe_o32()\n");
|
|
#endif
|
|
if ((((Elf_Ehdr *)epp->ep_hdr)->e_flags & IRIX_EF_IRIX_ABI_MASK) !=
|
|
IRIX_EF_IRIX_ABIO32)
|
|
return error;
|
|
|
|
if (itp[0]) {
|
|
/* o32 binaries use /lib/libc.so.1 */
|
|
if (strncmp(itp, "/lib/libc.so", 12) &&
|
|
strncmp(itp, "/usr/lib/libc.so", 16))
|
|
return ENOEXEC;
|
|
if ((error = emul_find(p, NULL, epp->ep_esch->es_emul->e_path,
|
|
itp, &bp, 0)))
|
|
return error;
|
|
if ((error = copystr(bp, itp, MAXPATHLEN, &len)))
|
|
return error;
|
|
free((void *)bp, M_TEMP);
|
|
}
|
|
*pos = ELF_NO_ADDR;
|
|
#ifdef DEBUG_IRIX
|
|
printf("irix_probe_o32: returning 0\n");
|
|
printf("epp->ep_vm_minaddr = 0x%lx\n", epp->ep_vm_minaddr);
|
|
#endif
|
|
epp->ep_vm_minaddr = epp->ep_vm_minaddr & ~0xfUL;
|
|
return 0;
|
|
}
|
|
|
|
/*
|
|
* IRIX n32 ABI probe function
|
|
*/
|
|
int
|
|
ELFNAME2(irix,probe_n32)(p, epp, eh, itp, pos)
|
|
struct proc *p;
|
|
struct exec_package *epp;
|
|
void *eh;
|
|
char *itp;
|
|
vaddr_t *pos;
|
|
{
|
|
const char *bp;
|
|
int error;
|
|
size_t len;
|
|
|
|
#ifdef DEBUG_IRIX
|
|
printf("irix_probe_n32()\n");
|
|
#endif
|
|
if ((((Elf_Ehdr *)epp->ep_hdr)->e_flags & IRIX_EF_IRIX_ABI_MASK) !=
|
|
IRIX_EF_IRIX_ABIN32)
|
|
return error;
|
|
|
|
if (itp[0]) {
|
|
/* n32 binaries use /lib32/libc.so.1 */
|
|
if (strncmp(itp, "/lib32/libc.so", 14) &&
|
|
strncmp(itp, "/usr/lib32/libc.so", 18))
|
|
return ENOEXEC;
|
|
if ((error = emul_find(p, NULL, epp->ep_esch->es_emul->e_path,
|
|
itp, &bp, 0)))
|
|
return error;
|
|
if ((error = copystr(bp, itp, MAXPATHLEN, &len)))
|
|
return error;
|
|
free((void *)bp, M_TEMP);
|
|
}
|
|
*pos = ELF_NO_ADDR;
|
|
#ifdef DEBUG_IRIX
|
|
printf("irix_probe_n32: returning 0\n");
|
|
printf("epp->ep_vm_minaddr = 0x%lx\n", epp->ep_vm_minaddr);
|
|
#endif
|
|
epp->ep_vm_minaddr = epp->ep_vm_minaddr & ~0xfUL;
|
|
return 0;
|
|
}
|
|
|
|
/*
|
|
* set registers on exec for N32 applications
|
|
*/
|
|
void
|
|
setregs_n32(p, pack, stack)
|
|
struct proc *p;
|
|
struct exec_package *pack;
|
|
u_long stack;
|
|
{
|
|
struct frame *f = (struct frame *)p->p_md.md_regs;
|
|
|
|
/* Use regular setregs */
|
|
setregs(p, pack, stack);
|
|
|
|
/* Enable 64 bit instructions (eg: sd) */
|
|
f->f_regs[SR] |= MIPS3_SR_UX;
|
|
|
|
return;
|
|
}
|
|
|
|
/*
|
|
* per-process emuldata allocation
|
|
*/
|
|
static void
|
|
irix_e_proc_init(p, vmspace)
|
|
struct proc *p;
|
|
struct vmspace *vmspace;
|
|
{
|
|
if (!p->p_emuldata)
|
|
MALLOC(p->p_emuldata, void *, sizeof(struct irix_emuldata),
|
|
M_EMULDATA, M_WAITOK | M_ZERO);
|
|
}
|
|
|
|
/*
|
|
* exec() hook used to allocate per process structures
|
|
*/
|
|
static void
|
|
irix_e_proc_exec(p, epp)
|
|
struct proc *p;
|
|
struct exec_package *epp;
|
|
{
|
|
int error;
|
|
struct exec_vmcmd evc;
|
|
|
|
irix_e_proc_init(p, p->p_vmspace);
|
|
|
|
/*
|
|
* On IRIX, usinit(3) expects the kernel to prepare one page of
|
|
* memory mapped at address 0x200000. It is used for shared
|
|
* semaphores and locks.
|
|
*/
|
|
bzero(&evc, sizeof(evc));
|
|
evc.ev_addr = IRIX_SH_ARENA_ADDR;
|
|
evc.ev_len = IRIX_SH_ARENA_SZ;
|
|
evc.ev_prot = UVM_PROT_RW;
|
|
evc.ev_proc = *vmcmd_map_zero;
|
|
|
|
error = (*evc.ev_proc)(p, &evc);
|
|
#ifdef DEBUG_IRIX
|
|
printf("irix_e_proc_init(): uvm_map() returned %d\n", error);
|
|
if (error != 0)
|
|
printf("irix_e_proc_init(): IRIX_SHARED_ARENA map failed ");
|
|
#endif
|
|
}
|
|
|
|
/*
|
|
* exit() hook used to free per process data structures
|
|
*/
|
|
static void
|
|
irix_e_proc_exit(p)
|
|
struct proc *p;
|
|
{
|
|
FREE(p->p_emuldata, M_EMULDATA);
|
|
p->p_emuldata = NULL;
|
|
}
|
|
|
|
/*
|
|
* fork() hook used to allocate per process structures
|
|
*/
|
|
static void
|
|
irix_e_proc_fork(p, parent)
|
|
struct proc *p, *parent;
|
|
{
|
|
p->p_emuldata = NULL;
|
|
|
|
/* Use parent's vmspace beacause our vmspace may not be setup yet) */
|
|
irix_e_proc_init(p, parent->p_vmspace);
|
|
}
|