9895b5ca9d
- DTrace scripts to check for errors, performance, ... they serve mostly as examples of what you can do with the static probe;s with moderate load the scripts may be overwhelmed, excessive lock-tracing may influence program behavior (see the last design decission) Design decissions: - use "linuxulator" as the provider for the native bitsize; add the bitsize for the non-native emulation (e.g. "linuxuator32" on amd64) - Add probes only for locks which are acquired in one function and released in another function. Locks which are aquired and released in the same function should be easy to pair in the code, inter-function locking is more easy to verify in DTrace. - Probes for locks should be fired after locking and before releasing to prevent races (to provide data/function stability in DTrace, see the man-page of "dtrace -v ..." and the corresponding DTrace docs).
442 lines
12 KiB
C
442 lines
12 KiB
C
/*-
|
|
* Copyright (c) 2001 The FreeBSD Project
|
|
* 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 AUTHOR 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 AUTHOR 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>
|
|
__FBSDID("$FreeBSD$");
|
|
|
|
#include "opt_compat.h"
|
|
#include "opt_kdtrace.h"
|
|
|
|
#include <sys/fcntl.h>
|
|
#include <sys/param.h>
|
|
#include <sys/kernel.h>
|
|
#include <sys/lock.h>
|
|
#include <sys/malloc.h>
|
|
#include <sys/mutex.h>
|
|
#include <sys/priv.h>
|
|
#include <sys/proc.h>
|
|
#include <sys/sdt.h>
|
|
#include <sys/syscallsubr.h>
|
|
#include <sys/sysproto.h>
|
|
#include <sys/systm.h>
|
|
|
|
#ifdef COMPAT_LINUX32
|
|
#include <machine/../linux32/linux.h>
|
|
#include <machine/../linux32/linux32_proto.h>
|
|
#else
|
|
#include <machine/../linux/linux.h>
|
|
#include <machine/../linux/linux_proto.h>
|
|
#endif
|
|
|
|
#include <compat/linux/linux_dtrace.h>
|
|
#include <compat/linux/linux_util.h>
|
|
|
|
/* DTrace init */
|
|
LIN_SDT_PROVIDER_DECLARE(LINUX_DTRACE);
|
|
|
|
/**
|
|
* DTrace probes in this module.
|
|
*/
|
|
LIN_SDT_PROBE_DEFINE3(uid16, linux_chown16, entry, "char *", "l_uid16_t",
|
|
"l_gid16_t");
|
|
LIN_SDT_PROBE_DEFINE1(uid16, linux_chown16, conv_path, "char *");
|
|
LIN_SDT_PROBE_DEFINE1(uid16, linux_chown16, return, "int");
|
|
LIN_SDT_PROBE_DEFINE3(uid16, linux_lchown16, entry, "char *", "l_uid16_t",
|
|
"l_gid16_t");
|
|
LIN_SDT_PROBE_DEFINE1(uid16, linux_lchown16, conv_path, "char *");
|
|
LIN_SDT_PROBE_DEFINE1(uid16, linux_lchown16, return, "int");
|
|
LIN_SDT_PROBE_DEFINE2(uid16, linux_setgroups16, entry, "l_uint", "l_gid16_t *");
|
|
LIN_SDT_PROBE_DEFINE1(uid16, linux_setgroups16, copyin_error, "int");
|
|
LIN_SDT_PROBE_DEFINE1(uid16, linux_setgroups16, priv_check_cred_error, "int");
|
|
LIN_SDT_PROBE_DEFINE1(uid16, linux_setgroups16, return, "int");
|
|
LIN_SDT_PROBE_DEFINE2(uid16, linux_getgroups16, entry, "l_uint", "l_gid16_t *");
|
|
LIN_SDT_PROBE_DEFINE1(uid16, linux_getgroups16, copyout_error, "int");
|
|
LIN_SDT_PROBE_DEFINE1(uid16, linux_getgroups16, return, "int");
|
|
LIN_SDT_PROBE_DEFINE0(uid16, linux_getgid16, entry);
|
|
LIN_SDT_PROBE_DEFINE1(uid16, linux_getgid16, return, "int");
|
|
LIN_SDT_PROBE_DEFINE0(uid16, linux_getuid16, entry);
|
|
LIN_SDT_PROBE_DEFINE1(uid16, linux_getuid16, return, "int");
|
|
LIN_SDT_PROBE_DEFINE0(uid16, linux_getegid16, entry);
|
|
LIN_SDT_PROBE_DEFINE1(uid16, linux_getegid16, return, "int");
|
|
LIN_SDT_PROBE_DEFINE0(uid16, linux_geteuid16, entry);
|
|
LIN_SDT_PROBE_DEFINE1(uid16, linux_geteuid16, return, "int");
|
|
LIN_SDT_PROBE_DEFINE1(uid16, linux_setgid16, entry, "l_gid16_t");
|
|
LIN_SDT_PROBE_DEFINE1(uid16, linux_setgid16, return, "int");
|
|
LIN_SDT_PROBE_DEFINE1(uid16, linux_setuid16, entry, "l_uid16_t");
|
|
LIN_SDT_PROBE_DEFINE1(uid16, linux_setuid16, return, "int");
|
|
LIN_SDT_PROBE_DEFINE2(uid16, linux_setregid16, entry, "l_git16_t", "l_git16_t");
|
|
LIN_SDT_PROBE_DEFINE1(uid16, linux_setregid16, return, "int");
|
|
LIN_SDT_PROBE_DEFINE2(uid16, linux_setreuid16, entry, "l_uid16_t", "l_uid16_t");
|
|
LIN_SDT_PROBE_DEFINE1(uid16, linux_setreuid16, return, "int");
|
|
LIN_SDT_PROBE_DEFINE3(uid16, linux_setresgid16, entry, "l_gid16_t", "l_gid16_t",
|
|
"l_gid16_t");
|
|
LIN_SDT_PROBE_DEFINE1(uid16, linux_setresgid16, return, "int");
|
|
LIN_SDT_PROBE_DEFINE3(uid16, linux_setresuid16, entry, "l_uid16_t", "l_uid16_t",
|
|
"l_uid16_t");
|
|
LIN_SDT_PROBE_DEFINE1(uid16, linux_setresuid16, return, "int");
|
|
|
|
DUMMY(setfsuid16);
|
|
DUMMY(setfsgid16);
|
|
DUMMY(getresuid16);
|
|
DUMMY(getresgid16);
|
|
|
|
#define CAST_NOCHG(x) ((x == 0xFFFF) ? -1 : x)
|
|
|
|
int
|
|
linux_chown16(struct thread *td, struct linux_chown16_args *args)
|
|
{
|
|
char *path;
|
|
int error;
|
|
|
|
LCONVPATHEXIST(td, args->path, &path);
|
|
|
|
/*
|
|
* The DTrace probes have to be after the LCONVPATHEXIST, as
|
|
* LCONVPATHEXIST may return on its own and we do not want to
|
|
* have a stray entry without the corresponding return.
|
|
*/
|
|
LIN_SDT_PROBE3(uid16, linux_chown16, entry, args->path, args->uid,
|
|
args->gid);
|
|
LIN_SDT_PROBE1(uid16, linux_chown16, conv_path, path);
|
|
|
|
error = kern_chown(td, path, UIO_SYSSPACE, CAST_NOCHG(args->uid),
|
|
CAST_NOCHG(args->gid));
|
|
LFREEPATH(path);
|
|
|
|
LIN_SDT_PROBE1(uid16, linux_chown16, return, error);
|
|
return (error);
|
|
}
|
|
|
|
int
|
|
linux_lchown16(struct thread *td, struct linux_lchown16_args *args)
|
|
{
|
|
char *path;
|
|
int error;
|
|
|
|
LCONVPATHEXIST(td, args->path, &path);
|
|
|
|
/*
|
|
* The DTrace probes have to be after the LCONVPATHEXIST, as
|
|
* LCONVPATHEXIST may return on its own and we do not want to
|
|
* have a stray entry without the corresponding return.
|
|
*/
|
|
LIN_SDT_PROBE3(uid16, linux_lchown16, entry, args->path, args->uid,
|
|
args->gid);
|
|
LIN_SDT_PROBE1(uid16, linux_lchown16, conv_path, path);
|
|
|
|
error = kern_lchown(td, path, UIO_SYSSPACE, CAST_NOCHG(args->uid),
|
|
CAST_NOCHG(args->gid));
|
|
LFREEPATH(path);
|
|
|
|
LIN_SDT_PROBE1(uid16, linux_lchown16, return, error);
|
|
return (error);
|
|
}
|
|
|
|
int
|
|
linux_setgroups16(struct thread *td, struct linux_setgroups16_args *args)
|
|
{
|
|
struct ucred *newcred, *oldcred;
|
|
l_gid16_t *linux_gidset;
|
|
gid_t *bsd_gidset;
|
|
int ngrp, error;
|
|
struct proc *p;
|
|
|
|
LIN_SDT_PROBE2(uid16, linux_setgroups16, entry, args->gidsetsize,
|
|
args->gidset);
|
|
|
|
ngrp = args->gidsetsize;
|
|
if (ngrp < 0 || ngrp >= ngroups_max + 1) {
|
|
LIN_SDT_PROBE1(uid16, linux_setgroups16, return, EINVAL);
|
|
return (EINVAL);
|
|
}
|
|
linux_gidset = malloc(ngrp * sizeof(*linux_gidset), M_TEMP, M_WAITOK);
|
|
error = copyin(args->gidset, linux_gidset, ngrp * sizeof(l_gid16_t));
|
|
if (error) {
|
|
LIN_SDT_PROBE1(uid16, linux_setgroups16, copyin_error, error);
|
|
LIN_SDT_PROBE1(uid16, linux_setgroups16, return, error);
|
|
free(linux_gidset, M_TEMP);
|
|
return (error);
|
|
}
|
|
newcred = crget();
|
|
p = td->td_proc;
|
|
PROC_LOCK(p);
|
|
oldcred = crcopysafe(p, newcred);
|
|
|
|
/*
|
|
* cr_groups[0] holds egid. Setting the whole set from
|
|
* the supplied set will cause egid to be changed too.
|
|
* Keep cr_groups[0] unchanged to prevent that.
|
|
*/
|
|
|
|
if ((error = priv_check_cred(oldcred, PRIV_CRED_SETGROUPS, 0)) != 0) {
|
|
PROC_UNLOCK(p);
|
|
crfree(newcred);
|
|
|
|
LIN_SDT_PROBE1(uid16, linux_setgroups16, priv_check_cred_error,
|
|
error);
|
|
goto out;
|
|
}
|
|
|
|
if (ngrp > 0) {
|
|
newcred->cr_ngroups = ngrp + 1;
|
|
|
|
bsd_gidset = newcred->cr_groups;
|
|
ngrp--;
|
|
while (ngrp >= 0) {
|
|
bsd_gidset[ngrp + 1] = linux_gidset[ngrp];
|
|
ngrp--;
|
|
}
|
|
}
|
|
else
|
|
newcred->cr_ngroups = 1;
|
|
|
|
setsugid(td->td_proc);
|
|
p->p_ucred = newcred;
|
|
PROC_UNLOCK(p);
|
|
crfree(oldcred);
|
|
error = 0;
|
|
out:
|
|
free(linux_gidset, M_TEMP);
|
|
|
|
LIN_SDT_PROBE1(uid16, linux_setgroups16, return, error);
|
|
return (error);
|
|
}
|
|
|
|
int
|
|
linux_getgroups16(struct thread *td, struct linux_getgroups16_args *args)
|
|
{
|
|
struct ucred *cred;
|
|
l_gid16_t *linux_gidset;
|
|
gid_t *bsd_gidset;
|
|
int bsd_gidsetsz, ngrp, error;
|
|
|
|
LIN_SDT_PROBE2(uid16, linux_getgroups16, entry, args->gidsetsize,
|
|
args->gidset);
|
|
|
|
cred = td->td_ucred;
|
|
bsd_gidset = cred->cr_groups;
|
|
bsd_gidsetsz = cred->cr_ngroups - 1;
|
|
|
|
/*
|
|
* cr_groups[0] holds egid. Returning the whole set
|
|
* here will cause a duplicate. Exclude cr_groups[0]
|
|
* to prevent that.
|
|
*/
|
|
|
|
if ((ngrp = args->gidsetsize) == 0) {
|
|
td->td_retval[0] = bsd_gidsetsz;
|
|
|
|
LIN_SDT_PROBE1(uid16, linux_getgroups16, return, 0);
|
|
return (0);
|
|
}
|
|
|
|
if (ngrp < bsd_gidsetsz) {
|
|
LIN_SDT_PROBE1(uid16, linux_getgroups16, return, EINVAL);
|
|
return (EINVAL);
|
|
}
|
|
|
|
ngrp = 0;
|
|
linux_gidset = malloc(bsd_gidsetsz * sizeof(*linux_gidset),
|
|
M_TEMP, M_WAITOK);
|
|
while (ngrp < bsd_gidsetsz) {
|
|
linux_gidset[ngrp] = bsd_gidset[ngrp + 1];
|
|
ngrp++;
|
|
}
|
|
|
|
error = copyout(linux_gidset, args->gidset, ngrp * sizeof(l_gid16_t));
|
|
free(linux_gidset, M_TEMP);
|
|
if (error) {
|
|
LIN_SDT_PROBE1(uid16, linux_getgroups16, copyout_error, error);
|
|
LIN_SDT_PROBE1(uid16, linux_getgroups16, return, error);
|
|
return (error);
|
|
}
|
|
|
|
td->td_retval[0] = ngrp;
|
|
|
|
LIN_SDT_PROBE1(uid16, linux_getgroups16, return, 0);
|
|
return (0);
|
|
}
|
|
|
|
/*
|
|
* The FreeBSD native getgid(2) and getuid(2) also modify td->td_retval[1]
|
|
* when COMPAT_43 is defined. This clobbers registers that are assumed to
|
|
* be preserved. The following lightweight syscalls fixes this. See also
|
|
* linux_getpid(2), linux_getgid(2) and linux_getuid(2) in linux_misc.c
|
|
*
|
|
* linux_getgid16() - MP SAFE
|
|
* linux_getuid16() - MP SAFE
|
|
*/
|
|
|
|
int
|
|
linux_getgid16(struct thread *td, struct linux_getgid16_args *args)
|
|
{
|
|
|
|
LIN_SDT_PROBE0(uid16, linux_getgid16, entry);
|
|
|
|
td->td_retval[0] = td->td_ucred->cr_rgid;
|
|
|
|
LIN_SDT_PROBE1(uid16, linux_getgid16, return, 0);
|
|
return (0);
|
|
}
|
|
|
|
int
|
|
linux_getuid16(struct thread *td, struct linux_getuid16_args *args)
|
|
{
|
|
|
|
LIN_SDT_PROBE0(uid16, linux_getuid16, entry);
|
|
|
|
td->td_retval[0] = td->td_ucred->cr_ruid;
|
|
|
|
LIN_SDT_PROBE1(uid16, linux_getuid16, return, 0);
|
|
return (0);
|
|
}
|
|
|
|
int
|
|
linux_getegid16(struct thread *td, struct linux_getegid16_args *args)
|
|
{
|
|
struct getegid_args bsd;
|
|
int error;
|
|
|
|
LIN_SDT_PROBE0(uid16, linux_getegid16, entry);
|
|
|
|
error = sys_getegid(td, &bsd);
|
|
|
|
LIN_SDT_PROBE1(uid16, linux_getegid16, return, error);
|
|
return (error);
|
|
}
|
|
|
|
int
|
|
linux_geteuid16(struct thread *td, struct linux_geteuid16_args *args)
|
|
{
|
|
struct geteuid_args bsd;
|
|
int error;
|
|
|
|
LIN_SDT_PROBE0(uid16, linux_geteuid16, entry);
|
|
|
|
error = sys_geteuid(td, &bsd);
|
|
|
|
LIN_SDT_PROBE1(uid16, linux_geteuid16, return, error);
|
|
return (error);
|
|
}
|
|
|
|
int
|
|
linux_setgid16(struct thread *td, struct linux_setgid16_args *args)
|
|
{
|
|
struct setgid_args bsd;
|
|
int error;
|
|
|
|
LIN_SDT_PROBE1(uid16, linux_setgid16, entry, args->gid);
|
|
|
|
bsd.gid = args->gid;
|
|
error = sys_setgid(td, &bsd);
|
|
|
|
LIN_SDT_PROBE1(uid16, linux_setgid16, return, error);
|
|
return (error);
|
|
}
|
|
|
|
int
|
|
linux_setuid16(struct thread *td, struct linux_setuid16_args *args)
|
|
{
|
|
struct setuid_args bsd;
|
|
int error;
|
|
|
|
LIN_SDT_PROBE1(uid16, linux_setuid16, entry, args->uid);
|
|
|
|
bsd.uid = args->uid;
|
|
error = sys_setuid(td, &bsd);
|
|
|
|
LIN_SDT_PROBE1(uid16, linux_setuid16, return, error);
|
|
return (error);
|
|
}
|
|
|
|
int
|
|
linux_setregid16(struct thread *td, struct linux_setregid16_args *args)
|
|
{
|
|
struct setregid_args bsd;
|
|
int error;
|
|
|
|
LIN_SDT_PROBE2(uid16, linux_setregid16, entry, args->rgid, args->egid);
|
|
|
|
bsd.rgid = CAST_NOCHG(args->rgid);
|
|
bsd.egid = CAST_NOCHG(args->egid);
|
|
error = sys_setregid(td, &bsd);
|
|
|
|
LIN_SDT_PROBE1(uid16, linux_setregid16, return, error);
|
|
return (error);
|
|
}
|
|
|
|
int
|
|
linux_setreuid16(struct thread *td, struct linux_setreuid16_args *args)
|
|
{
|
|
struct setreuid_args bsd;
|
|
int error;
|
|
|
|
LIN_SDT_PROBE2(uid16, linux_setreuid16, entry, args->ruid, args->euid);
|
|
|
|
bsd.ruid = CAST_NOCHG(args->ruid);
|
|
bsd.euid = CAST_NOCHG(args->euid);
|
|
error = sys_setreuid(td, &bsd);
|
|
|
|
LIN_SDT_PROBE1(uid16, linux_setreuid16, return, error);
|
|
return (error);
|
|
}
|
|
|
|
int
|
|
linux_setresgid16(struct thread *td, struct linux_setresgid16_args *args)
|
|
{
|
|
struct setresgid_args bsd;
|
|
int error;
|
|
|
|
LIN_SDT_PROBE3(uid16, linux_setresgid16, entry, args->rgid, args->egid,
|
|
args->sgid);
|
|
|
|
bsd.rgid = CAST_NOCHG(args->rgid);
|
|
bsd.egid = CAST_NOCHG(args->egid);
|
|
bsd.sgid = CAST_NOCHG(args->sgid);
|
|
error = sys_setresgid(td, &bsd);
|
|
|
|
LIN_SDT_PROBE1(uid16, linux_setresgid16, return, error);
|
|
return (error);
|
|
}
|
|
|
|
int
|
|
linux_setresuid16(struct thread *td, struct linux_setresuid16_args *args)
|
|
{
|
|
struct setresuid_args bsd;
|
|
int error;
|
|
|
|
LIN_SDT_PROBE3(uid16, linux_setresuid16, entry, args->ruid, args->euid,
|
|
args->suid);
|
|
|
|
bsd.ruid = CAST_NOCHG(args->ruid);
|
|
bsd.euid = CAST_NOCHG(args->euid);
|
|
bsd.suid = CAST_NOCHG(args->suid);
|
|
error = sys_setresuid(td, &bsd);
|
|
|
|
LIN_SDT_PROBE1(uid16, linux_setresuid16, return, error);
|
|
return (error);
|
|
}
|