diff options
| author | Bram Moolenaar <Bram@vim.org> | 2010-11-03 21:59:30 +0100 |
|---|---|---|
| committer | Bram Moolenaar <Bram@vim.org> | 2010-11-03 21:59:30 +0100 |
| commit | 2d0860d06c29f73ef42c01e2f4284e471d8023b4 (patch) | |
| tree | 5e480d10c8885f98f8df6829924f26d6be88cb0b /src/if_mzsch.c | |
| parent | dba01a0197fefb4cf9b2357b9db001baecba25a0 (diff) | |
updated for version 7.3.049v7.3.049
Problem: PLT has rebranded their Scheme to Racket.
Solution: Add support for Racket 5.x. (Sergey Khorev)
Diffstat (limited to 'src/if_mzsch.c')
| -rw-r--r-- | src/if_mzsch.c | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/src/if_mzsch.c b/src/if_mzsch.c index d940fd94be..65873c9139 100644 --- a/src/if_mzsch.c +++ b/src/if_mzsch.c @@ -794,9 +794,16 @@ mzscheme_end(void) #endif } +#if MZSCHEME_VERSION_MAJOR >= 500 && defined(WIN32) && defined(USE_THREAD_LOCAL) +static __declspec(thread) void *tls_space; +#endif + void mzscheme_main(void) { +#if MZSCHEME_VERSION_MAJOR >= 500 && defined(WIN32) && defined(USE_THREAD_LOCAL) + scheme_register_tls_space(&tls_space, 0); +#endif #if defined(MZ_PRECISE_GC) && MZSCHEME_VERSION_MAJOR >= 400 /* use trampoline for precise GC in MzScheme >= 4.x */ scheme_main_setup(TRUE, mzscheme_env_main, 0, NULL); |