summaryrefslogtreecommitdiff
path: root/src/if_mzsch.c
diff options
context:
space:
mode:
authorBram Moolenaar <Bram@vim.org>2015-07-10 16:12:48 +0200
committerBram Moolenaar <Bram@vim.org>2015-07-10 16:12:48 +0200
commit5c5c9801b1e28050a40cef80aeba1ecdea6ea411 (patch)
treeab45649dadf77d8a7cae47b5e9fc2e5c1c200593 /src/if_mzsch.c
parent5f1e68b7bc241118e5dd8fc781147fdda881ada8 (diff)
downloadvim-git-5c5c9801b1e28050a40cef80aeba1ecdea6ea411.tar.gz
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.c10
1 files changed, 8 insertions, 2 deletions
diff --git a/src/if_mzsch.c b/src/if_mzsch.c
index 8dd213431..2135446ed 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