NetBSD/sys/compat/irix/irix_syssgi.c

364 lines
9.2 KiB
C
Raw Normal View History

2001-12-27 12:31:09 +03:00
/* $NetBSD: irix_syssgi.c,v 1.11 2001/12/27 09:31:09 manu Exp $ */
/*-
* Copyright (c) 2001 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>
2001-12-27 12:31:09 +03:00
__KERNEL_RCSID(0, "$NetBSD: irix_syssgi.c,v 1.11 2001/12/27 09:31:09 manu Exp $");
#include "opt_ddb.h"
#ifndef ELFSIZE
#define ELFSIZE 32
#endif
/* round up and down to page boundaries. Borrowed from sys/kern/exec_elf32.c */
#define ELF_ROUND(a, b) (((a) + (b) - 1) & ~((b) - 1))
#define ELF_TRUNC(a, b) ((a) & ~((b) - 1))
#include <sys/types.h>
#include <sys/param.h>
#include <sys/kernel.h>
#include <sys/malloc.h>
#include <sys/systm.h>
#include <sys/filedesc.h>
#include <sys/buf.h>
#include <sys/vnode.h>
#include <sys/file.h>
2001-12-08 14:17:37 +03:00
#include <sys/sysctl.h>
#include <sys/exec.h>
#include <sys/exec_elf.h>
#include <uvm/uvm_extern.h>
#include <compat/svr4/svr4_types.h>
#include <compat/irix/irix_types.h>
#include <compat/irix/irix_signal.h>
#include <compat/irix/irix_syscall.h>
#include <compat/irix/irix_syscallargs.h>
#include <compat/irix/irix_syssgi.h>
/* In sys/kern/exec_elf32.c */
void ELFNAME(load_psection)(struct exec_vmcmd_set *, struct vnode *,
const Elf_Phdr *, Elf_Addr *, u_long *, int *, int);
static int irix_syssgi_mapelf __P((int, Elf_Phdr *, int,
struct proc *, register_t *));
2001-12-08 14:17:37 +03:00
static int irix_syssgi_sysconf __P((int name, struct proc *, register_t *));
int
irix_sys_syssgi(p, v, retval)
struct proc *p;
void *v;
register_t *retval;
{
struct irix_sys_syssgi_args /* {
syscallarg(int) request;
syscallarg(void *) arg1;
syscallarg(void *) arg2;
syscallarg(void *) arg3;
syscallarg(void *) arg4;
syscallarg(void *) arg5;
} */ *uap = v;
int request = SCARG(uap, request);
void *arg1, *arg2, *arg3;
#ifdef DEBUG_IRIX
2001-12-02 01:19:38 +03:00
printf("irix_sys_syssgi(): request = %d\n", request);
#endif
switch(request) {
case IRIX_SGI_SYSID: /* Get HostID */
*retval = (register_t)hostid;
break;
2001-12-27 12:31:09 +03:00
case IRIX_SGI_GETPGID: { /* Get parent process GID */
struct proc *tp;
arg1 = SCARG(uap, arg1); /* Process group GID */
if (arg1 == 0)
tp = p;
else
tp = pfind((pid_t)arg1);
if (tp == NULL || tp->p_pgrp == NULL)
return 0;
*retval = (register_t)tp->p_pgid;
return 0;
}
case IRIX_SGI_RDNAME: { /* Read Processes' name */
struct proc *tp;
arg1 = SCARG(uap, arg1); /* PID of the process */
2001-12-27 12:31:09 +03:00
arg2 = SCARG(uap, arg2); /* Address of user buffer */
arg3 = SCARG(uap, arg3); /* Length of user buffer */
if (!uvm_useracc((caddr_t)arg2, (size_t)arg2, B_WRITE))
return EACCES;
tp = pfind((pid_t)arg1);
if (tp == NULL || \
tp->p_psstr == NULL || \
tp->p_psstr->ps_argvstr == NULL || \
tp->p_psstr->ps_argvstr[0] == NULL)
return 0;
*retval = (register_t)copyout(tp->p_psstr->ps_argvstr[0],
(void *)arg2, (size_t)arg3);
break;
}
case IRIX_SGI_TUNE: /* Tune system variables */
case IRIX_SGI_IDBG: /* Kernel debugging */
case IRIX_SGI_INVENT: /* Get system inventory */
case IRIX_SGI_SETLED: /* Turn on/off LEDs */
case IRIX_SGI_SETNVRAM: /* Sets a NVRAM variable value */
case IRIX_SGI_GETNVRAM: /* Gets a NVRAM variable value */
return EINVAL;
break;
case IRIX_SGI_ELFMAP: /* Maps an ELF image */
arg1 = SCARG(uap, arg1); /* file descriptor */
arg2 = SCARG(uap, arg2); /* ptr to ELF program header array */
arg3 = SCARG(uap, arg3); /* array's length */
return irix_syssgi_mapelf((int)arg1, (Elf_Phdr *)arg2,
(int)arg3, p, retval);
break;
case IRIX_SGI_USE_FP_BCOPY: /* bcopy and bzero can use FPU or not */
/*
* Our kernel does not use FPU, hence we do nothing.
*/
break;
case IRIX_SGI_TOSSTSAVE: /* Kill saved pregions */
/*
* Our kernel does not seem to save such "pregions",
* therefore we do not have to do anything.
*/
break;
2001-12-08 14:17:37 +03:00
case IRIX_SGI_SYSCONF: /* POSIX sysconf */
arg1 = SCARG(uap, arg1); /* system variable name */
return irix_syssgi_sysconf((int)arg1, p, retval);
break;
case IRIX_SGI_RXEV_GET: /* Trusted IRIX call */
/* Undocumented (?) and unimplemented */
return EINVAL;
break;
default:
printf("Warning: call to unimplemented syssgi() command %d\n",
request);
return EINVAL;
break;
}
return 0;
}
static int
irix_syssgi_mapelf(fd, ph, count, p, retval)
int fd;
Elf_Phdr *ph;
int count;
struct proc *p;
register_t *retval;
{
Elf_Phdr *kph;
Elf_Phdr *pht;
int error = 0;
int i,j;
int prot;
int flags;
u_long size;
Elf_Addr uaddr;
struct file *fp;
struct filedesc *fdp;
struct exec_vmcmd_set vcset;
struct exec_vmcmd *base_vcp = NULL;
struct vnode *vp;
vcset.evs_cnt = 0;
vcset.evs_used = 0;
/* Check that the program header array is readable by the process */
if (!uvm_useracc((caddr_t)ph, sizeof(Elf_Phdr) * count, B_READ))
return EACCES;
kph = (Elf_Phdr *)malloc(sizeof(Elf_Phdr) * count,
M_TEMP, M_WAITOK);
error = copyin(ph, kph, sizeof(Elf_Phdr) * count);
if (error)
goto bad;
/* Check that each ELF sections is loadable */
pht = kph;
for (i = 0; i < count; i++) {
if (pht->p_type != PT_LOAD) {
error = ENOEXEC;
goto bad;
}
pht++;
}
/* Find the file's vnode */
fdp = p->p_fd;
fp = fd_getfile(fdp, fd);
if (fp == NULL) {
error = EBADF;
goto bad;
}
FILE_USE(fp);
vp = (struct vnode *)fp->f_data;
pht = kph;
for (i = 0; i < count; i++) {
uaddr = ELFDEFNNAME(NO_ADDR);
size = 0;
prot = 0;
flags = VMCMD_BASE;
ELFNAME(load_psection)(&vcset, vp, pht, &uaddr,
&size, &prot, flags);
pht++;
}
/*
* Run the vmcmds
*/
for (j = 0; j < vcset.evs_used && !error; j++) {
struct exec_vmcmd *vcp;
vcp = &vcset.evs_cmds[j];
if (vcp->ev_flags & VMCMD_RELATIVE) {
if (base_vcp == NULL)
panic("irix_syssgi_mapelf: bad vmcmd base\n");
vcp->ev_addr += base_vcp->ev_addr;
}
#ifdef DEBUG_IRIX
printf("irix_syssgi_mapelf(): mapping j = %d\n", j);
printf("uaddr = 0x%08lx, size = 0x%08lx, prot = 0x%08x ",
(unsigned long)uaddr, size, prot);
#endif
error = (*vcp->ev_proc)(p, vcp);
if (vcp->ev_flags & VMCMD_BASE)
base_vcp = vcp;
}
FILE_UNUSE(fp, p);
*retval = (register_t)kph->p_vaddr;
bad:
free(kph, M_TEMP);
return error;
}
2001-12-08 14:17:37 +03:00
static int
irix_syssgi_sysconf(name, p, retval)
int name;
struct proc *p;
register_t *retval;
{
int error = 0;
int mib[2], value;
int len = sizeof(value);
switch (name) {
2001-12-08 22:29:03 +03:00
case IRIX_SC_ARG_MAX:
mib[0] = CTL_KERN;
mib[1] = KERN_ARGMAX;
break;
case IRIX_SC_CHILD_MAX:
mib[0] = CTL_KERN;
mib[1] = KERN_MAXPROC;
break;
2001-12-08 14:17:37 +03:00
case IRIX_SC_CLK_TCK:
*retval = hz;
return 0;
break;
2001-12-08 22:29:03 +03:00
case IRIX_SC_NGROUPS_MAX:
mib[0] = CTL_KERN;
mib[1] = KERN_NGROUPS;
break;
case IRIX_SC_OPEN_MAX:
mib[0] = CTL_KERN;
mib[1] = KERN_MAXFILES;
break;
case IRIX_SC_JOB_CONTROL:
*retval = 1;
return 0;
break;
case IRIX_SC_SAVED_IDS:
*retval = 1;
return 0;
break;
/* Trusted IRIX capabilities are unsupported */
case IRIX_SC_ACL: /* ACcess Lists */
case IRIX_SC_AUDIT: /* Audit */
case IRIX_SC_INF: /* Information labels */
case IRIX_SC_MAC: /* Mandatory Access Control */
case IRIX_SC_CAP: /* Capabilities */
*retval = 0;
return 0;
break;
2001-12-08 14:17:37 +03:00
case IRIX_SC_PAGESIZE:
mib[0] = CTL_HW;
mib[1] = HW_PAGESIZE;
break;
2001-12-08 22:29:03 +03:00
case IRIX_SC_PASS_MAX:
case IRIX_SC_VERSION:
2001-12-08 14:17:37 +03:00
default:
printf("Warning: syssgi(SYSCONF) unsupported variable %d\n",
name);
return EINVAL;
break;
}
error = kern_sysctl(mib, 2, &value, &len, NULL, 0, p);
if (error == 0)
*retval = (register_t)value;
return error;
}