Ticket #4422: dlerr.win.patch

libs/libmyth/compat.h

@@ -189 +189 @@
 #define dlopen(x, y) LoadLibraryA((x))
 #define dlclose(x) !FreeLibrary((HMODULE)(x))
 #define dlsym(x, y) GetProcAddress((HMODULE)(x), (y))
-#define dlerror GetLastError
+//
+//#define dlerror  ""
+inline const char *dlerror(void)
+{
+    static char errStr[512];
+    DWORD       errCode = GetLastError();
+
+    if (!FormatMessage (FORMAT_MESSAGE_FROM_SYSTEM |
+                        FORMAT_MESSAGE_IGNORE_INSERTS |
+                        FORMAT_MESSAGE_MAX_WIDTH_MASK,
+                        NULL, errCode,
+                        MAKELANGID(LANG_NEUTRAL, SUBLANG_DEFAULT),
+                        errStr, 511, NULL))
+        sprintf(errStr, "dlopen()/dlsym() caused error %d", errCode);
+
+    return errStr;
+}
 #endif // USING_MINGW
 
 #ifdef USING_MINGW