1 /*
2 * CDDL HEADER START
3 *
4 * The contents of this file are subject to the terms of the
5 * Common Development and Distribution License (the "License").
6 * You may not use this file except in compliance with the License.
7 *
8 * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
9 * or http://www.opensolaris.org/os/licensing.
10 * See the License for the specific language governing permissions
11 * and limitations under the License.
12 *
13 * When distributing Covered Code, include this CDDL HEADER in each
14 * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
15 * If applicable, add the following below this CDDL HEADER, with the
16 * fields enclosed by brackets "[]" replaced with your own identifying
17 * information: Portions Copyright [yyyy] [name of copyright owner]
18 *
19 * CDDL HEADER END
20 */
21
22 /*
23 * Copyright 2009 Sun Microsystems, Inc. All rights reserved.
24 * Use is subject to license terms.
25 */
26
27 /* Copyright (c) 1984, 1986, 1987, 1988, 1989 AT&T */
28
29 #include <sys/param.h>
30 #include <sys/types.h>
31 #include <sys/sysmacros.h>
32 #include <sys/systm.h>
33 #include <sys/errno.h>
34 #include <sys/syscall.h>
35 #include <sys/proc.h>
36 #include <sys/processor.h>
37 #include <sys/fault.h>
38 #include <sys/ucontext.h>
39 #include <sys/signal.h>
40 #include <sys/unistd.h>
41 #include <sys/procfs.h>
42 #include <sys/prsystm.h>
43 #include <sys/cmn_err.h>
44 #include <sys/debug.h>
45 #include <sys/klwp.h>
46 #include <sys/pool.h>
47
48 /*
49 * System call to create an lwp.
50 *
51 * Notes on the LWP_DETACHED and LWP_DAEMON flags:
52 *
53 * A detached lwp (LWP_DETACHED) cannot be the specific target of
54 * lwp_wait() (it is not joinable), but lwp_wait(0, ...) is required
55 * to sleep until all non-daemon detached lwps have terminated before
56 * returning EDEADLK because a detached lwp might create a non-detached lwp
57 * that could then be returned by lwp_wait(0, ...). See also lwp_detach().
58 *
59 * A daemon lwp (LWP_DAEMON) is a detached lwp that has the additional
60 * property that it does not affect the termination condition of the
61 * process: The last non-daemon lwp to call lwp_exit() causes the process
62 * to exit and lwp_wait(0, ...) does not sleep waiting for daemon lwps
63 * to terminate. See the block comment before lwp_wait().
64 */
65 int
syslwp_create(ucontext_t * ucp,int flags,id_t * new_lwp)66 syslwp_create(ucontext_t *ucp, int flags, id_t *new_lwp)
67 {
68 klwp_t *lwp;
69 proc_t *p = ttoproc(curthread);
70 kthread_t *t;
71 ucontext_t uc;
72 #ifdef _SYSCALL32_IMPL
73 ucontext32_t uc32;
74 #endif /* _SYSCALL32_IMPL */
75 k_sigset_t sigmask;
76 int tid;
77 model_t model = get_udatamodel();
78 uintptr_t thrptr = 0;
79
80 if (flags & ~(LWP_DAEMON|LWP_DETACHED|LWP_SUSPENDED))
81 return (set_errno(EINVAL));
82
83 /*
84 * lwp_create() is disallowed for the /proc agent lwp.
85 */
86 if (curthread == p->p_agenttp)
87 return (set_errno(ENOTSUP));
88
89 if (model == DATAMODEL_NATIVE) {
90 if (copyin(ucp, &uc, sizeof (ucontext_t)))
91 return (set_errno(EFAULT));
92 sigutok(&uc.uc_sigmask, &sigmask);
93 #if defined(__i386)
94 /*
95 * libc stashed thrptr into unused kernel %sp.
96 * See setup_context() in libc.
97 */
98 thrptr = (uint32_t)uc.uc_mcontext.gregs[ESP];
99 #endif
100 }
101 #ifdef _SYSCALL32_IMPL
102 else {
103 if (copyin(ucp, &uc32, sizeof (ucontext32_t)))
104 return (set_errno(EFAULT));
105 sigutok(&uc32.uc_sigmask, &sigmask);
106 #if defined(__sparc)
107 ucontext_32ton(&uc32, &uc, NULL, NULL);
108 #else /* __amd64 */
109 ucontext_32ton(&uc32, &uc);
110 /*
111 * libc stashed thrptr into unused kernel %sp.
112 * See setup_context() in libc.
113 */
114 thrptr = (uint32_t)uc32.uc_mcontext.gregs[ESP];
115 #endif
116 }
117 #endif /* _SYSCALL32_IMPL */
118
119 /*
120 * Tell machine specific code that we are creating a new lwp
121 */
122 LWP_MMODEL_NEWLWP();
123
124 (void) save_syscall_args(); /* save args for tracing first */
125
126 mutex_enter(&curproc->p_lock);
127 pool_barrier_enter();
128 mutex_exit(&curproc->p_lock);
129 lwp = lwp_create(lwp_rtt, NULL, NULL, curproc, TS_STOPPED,
130 curthread->t_pri, &sigmask, curthread->t_cid, 0);
131 mutex_enter(&curproc->p_lock);
132 pool_barrier_exit();
133 mutex_exit(&curproc->p_lock);
134 if (lwp == NULL)
135 return (set_errno(EAGAIN));
136
137 lwp_load(lwp, uc.uc_mcontext.gregs, thrptr);
138
139 t = lwptot(lwp);
140 /*
141 * Copy the new lwp's lwpid into the caller's specified buffer.
142 */
143 if (new_lwp && copyout(&t->t_tid, new_lwp, sizeof (id_t))) {
144 /*
145 * caller's buffer is not writable, return
146 * EFAULT, and terminate new lwp.
147 */
148 mutex_enter(&p->p_lock);
149 t->t_proc_flag |= TP_EXITLWP;
150 t->t_sig_check = 1;
151 t->t_sysnum = 0;
152 t->t_proc_flag &= ~TP_HOLDLWP;
153 lwp_create_done(t);
154 mutex_exit(&p->p_lock);
155 return (set_errno(EFAULT));
156 }
157
158 /*
159 * clone callers context, if any. must be invoked
160 * while -not- holding p_lock.
161 */
162 if (curthread->t_ctx)
163 lwp_createctx(curthread, t);
164
165 /*
166 * copy current contract templates
167 */
168 lwp_ctmpl_copy(lwp, ttolwp(curthread));
169
170 mutex_enter(&p->p_lock);
171 /*
172 * Copy the syscall arguments to the new lwp's arg area
173 * for the benefit of debuggers.
174 */
175 t->t_sysnum = SYS_lwp_create;
176 lwp->lwp_ap = lwp->lwp_arg;
177 lwp->lwp_arg[0] = (long)ucp;
178 lwp->lwp_arg[1] = (long)flags;
179 lwp->lwp_arg[2] = (long)new_lwp;
180 lwp->lwp_argsaved = 1;
181
182 if (!(flags & (LWP_DETACHED|LWP_DAEMON)))
183 t->t_proc_flag |= TP_TWAIT;
184 if (flags & LWP_DAEMON) {
185 t->t_proc_flag |= TP_DAEMON;
186 p->p_lwpdaemon++;
187 }
188
189 tid = (int)t->t_tid; /* for /proc debuggers */
190
191 /*
192 * We now set the newly-created lwp running.
193 * If it is being created as LWP_SUSPENDED, we leave its
194 * TP_HOLDLWP flag set so it will stop in system call exit.
195 */
196 if (!(flags & LWP_SUSPENDED))
197 t->t_proc_flag &= ~TP_HOLDLWP;
198 lwp_create_done(t);
199 mutex_exit(&p->p_lock);
200
201 return (tid);
202 }
203
204 /*
205 * Exit the calling lwp
206 */
207 void
syslwp_exit()208 syslwp_exit()
209 {
210 proc_t *p = ttoproc(curthread);
211
212 mutex_enter(&p->p_lock);
213 lwp_exit();
214 /* NOTREACHED */
215 }
216