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

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

@ -1,13 +1,18 @@
#ifdef IMPLEMENT_THREAD_LOCAL_VIA_WIN_TLS
# ifndef NO_TLS_INDEX_FOR_WIN_TLS
extern intptr_t _tls_index;
# define REGISTER_TLS_INDEX_ARG _tls_index
# else
# define REGISTER_TLS_INDEX_ARG 0
# endif
# ifdef __MINGW32__
static __thread void *tls_space;
# else
static __declspec(thread) void *tls_space;
# endif
#endif
# ifdef IMPLEMENT_THREAD_LOCAL_VIA_WIN_TLS
static void register_win_tls()
{
# ifdef __MINGW32__
@ -22,12 +27,13 @@ static void register_win_tls()
# else
asm("mov %%fs:(0x2C), %0;" :"=r"(base));
# endif
scheme_register_tls_space(*base, _tls_index);
scheme_register_tls_space(*base, REGISTER_TLS_INDEX_ARG);
}
# else
scheme_register_tls_space(&tls_space, _tls_index);
scheme_register_tls_space(&tls_space, REGISTER_TLS_INDEX_ARG);
# endif
}
#else
static void register_win_tls() {}
#endif