Mercurial > vim

diff src/if_mzsch.c @ 6905:d973e23c3bf8 v7.4.772

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
patch 7.4.772 Problem: Racket 6.2 is not supported on MS-Windows. Solution: Check for the "racket" subdirectory. (Weiyong Mao)
author Bram Moolenaar <bram@vim.org>
date Fri, 10 Jul 2015 16:12:48 +0200
parents 04736b4030ec
children 1e621b31948b
line wrap: on
line diff
--- 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_spac
     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