diff options
| author | Bram Moolenaar <Bram@vim.org> | 2015-07-10 16:12:48 +0200 |
|---|---|---|
| committer | Bram Moolenaar <Bram@vim.org> | 2015-07-10 16:12:48 +0200 |
| commit | 5c5c9801b1e28050a40cef80aeba1ecdea6ea411 (patch) | |
| tree | ab45649dadf77d8a7cae47b5e9fc2e5c1c200593 /src/if_mzsch.c | |
| parent | 5f1e68b7bc241118e5dd8fc781147fdda881ada8 (diff) | |
patch 7.4.772v7.4.772
Problem: Racket 6.2 is not supported on MS-Windows.
Solution: Check for the "racket" subdirectory. (Weiyong Mao)
Diffstat (limited to 'src/if_mzsch.c')
| -rw-r--r-- | src/if_mzsch.c | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/src/if_mzsch.c b/src/if_mzsch.c index 8dd2134313..2135446eda 100644 --- a/src/if_mzsch.c +++ b/src/if_mzsch.c @@ -851,7 +851,13 @@ mzscheme_end(void) #endif } -#if MZSCHEME_VERSION_MAJOR >= 500 && defined(WIN32) && defined(USE_THREAD_LOCAL) +/* + * scheme_register_tls_space is only available on 32-bit Windows. + * See http://docs.racket-lang.org/inside/im_memoryalloc.html?q=scheme_register_tls_space + */ +#if MZSCHEME_VERSION_MAJOR >= 500 && defined(WIN32) \ + && defined(USE_THREAD_LOCAL) && !defined(_WIN64) +# define HAVE_TLS_SPACE 1 static __declspec(thread) void *tls_space; #endif @@ -870,7 +876,7 @@ static __declspec(thread) void *tls_space; int mzscheme_main(int argc, char** argv) { -#if MZSCHEME_VERSION_MAJOR >= 500 && defined(WIN32) && defined(USE_THREAD_LOCAL) +#ifdef HAVE_TLS_SPACE scheme_register_tls_space(&tls_space, 0); #endif #ifdef TRAMPOLINED_MZVIM_STARTUP |