Home | History | Annotate | Line # | Download | only in kern
sys_sig.c revision 1.14
      1 /*	$NetBSD: sys_sig.c,v 1.14 2008/04/24 18:39:24 ad Exp $	*/
      2 
      3 /*-
      4  * Copyright (c) 2006, 2007, 2008 The NetBSD Foundation, Inc.
      5  * All rights reserved.
      6  *
      7  * This code is derived from software contributed to The NetBSD Foundation
      8  * by Andrew Doran.
      9  *
     10  * Redistribution and use in source and binary forms, with or without
     11  * modification, are permitted provided that the following conditions
     12  * are met:
     13  * 1. Redistributions of source code must retain the above copyright
     14  *    notice, this list of conditions and the following disclaimer.
     15  * 2. Redistributions in binary form must reproduce the above copyright
     16  *    notice, this list of conditions and the following disclaimer in the
     17  *    documentation and/or other materials provided with the distribution.
     18  * 3. All advertising materials mentioning features or use of this software
     19  *    must display the following acknowledgement:
     20  *	This product includes software developed by the NetBSD
     21  *	Foundation, Inc. and its contributors.
     22  * 4. Neither the name of The NetBSD Foundation nor the names of its
     23  *    contributors may be used to endorse or promote products derived
     24  *    from this software without specific prior written permission.
     25  *
     26  * THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS
     27  * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
     28  * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
     29  * PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS
     30  * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
     31  * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
     32  * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
     33  * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
     34  * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
     35  * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
     36  * POSSIBILITY OF SUCH DAMAGE.
     37  */
     38 
     39 /*
     40  * Copyright (c) 1982, 1986, 1989, 1991, 1993
     41  *	The Regents of the University of California.  All rights reserved.
     42  * (c) UNIX System Laboratories, Inc.
     43  * All or some portions of this file are derived from material licensed
     44  * to the University of California by American Telephone and Telegraph
     45  * Co. or Unix System Laboratories, Inc. and are reproduced herein with
     46  * the permission of UNIX System Laboratories, Inc.
     47  *
     48  * Redistribution and use in source and binary forms, with or without
     49  * modification, are permitted provided that the following conditions
     50  * are met:
     51  * 1. Redistributions of source code must retain the above copyright
     52  *    notice, this list of conditions and the following disclaimer.
     53  * 2. Redistributions in binary form must reproduce the above copyright
     54  *    notice, this list of conditions and the following disclaimer in the
     55  *    documentation and/or other materials provided with the distribution.
     56  * 3. Neither the name of the University nor the names of its contributors
     57  *    may be used to endorse or promote products derived from this software
     58  *    without specific prior written permission.
     59  *
     60  * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
     61  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
     62  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
     63  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
     64  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
     65  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
     66  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
     67  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
     68  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
     69  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
     70  * SUCH DAMAGE.
     71  *
     72  *	@(#)kern_sig.c	8.14 (Berkeley) 5/14/95
     73  */
     74 
     75 #include <sys/cdefs.h>
     76 __KERNEL_RCSID(0, "$NetBSD: sys_sig.c,v 1.14 2008/04/24 18:39:24 ad Exp $");
     77 
     78 #include "opt_ptrace.h"
     79 #include "opt_compat_netbsd.h"
     80 #include "opt_compat_netbsd32.h"
     81 
     82 #include <sys/param.h>
     83 #include <sys/kernel.h>
     84 #include <sys/signalvar.h>
     85 #include <sys/proc.h>
     86 #include <sys/pool.h>
     87 #include <sys/syscallargs.h>
     88 #include <sys/kauth.h>
     89 #include <sys/wait.h>
     90 #include <sys/kmem.h>
     91 
     92 #ifdef COMPAT_16
     93 /* ARGSUSED */
     94 int
     95 compat_16_sys___sigaction14(struct lwp *l, const struct compat_16_sys___sigaction14_args *uap, register_t *retval)
     96 {
     97 	/* {
     98 		syscallarg(int)				signum;
     99 		syscallarg(const struct sigaction *)	nsa;
    100 		syscallarg(struct sigaction *)		osa;
    101 	} */
    102 	struct sigaction	nsa, osa;
    103 	int			error;
    104 
    105 	if (SCARG(uap, nsa)) {
    106 		error = copyin(SCARG(uap, nsa), &nsa, sizeof(nsa));
    107 		if (error)
    108 			return (error);
    109 	}
    110 	error = sigaction1(l, SCARG(uap, signum),
    111 	    SCARG(uap, nsa) ? &nsa : 0, SCARG(uap, osa) ? &osa : 0,
    112 	    NULL, 0);
    113 	if (error)
    114 		return (error);
    115 	if (SCARG(uap, osa)) {
    116 		error = copyout(&osa, SCARG(uap, osa), sizeof(osa));
    117 		if (error)
    118 			return (error);
    119 	}
    120 	return (0);
    121 }
    122 #endif
    123 
    124 /* ARGSUSED */
    125 int
    126 sys___sigaction_sigtramp(struct lwp *l, const struct sys___sigaction_sigtramp_args *uap, register_t *retval)
    127 {
    128 	/* {
    129 		syscallarg(int)				signum;
    130 		syscallarg(const struct sigaction *)	nsa;
    131 		syscallarg(struct sigaction *)		osa;
    132 		syscallarg(void *)			tramp;
    133 		syscallarg(int)				vers;
    134 	} */
    135 	struct sigaction nsa, osa;
    136 	int error;
    137 
    138 	if (SCARG(uap, nsa)) {
    139 		error = copyin(SCARG(uap, nsa), &nsa, sizeof(nsa));
    140 		if (error)
    141 			return (error);
    142 	}
    143 	error = sigaction1(l, SCARG(uap, signum),
    144 	    SCARG(uap, nsa) ? &nsa : 0, SCARG(uap, osa) ? &osa : 0,
    145 	    SCARG(uap, tramp), SCARG(uap, vers));
    146 	if (error)
    147 		return (error);
    148 	if (SCARG(uap, osa)) {
    149 		error = copyout(&osa, SCARG(uap, osa), sizeof(osa));
    150 		if (error)
    151 			return (error);
    152 	}
    153 	return (0);
    154 }
    155 
    156 /*
    157  * Manipulate signal mask.  Note that we receive new mask, not pointer, and
    158  * return old mask as return value; the library stub does the rest.
    159  */
    160 int
    161 sys___sigprocmask14(struct lwp *l, const struct sys___sigprocmask14_args *uap, register_t *retval)
    162 {
    163 	/* {
    164 		syscallarg(int)			how;
    165 		syscallarg(const sigset_t *)	set;
    166 		syscallarg(sigset_t *)		oset;
    167 	} */
    168 	struct proc	*p = l->l_proc;
    169 	sigset_t	nss, oss;
    170 	int		error;
    171 
    172 	if (SCARG(uap, set)) {
    173 		error = copyin(SCARG(uap, set), &nss, sizeof(nss));
    174 		if (error)
    175 			return (error);
    176 	}
    177 	mutex_enter(p->p_lock);
    178 	error = sigprocmask1(l, SCARG(uap, how),
    179 	    SCARG(uap, set) ? &nss : 0, SCARG(uap, oset) ? &oss : 0);
    180 	mutex_exit(p->p_lock);
    181 	if (error)
    182 		return (error);
    183 	if (SCARG(uap, oset)) {
    184 		error = copyout(&oss, SCARG(uap, oset), sizeof(oss));
    185 		if (error)
    186 			return (error);
    187 	}
    188 	return (0);
    189 }
    190 
    191 /* ARGSUSED */
    192 int
    193 sys___sigpending14(struct lwp *l, const struct sys___sigpending14_args *uap, register_t *retval)
    194 {
    195 	/* {
    196 		syscallarg(sigset_t *)	set;
    197 	} */
    198 	sigset_t ss;
    199 
    200 	sigpending1(l, &ss);
    201 	return (copyout(&ss, SCARG(uap, set), sizeof(ss)));
    202 }
    203 
    204 /*
    205  * Suspend process until signal, providing mask to be set in the meantime.
    206  * Note nonstandard calling convention: libc stub passes mask, not pointer,
    207  * to save a copyin.
    208  */
    209 /* ARGSUSED */
    210 int
    211 sys___sigsuspend14(struct lwp *l, const struct sys___sigsuspend14_args *uap, register_t *retval)
    212 {
    213 	/* {
    214 		syscallarg(const sigset_t *)	set;
    215 	} */
    216 	sigset_t	ss;
    217 	int		error;
    218 
    219 	if (SCARG(uap, set)) {
    220 		error = copyin(SCARG(uap, set), &ss, sizeof(ss));
    221 		if (error)
    222 			return (error);
    223 	}
    224 
    225 	return (sigsuspend1(l, SCARG(uap, set) ? &ss : 0));
    226 }
    227 
    228 /* ARGSUSED */
    229 int
    230 sys___sigaltstack14(struct lwp *l, const struct sys___sigaltstack14_args *uap, register_t *retval)
    231 {
    232 	/* {
    233 		syscallarg(const struct sigaltstack *)	nss;
    234 		syscallarg(struct sigaltstack *)	oss;
    235 	} */
    236 	struct sigaltstack	nss, oss;
    237 	int			error;
    238 
    239 	if (SCARG(uap, nss)) {
    240 		error = copyin(SCARG(uap, nss), &nss, sizeof(nss));
    241 		if (error)
    242 			return (error);
    243 	}
    244 	error = sigaltstack1(l,
    245 	    SCARG(uap, nss) ? &nss : 0, SCARG(uap, oss) ? &oss : 0);
    246 	if (error)
    247 		return (error);
    248 	if (SCARG(uap, oss)) {
    249 		error = copyout(&oss, SCARG(uap, oss), sizeof(oss));
    250 		if (error)
    251 			return (error);
    252 	}
    253 	return (0);
    254 }
    255 
    256 /* ARGSUSED */
    257 int
    258 sys_kill(struct lwp *l, const struct sys_kill_args *uap, register_t *retval)
    259 {
    260 	/* {
    261 		syscallarg(int)	pid;
    262 		syscallarg(int)	signum;
    263 	} */
    264 	struct proc	*p;
    265 	ksiginfo_t	ksi;
    266 	int signum = SCARG(uap, signum);
    267 	int error;
    268 
    269 	if ((u_int)signum >= NSIG)
    270 		return (EINVAL);
    271 	KSI_INIT(&ksi);
    272 	ksi.ksi_signo = signum;
    273 	ksi.ksi_code = SI_USER;
    274 	ksi.ksi_pid = l->l_proc->p_pid;
    275 	ksi.ksi_uid = kauth_cred_geteuid(l->l_cred);
    276 	if (SCARG(uap, pid) > 0) {
    277 		/* kill single process */
    278 		mutex_enter(proc_lock);
    279 		if ((p = p_find(SCARG(uap, pid), PFIND_LOCKED)) == NULL) {
    280 			mutex_exit(proc_lock);
    281 			return (ESRCH);
    282 		}
    283 		mutex_enter(p->p_lock);
    284 		error = kauth_authorize_process(l->l_cred,
    285 		    KAUTH_PROCESS_SIGNAL, p, KAUTH_ARG(signum),
    286 		    NULL, NULL);
    287 		if (!error && signum) {
    288 			kpsignal2(p, &ksi);
    289 		}
    290 		mutex_exit(p->p_lock);
    291 		mutex_exit(proc_lock);
    292 		return (error);
    293 	}
    294 	switch (SCARG(uap, pid)) {
    295 	case -1:		/* broadcast signal */
    296 		return (killpg1(l, &ksi, 0, 1));
    297 	case 0:			/* signal own process group */
    298 		return (killpg1(l, &ksi, 0, 0));
    299 	default:		/* negative explicit process group */
    300 		return (killpg1(l, &ksi, -SCARG(uap, pid), 0));
    301 	}
    302 	/* NOTREACHED */
    303 }
    304 
    305 /* ARGSUSED */
    306 int
    307 sys_getcontext(struct lwp *l, const struct sys_getcontext_args *uap, register_t *retval)
    308 {
    309 	/* {
    310 		syscallarg(struct __ucontext *) ucp;
    311 	} */
    312 	struct proc *p = l->l_proc;
    313 	ucontext_t uc;
    314 
    315 	mutex_enter(p->p_lock);
    316 	getucontext(l, &uc);
    317 	mutex_exit(p->p_lock);
    318 
    319 	return (copyout(&uc, SCARG(uap, ucp), sizeof (*SCARG(uap, ucp))));
    320 }
    321 
    322 /* ARGSUSED */
    323 int
    324 sys_setcontext(struct lwp *l, const struct sys_setcontext_args *uap, register_t *retval)
    325 {
    326 	/* {
    327 		syscallarg(const ucontext_t *) ucp;
    328 	} */
    329 	struct proc *p = l->l_proc;
    330 	ucontext_t uc;
    331 	int error;
    332 
    333 	error = copyin(SCARG(uap, ucp), &uc, sizeof (uc));
    334 	if (error)
    335 		return (error);
    336 	if (!(uc.uc_flags & _UC_CPU))
    337 		return (EINVAL);
    338 	mutex_enter(p->p_lock);
    339 	error = setucontext(l, &uc);
    340 	mutex_exit(p->p_lock);
    341 	if (error)
    342  		return (error);
    343 
    344 	return (EJUSTRETURN);
    345 }
    346 
    347 /*
    348  * sigtimedwait(2) system call, used also for implementation
    349  * of sigwaitinfo() and sigwait().
    350  *
    351  * This only handles single LWP in signal wait. libpthread provides
    352  * it's own sigtimedwait() wrapper to DTRT WRT individual threads.
    353  */
    354 int
    355 sys___sigtimedwait(struct lwp *l, const struct sys___sigtimedwait_args *uap, register_t *retval)
    356 {
    357 
    358 	return __sigtimedwait1(l, uap, retval, copyout, copyin, copyout);
    359 }
    360 
    361 int
    362 sigaction1(struct lwp *l, int signum, const struct sigaction *nsa,
    363 	struct sigaction *osa, const void *tramp, int vers)
    364 {
    365 	struct proc *p;
    366 	struct sigacts *ps;
    367 	sigset_t tset;
    368 	int prop, error;
    369 	ksiginfoq_t kq;
    370 
    371 	if (signum <= 0 || signum >= NSIG)
    372 		return (EINVAL);
    373 
    374 	p = l->l_proc;
    375 	error = 0;
    376 	ksiginfo_queue_init(&kq);
    377 
    378 	/*
    379 	 * Trampoline ABI version 0 is reserved for the legacy kernel
    380 	 * provided on-stack trampoline.  Conversely, if we are using a
    381 	 * non-0 ABI version, we must have a trampoline.  Only validate the
    382 	 * vers if a new sigaction was supplied. Emulations use legacy
    383 	 * kernel trampolines with version 0, alternatively check for that
    384 	 * too.
    385 	 */
    386 	if ((vers != 0 && tramp == NULL) ||
    387 #ifdef SIGTRAMP_VALID
    388 	    (nsa != NULL &&
    389 	    ((vers == 0) ?
    390 		(p->p_emul->e_sigcode == NULL) :
    391 		!SIGTRAMP_VALID(vers))) ||
    392 #endif
    393 	    (vers == 0 && tramp != NULL)) {
    394 		return (EINVAL);
    395 	}
    396 
    397 	mutex_enter(p->p_lock);
    398 
    399 	ps = p->p_sigacts;
    400 	if (osa)
    401 		*osa = SIGACTION_PS(ps, signum);
    402 	if (!nsa)
    403 		goto out;
    404 
    405 	prop = sigprop[signum];
    406 	if ((nsa->sa_flags & ~SA_ALLBITS) || (prop & SA_CANTMASK)) {
    407 		error = EINVAL;
    408 		goto out;
    409 	}
    410 
    411 	SIGACTION_PS(ps, signum) = *nsa;
    412 	ps->sa_sigdesc[signum].sd_tramp = tramp;
    413 	ps->sa_sigdesc[signum].sd_vers = vers;
    414 	sigminusset(&sigcantmask, &SIGACTION_PS(ps, signum).sa_mask);
    415 
    416 	if ((prop & SA_NORESET) != 0)
    417 		SIGACTION_PS(ps, signum).sa_flags &= ~SA_RESETHAND;
    418 
    419 	if (signum == SIGCHLD) {
    420 		if (nsa->sa_flags & SA_NOCLDSTOP)
    421 			p->p_sflag |= PS_NOCLDSTOP;
    422 		else
    423 			p->p_sflag &= ~PS_NOCLDSTOP;
    424 		if (nsa->sa_flags & SA_NOCLDWAIT) {
    425 			/*
    426 			 * Paranoia: since SA_NOCLDWAIT is implemented by
    427 			 * reparenting the dying child to PID 1 (and trust
    428 			 * it to reap the zombie), PID 1 itself is forbidden
    429 			 * to set SA_NOCLDWAIT.
    430 			 */
    431 			if (p->p_pid == 1)
    432 				p->p_flag &= ~PK_NOCLDWAIT;
    433 			else
    434 				p->p_flag |= PK_NOCLDWAIT;
    435 		} else
    436 			p->p_flag &= ~PK_NOCLDWAIT;
    437 
    438 		if (nsa->sa_handler == SIG_IGN) {
    439 			/*
    440 			 * Paranoia: same as above.
    441 			 */
    442 			if (p->p_pid == 1)
    443 				p->p_flag &= ~PK_CLDSIGIGN;
    444 			else
    445 				p->p_flag |= PK_CLDSIGIGN;
    446 		} else
    447 			p->p_flag &= ~PK_CLDSIGIGN;
    448 	}
    449 
    450 	if ((nsa->sa_flags & SA_NODEFER) == 0)
    451 		sigaddset(&SIGACTION_PS(ps, signum).sa_mask, signum);
    452 	else
    453 		sigdelset(&SIGACTION_PS(ps, signum).sa_mask, signum);
    454 
    455 	/*
    456 	 * Set bit in p_sigctx.ps_sigignore for signals that are set to
    457 	 * SIG_IGN, and for signals set to SIG_DFL where the default is to
    458 	 * ignore. However, don't put SIGCONT in p_sigctx.ps_sigignore, as
    459 	 * we have to restart the process.
    460 	 */
    461 	if (nsa->sa_handler == SIG_IGN ||
    462 	    (nsa->sa_handler == SIG_DFL && (prop & SA_IGNORE) != 0)) {
    463 		/* Never to be seen again. */
    464 		sigemptyset(&tset);
    465 		sigaddset(&tset, signum);
    466 		sigclearall(p, &tset, &kq);
    467 		if (signum != SIGCONT) {
    468 			/* Easier in psignal */
    469 			sigaddset(&p->p_sigctx.ps_sigignore, signum);
    470 		}
    471 		sigdelset(&p->p_sigctx.ps_sigcatch, signum);
    472 	} else {
    473 		sigdelset(&p->p_sigctx.ps_sigignore, signum);
    474 		if (nsa->sa_handler == SIG_DFL)
    475 			sigdelset(&p->p_sigctx.ps_sigcatch, signum);
    476 		else
    477 			sigaddset(&p->p_sigctx.ps_sigcatch, signum);
    478 	}
    479 
    480 	/*
    481 	 * Previously held signals may now have become visible.  Ensure that
    482 	 * we check for them before returning to userspace.
    483 	 */
    484 	if (sigispending(l, 0)) {
    485 		lwp_lock(l);
    486 		l->l_flag |= LW_PENDSIG;
    487 		lwp_unlock(l);
    488 	}
    489  out:
    490 	mutex_exit(p->p_lock);
    491 	ksiginfo_queue_drain(&kq);
    492 
    493 	return (error);
    494 }
    495 
    496 int
    497 sigprocmask1(struct lwp *l, int how, const sigset_t *nss, sigset_t *oss)
    498 {
    499 	int more;
    500 
    501 	KASSERT(mutex_owned(l->l_proc->p_lock));
    502 
    503 	if (oss)
    504 		*oss = l->l_sigmask;
    505 	if (nss) {
    506 		switch (how) {
    507 		case SIG_BLOCK:
    508 			sigplusset(nss, &l->l_sigmask);
    509 			more = 0;
    510 			break;
    511 		case SIG_UNBLOCK:
    512 			sigminusset(nss, &l->l_sigmask);
    513 			more = 1;
    514 			break;
    515 		case SIG_SETMASK:
    516 			l->l_sigmask = *nss;
    517 			more = 1;
    518 			break;
    519 		default:
    520 			return (EINVAL);
    521 		}
    522 		sigminusset(&sigcantmask, &l->l_sigmask);
    523 		if (more && sigispending(l, 0)) {
    524 			/*
    525 			 * Check for pending signals on return to user.
    526 			 */
    527 			lwp_lock(l);
    528 			l->l_flag |= LW_PENDSIG;
    529 			lwp_unlock(l);
    530 		}
    531 	}
    532 
    533 	return (0);
    534 }
    535 
    536 void
    537 sigpending1(struct lwp *l, sigset_t *ss)
    538 {
    539 	struct proc *p = l->l_proc;
    540 
    541 	mutex_enter(p->p_lock);
    542 	*ss = l->l_sigpend.sp_set;
    543 	sigplusset(&p->p_sigpend.sp_set, ss);
    544 	sigminusset(&l->l_sigmask, ss);
    545 	mutex_exit(p->p_lock);
    546 }
    547 
    548 int
    549 sigsuspend1(struct lwp *l, const sigset_t *ss)
    550 {
    551 	struct proc *p;
    552 
    553 	p = l->l_proc;
    554 
    555 	if (ss) {
    556 		/*
    557 		 * When returning from sigsuspend, we want
    558 		 * the old mask to be restored after the
    559 		 * signal handler has finished.  Thus, we
    560 		 * save it here and mark the sigctx structure
    561 		 * to indicate this.
    562 		 */
    563 		mutex_enter(p->p_lock);
    564 		l->l_sigrestore = 1;
    565 		l->l_sigoldmask = l->l_sigmask;
    566 		l->l_sigmask = *ss;
    567 		sigminusset(&sigcantmask, &l->l_sigmask);
    568 
    569 		/* Check for pending signals when sleeping. */
    570 		if (sigispending(l, 0)) {
    571 			lwp_lock(l);
    572 			l->l_flag |= LW_PENDSIG;
    573 			lwp_unlock(l);
    574 		}
    575 		mutex_exit(p->p_lock);
    576 	}
    577 
    578 	while (kpause("pause", true, 0, NULL) == 0)
    579 		;
    580 
    581 	/* always return EINTR rather than ERESTART... */
    582 	return (EINTR);
    583 }
    584 
    585 int
    586 sigaltstack1(struct lwp *l, const struct sigaltstack *nss,
    587 	     struct sigaltstack *oss)
    588 {
    589 	struct proc *p = l->l_proc;
    590 	int error = 0;
    591 
    592 	mutex_enter(p->p_lock);
    593 
    594 	if (oss)
    595 		*oss = l->l_sigstk;
    596 
    597 	if (nss) {
    598 		if (nss->ss_flags & ~SS_ALLBITS)
    599 			error = EINVAL;
    600 		else if (nss->ss_flags & SS_DISABLE) {
    601 			if (l->l_sigstk.ss_flags & SS_ONSTACK)
    602 				error = EINVAL;
    603 		} else if (nss->ss_size < MINSIGSTKSZ)
    604 			error = ENOMEM;
    605 
    606 		if (!error)
    607 			l->l_sigstk = *nss;
    608 	}
    609 
    610 	mutex_exit(p->p_lock);
    611 
    612 	return (error);
    613 }
    614 
    615 int
    616 __sigtimedwait1(struct lwp *l, const struct sys___sigtimedwait_args *uap, register_t *retval,
    617     copyout_t put_info, copyin_t fetch_timeout, copyout_t put_timeout)
    618 {
    619 	/* {
    620 		syscallarg(const sigset_t *) set;
    621 		syscallarg(siginfo_t *) info;
    622 		syscallarg(struct timespec *) timeout;
    623 	} */
    624 	struct proc *p = l->l_proc;
    625 	int error, signum;
    626 	int timo = 0;
    627 	struct timespec ts, tsstart, tsnow;
    628 	ksiginfo_t *ksi;
    629 
    630 	memset(&tsstart, 0, sizeof tsstart);	 /* XXX gcc */
    631 
    632 	/*
    633 	 * Calculate timeout, if it was specified.
    634 	 */
    635 	if (SCARG(uap, timeout)) {
    636 		uint64_t ms;
    637 
    638 		if ((error = (*fetch_timeout)(SCARG(uap, timeout), &ts, sizeof(ts))))
    639 			return (error);
    640 
    641 		ms = (ts.tv_sec * 1000) + (ts.tv_nsec / 1000000);
    642 		timo = mstohz(ms);
    643 		if (timo == 0 && ts.tv_sec == 0 && ts.tv_nsec > 0)
    644 			timo = 1;
    645 		if (timo <= 0)
    646 			return (EAGAIN);
    647 
    648 		/*
    649 		 * Remember current uptime, it would be used in
    650 		 * ECANCELED/ERESTART case.
    651 		 */
    652 		getnanouptime(&tsstart);
    653 	}
    654 
    655 	error = copyin(SCARG(uap, set), &l->l_sigwaitset,
    656 	    sizeof(l->l_sigwaitset));
    657 	if (error != 0)
    658 		return (error);
    659 
    660 	/*
    661 	 * Silently ignore SA_CANTMASK signals. psignal1() would ignore
    662 	 * SA_CANTMASK signals in waitset, we do this only for the below
    663 	 * siglist check.
    664 	 */
    665 	sigminusset(&sigcantmask, &l->l_sigwaitset);
    666 
    667 	/*
    668 	 * Allocate a ksi up front.  We can't sleep with the mutex held.
    669 	 */
    670 	ksi = ksiginfo_alloc(p, NULL, PR_WAITOK);
    671 	if (ksi == NULL)
    672 		return (ENOMEM);
    673 
    674 	mutex_enter(p->p_lock);
    675 
    676 	if ((signum = sigget(&p->p_sigpend, ksi, 0, &l->l_sigwaitset)) == 0)
    677 		signum = sigget(&l->l_sigpend, ksi, 0, &l->l_sigwaitset);
    678 
    679 	if (signum != 0) {
    680 		/*
    681 		 * We found a pending signal - copy it out to the user.
    682 		 */
    683 		mutex_exit(p->p_lock);
    684 		goto out;
    685 	}
    686 
    687 	/*
    688 	 * Set up the sigwait list.
    689 	 */
    690 	l->l_sigwaited = ksi;
    691 	LIST_INSERT_HEAD(&p->p_sigwaiters, l, l_sigwaiter);
    692 
    693 	/*
    694 	 * Wait for signal to arrive. We can either be woken up or time out.
    695 	 */
    696 	error = cv_timedwait_sig(&l->l_sigcv, p->p_lock, timo);
    697 
    698 	/*
    699 	 * Need to find out if we woke as a result of lwp_wakeup() or a
    700 	 * signal outside our wait set.
    701 	 */
    702 	if (l->l_sigwaited != NULL) {
    703 		if (error == EINTR) {
    704 			/* wakeup via _lwp_wakeup() */
    705 			error = ECANCELED;
    706 		} else if (!error) {
    707 			/* spurious wakeup - arrange for syscall restart */
    708 			error = ERESTART;
    709 		}
    710 		l->l_sigwaited = NULL;
    711 		LIST_REMOVE(l, l_sigwaiter);
    712 	}
    713 
    714 	mutex_exit(p->p_lock);
    715 
    716 	/*
    717 	 * If the sleep was interrupted (either by signal or wakeup), update
    718 	 * the timeout and copyout new value back.  It would be used when
    719 	 * the syscall would be restarted or called again.
    720 	 */
    721 	if (timo && (error == ERESTART || error == ECANCELED)) {
    722 		getnanouptime(&tsnow);
    723 
    724 		/* compute how much time has passed since start */
    725 		timespecsub(&tsnow, &tsstart, &tsnow);
    726 		/* substract passed time from timeout */
    727 		timespecsub(&ts, &tsnow, &ts);
    728 
    729 		if (ts.tv_sec < 0)
    730 			error = EAGAIN;
    731 		else {
    732 			/* copy updated timeout to userland */
    733 			error = (*put_timeout)(&ts, SCARG(uap, timeout),
    734 			    sizeof(ts));
    735 		}
    736 	}
    737 
    738 	/*
    739 	 * If a signal from the wait set arrived, copy it to userland.
    740 	 * Copy only the used part of siginfo, the padding part is
    741 	 * left unchanged (userland is not supposed to touch it anyway).
    742 	 */
    743  out:
    744 	if (error == 0)
    745 		error = (*put_info)(&ksi->ksi_info, SCARG(uap, info),
    746 		    sizeof(ksi->ksi_info));
    747 
    748 	ksiginfo_free(ksi);
    749 
    750 	return error;
    751 }
    752