1 //===- Win32/DynamicLibrary.cpp - Win32 DL Implementation -------*- C++ -*-===//
3 // The LLVM Compiler Infrastructure
5 // This file is distributed under the University of Illinois Open Source
6 // License. See LICENSE.TXT for details.
8 //===----------------------------------------------------------------------===//
10 // This file provides the Win32 specific implementation of DynamicLibrary.
12 //===----------------------------------------------------------------------===//
27 #if (HAVE_LIBIMAGEHLP != 1)
28 #error "libimagehlp.a should be present"
31 #pragma comment(lib, "dbghelp.lib")
37 //===----------------------------------------------------------------------===//
38 //=== WARNING: Implementation here must contain only Win32 specific code
39 //=== and must not be UNIX code.
40 //===----------------------------------------------------------------------===//
42 static std::vector<HMODULE> OpenedHandles;
45 typedef DWORD64 ModuleBaseType;
47 typedef ULONG ModuleBaseType;
51 // Use old callback if:
52 // - Not using Visual Studio
53 // - Visual Studio 2005 or earlier but only if we are not using the Windows SDK
54 // or Windows SDK version is older than 6.0
55 // Use new callback if:
56 // - Newer Visual Studio (comes with newer SDK).
57 // - Visual Studio 2005 with Windows SDK 6.0+
59 #if _MSC_VER < 1500 && (!defined(VER_PRODUCTBUILD) || VER_PRODUCTBUILD < 6000)
60 #define OLD_ELM_CALLBACK_DECL 1
62 #elif defined(__MINGW64__)
64 #elif defined(__MINGW32__)
65 #define OLD_ELM_CALLBACK_DECL 1
68 #ifdef OLD_ELM_CALLBACK_DECL
69 static BOOL CALLBACK ELM_Callback(PSTR ModuleName,
70 ModuleBaseType ModuleBase,
74 static BOOL CALLBACK ELM_Callback(PCSTR ModuleName,
75 ModuleBaseType ModuleBase,
80 // Ignore VC++ runtimes prior to 7.1. Somehow some of them get loaded
82 if (stricmp(ModuleName, "msvci70") != 0 &&
83 stricmp(ModuleName, "msvcirt") != 0 &&
84 stricmp(ModuleName, "msvcp50") != 0 &&
85 stricmp(ModuleName, "msvcp60") != 0 &&
86 stricmp(ModuleName, "msvcp70") != 0 &&
87 stricmp(ModuleName, "msvcr70") != 0 &&
89 // Mingw32 uses msvcrt.dll by default. Don't ignore it.
90 // Otherwise, user should be aware, what he's doing :)
91 stricmp(ModuleName, "msvcrt") != 0 &&
93 stricmp(ModuleName, "msvcrt20") != 0 &&
94 stricmp(ModuleName, "msvcrt40") != 0) {
95 OpenedHandles.push_back((HMODULE)ModuleBase);
101 bool DynamicLibrary::LoadLibraryPermanently(const char *filename,
102 std::string *ErrMsg) {
104 HMODULE a_handle = LoadLibrary(filename);
107 return MakeErrMsg(ErrMsg, std::string(filename) + ": Can't open : ");
109 OpenedHandles.push_back(a_handle);
111 // When no file is specified, enumerate all DLLs and EXEs in the
113 EnumerateLoadedModules(GetCurrentProcess(), ELM_Callback, 0);
116 // Because we don't remember the handle, we will never free it; hence,
117 // it is loaded permanently.
121 // Stack probing routines are in the support library (e.g. libgcc), but we don't
122 // have dynamic linking on windows. Provide a hook.
123 #define EXPLICIT_SYMBOL(SYM) \
124 extern "C" { extern void *SYM; }
125 #define EXPLICIT_SYMBOL2(SYMFROM, SYMTO) EXPLICIT_SYMBOL(SYMTO)
127 #include "explicit_symbols.inc"
129 #undef EXPLICIT_SYMBOL
130 #undef EXPLICIT_SYMBOL2
132 void* DynamicLibrary::SearchForAddressOfSymbol(const char* symbolName) {
133 // First check symbols added via AddSymbol().
134 if (ExplicitSymbols) {
135 std::map<std::string, void *>::iterator I =
136 ExplicitSymbols->find(symbolName);
137 std::map<std::string, void *>::iterator E = ExplicitSymbols->end();
142 // Now search the libraries.
143 for (std::vector<HMODULE>::iterator I = OpenedHandles.begin(),
144 E = OpenedHandles.end(); I != E; ++I) {
145 FARPROC ptr = GetProcAddress((HMODULE)*I, symbolName);
151 #define EXPLICIT_SYMBOL(SYM) \
152 if (!strcmp(symbolName, #SYM)) return (void*)&SYM;
153 #define EXPLICIT_SYMBOL2(SYMFROM, SYMTO) \
154 if (!strcmp(symbolName, #SYMFROM)) return (void*)&SYMTO;
157 #include "explicit_symbols.inc"
160 #undef EXPLICIT_SYMBOL
161 #undef EXPLICIT_SYMBOL2