2 Copyright (C) 2006, 2008, 2009 Free Software Foundation, Inc.
3 Contributed by Jakub Jelinek <jakub@redhat.com>.
5 This file is part of GCC.
7 GCC is free software; you can redistribute it and/or modify it under
8 the terms of the GNU General Public License as published by the Free
9 Software Foundation; either version 3, or (at your option) any later
12 GCC is distributed in the hope that it will be useful, but WITHOUT ANY
13 WARRANTY; without even the implied warranty of MERCHANTABILITY or
14 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
17 Under Section 7 of GPL version 3, you are granted additional
18 permissions described in the GCC Runtime Library Exception, version
19 3.1, as published by the Free Software Foundation.
21 You should have received a copy of the GNU General Public License and
22 a copy of the GCC Runtime Library Exception along with this program;
23 see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
24 <http://www.gnu.org/licenses/>. */
28 #include "coretypes.h"
32 typedef unsigned int word __attribute__((mode(word)));
33 typedef unsigned int pointer __attribute__((mode(pointer)));
35 struct __emutls_object
52 void *__emutls_get_address (struct __emutls_object *);
53 void __emutls_register_common (struct __emutls_object *, word, word, void *);
56 #ifdef __GTHREAD_MUTEX_INIT
57 static __gthread_mutex_t emutls_mutex = __GTHREAD_MUTEX_INIT;
59 static __gthread_mutex_t emutls_mutex;
61 static __gthread_key_t emutls_key;
62 static pointer emutls_size;
65 emutls_destroy (void *ptr)
67 struct __emutls_array *arr = ptr;
68 pointer size = arr->size;
71 for (i = 0; i < size; ++i)
74 free (arr->data[i][-1]);
83 #ifndef __GTHREAD_MUTEX_INIT
84 __GTHREAD_MUTEX_INIT_FUNCTION (&emutls_mutex);
86 if (__gthread_key_create (&emutls_key, emutls_destroy) != 0)
92 emutls_alloc (struct __emutls_object *obj)
97 /* We could use here posix_memalign if available and adjust
98 emutls_destroy accordingly. */
99 if (obj->align <= sizeof (void *))
101 ptr = malloc (obj->size + sizeof (void *));
104 ((void **) ptr)[0] = ptr;
105 ret = ptr + sizeof (void *);
109 ptr = malloc (obj->size + sizeof (void *) + obj->align - 1);
112 ret = (void *) (((pointer) (ptr + sizeof (void *) + obj->align - 1))
113 & ~(pointer)(obj->align - 1));
114 ((void **) ret)[-1] = ptr;
118 memcpy (ret, obj->templ, obj->size);
120 memset (ret, 0, obj->size);
126 __emutls_get_address (struct __emutls_object *obj)
128 if (! __gthread_active_p ())
130 if (__builtin_expect (obj->loc.ptr == NULL, 0))
131 obj->loc.ptr = emutls_alloc (obj);
138 pointer offset = obj->loc.offset;
140 if (__builtin_expect (offset == 0, 0))
142 static __gthread_once_t once = __GTHREAD_ONCE_INIT;
143 __gthread_once (&once, emutls_init);
144 __gthread_mutex_lock (&emutls_mutex);
145 offset = obj->loc.offset;
148 offset = ++emutls_size;
149 obj->loc.offset = offset;
151 __gthread_mutex_unlock (&emutls_mutex);
154 /* Do not allow emutls_key to be loaded before offset. */
155 __sync_synchronize();
157 struct __emutls_array *arr = __gthread_getspecific (emutls_key);
158 if (__builtin_expect (arr == NULL, 0))
160 pointer size = offset + 32;
161 arr = calloc (size + 1, sizeof (void *));
165 __gthread_setspecific (emutls_key, (void *) arr);
167 else if (__builtin_expect (offset > arr->size, 0))
169 pointer orig_size = arr->size;
170 pointer size = orig_size * 2;
173 arr = realloc (arr, (size + 1) * sizeof (void *));
177 memset (arr->data + orig_size, 0,
178 (size - orig_size) * sizeof (void *));
179 __gthread_setspecific (emutls_key, (void *) arr);
182 void *ret = arr->data[offset - 1];
183 if (__builtin_expect (ret == NULL, 0))
185 ret = emutls_alloc (obj);
186 arr->data[offset - 1] = ret;
193 __emutls_register_common (struct __emutls_object *obj,
194 word size, word align, void *templ)
196 if (obj->size < size)
201 if (obj->align < align)
203 if (templ && size == obj->size)