455 lines
13 KiB
C
455 lines
13 KiB
C
/* $NetBSD: setemul.c,v 1.26 2008/04/28 20:24:13 martin Exp $ */
|
|
|
|
/*-
|
|
* Copyright (c) 2000 The NetBSD Foundation, Inc.
|
|
* All rights reserved.
|
|
*
|
|
* 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.
|
|
*
|
|
* 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.
|
|
*/
|
|
|
|
/*
|
|
* Copyright (c) 1988, 1993
|
|
* The Regents of the University of California. All rights reserved.
|
|
* (c) UNIX System Laboratories, Inc.
|
|
* All or some portions of this file are derived from material licensed
|
|
* to the University of California by American Telephone and Telegraph
|
|
* Co. or Unix System Laboratories, Inc. and are reproduced herein with
|
|
* the permission of UNIX System Laboratories, Inc.
|
|
*
|
|
* 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. Neither the name of the University 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 REGENTS 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 REGENTS 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>
|
|
#ifndef lint
|
|
__RCSID("$NetBSD: setemul.c,v 1.26 2008/04/28 20:24:13 martin Exp $");
|
|
#endif /* not lint */
|
|
|
|
#include <sys/param.h>
|
|
#include <sys/errno.h>
|
|
#include <sys/time.h>
|
|
#include <sys/queue.h>
|
|
|
|
#include <err.h>
|
|
#include <stdio.h>
|
|
#include <stdlib.h>
|
|
#include <string.h>
|
|
#include <unistd.h>
|
|
#include <vis.h>
|
|
|
|
#include "setemul.h"
|
|
|
|
#include <sys/syscall.h>
|
|
|
|
#include "../../sys/compat/netbsd32/netbsd32_syscall.h"
|
|
#include "../../sys/compat/freebsd/freebsd_syscall.h"
|
|
#include "../../sys/compat/ibcs2/ibcs2_syscall.h"
|
|
#include "../../sys/compat/irix/irix_syscall.h"
|
|
#include "../../sys/compat/linux/linux_syscall.h"
|
|
#include "../../sys/compat/linux32/linux32_syscall.h"
|
|
#include "../../sys/compat/mach/mach_syscall.h"
|
|
#include "../../sys/compat/darwin/darwin_syscall.h"
|
|
#include "../../sys/compat/mach/arch/powerpc/ppccalls/mach_ppccalls_syscall.h"
|
|
#include "../../sys/compat/mach/arch/powerpc/fasttraps/mach_fasttraps_syscall.h"
|
|
#include "../../sys/compat/osf1/osf1_syscall.h"
|
|
#include "../../sys/compat/sunos32/sunos32_syscall.h"
|
|
#include "../../sys/compat/sunos/sunos_syscall.h"
|
|
#include "../../sys/compat/svr4/svr4_syscall.h"
|
|
#include "../../sys/compat/svr4_32/svr4_32_syscall.h"
|
|
#include "../../sys/compat/ultrix/ultrix_syscall.h"
|
|
#ifdef __m68k__
|
|
#include "../../sys/compat/aoutm68k/aoutm68k_syscall.h"
|
|
#endif
|
|
|
|
#define KTRACE
|
|
#include "../../sys/kern/syscalls.c"
|
|
|
|
#include "../../sys/compat/netbsd32/netbsd32_syscalls.c"
|
|
#include "../../sys/compat/freebsd/freebsd_syscalls.c"
|
|
#include "../../sys/compat/ibcs2/ibcs2_syscalls.c"
|
|
#include "../../sys/compat/irix/irix_syscalls.c"
|
|
#include "../../sys/compat/linux/linux_syscalls.c"
|
|
#include "../../sys/compat/linux32/linux32_syscalls.c"
|
|
#include "../../sys/compat/darwin/darwin_syscalls.c"
|
|
#include "../../sys/compat/mach/mach_syscalls.c"
|
|
#include "../../sys/compat/mach/arch/powerpc/ppccalls/mach_ppccalls_syscalls.c"
|
|
#include "../../sys/compat/mach/arch/powerpc/fasttraps/mach_fasttraps_syscalls.c"
|
|
#include "../../sys/compat/osf1/osf1_syscalls.c"
|
|
#include "../../sys/compat/sunos/sunos_syscalls.c"
|
|
#include "../../sys/compat/sunos32/sunos32_syscalls.c"
|
|
#include "../../sys/compat/svr4/svr4_syscalls.c"
|
|
#include "../../sys/compat/svr4_32/svr4_32_syscalls.c"
|
|
#include "../../sys/compat/ultrix/ultrix_syscalls.c"
|
|
#ifdef __m68k__
|
|
#include "../../sys/compat/aoutm68k/aoutm68k_syscalls.c"
|
|
#endif
|
|
|
|
#include "../../sys/compat/svr4/svr4_errno.c"
|
|
#include "../../sys/compat/ibcs2/ibcs2_errno.c"
|
|
#include "../../sys/compat/irix/irix_errno.c"
|
|
#include "../../sys/compat/osf1/osf1_errno.c"
|
|
#include "../../sys/compat/linux/common/linux_errno.c"
|
|
#undef KTRACE
|
|
|
|
#define SIGRTMIN 33 /* XXX */
|
|
#include "../../sys/compat/svr4/svr4_signo.c"
|
|
#include "../../sys/compat/ibcs2/ibcs2_signo.c"
|
|
/* irix uses svr4 */
|
|
#include "../../sys/compat/osf1/osf1_signo.c"
|
|
#include "../../sys/compat/linux/common/linux_signo.c"
|
|
|
|
/* For Mach services names in MMSG traces */
|
|
#ifndef LETS_GET_SMALL
|
|
#include "../../sys/compat/mach/mach_services_names.c"
|
|
#endif
|
|
|
|
#define NELEM(a) (sizeof(a) / sizeof(a[0]))
|
|
|
|
/* static */
|
|
const struct emulation emulations[] = {
|
|
{ "netbsd", syscallnames, SYS_MAXSYSCALL,
|
|
NULL, 0,
|
|
NULL, 0, 0 },
|
|
|
|
{ "netbsd32", netbsd32_syscallnames, SYS_MAXSYSCALL,
|
|
NULL, 0,
|
|
NULL, 0, EMUL_FLAG_NETBSD32 },
|
|
|
|
{ "freebsd", freebsd_syscallnames, FREEBSD_SYS_MAXSYSCALL,
|
|
NULL, 0,
|
|
NULL, 0, 0 },
|
|
|
|
{ "ibcs2", ibcs2_syscallnames, IBCS2_SYS_MAXSYSCALL,
|
|
native_to_ibcs2_errno, NELEM(native_to_ibcs2_errno),
|
|
ibcs2_to_native_signo, NSIG, 0 },
|
|
|
|
{ "irix o32", irix_syscallnames, IRIX_SYS_MAXSYSCALL,
|
|
native_to_irix_errno, NELEM(native_to_irix_errno),
|
|
svr4_to_native_signo, NSIG, 0 },
|
|
|
|
{ "irix n32", irix_syscallnames, IRIX_SYS_MAXSYSCALL,
|
|
native_to_irix_errno, NELEM(native_to_irix_errno),
|
|
svr4_to_native_signo, NSIG, 0 },
|
|
|
|
{ "linux", linux_syscallnames, LINUX_SYS_MAXSYSCALL,
|
|
native_to_linux_errno, NELEM(native_to_linux_errno),
|
|
linux_to_native_signo, NSIG, 0 },
|
|
|
|
{ "linux32", linux32_syscallnames, LINUX32_SYS_MAXSYSCALL,
|
|
native_to_linux_errno, NELEM(native_to_linux_errno),
|
|
linux_to_native_signo, NSIG, EMUL_FLAG_NETBSD32 },
|
|
|
|
{ "darwin", darwin_syscallnames, DARWIN_SYS_MAXSYSCALL,
|
|
NULL, 0,
|
|
NULL, 0, 0 },
|
|
|
|
{ "mach", mach_syscallnames, MACH_SYS_MAXSYSCALL,
|
|
NULL, 0,
|
|
NULL, 0, 0 },
|
|
|
|
{ "mach ppccalls", mach_ppccalls_syscallnames,
|
|
MACH_PPCCALLS_SYS_MAXSYSCALL,
|
|
NULL, 0,
|
|
NULL, 0, 0 },
|
|
|
|
{ "mach fasttraps", mach_fasttraps_syscallnames,
|
|
MACH_FASTTRAPS_SYS_MAXSYSCALL,
|
|
NULL, 0,
|
|
NULL, 0, 0 },
|
|
|
|
{ "osf1", osf1_syscallnames, OSF1_SYS_MAXSYSCALL,
|
|
native_to_osf1_errno, NELEM(native_to_osf1_errno),
|
|
osf1_to_native_signo, NSIG, 0 },
|
|
|
|
{ "sunos32", sunos32_syscallnames, SUNOS32_SYS_MAXSYSCALL,
|
|
NULL, 0,
|
|
NULL, 0, EMUL_FLAG_NETBSD32 },
|
|
|
|
{ "sunos", sunos_syscallnames, SUNOS_SYS_MAXSYSCALL,
|
|
NULL, 0,
|
|
NULL, 0, 0 },
|
|
|
|
{ "svr4", svr4_syscallnames, SVR4_SYS_MAXSYSCALL,
|
|
native_to_svr4_errno, NELEM(native_to_svr4_errno),
|
|
svr4_to_native_signo, NSIG, 0 },
|
|
|
|
{ "svr4_32", svr4_syscallnames, SVR4_SYS_MAXSYSCALL,
|
|
native_to_svr4_errno, NELEM(native_to_svr4_errno),
|
|
svr4_to_native_signo, NSIG, EMUL_FLAG_NETBSD32 },
|
|
|
|
{ "ultrix", ultrix_syscallnames, ULTRIX_SYS_MAXSYSCALL,
|
|
NULL, 0,
|
|
NULL, 0, 0 },
|
|
|
|
{ "pecoff", syscallnames, SYS_MAXSYSCALL,
|
|
NULL, 0,
|
|
NULL, 0, 0 },
|
|
|
|
#ifdef __m68k__
|
|
{ "aoutm68k", aoutm68k_syscallnames, AOUTM68K_SYS_MAXSYSCALL,
|
|
NULL, 0,
|
|
NULL, 0, 0 },
|
|
#endif
|
|
|
|
{ NULL, NULL, 0,
|
|
NULL, 0,
|
|
NULL, 0, 0 }
|
|
};
|
|
|
|
struct emulation_ctx {
|
|
pid_t pid;
|
|
const struct emulation *emulation;
|
|
LIST_ENTRY(emulation_ctx) ctx_link;
|
|
};
|
|
|
|
const struct emulation *cur_emul;
|
|
const struct emulation *prev_emul;
|
|
/* Mach emulation require extra emulation contexts */
|
|
static const struct emulation *mach;
|
|
static const struct emulation *mach_ppccalls;
|
|
static const struct emulation *mach_fasttraps;
|
|
|
|
static const struct emulation *default_emul = &emulations[0];
|
|
|
|
struct emulation_ctx *current_ctx;
|
|
static LIST_HEAD(, emulation_ctx) emul_ctx =
|
|
LIST_HEAD_INITIALIZER(emul_ctx);
|
|
|
|
static struct emulation_ctx *ectx_find(pid_t);
|
|
static void ectx_update(pid_t, const struct emulation *);
|
|
|
|
void
|
|
setemul(const char *name, pid_t pid, int update_ectx)
|
|
{
|
|
int i;
|
|
const struct emulation *match = NULL;
|
|
|
|
for (i = 0; emulations[i].name != NULL; i++) {
|
|
if (strcmp(emulations[i].name, name) == 0) {
|
|
match = &emulations[i];
|
|
break;
|
|
}
|
|
}
|
|
|
|
if (!match) {
|
|
warnx("Emulation `%s' unknown", name);
|
|
return;
|
|
}
|
|
|
|
if (update_ectx)
|
|
ectx_update(pid, match);
|
|
else
|
|
default_emul = match;
|
|
|
|
if (cur_emul != NULL)
|
|
prev_emul = cur_emul;
|
|
else
|
|
prev_emul = match;
|
|
|
|
cur_emul = match;
|
|
}
|
|
|
|
/*
|
|
* Emulation context list is very simple chained list, not even hashed.
|
|
* We expect the number of separate traced contexts/processes to be
|
|
* fairly low, so it's not worth it to optimize this.
|
|
* MMMmmmm not when I use it, it is only bounded PID_MAX!
|
|
* Requeue looked up item at start of list to cache result since the
|
|
* trace file tendes to have a burst of calls for a single process.
|
|
*/
|
|
|
|
/*
|
|
* Find an emulation context appropriate for the given pid.
|
|
*/
|
|
static struct emulation_ctx *
|
|
ectx_find(pid_t pid)
|
|
{
|
|
struct emulation_ctx *ctx;
|
|
|
|
/* Find an existing entry */
|
|
LIST_FOREACH(ctx, &emul_ctx, ctx_link) {
|
|
if (ctx->pid == pid)
|
|
break;
|
|
}
|
|
|
|
if (ctx == NULL) {
|
|
/* create entry with default emulation */
|
|
ctx = malloc(sizeof *ctx);
|
|
if (ctx == NULL)
|
|
err(1, "malloc emul context");
|
|
ctx->pid = pid;
|
|
ctx->emulation = default_emul;
|
|
|
|
/* chain into the list */
|
|
LIST_INSERT_HEAD(&emul_ctx, ctx, ctx_link);
|
|
} else {
|
|
/* move entry to head to optimize lookup for syscall bursts */
|
|
LIST_REMOVE(ctx, ctx_link);
|
|
LIST_INSERT_HEAD(&emul_ctx, ctx, ctx_link);
|
|
}
|
|
|
|
return ctx;
|
|
}
|
|
|
|
/*
|
|
* Update emulation context for given pid, or create new if no context
|
|
* for this pid exists.
|
|
*/
|
|
static void
|
|
ectx_update(pid_t pid, const struct emulation *emul)
|
|
{
|
|
struct emulation_ctx *ctx;
|
|
|
|
ctx = ectx_find(pid);
|
|
ctx->emulation = emul;
|
|
}
|
|
|
|
/*
|
|
* Ensure current emulation context is correct for given pid.
|
|
*/
|
|
void
|
|
ectx_sanify(pid_t pid)
|
|
{
|
|
struct emulation_ctx *ctx;
|
|
|
|
ctx = ectx_find(pid);
|
|
cur_emul = ctx->emulation;
|
|
}
|
|
|
|
/*
|
|
* Delete emulation context for current pid.
|
|
* (eg when tracing exit())
|
|
* Defer delete just in case we've cached a pointer...
|
|
*/
|
|
void
|
|
ectx_delete(void)
|
|
{
|
|
static struct emulation_ctx *ctx = NULL;
|
|
|
|
if (ctx != NULL)
|
|
free(ctx);
|
|
|
|
/*
|
|
* The emulation for current syscall entry is always on HEAD, due
|
|
* to code in ectx_find().
|
|
*/
|
|
ctx = LIST_FIRST(&emul_ctx);
|
|
|
|
if (ctx)
|
|
LIST_REMOVE(ctx, ctx_link);
|
|
}
|
|
|
|
/*
|
|
* Temporarily modify code and emulations to handle Mach traps
|
|
* XXX The define are duplicated from sys/arch/powerpc/include/mach_syscall.c
|
|
*/
|
|
#define MACH_FASTTRAPS 0x00007ff0
|
|
#define MACH_PPCCALLS 0x00006000
|
|
#define MACH_ODD_SYSCALL_MASK 0x0000fff0
|
|
int
|
|
mach_traps_dispatch(int *code, const struct emulation **emul)
|
|
{
|
|
switch (*code & MACH_ODD_SYSCALL_MASK) {
|
|
case MACH_FASTTRAPS:
|
|
*emul = mach_fasttraps;
|
|
*code -= MACH_FASTTRAPS;
|
|
return 1;
|
|
|
|
case MACH_PPCCALLS:
|
|
*emul = mach_ppccalls;
|
|
*code -= MACH_PPCCALLS;
|
|
return 1;
|
|
|
|
default:
|
|
if (*code < 0 && *code > -MACH_SYS_MAXSYSCALL) {
|
|
*emul = mach;
|
|
*code = -*code;
|
|
return 1;
|
|
}
|
|
return 0;
|
|
}
|
|
}
|
|
|
|
/*
|
|
* Lookup Machs emulations
|
|
*/
|
|
void
|
|
mach_lookup_emul(void)
|
|
{
|
|
const struct emulation *emul_idx;
|
|
|
|
for (emul_idx = emulations; emul_idx->name; emul_idx++) {
|
|
if (strcmp("mach", emul_idx->name) == 0)
|
|
mach = emul_idx;
|
|
if (strcmp("mach fasttraps", emul_idx->name) == 0)
|
|
mach_fasttraps = emul_idx;
|
|
if (strcmp("mach ppccalls", emul_idx->name) == 0)
|
|
mach_ppccalls = emul_idx;
|
|
}
|
|
if (mach == NULL || mach_fasttraps == NULL || mach_ppccalls == NULL) {
|
|
errx(1, "Cannot load mach emulations");
|
|
exit(1);
|
|
}
|
|
return;
|
|
}
|
|
|
|
/*
|
|
* Find the name of the Mach service responsible to a given message Id
|
|
*/
|
|
const char *
|
|
mach_service_name(id)
|
|
int id;
|
|
{
|
|
const char *retval = NULL;
|
|
#ifndef LETS_GET_SMALL
|
|
struct mach_service_name *srv;
|
|
|
|
for (srv = mach_services_names; srv->srv_id; srv++)
|
|
if (srv->srv_id == id)
|
|
break;
|
|
retval = srv->srv_name;
|
|
#endif /* LETS_GET_SMALL */
|
|
|
|
return retval;
|
|
}
|