2012-03-22 09:33:03 +08:00
|
|
|
/******************************************************************************/
|
|
|
|
#ifdef JEMALLOC_H_TYPES
|
|
|
|
|
|
|
|
/* Maximum number of malloc_tsd users with cleanup functions. */
|
|
|
|
#define MALLOC_TSD_CLEANUPS_MAX 8
|
|
|
|
|
2012-04-19 00:29:49 +08:00
|
|
|
typedef bool (*malloc_tsd_cleanup_t)(void);
|
2012-03-22 09:33:03 +08:00
|
|
|
|
|
|
|
/*
|
|
|
|
* TLS/TSD-agnostic macro-based implementation of thread-specific data. There
|
|
|
|
* are four macros that support (at least) three use cases: file-private,
|
|
|
|
* library-private, and library-private inlined. Following is an example
|
|
|
|
* library-private tsd variable:
|
|
|
|
*
|
|
|
|
* In example.h:
|
|
|
|
* typedef struct {
|
|
|
|
* int x;
|
|
|
|
* int y;
|
|
|
|
* } example_t;
|
|
|
|
* #define EX_INITIALIZER JEMALLOC_CONCAT({0, 0})
|
|
|
|
* malloc_tsd_protos(, example, example_t *)
|
|
|
|
* malloc_tsd_externs(example, example_t *)
|
|
|
|
* In example.c:
|
|
|
|
* malloc_tsd_data(, example, example_t *, EX_INITIALIZER)
|
|
|
|
* malloc_tsd_funcs(, example, example_t *, EX_INITIALIZER,
|
|
|
|
* example_tsd_cleanup)
|
|
|
|
*
|
|
|
|
* The result is a set of generated functions, e.g.:
|
|
|
|
*
|
|
|
|
* bool example_tsd_boot(void) {...}
|
|
|
|
* example_t **example_tsd_get() {...}
|
|
|
|
* void example_tsd_set(example_t **val) {...}
|
|
|
|
*
|
|
|
|
* Note that all of the functions deal in terms of (a_type *) rather than
|
|
|
|
* (a_type) so that it is possible to support non-pointer types (unlike
|
|
|
|
* pthreads TSD). example_tsd_cleanup() is passed an (a_type *) pointer that is
|
|
|
|
* cast to (void *). This means that the cleanup function needs to cast *and*
|
|
|
|
* dereference the function argument, e.g.:
|
|
|
|
*
|
|
|
|
* void
|
|
|
|
* example_tsd_cleanup(void *arg)
|
|
|
|
* {
|
|
|
|
* example_t *example = *(example_t **)arg;
|
|
|
|
*
|
|
|
|
* [...]
|
|
|
|
* if ([want the cleanup function to be called again]) {
|
|
|
|
* example_tsd_set(&example);
|
|
|
|
* }
|
|
|
|
* }
|
|
|
|
*
|
|
|
|
* If example_tsd_set() is called within example_tsd_cleanup(), it will be
|
|
|
|
* called again. This is similar to how pthreads TSD destruction works, except
|
|
|
|
* that pthreads only calls the cleanup function again if the value was set to
|
|
|
|
* non-NULL.
|
|
|
|
*/
|
|
|
|
|
|
|
|
/* malloc_tsd_protos(). */
|
|
|
|
#define malloc_tsd_protos(a_attr, a_name, a_type) \
|
|
|
|
a_attr bool \
|
|
|
|
a_name##_tsd_boot(void); \
|
|
|
|
a_attr a_type * \
|
|
|
|
a_name##_tsd_get(void); \
|
|
|
|
a_attr void \
|
|
|
|
a_name##_tsd_set(a_type *val);
|
|
|
|
|
|
|
|
/* malloc_tsd_externs(). */
|
|
|
|
#ifdef JEMALLOC_MALLOC_THREAD_CLEANUP
|
|
|
|
#define malloc_tsd_externs(a_name, a_type) \
|
|
|
|
extern __thread a_type a_name##_tls; \
|
2012-02-03 14:04:57 +08:00
|
|
|
extern __thread bool a_name##_initialized; \
|
2012-03-22 09:33:03 +08:00
|
|
|
extern bool a_name##_booted;
|
|
|
|
#elif (defined(JEMALLOC_TLS))
|
|
|
|
#define malloc_tsd_externs(a_name, a_type) \
|
|
|
|
extern __thread a_type a_name##_tls; \
|
|
|
|
extern pthread_key_t a_name##_tsd; \
|
|
|
|
extern bool a_name##_booted;
|
2012-04-22 12:27:46 +08:00
|
|
|
#elif (defined(_WIN32))
|
|
|
|
#define malloc_tsd_externs(a_name, a_type) \
|
|
|
|
extern DWORD a_name##_tsd; \
|
|
|
|
extern bool a_name##_booted;
|
2012-03-22 09:33:03 +08:00
|
|
|
#else
|
|
|
|
#define malloc_tsd_externs(a_name, a_type) \
|
|
|
|
extern pthread_key_t a_name##_tsd; \
|
|
|
|
extern bool a_name##_booted;
|
|
|
|
#endif
|
|
|
|
|
|
|
|
/* malloc_tsd_data(). */
|
|
|
|
#ifdef JEMALLOC_MALLOC_THREAD_CLEANUP
|
|
|
|
#define malloc_tsd_data(a_attr, a_name, a_type, a_initializer) \
|
2012-04-04 13:30:05 +08:00
|
|
|
a_attr __thread a_type JEMALLOC_TLS_MODEL \
|
2012-03-22 09:33:03 +08:00
|
|
|
a_name##_tls = a_initializer; \
|
2012-04-04 13:30:05 +08:00
|
|
|
a_attr __thread bool JEMALLOC_TLS_MODEL \
|
2012-03-22 09:33:03 +08:00
|
|
|
a_name##_initialized = false; \
|
|
|
|
a_attr bool a_name##_booted = false;
|
|
|
|
#elif (defined(JEMALLOC_TLS))
|
|
|
|
#define malloc_tsd_data(a_attr, a_name, a_type, a_initializer) \
|
2012-04-04 13:30:05 +08:00
|
|
|
a_attr __thread a_type JEMALLOC_TLS_MODEL \
|
2012-03-22 09:33:03 +08:00
|
|
|
a_name##_tls = a_initializer; \
|
|
|
|
a_attr pthread_key_t a_name##_tsd; \
|
|
|
|
a_attr bool a_name##_booted = false;
|
2012-04-22 12:27:46 +08:00
|
|
|
#elif (defined(_WIN32))
|
|
|
|
#define malloc_tsd_data(a_attr, a_name, a_type, a_initializer) \
|
|
|
|
a_attr DWORD a_name##_tsd; \
|
|
|
|
a_attr bool a_name##_booted = false;
|
2012-03-22 09:33:03 +08:00
|
|
|
#else
|
|
|
|
#define malloc_tsd_data(a_attr, a_name, a_type, a_initializer) \
|
|
|
|
a_attr pthread_key_t a_name##_tsd; \
|
|
|
|
a_attr bool a_name##_booted = false;
|
|
|
|
#endif
|
|
|
|
|
|
|
|
/* malloc_tsd_funcs(). */
|
|
|
|
#ifdef JEMALLOC_MALLOC_THREAD_CLEANUP
|
|
|
|
#define malloc_tsd_funcs(a_attr, a_name, a_type, a_initializer, \
|
|
|
|
a_cleanup) \
|
|
|
|
/* Initialization/cleanup. */ \
|
2012-03-31 03:36:52 +08:00
|
|
|
a_attr bool \
|
2012-04-19 00:29:49 +08:00
|
|
|
a_name##_tsd_cleanup_wrapper(void) \
|
2012-03-22 09:33:03 +08:00
|
|
|
{ \
|
|
|
|
\
|
|
|
|
if (a_name##_initialized) { \
|
|
|
|
a_name##_initialized = false; \
|
2012-04-22 07:04:51 +08:00
|
|
|
a_cleanup(&a_name##_tls); \
|
2012-03-22 09:33:03 +08:00
|
|
|
} \
|
|
|
|
return (a_name##_initialized); \
|
|
|
|
} \
|
|
|
|
a_attr bool \
|
|
|
|
a_name##_tsd_boot(void) \
|
|
|
|
{ \
|
|
|
|
\
|
|
|
|
if (a_cleanup != malloc_tsd_no_cleanup) { \
|
|
|
|
malloc_tsd_cleanup_register( \
|
2012-04-19 00:29:49 +08:00
|
|
|
&a_name##_tsd_cleanup_wrapper); \
|
2012-03-22 09:33:03 +08:00
|
|
|
} \
|
|
|
|
a_name##_booted = true; \
|
|
|
|
return (false); \
|
|
|
|
} \
|
|
|
|
/* Get/set. */ \
|
|
|
|
a_attr a_type * \
|
|
|
|
a_name##_tsd_get(void) \
|
|
|
|
{ \
|
|
|
|
\
|
|
|
|
assert(a_name##_booted); \
|
|
|
|
return (&a_name##_tls); \
|
|
|
|
} \
|
|
|
|
a_attr void \
|
|
|
|
a_name##_tsd_set(a_type *val) \
|
|
|
|
{ \
|
|
|
|
\
|
|
|
|
assert(a_name##_booted); \
|
|
|
|
a_name##_tls = (*val); \
|
|
|
|
if (a_cleanup != malloc_tsd_no_cleanup) \
|
|
|
|
a_name##_initialized = true; \
|
|
|
|
}
|
|
|
|
#elif (defined(JEMALLOC_TLS))
|
|
|
|
#define malloc_tsd_funcs(a_attr, a_name, a_type, a_initializer, \
|
|
|
|
a_cleanup) \
|
|
|
|
/* Initialization/cleanup. */ \
|
|
|
|
a_attr bool \
|
|
|
|
a_name##_tsd_boot(void) \
|
|
|
|
{ \
|
|
|
|
\
|
|
|
|
if (a_cleanup != malloc_tsd_no_cleanup) { \
|
|
|
|
if (pthread_key_create(&a_name##_tsd, a_cleanup) != 0) \
|
|
|
|
return (true); \
|
|
|
|
} \
|
|
|
|
a_name##_booted = true; \
|
|
|
|
return (false); \
|
|
|
|
} \
|
|
|
|
/* Get/set. */ \
|
|
|
|
a_attr a_type * \
|
|
|
|
a_name##_tsd_get(void) \
|
|
|
|
{ \
|
|
|
|
\
|
|
|
|
assert(a_name##_booted); \
|
|
|
|
return (&a_name##_tls); \
|
|
|
|
} \
|
|
|
|
a_attr void \
|
|
|
|
a_name##_tsd_set(a_type *val) \
|
|
|
|
{ \
|
|
|
|
\
|
|
|
|
assert(a_name##_booted); \
|
|
|
|
a_name##_tls = (*val); \
|
|
|
|
if (a_cleanup != malloc_tsd_no_cleanup) { \
|
|
|
|
if (pthread_setspecific(a_name##_tsd, \
|
|
|
|
(void *)(&a_name##_tls))) { \
|
|
|
|
malloc_write("<jemalloc>: Error" \
|
|
|
|
" setting TSD for "#a_name"\n"); \
|
|
|
|
if (opt_abort) \
|
|
|
|
abort(); \
|
|
|
|
} \
|
|
|
|
} \
|
|
|
|
}
|
2012-04-22 12:27:46 +08:00
|
|
|
#elif (defined(_WIN32))
|
|
|
|
#define malloc_tsd_funcs(a_attr, a_name, a_type, a_initializer, \
|
|
|
|
a_cleanup) \
|
|
|
|
/* Data structure. */ \
|
|
|
|
typedef struct { \
|
|
|
|
bool initialized; \
|
|
|
|
a_type val; \
|
|
|
|
} a_name##_tsd_wrapper_t; \
|
|
|
|
/* Initialization/cleanup. */ \
|
|
|
|
a_attr bool \
|
|
|
|
a_name##_tsd_cleanup_wrapper(void) \
|
|
|
|
{ \
|
|
|
|
a_name##_tsd_wrapper_t *wrapper; \
|
|
|
|
\
|
|
|
|
wrapper = (a_name##_tsd_wrapper_t *) TlsGetValue(a_name##_tsd); \
|
|
|
|
if (wrapper == NULL) \
|
|
|
|
return (false); \
|
|
|
|
if (a_cleanup != malloc_tsd_no_cleanup && \
|
|
|
|
wrapper->initialized) { \
|
|
|
|
a_type val = wrapper->val; \
|
|
|
|
a_type tsd_static_data = a_initializer; \
|
|
|
|
wrapper->initialized = false; \
|
|
|
|
wrapper->val = tsd_static_data; \
|
|
|
|
a_cleanup(&val); \
|
|
|
|
if (wrapper->initialized) { \
|
|
|
|
/* Trigger another cleanup round. */ \
|
|
|
|
return (true); \
|
|
|
|
} \
|
|
|
|
} \
|
|
|
|
malloc_tsd_dalloc(wrapper); \
|
|
|
|
return (false); \
|
|
|
|
} \
|
|
|
|
a_attr bool \
|
|
|
|
a_name##_tsd_boot(void) \
|
|
|
|
{ \
|
|
|
|
\
|
|
|
|
a_name##_tsd = TlsAlloc(); \
|
|
|
|
if (a_name##_tsd == TLS_OUT_OF_INDEXES) \
|
|
|
|
return (true); \
|
|
|
|
if (a_cleanup != malloc_tsd_no_cleanup) { \
|
|
|
|
malloc_tsd_cleanup_register( \
|
|
|
|
&a_name##_tsd_cleanup_wrapper); \
|
|
|
|
} \
|
|
|
|
a_name##_booted = true; \
|
|
|
|
return (false); \
|
|
|
|
} \
|
|
|
|
/* Get/set. */ \
|
|
|
|
a_attr a_name##_tsd_wrapper_t * \
|
|
|
|
a_name##_tsd_get_wrapper(void) \
|
|
|
|
{ \
|
|
|
|
a_name##_tsd_wrapper_t *wrapper = (a_name##_tsd_wrapper_t *) \
|
|
|
|
TlsGetValue(a_name##_tsd); \
|
|
|
|
\
|
|
|
|
if (wrapper == NULL) { \
|
|
|
|
wrapper = (a_name##_tsd_wrapper_t *) \
|
|
|
|
malloc_tsd_malloc(sizeof(a_name##_tsd_wrapper_t)); \
|
|
|
|
if (wrapper == NULL) { \
|
|
|
|
malloc_write("<jemalloc>: Error allocating" \
|
|
|
|
" TSD for "#a_name"\n"); \
|
|
|
|
abort(); \
|
|
|
|
} else { \
|
|
|
|
static a_type tsd_static_data = a_initializer; \
|
|
|
|
wrapper->initialized = false; \
|
|
|
|
wrapper->val = tsd_static_data; \
|
|
|
|
} \
|
|
|
|
if (!TlsSetValue(a_name##_tsd, (void *)wrapper)) { \
|
|
|
|
malloc_write("<jemalloc>: Error setting" \
|
|
|
|
" TSD for "#a_name"\n"); \
|
|
|
|
abort(); \
|
|
|
|
} \
|
|
|
|
} \
|
|
|
|
return (wrapper); \
|
|
|
|
} \
|
|
|
|
a_attr a_type * \
|
|
|
|
a_name##_tsd_get(void) \
|
|
|
|
{ \
|
|
|
|
a_name##_tsd_wrapper_t *wrapper; \
|
|
|
|
\
|
|
|
|
assert(a_name##_booted); \
|
|
|
|
wrapper = a_name##_tsd_get_wrapper(); \
|
|
|
|
return (&wrapper->val); \
|
|
|
|
} \
|
|
|
|
a_attr void \
|
|
|
|
a_name##_tsd_set(a_type *val) \
|
|
|
|
{ \
|
|
|
|
a_name##_tsd_wrapper_t *wrapper; \
|
|
|
|
\
|
|
|
|
assert(a_name##_booted); \
|
|
|
|
wrapper = a_name##_tsd_get_wrapper(); \
|
|
|
|
wrapper->val = *(val); \
|
|
|
|
if (a_cleanup != malloc_tsd_no_cleanup) \
|
|
|
|
wrapper->initialized = true; \
|
|
|
|
}
|
2012-03-22 09:33:03 +08:00
|
|
|
#else
|
|
|
|
#define malloc_tsd_funcs(a_attr, a_name, a_type, a_initializer, \
|
|
|
|
a_cleanup) \
|
|
|
|
/* Data structure. */ \
|
|
|
|
typedef struct { \
|
|
|
|
bool initialized; \
|
|
|
|
a_type val; \
|
|
|
|
} a_name##_tsd_wrapper_t; \
|
|
|
|
/* Initialization/cleanup. */ \
|
|
|
|
a_attr void \
|
|
|
|
a_name##_tsd_cleanup_wrapper(void *arg) \
|
|
|
|
{ \
|
|
|
|
a_name##_tsd_wrapper_t *wrapper = (a_name##_tsd_wrapper_t *)arg;\
|
|
|
|
\
|
|
|
|
if (a_cleanup != malloc_tsd_no_cleanup && \
|
|
|
|
wrapper->initialized) { \
|
|
|
|
wrapper->initialized = false; \
|
|
|
|
a_cleanup(&wrapper->val); \
|
|
|
|
if (wrapper->initialized) { \
|
|
|
|
/* Trigger another cleanup round. */ \
|
|
|
|
if (pthread_setspecific(a_name##_tsd, \
|
|
|
|
(void *)wrapper)) { \
|
|
|
|
malloc_write("<jemalloc>: Error" \
|
|
|
|
" setting TSD for "#a_name"\n"); \
|
|
|
|
if (opt_abort) \
|
|
|
|
abort(); \
|
|
|
|
} \
|
|
|
|
return; \
|
|
|
|
} \
|
|
|
|
} \
|
2012-04-19 00:29:48 +08:00
|
|
|
malloc_tsd_dalloc(wrapper); \
|
2012-03-22 09:33:03 +08:00
|
|
|
} \
|
|
|
|
a_attr bool \
|
|
|
|
a_name##_tsd_boot(void) \
|
|
|
|
{ \
|
|
|
|
\
|
|
|
|
if (pthread_key_create(&a_name##_tsd, \
|
|
|
|
a_name##_tsd_cleanup_wrapper) != 0) \
|
|
|
|
return (true); \
|
|
|
|
a_name##_booted = true; \
|
|
|
|
return (false); \
|
|
|
|
} \
|
|
|
|
/* Get/set. */ \
|
|
|
|
a_attr a_name##_tsd_wrapper_t * \
|
|
|
|
a_name##_tsd_get_wrapper(void) \
|
|
|
|
{ \
|
|
|
|
a_name##_tsd_wrapper_t *wrapper = (a_name##_tsd_wrapper_t *) \
|
|
|
|
pthread_getspecific(a_name##_tsd); \
|
|
|
|
\
|
|
|
|
if (wrapper == NULL) { \
|
|
|
|
wrapper = (a_name##_tsd_wrapper_t *) \
|
|
|
|
malloc_tsd_malloc(sizeof(a_name##_tsd_wrapper_t)); \
|
|
|
|
if (wrapper == NULL) { \
|
|
|
|
malloc_write("<jemalloc>: Error allocating" \
|
|
|
|
" TSD for "#a_name"\n"); \
|
2012-04-19 00:29:48 +08:00
|
|
|
abort(); \
|
2012-03-22 09:33:03 +08:00
|
|
|
} else { \
|
|
|
|
static a_type tsd_static_data = a_initializer; \
|
2012-04-19 00:29:47 +08:00
|
|
|
wrapper->initialized = false; \
|
2012-03-22 09:33:03 +08:00
|
|
|
wrapper->val = tsd_static_data; \
|
|
|
|
} \
|
|
|
|
if (pthread_setspecific(a_name##_tsd, \
|
|
|
|
(void *)wrapper)) { \
|
|
|
|
malloc_write("<jemalloc>: Error setting" \
|
|
|
|
" TSD for "#a_name"\n"); \
|
2012-04-19 00:29:48 +08:00
|
|
|
abort(); \
|
2012-03-22 09:33:03 +08:00
|
|
|
} \
|
|
|
|
} \
|
|
|
|
return (wrapper); \
|
|
|
|
} \
|
|
|
|
a_attr a_type * \
|
|
|
|
a_name##_tsd_get(void) \
|
|
|
|
{ \
|
|
|
|
a_name##_tsd_wrapper_t *wrapper; \
|
|
|
|
\
|
|
|
|
assert(a_name##_booted); \
|
|
|
|
wrapper = a_name##_tsd_get_wrapper(); \
|
|
|
|
return (&wrapper->val); \
|
|
|
|
} \
|
|
|
|
a_attr void \
|
|
|
|
a_name##_tsd_set(a_type *val) \
|
|
|
|
{ \
|
|
|
|
a_name##_tsd_wrapper_t *wrapper; \
|
|
|
|
\
|
|
|
|
assert(a_name##_booted); \
|
|
|
|
wrapper = a_name##_tsd_get_wrapper(); \
|
|
|
|
wrapper->val = *(val); \
|
|
|
|
if (a_cleanup != malloc_tsd_no_cleanup) \
|
|
|
|
wrapper->initialized = true; \
|
|
|
|
}
|
|
|
|
#endif
|
|
|
|
|
|
|
|
#endif /* JEMALLOC_H_TYPES */
|
|
|
|
/******************************************************************************/
|
|
|
|
#ifdef JEMALLOC_H_STRUCTS
|
|
|
|
|
|
|
|
#endif /* JEMALLOC_H_STRUCTS */
|
|
|
|
/******************************************************************************/
|
|
|
|
#ifdef JEMALLOC_H_EXTERNS
|
|
|
|
|
|
|
|
void *malloc_tsd_malloc(size_t size);
|
|
|
|
void malloc_tsd_dalloc(void *wrapper);
|
|
|
|
void malloc_tsd_no_cleanup(void *);
|
2012-04-19 00:29:49 +08:00
|
|
|
void malloc_tsd_cleanup_register(bool (*f)(void));
|
2012-03-22 09:33:03 +08:00
|
|
|
void malloc_tsd_boot(void);
|
|
|
|
|
|
|
|
#endif /* JEMALLOC_H_EXTERNS */
|
|
|
|
/******************************************************************************/
|
|
|
|
#ifdef JEMALLOC_H_INLINES
|
|
|
|
|
|
|
|
#endif /* JEMALLOC_H_INLINES */
|
|
|
|
/******************************************************************************/
|