suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix MSVC MzCOM build

Browse Source
This commit is contained in:
Matthew Flatt 2015-08-27 09:54:53 -06:00
parent d4fb5ecec5
commit a98947e81e
1 changed files with 20 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
racket/src/racket/win_tls.inc
View File

@ -1,33 +1,39 @@
#ifdef IMPLEMENT_THREAD_LOCAL_VIA_WIN_TLS #ifdef IMPLEMENT_THREAD_LOCAL_VIA_WIN_TLS
# ifndef NO_TLS_INDEX_FOR_WIN_TLS
extern intptr_t _tls_index; extern intptr_t _tls_index;
# define REGISTER_TLS_INDEX_ARG _tls_index
# else
# define REGISTER_TLS_INDEX_ARG 0
# endif
# ifdef __MINGW32__ # ifdef __MINGW32__
static __thread void *tls_space; static __thread void *tls_space;
# else # else
static __declspec(thread) void *tls_space; static __declspec(thread) void *tls_space;
# endif # endif
#endif
# ifdef IMPLEMENT_THREAD_LOCAL_VIA_WIN_TLS
static void register_win_tls() static void register_win_tls()
{ {
# ifdef __MINGW32__ # ifdef __MINGW32__
{ {
/* gcc declares space for the thread-local variable in a way that /* gcc declares space for the thread-local variable in a way that
the OS can set up, but its doesn't actually map variables the OS can set up, but its doesn't actually map variables
through the OS-supplied mechanism. Just assume that the first through the OS-supplied mechanism. Just assume that the first
thread-local variable is ours. */ thread-local variable is ours. */
void **base; void **base;
# ifdef _WIN64 # ifdef _WIN64
asm("mov %%gs:(0x58), %0;" :"=r"(base)); asm("mov %%gs:(0x58), %0;" :"=r"(base));
# else
asm("mov %%fs:(0x2C), %0;" :"=r"(base));
# endif
scheme_register_tls_space(*base, _tls_index);
}
# else
scheme_register_tls_space(&tls_space, _tls_index);
# endif
}
# else # else
static void register_win_tls() {} asm("mov %%fs:(0x2C), %0;" :"=r"(base));
# endif # endif
scheme_register_tls_space(*base, REGISTER_TLS_INDEX_ARG);
}
# else
scheme_register_tls_space(&tls_space, REGISTER_TLS_INDEX_ARG);
# endif
}
#else
static void register_win_tls() {}
#endif