X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=win32%2Fwin32thread.h;h=a52118b48e437a9b38921597ac56b4e6023e9872;hb=22d4bb9ccb8701e68f9243547d7e3a3c55f70908;hp=809e0f721246586b1430cd6d6481ee239d2fe552;hpb=4b19af017623bfa3bb72bb164598a517f586e0d3;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/win32/win32thread.h b/win32/win32thread.h
index 809e0f7..a52118b 100644
--- a/win32/win32thread.h
+++ b/win32/win32thread.h
@@ -175,6 +175,11 @@ END_EXTERN_C
 	}								\
     } STMT_END
 
+#define FREE_THREAD_KEY \
+    STMT_START {							\
+	TlsFree(PL_thr_key);						\
+    } STMT_END
+
 #if defined(USE_RTL_THREAD_API) && !defined(_MSC_VER)
 #define JOIN(t, avp)							\
     STMT_START {							\