From 05ce8bce80ea3c4ce40b081f14a34e46a125dee6 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Sun, 30 Dec 2012 05:41:24 -0700
Subject: [PATCH] win32: fix MinGW vs. MSVC build problem

---
 src/racket/main.c | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/src/racket/main.c b/src/racket/main.c
index 906390c362..31d9cc3497 100644
--- a/src/racket/main.c
+++ b/src/racket/main.c
@@ -292,7 +292,11 @@ START_XFORM_SKIP;
 
 #ifdef IMPLEMENT_THREAD_LOCAL_VIA_WIN_TLS
 extern intptr_t _tls_index;
+# ifdef __MINGW32__
 static __thread void *tls_space;
+# else
+static __declspec(thread) void *tls_space;
+# endif
 #endif
 
 #ifdef DOS_FILE_SYSTEM