dlls/msvcp90/msvcp_main.c

   1 /*
   2  * Copyright 2010 Piotr Caban for CodeWeavers
   3  *
   4  * This library is free software; you can redistribute it and/or
   5  * modify it under the terms of the GNU Lesser General Public
   6  * License as published by the Free Software Foundation; either
   7  * version 2.1 of the License, or (at your option) any later version.
   8  *
   9  * This library is distributed in the hope that it will be useful,
  10  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  11  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  12  * Lesser General Public License for more details.
  13  *
  14  * You should have received a copy of the GNU Lesser General Public
  15  * License along with this library; if not, write to the Free Software
  16  * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
  17  */
  18
  19 #include "config.h"
  20
  21 #include <stdarg.h>
  22
  23 #include "msvcp90.h"
  24
  25 #include "windef.h"
  26 #include "winbase.h"
  27 #include "wine/debug.h"
  28
  29 WINE_DEFAULT_DEBUG_CHANNEL(msvcp);
  30
  31 #ifdef __i386__
  32
  33 #define DEFINE_VTBL_WRAPPER(off)            \
  34     __ASM_GLOBAL_FUNC(vtbl_wrapper_ ## off, \
  35         "popl %eax\n\t"                     \
  36         "popl %ecx\n\t"                     \
  37         "pushl %eax\n\t"                    \
  38         "movl 0(%ecx), %eax\n\t"            \
  39         "jmp *" #off "(%eax)\n\t")
  40
  41 DEFINE_VTBL_WRAPPER(0);
  42 DEFINE_VTBL_WRAPPER(4);
  43 DEFINE_VTBL_WRAPPER(8);
  44 DEFINE_VTBL_WRAPPER(12);
  45 DEFINE_VTBL_WRAPPER(16);
  46 DEFINE_VTBL_WRAPPER(20);
  47 DEFINE_VTBL_WRAPPER(24);
  48 DEFINE_VTBL_WRAPPER(28);
  49 DEFINE_VTBL_WRAPPER(32);
  50 DEFINE_VTBL_WRAPPER(36);
  51 DEFINE_VTBL_WRAPPER(40);
  52 DEFINE_VTBL_WRAPPER(44);
  53 DEFINE_VTBL_WRAPPER(48);
  54 DEFINE_VTBL_WRAPPER(52);
  55 DEFINE_VTBL_WRAPPER(56);
  56
  57 #endif
  58
  59 void* (__cdecl *MSVCRT_operator_new)(MSVCP_size_t);
  60 void (__cdecl *MSVCRT_operator_delete)(void*);
  61 void* (__cdecl *MSVCRT_set_new_handler)(void*);
  62
  63 #if _MSVCP_VER >= 110
  64 critical_section* (__thiscall *critical_section_ctor)(critical_section*);
  65 void (__thiscall *critical_section_dtor)(critical_section*);
  66 void (__thiscall *critical_section_lock)(critical_section*);
  67 void (__thiscall *critical_section_unlock)(critical_section*);
  68 MSVCP_bool (__thiscall *critical_section_trylock)(critical_section*);
  69 #endif
  70
  71 #define VERSION_STRING(ver) #ver
  72 #if _MSVCP_VER >= 140
  73 #define MSVCRT_NAME(ver) "ucrtbase.dll"
  74 #define CONCRT_NAME(ver) "concrt" VERSION_STRING(ver) ".dll"
  75 #else
  76 #define MSVCRT_NAME(ver) "msvcr" VERSION_STRING(ver) ".dll"
  77 #endif
  78
  79 #if _MSVCP_VER >= 140
  80 static void* __cdecl operator_new(MSVCP_size_t size)
  81 {
  82     void *retval;
  83     int freed;
  84
  85     do
  86     {
  87         retval = malloc(size);
  88         if (retval)
  89         {
  90             TRACE("(%ld) returning %p\n", size, retval);
  91             return retval;
  92         }
  93         freed = _callnewh(size);
  94     } while (freed);
  95
  96     TRACE("(%ld) out of memory\n", size);
  97     throw_exception(EXCEPTION_BAD_ALLOC, "bad allocation");
  98     return NULL;
  99 }
 100
 101 static void __cdecl operator_delete(void *mem)
 102 {
 103     TRACE("(%p)\n", mem);
 104     free(mem);
 105 }
 106
 107 void __cdecl _invalid_parameter(const wchar_t *expr, const wchar_t *func, const wchar_t *file, unsigned int line, uintptr_t arg)
 108 {
 109    _invalid_parameter_noinfo();
 110 }
 111
 112 int __cdecl _scprintf(const char* fmt, ...)
 113 {
 114     int ret;
 115     __ms_va_list valist;
 116     __ms_va_start(valist, fmt);
 117     ret = __stdio_common_vsprintf(UCRTBASE_PRINTF_STANDARD_SNPRINTF_BEHAVIOUR, NULL, 0, fmt, NULL, valist);
 118     __ms_va_end(valist);
 119     return ret;
 120 }
 121
 122 int __cdecl sprintf(char *buf, const char *fmt, ...)
 123 {
 124     int ret;
 125     __ms_va_list valist;
 126     __ms_va_start(valist, fmt);
 127     ret = __stdio_common_vsprintf(UCRTBASE_PRINTF_STANDARD_SNPRINTF_BEHAVIOUR, buf, -1, fmt, NULL, valist);
 128     __ms_va_end(valist);
 129     return ret;
 130 }
 131 #endif
 132
 133 static void init_cxx_funcs(void)
 134 {
 135     HMODULE hmod = GetModuleHandleA( MSVCRT_NAME(_MSVCP_VER) );
 136 #if _MSVCP_VER >= 110
 137     HMODULE hcon = hmod;
 138 #endif
 139
 140     if (!hmod) FIXME( "%s not loaded\n", MSVCRT_NAME(_MSVCP_VER) );
 141
 142 #if _MSVCP_VER >= 140
 143     MSVCRT_operator_new = operator_new;
 144     MSVCRT_operator_delete = operator_delete;
 145     MSVCRT_set_new_handler = (void*)GetProcAddress(hmod, "_set_new_handler");
 146
 147     hcon = LoadLibraryA( CONCRT_NAME(_MSVCP_VER) );
 148     if (!hcon) FIXME( "%s not loaded\n", CONCRT_NAME(_MSVCP_VER) );
 149 #else
 150     if (sizeof(void *) > sizeof(int))  /* 64-bit has different names */
 151     {
 152         MSVCRT_operator_new = (void*)GetProcAddress(hmod, "??2@YAPEAX_K@Z");
 153         MSVCRT_operator_delete = (void*)GetProcAddress(hmod, "??3@YAXPEAX@Z");
 154         MSVCRT_set_new_handler = (void*)GetProcAddress(hmod, "?_set_new_handler@@YAP6AH_K@ZP6AH0@Z@Z");
 155     }
 156     else
 157     {
 158         MSVCRT_operator_new = (void*)GetProcAddress(hmod, "??2@YAPAXI@Z");
 159         MSVCRT_operator_delete = (void*)GetProcAddress(hmod, "??3@YAXPAX@Z");
 160         MSVCRT_set_new_handler = (void*)GetProcAddress(hmod, "?_set_new_handler@@YAP6AHI@ZP6AHI@Z@Z");
 161     }
 162 #endif
 163
 164 #if _MSVCP_VER >= 110
 165     if (sizeof(void *) > sizeof(int))  /* 64-bit has different names */
 166     {
 167         critical_section_ctor = (void*)GetProcAddress(hcon, "??0critical_section@Concurrency@@QEAA@XZ");
 168         critical_section_dtor = (void*)GetProcAddress(hcon, "??1critical_section@Concurrency@@QEAA@XZ");
 169         critical_section_lock = (void*)GetProcAddress(hcon, "?lock@critical_section@Concurrency@@QEAAXXZ");
 170         critical_section_unlock = (void*)GetProcAddress(hcon, "?unlock@critical_section@Concurrency@@QEAAXXZ");
 171         critical_section_trylock = (void*)GetProcAddress(hcon, "?try_lock@critical_section@Concurrency@@QEAA_NXZ");
 172     }
 173     else
 174     {
 175 #ifdef __arm__
 176         critical_section_ctor = (void*)GetProcAddress(hcon, "??0critical_section@Concurrency@@QAA@XZ");
 177         critical_section_dtor = (void*)GetProcAddress(hcon, "??1critical_section@Concurrency@@QAA@XZ");
 178         critical_section_lock = (void*)GetProcAddress(hcon, "?lock@critical_section@Concurrency@@QAAXXZ");
 179         critical_section_unlock = (void*)GetProcAddress(hcon, "?unlock@critical_section@Concurrency@@QAAXXZ");
 180         critical_section_trylock = (void*)GetProcAddress(hcon, "?try_lock@critical_section@Concurrency@@QAA_NXZ");
 181 #else
 182         critical_section_ctor = (void*)GetProcAddress(hcon, "??0critical_section@Concurrency@@QAE@XZ");
 183         critical_section_dtor = (void*)GetProcAddress(hcon, "??1critical_section@Concurrency@@QAE@XZ");
 184         critical_section_lock = (void*)GetProcAddress(hcon, "?lock@critical_section@Concurrency@@QAEXXZ");
 185         critical_section_unlock = (void*)GetProcAddress(hcon, "?unlock@critical_section@Concurrency@@QAEXXZ");
 186         critical_section_trylock = (void*)GetProcAddress(hcon, "?try_lock@critical_section@Concurrency@@QAE_NXZ");
 187 #endif
 188     }
 189 #endif /* _MSVCP_VER >= 110 */
 190 }
 191
 192 BOOL WINAPI DllMain(HINSTANCE hinstDLL, DWORD fdwReason, LPVOID lpvReserved)
 193 {
 194     TRACE("(0x%p, %d, %p)\n", hinstDLL, fdwReason, lpvReserved);
 195
 196     switch (fdwReason)
 197     {
 198         case DLL_PROCESS_ATTACH:
 199             init_cxx_funcs();
 200             init_lockit();
 201             init_exception(hinstDLL);
 202             init_locale(hinstDLL);
 203             init_io(hinstDLL);
 204             init_misc(hinstDLL);
 205             break;
 206         case DLL_PROCESS_DETACH:
 207             if (lpvReserved) break;
 208             free_io();
 209             free_locale();
 210             free_lockit();
 211             free_misc();
 212             break;
 213     }
 214
 215     return TRUE;
 216 }
 217
 218 /* ?_BADOFF@std@@3JB -> long const std::_BADOFF */
 219 /* ?_BADOFF@std@@3_JB -> __int64 const std::_BADOFF */
 220 const streamoff std_BADOFF = -1;
 221
 222 /* ?_BADOFF_func@std@@YAABJXZ -> long const & __cdecl std::_BADOFF_func(void) */
 223 /* ?_BADOFF_func@std@@YAAEB_JXZ -> __int64 const & __ptr64 __cdecl std::_BADOFF_func(void) */
 224 const streamoff * __cdecl std_BADOFF_func(void)
 225 {
 226     return &std_BADOFF;
 227 }
 228
 229 /* ?_Fpz@std@@3_JA  __int64 std::_Fpz */
 230 __int64 std_Fpz = 0;
 231
 232 /* ?_Fpz_func@std@@YAAA_JXZ -> __int64 & __cdecl std::_Fpz_func(void) */
 233 /* ?_Fpz_func@std@@YAAEA_JXZ -> __int64 & __ptr64 __cdecl std::_Fpz_func(void) */
 234 __int64 * __cdecl std_Fpz_func(void)
 235 {
 236     return &std_Fpz;
 237 }
 238
 239 #if defined(__MINGW32__) && _MSVCP_VER >= 80 && _MSVCP_VER <= 90
 240 /* Hack: prevent Mingw from importing mingw_helpers.o which conflicts with encode/decode_pointer */
 241 int mingw_app_type = 0;
 242 #endif