2 * Copyright (c) 1994 by Xerox Corporation. All rights reserved.
4 * THIS MATERIAL IS PROVIDED AS IS, WITH ABSOLUTELY NO WARRANTY EXPRESSED
5 * OR IMPLIED. ANY USE IS AT YOUR OWN RISK.
7 * Permission is hereby granted to use or copy this program
8 * for any purpose, provided the above notices are retained on all copies.
9 * Permission to modify the code and to distribute modified code is granted,
10 * provided the above notices are retained, and a notice that the code was
11 * modified is included with the above copyright notice.
14 * Support code for Solaris threads. Provides functionality we wish Sun
15 * had provided. Relies on some information we probably shouldn't rely on.
16 * Modified by Peter C. for Solaris Posix Threads.
19 # include "private/gc_priv.h"
21 # if defined(GC_SOLARIS_PTHREADS)
23 /* Avoid #error"Cannot use procfs in the large file compilation environment" */
24 #if defined(_ILP32) && (_FILE_OFFSET_BITS != 32)
25 #undef _FILE_OFFSET_BITS
26 #define _FILE_OFFSET_BITS 32
33 # include <sys/types.h>
34 # include <sys/mman.h>
35 # include <sys/time.h>
36 # include <sys/resource.h>
37 # include <sys/stat.h>
38 # include <sys/syscall.h>
39 # include <sys/procfs.h>
42 # define _CLASSIC_XOPEN_TYPES
45 # include "private/solaris_threads.h"
51 pthread_cond_t GC_prom_join_cv; /* Broadcast when any thread terminates */
52 pthread_cond_t GC_create_cv; /* Signalled when a new undetached */
55 extern GC_bool GC_multithreaded;
57 /* We use the allocation lock to protect thread-related data structures. */
59 /* We stop the world using /proc primitives. This makes some */
60 /* minimal assumptions about the threads implementation. */
61 /* We don't play by the rules, since the rules make this */
62 /* impossible (as of Solaris 2.3). Also note that as of */
63 /* Solaris 2.3 the various thread and lwp suspension */
64 /* primitives failed to stop threads by the time the request */
69 int GC_pthread_join(pthread_t wait_for, void **status)
71 return GC_thr_join((thread_t)wait_for, NULL, status);
74 int GC_pthread_detach(pthread_t thread)
79 t=GC_lookup_thread(thread);
88 return pthread_detach(thread);
92 GC_pthread_create(pthread_t *new_thread,
93 const pthread_attr_t *attr_in,
94 void * (*thread_execp)(void *), void *arg)
98 pthread_t my_new_thread;
103 size_t stack_size = 0;
105 struct sched_param schedparam;
107 (void)pthread_attr_init(&attr);
109 (void)pthread_attr_getstacksize(attr_in, &stack_size);
110 (void)pthread_attr_getstackaddr(attr_in, &stack);
114 if (!GC_is_initialized) {
121 stack_size = 1048576;
122 /* ^-- 1 MB (this was GC_min_stack_sz, but that
123 * violates the pthread_create documentation which
124 * says the default value if none is supplied is
127 stack_size += thr_min_stack();
129 stack = (void *)GC_stack_alloc(&stack_size);
137 my_flags |= CLIENT_OWNS_STACK;
139 (void)pthread_attr_setstacksize(&attr, stack_size);
140 (void)pthread_attr_setstackaddr(&attr, stack);
142 (void)pthread_attr_getscope(attr_in, &n);
143 (void)pthread_attr_setscope(&attr, n);
144 (void)pthread_attr_getschedparam(attr_in, &schedparam);
145 (void)pthread_attr_setschedparam(&attr, &schedparam);
146 (void)pthread_attr_getschedpolicy(attr_in, &n);
147 (void)pthread_attr_setschedpolicy(&attr, n);
148 (void)pthread_attr_getinheritsched(attr_in, &n);
149 (void)pthread_attr_setinheritsched(&attr, n);
151 (void)pthread_attr_getdetachstate(attr_in, &flag);
152 if (flag == PTHREAD_CREATE_DETACHED) {
153 my_flags |= DETACHED;
155 (void)pthread_attr_setdetachstate(&attr, PTHREAD_CREATE_JOINABLE);
158 * thr_create can call malloc(), which if redirected will
159 * attempt to acquire the allocation lock.
160 * Unlock here to prevent deadlock.
170 pthread_create(&my_new_thread, &attr, thread_execp, arg);
177 t = GC_new_thread(my_new_thread);
178 t -> flags = my_flags;
179 if (!(my_flags & DETACHED)) cond_init(&(t->join_cv), USYNC_THREAD, 0);
181 t -> stack_size = stack_size;
182 if (new_thread != 0) *new_thread = my_new_thread;
183 pthread_cond_signal(&GC_create_cv);
185 if (!(my_flags & CLIENT_OWNS_STACK)) {
186 GC_stack_free(stack, stack_size);
191 pthread_attr_destroy(&attr);
198 int GC_no_sunOS_pthreads;
201 # endif /* GC_SOLARIS_PTHREADS */