mingw-w64-crt/crt/tls_atexit_register.c

/**
 * This file has no copyright assigned and is placed in the Public Domain.
 * This file is part of the mingw-w64 runtime package.
 * No warranty is given; refer to the file DISCLAIMER.PD within this package.
 */

#ifndef WIN32_LEAN_AND_MEAN
#define WIN32_LEAN_AND_MEAN
#endif
#include <windows.h>
#include <sect_attribs.h>
#include <internal.h>

const int __mingw_atexit_tls_callback_caller_provider = 1;
extern WINBOOL (WINAPI *const __mingw_atexit_tls_callback_ptr)(HANDLE,DWORD,LPVOID);
static void WINAPI callback(HANDLE handle, DWORD reason, LPVOID reserved) {
  if (!__mingw_atexit_tls_callback_ptr(handle, reason, reserved))
    _amsg_exit(16); /* _RT_THREAD - not enough space for thread data */
}
static _CRTALLOC(".CRT$XLB") const PIMAGE_TLS_CALLBACK callback_ptr = callback;

/* Force tlssup.c (_tls_used symbol for .tls linker section) to be linked.  */
extern const IMAGE_TLS_DIRECTORY _tls_used;
static __attribute__((destructor)) void _include_tls_used(void) { asm volatile ("" :: "r" (&_tls_used)); }