X-Git-Url: https://pd.if.org/git/?a=blobdiff_plain;f=platform%2Fwin32%2Ffunctions%2F_PDCLIB%2F_tls_used.c;fp=platform%2Fwin32%2Ffunctions%2F_PDCLIB%2F_tls_used.c;h=a7e5a697dde457b85aa4f673b5aff87d69d2f879;hb=639bad513ab9399ed9a8c588a476a10dbe6c9478;hp=0000000000000000000000000000000000000000;hpb=008908f7a61acf9df1248c005378a3c4b4393547;p=pdclib

diff --git a/platform/win32/functions/_PDCLIB/_tls_used.c b/platform/win32/functions/_PDCLIB/_tls_used.c
new file mode 100644
index 0000000..a7e5a69
--- /dev/null
+++ b/platform/win32/functions/_PDCLIB/_tls_used.c
@@ -0,0 +1,55 @@
+#ifndef REGTEST
+#include <stddef.h>
+#include <stdint.h>
+#include <windows.h>
+
+/* Win32 TLS support
+ *
+ * Components which depend upon TLS must express a dependency on the symbol 
+ * _tls_used. This will cause said symbol to be emitted.
+ *
+ * The linker (in the case of both Microsoft's linker and Binutils, at least)
+ * will point the TLS directory entry in the PE header to _tls_used.
+ *
+ * NOTE: On Windows versions < NT 6.0, the TLS support _only_ works for 
+ *       the main executable and any DLLs loaded as dependencies of it
+ */
+
+extern char __tls_start__[], __tls_end__[];
+ULONG _tls_index = TLS_OUT_OF_INDEXES;
+
+extern void NTAPI _PDCLIB_runTlsCallbacks(void * image, DWORD reason, PVOID pv);
+static PIMAGE_TLS_CALLBACK tlsCallbacks[] = {
+    &_PDCLIB_runTlsCallbacks,
+    NULL,
+};
+
+#ifdef __GNUC__
+__attribute__((__section__(".rdata$T")))
+#else
+__declspec(allocate(".rdata$T"))
+#endif
+#ifdef _WIN64
+const IMAGE_TLS_DIRECTORY64 _tls_used = {
+#else
+const IMAGE_TLS_DIRECTORY _tls_used = {
+#endif
+        (uintptr_t) &__tls_start__,
+        (uintptr_t) &__tls_end__,
+        (uintptr_t) &_tls_index,        // TLS index
+        (uintptr_t) &tlsCallbacks[0],   // TLS callback array
+        (ULONG) 0,                      // Size of zero fill
+        (ULONG) 0                       // Characteristics
+};
+#endif
+
+#ifdef TEST
+#include <_PDCLIB_test.h>
+
+/* Tested in tss_get.c */
+int main( void )
+{
+    return TEST_RESULTS;
+}
+
+#endif
\ No newline at end of file