diff options
| author | apnadkarni <apnmbx-wits@yahoo.com> | 2025-09-17 05:24:07 (GMT) |
|---|---|---|
| committer | apnadkarni <apnmbx-wits@yahoo.com> | 2025-09-17 05:24:07 (GMT) |
| commit | 5ab8b8b3d8634976de5ffb5fd04eed6fd1f7dc8e (patch) | |
| tree | a02d02be73a7cb1357555dfeef748f3a4065336d /unix/tclUnixInit.c | |
| parent | 4b5c6bedda3393e42f06dfb50a5af067c3173b33 (diff) | |
| parent | 133e32482931da3d774c7c0c8f6f176639c0639c (diff) | |
| download | tcl-core-apn-init-refactor.zip tcl-core-apn-init-refactor.tar.gz tcl-core-apn-init-refactor.tar.bz2 | |
Merge trunkcore-apn-init-refactor
Diffstat (limited to 'unix/tclUnixInit.c')
| -rw-r--r-- | unix/tclUnixInit.c | 17 |
1 files changed, 7 insertions, 10 deletions
diff --git a/unix/tclUnixInit.c b/unix/tclUnixInit.c index ef62400..b4f5dbf 100644 --- a/unix/tclUnixInit.c +++ b/unix/tclUnixInit.c @@ -27,14 +27,11 @@ #ifdef __cplusplus extern "C" { #endif -#ifdef __clang__ -#pragma clang diagnostic ignored "-Wignored-attributes" -#endif -DLLIMPORT extern __stdcall unsigned char GetVersionExW(void *); -DLLIMPORT extern __stdcall void *GetModuleHandleW(const void *); -DLLIMPORT extern __stdcall void FreeLibrary(void *); -DLLIMPORT extern __stdcall void *GetProcAddress(void *, const char *); -DLLIMPORT extern __stdcall void GetSystemInfo(void *); +DLLIMPORT extern unsigned char GetVersionExW(void *); +DLLIMPORT extern void *GetModuleHandleW(const void *); +DLLIMPORT extern void FreeLibrary(void *); +DLLIMPORT extern void *GetProcAddress(void *, const char *); +DLLIMPORT extern void GetSystemInfo(void *); #ifdef __cplusplus } #endif @@ -860,8 +857,8 @@ TclpSetVariables( unameOK = 1; if (!osInfoInitialized) { void *handle = GetModuleHandleW(L"NTDLL"); - int(__stdcall *getversion)(void *) = - (int(__stdcall *)(void *))GetProcAddress(handle, "RtlGetVersion"); + int(*getversion)(void *) = + (int(*)(void *))GetProcAddress(handle, "RtlGetVersion"); osInfo.dwOSVersionInfoSize = sizeof(OSVERSIONINFOW); if (!getversion || getversion(&osInfo)) { GetVersionExW(&osInfo); |