409 lines
13 KiB
C
409 lines
13 KiB
C
/*
|
|
* Copyright 2010 Piotr Caban for CodeWeavers
|
|
*
|
|
* This library is free software; you can redistribute it and/or
|
|
* modify it under the terms of the GNU Lesser General Public
|
|
* License as published by the Free Software Foundation; either
|
|
* version 2.1 of the License, or (at your option) any later version.
|
|
*
|
|
* This library is distributed in the hope that it will be useful,
|
|
* but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
|
* Lesser General Public License for more details.
|
|
*
|
|
* You should have received a copy of the GNU Lesser General Public
|
|
* License along with this library; if not, write to the Free Software
|
|
* Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
|
|
*/
|
|
|
|
#include <stdarg.h>
|
|
|
|
#include "msvcp90.h"
|
|
|
|
#include "windef.h"
|
|
#include "winbase.h"
|
|
#include "wine/debug.h"
|
|
|
|
WINE_DEFAULT_DEBUG_CHANNEL(msvcp);
|
|
|
|
#ifdef __ASM_USE_THISCALL_WRAPPER
|
|
|
|
#define DEFINE_VTBL_WRAPPER(off) \
|
|
__ASM_GLOBAL_FUNC(vtbl_wrapper_ ## off, \
|
|
"popl %eax\n\t" \
|
|
"popl %ecx\n\t" \
|
|
"pushl %eax\n\t" \
|
|
"movl 0(%ecx), %eax\n\t" \
|
|
"jmp *" #off "(%eax)\n\t")
|
|
|
|
DEFINE_VTBL_WRAPPER(0);
|
|
DEFINE_VTBL_WRAPPER(4);
|
|
DEFINE_VTBL_WRAPPER(8);
|
|
DEFINE_VTBL_WRAPPER(12);
|
|
DEFINE_VTBL_WRAPPER(16);
|
|
DEFINE_VTBL_WRAPPER(20);
|
|
DEFINE_VTBL_WRAPPER(24);
|
|
DEFINE_VTBL_WRAPPER(28);
|
|
DEFINE_VTBL_WRAPPER(32);
|
|
DEFINE_VTBL_WRAPPER(36);
|
|
DEFINE_VTBL_WRAPPER(40);
|
|
DEFINE_VTBL_WRAPPER(44);
|
|
DEFINE_VTBL_WRAPPER(48);
|
|
DEFINE_VTBL_WRAPPER(52);
|
|
DEFINE_VTBL_WRAPPER(56);
|
|
|
|
#endif
|
|
|
|
void* (__cdecl *MSVCRT_set_new_handler)(void*);
|
|
|
|
#if _MSVCP_VER >= 110 && _MSVCP_VER <= 120
|
|
#ifdef __ASM_USE_THISCALL_WRAPPER
|
|
|
|
extern void *call_thiscall_func;
|
|
__ASM_GLOBAL_FUNC(call_thiscall_func,
|
|
"popl %eax\n\t"
|
|
"popl %edx\n\t"
|
|
"popl %ecx\n\t"
|
|
"pushl %eax\n\t"
|
|
"jmp *%edx\n\t")
|
|
|
|
#define call_func1(func,this) ((void* (WINAPI*)(void*,void*))&call_thiscall_func)(func,this)
|
|
#define call_func2(func,this,a) ((void* (WINAPI*)(void*,void*,void*))&call_thiscall_func)(func,this,a)
|
|
#define call_func3(func,this,a,b) ((void* (WINAPI*)(void*,void*,void*,unsigned int))&call_thiscall_func)(func,this,a,b)
|
|
|
|
#else /* __i386__ */
|
|
|
|
#define call_func1(func,this) func(this)
|
|
#define call_func2(func,this,a) func(this,a)
|
|
#define call_func3(func,this,a,b) func(this,a,b)
|
|
|
|
#endif /* __i386__ */
|
|
|
|
static critical_section* (__thiscall *critical_section_ctor)(critical_section*);
|
|
static void (__thiscall *critical_section_dtor)(critical_section*);
|
|
static void (__thiscall *critical_section_lock)(critical_section*);
|
|
static void (__thiscall *critical_section_unlock)(critical_section*);
|
|
static bool (__thiscall *critical_section_trylock)(critical_section*);
|
|
|
|
static _Condition_variable* (__thiscall *_Condition_variable_ctor)(_Condition_variable*);
|
|
static void (__thiscall *_Condition_variable_dtor)(_Condition_variable*);
|
|
static void (__thiscall *_Condition_variable_wait)(_Condition_variable*, critical_section*);
|
|
bool (__thiscall *_Condition_variable_wait_for)(_Condition_variable*,
|
|
critical_section*, unsigned int);
|
|
void (__thiscall *_Condition_variable_notify_one)(_Condition_variable*);
|
|
void (__thiscall *_Condition_variable_notify_all)(_Condition_variable*);
|
|
|
|
void cs_init(cs *cs)
|
|
{
|
|
call_func1(critical_section_ctor, &cs->conc);
|
|
}
|
|
|
|
void cs_destroy(cs *cs)
|
|
{
|
|
call_func1(critical_section_dtor, &cs->conc);
|
|
}
|
|
|
|
void cs_lock(cs *cs)
|
|
{
|
|
call_func1(critical_section_lock, &cs->conc);
|
|
}
|
|
|
|
void cs_unlock(cs *cs)
|
|
{
|
|
call_func1(critical_section_unlock, &cs->conc);
|
|
}
|
|
|
|
bool cs_trylock(cs *cs)
|
|
{
|
|
return call_func1(critical_section_trylock, &cs->conc);
|
|
}
|
|
|
|
void cv_init(cv *cv)
|
|
{
|
|
call_func1(_Condition_variable_ctor, &cv->conc);
|
|
}
|
|
|
|
void cv_destroy(cv *cv)
|
|
{
|
|
call_func1(_Condition_variable_dtor, &cv->conc);
|
|
}
|
|
|
|
void cv_wait(cv *cv, cs *cs)
|
|
{
|
|
call_func2(_Condition_variable_wait, &cv->conc, &cs->conc);
|
|
}
|
|
|
|
bool cv_wait_for(cv *cv, cs *cs, unsigned int timeout)
|
|
{
|
|
return call_func3(_Condition_variable_wait_for, &cv->conc, &cs->conc, timeout);
|
|
}
|
|
|
|
void cv_notify_one(cv *cv)
|
|
{
|
|
call_func1(_Condition_variable_notify_one, &cv->conc);
|
|
}
|
|
|
|
void cv_notify_all(cv *cv)
|
|
{
|
|
call_func1(_Condition_variable_notify_all, &cv->conc);
|
|
}
|
|
#elif _MSVCP_VER >= 140
|
|
void cs_init(cs *cs)
|
|
{
|
|
InitializeSRWLock(&cs->win);
|
|
}
|
|
|
|
void cs_destroy(cs *cs)
|
|
{
|
|
}
|
|
|
|
void cs_lock(cs *cs)
|
|
{
|
|
AcquireSRWLockExclusive(&cs->win);
|
|
}
|
|
|
|
void cs_unlock(cs *cs)
|
|
{
|
|
ReleaseSRWLockExclusive(&cs->win);
|
|
}
|
|
|
|
bool cs_trylock(cs *cs)
|
|
{
|
|
return TryAcquireSRWLockExclusive(&cs->win);
|
|
}
|
|
|
|
void cv_init(cv *cv)
|
|
{
|
|
InitializeConditionVariable(&cv->win);
|
|
}
|
|
|
|
void cv_destroy(cv *cv)
|
|
{
|
|
}
|
|
|
|
void cv_wait(cv *cv, cs *cs)
|
|
{
|
|
SleepConditionVariableSRW(&cv->win, &cs->win, INFINITE, 0);
|
|
}
|
|
|
|
bool cv_wait_for(cv *cv, cs *cs, unsigned int timeout)
|
|
{
|
|
return SleepConditionVariableSRW(&cv->win, &cs->win, timeout, 0);
|
|
}
|
|
|
|
void cv_notify_one(cv *cv)
|
|
{
|
|
WakeConditionVariable(&cv->win);
|
|
}
|
|
|
|
void cv_notify_all(cv *cv)
|
|
{
|
|
WakeAllConditionVariable(&cv->win);
|
|
}
|
|
#endif
|
|
|
|
#if _MSVCP_VER >= 100
|
|
bool (__cdecl *Context_IsCurrentTaskCollectionCanceling)(void);
|
|
#endif
|
|
|
|
#define VERSION_STRING(ver) #ver
|
|
#if _MSVCP_VER >= 140
|
|
#define MSVCRT_NAME(ver) "ucrtbase.dll"
|
|
#define CONCRT_NAME(ver) "concrt" VERSION_STRING(ver) ".dll"
|
|
#else
|
|
#define MSVCRT_NAME(ver) "msvcr" VERSION_STRING(ver) ".dll"
|
|
#endif
|
|
|
|
#if _MSVCP_VER >= 140
|
|
void* __cdecl operator_new(size_t size)
|
|
{
|
|
void *retval;
|
|
int freed;
|
|
|
|
do
|
|
{
|
|
retval = malloc(size);
|
|
if (retval)
|
|
{
|
|
TRACE("(%Iu) returning %p\n", size, retval);
|
|
return retval;
|
|
}
|
|
freed = _callnewh(size);
|
|
} while (freed);
|
|
|
|
TRACE("(%Iu) out of memory\n", size);
|
|
_Xmem();
|
|
}
|
|
|
|
void __cdecl operator_delete(void *mem)
|
|
{
|
|
TRACE("(%p)\n", mem);
|
|
free(mem);
|
|
}
|
|
|
|
void __cdecl _invalid_parameter(const wchar_t *expr, const wchar_t *func, const wchar_t *file, unsigned int line, uintptr_t arg)
|
|
{
|
|
_invalid_parameter_noinfo();
|
|
}
|
|
#else
|
|
static void* (__cdecl *MSVCRT_operator_new)(size_t);
|
|
static void (__cdecl *MSVCRT_operator_delete)(void*);
|
|
|
|
void* __cdecl operator_new(size_t size)
|
|
{
|
|
void *ret = MSVCRT_operator_new(size);
|
|
#if _MSVCP_VER < 80
|
|
if (!ret) _Xmem();
|
|
#endif
|
|
return ret;
|
|
}
|
|
|
|
void __cdecl operator_delete(void *mem)
|
|
{
|
|
MSVCRT_operator_delete(mem);
|
|
}
|
|
#endif
|
|
|
|
static void init_cxx_funcs(void)
|
|
{
|
|
HMODULE hmod = GetModuleHandleA( MSVCRT_NAME(_MSVCP_VER) );
|
|
#if _MSVCP_VER >= 100
|
|
HMODULE hcon = hmod;
|
|
#endif
|
|
|
|
if (!hmod) FIXME( "%s not loaded\n", MSVCRT_NAME(_MSVCP_VER) );
|
|
|
|
#if _MSVCP_VER >= 140
|
|
MSVCRT_set_new_handler = (void*)GetProcAddress(hmod, "_set_new_handler");
|
|
|
|
hcon = LoadLibraryA( CONCRT_NAME(_MSVCP_VER) );
|
|
if (!hcon) FIXME( "%s not loaded\n", CONCRT_NAME(_MSVCP_VER) );
|
|
#else
|
|
if (sizeof(void *) > sizeof(int)) /* 64-bit has different names */
|
|
{
|
|
MSVCRT_operator_new = (void*)GetProcAddress(hmod, "??2@YAPEAX_K@Z");
|
|
MSVCRT_operator_delete = (void*)GetProcAddress(hmod, "??3@YAXPEAX@Z");
|
|
MSVCRT_set_new_handler = (void*)GetProcAddress(hmod, "?_set_new_handler@@YAP6AH_K@ZP6AH0@Z@Z");
|
|
}
|
|
else
|
|
{
|
|
MSVCRT_operator_new = (void*)GetProcAddress(hmod, "??2@YAPAXI@Z");
|
|
MSVCRT_operator_delete = (void*)GetProcAddress(hmod, "??3@YAXPAX@Z");
|
|
MSVCRT_set_new_handler = (void*)GetProcAddress(hmod, "?_set_new_handler@@YAP6AHI@ZP6AHI@Z@Z");
|
|
}
|
|
#endif
|
|
|
|
#if _MSVCP_VER >= 110 && _MSVCP_VER <= 120
|
|
if (sizeof(void *) > sizeof(int)) /* 64-bit has different names */
|
|
{
|
|
critical_section_ctor = (void*)GetProcAddress(hcon, "??0critical_section@Concurrency@@QEAA@XZ");
|
|
critical_section_dtor = (void*)GetProcAddress(hcon, "??1critical_section@Concurrency@@QEAA@XZ");
|
|
critical_section_lock = (void*)GetProcAddress(hcon, "?lock@critical_section@Concurrency@@QEAAXXZ");
|
|
critical_section_unlock = (void*)GetProcAddress(hcon, "?unlock@critical_section@Concurrency@@QEAAXXZ");
|
|
critical_section_trylock = (void*)GetProcAddress(hcon, "?try_lock@critical_section@Concurrency@@QEAA_NXZ");
|
|
_Condition_variable_ctor = (void*)GetProcAddress(hcon, "??0_Condition_variable@details@Concurrency@@QEAA@XZ");
|
|
_Condition_variable_dtor = (void*)GetProcAddress(hcon, "??1_Condition_variable@details@Concurrency@@QEAA@XZ");
|
|
_Condition_variable_wait = (void*)GetProcAddress(hcon,
|
|
"?wait@_Condition_variable@details@Concurrency@@QEAAXAEAVcritical_section@3@@Z");
|
|
_Condition_variable_wait_for = (void*)GetProcAddress(hcon,
|
|
"?wait_for@_Condition_variable@details@Concurrency@@QEAA_NAEAVcritical_section@3@I@Z");
|
|
_Condition_variable_notify_one = (void*)GetProcAddress(hcon,
|
|
"?notify_one@_Condition_variable@details@Concurrency@@QEAAXXZ");
|
|
_Condition_variable_notify_all = (void*)GetProcAddress(hcon,
|
|
"?notify_all@_Condition_variable@details@Concurrency@@QEAAXXZ");
|
|
}
|
|
else
|
|
{
|
|
#ifdef __arm__
|
|
critical_section_ctor = (void*)GetProcAddress(hcon, "??0critical_section@Concurrency@@QAA@XZ");
|
|
critical_section_dtor = (void*)GetProcAddress(hcon, "??1critical_section@Concurrency@@QAA@XZ");
|
|
critical_section_lock = (void*)GetProcAddress(hcon, "?lock@critical_section@Concurrency@@QAAXXZ");
|
|
critical_section_unlock = (void*)GetProcAddress(hcon, "?unlock@critical_section@Concurrency@@QAAXXZ");
|
|
critical_section_trylock = (void*)GetProcAddress(hcon, "?try_lock@critical_section@Concurrency@@QAA_NXZ");
|
|
_Condition_variable_ctor = (void*)GetProcAddress(hcon, "??0_Condition_variable@details@Concurrency@@QAA@XZ");
|
|
_Condition_variable_dtor = (void*)GetProcAddress(hcon, "??1_Condition_variable@details@Concurrency@@QAA@XZ");
|
|
_Condition_variable_wait = (void*)GetProcAddress(hcon,
|
|
"?wait@_Condition_variable@details@Concurrency@@QAAXAAVcritical_section@3@@Z");
|
|
_Condition_variable_wait_for = (void*)GetProcAddress(hcon,
|
|
"?wait_for@_Condition_variable@details@Concurrency@@QAA_NAAVcritical_section@3@I@Z");
|
|
_Condition_variable_notify_one = (void*)GetProcAddress(hcon,
|
|
"?notify_one@_Condition_variable@details@Concurrency@@QAAXXZ");
|
|
_Condition_variable_notify_all = (void*)GetProcAddress(hcon,
|
|
"?notify_all@_Condition_variable@details@Concurrency@@QAAXXZ");
|
|
#else
|
|
critical_section_ctor = (void*)GetProcAddress(hcon, "??0critical_section@Concurrency@@QAE@XZ");
|
|
critical_section_dtor = (void*)GetProcAddress(hcon, "??1critical_section@Concurrency@@QAE@XZ");
|
|
critical_section_lock = (void*)GetProcAddress(hcon, "?lock@critical_section@Concurrency@@QAEXXZ");
|
|
critical_section_unlock = (void*)GetProcAddress(hcon, "?unlock@critical_section@Concurrency@@QAEXXZ");
|
|
critical_section_trylock = (void*)GetProcAddress(hcon, "?try_lock@critical_section@Concurrency@@QAE_NXZ");
|
|
_Condition_variable_ctor = (void*)GetProcAddress(hcon, "??0_Condition_variable@details@Concurrency@@QAE@XZ");
|
|
_Condition_variable_dtor = (void*)GetProcAddress(hcon, "??1_Condition_variable@details@Concurrency@@QAE@XZ");
|
|
_Condition_variable_wait = (void*)GetProcAddress(hcon,
|
|
"?wait@_Condition_variable@details@Concurrency@@QAEXAAVcritical_section@3@@Z");
|
|
_Condition_variable_wait_for = (void*)GetProcAddress(hcon,
|
|
"?wait_for@_Condition_variable@details@Concurrency@@QAE_NAAVcritical_section@3@I@Z");
|
|
_Condition_variable_notify_one = (void*)GetProcAddress(hcon,
|
|
"?notify_one@_Condition_variable@details@Concurrency@@QAEXXZ");
|
|
_Condition_variable_notify_all = (void*)GetProcAddress(hcon,
|
|
"?notify_all@_Condition_variable@details@Concurrency@@QAEXXZ");
|
|
#endif
|
|
}
|
|
#endif /* _MSVCP_VER >= 110 */
|
|
|
|
#if _MSVCP_VER >= 100
|
|
Context_IsCurrentTaskCollectionCanceling = (void*)GetProcAddress(hcon, "?IsCurrentTaskCollectionCanceling@Context@Concurrency@@SA_NXZ");
|
|
#endif
|
|
}
|
|
|
|
BOOL WINAPI DllMain(HINSTANCE hinstDLL, DWORD fdwReason, LPVOID lpvReserved)
|
|
{
|
|
TRACE("(0x%p, %ld, %p)\n", hinstDLL, fdwReason, lpvReserved);
|
|
|
|
switch (fdwReason)
|
|
{
|
|
case DLL_PROCESS_ATTACH:
|
|
init_cxx_funcs();
|
|
_Init_locks__Init_locks_ctor(NULL);
|
|
init_exception(hinstDLL);
|
|
init_locale(hinstDLL);
|
|
init_io(hinstDLL);
|
|
#if _MSVCP_VER >= 100
|
|
init_misc(hinstDLL);
|
|
init_concurrency_details(hinstDLL);
|
|
#endif
|
|
break;
|
|
case DLL_PROCESS_DETACH:
|
|
if (lpvReserved) break;
|
|
free_io();
|
|
free_locale();
|
|
_Init_locks__Init_locks_dtor(NULL);
|
|
#if _MSVCP_VER >= 100
|
|
free_misc();
|
|
#endif
|
|
break;
|
|
}
|
|
|
|
return TRUE;
|
|
}
|
|
|
|
/* ?_BADOFF@std@@3JB -> long const std::_BADOFF */
|
|
/* ?_BADOFF@std@@3_JB -> __int64 const std::_BADOFF */
|
|
const streamoff std_BADOFF = -1;
|
|
|
|
/* ?_BADOFF_func@std@@YAABJXZ -> long const & __cdecl std::_BADOFF_func(void) */
|
|
/* ?_BADOFF_func@std@@YAAEB_JXZ -> __int64 const & __ptr64 __cdecl std::_BADOFF_func(void) */
|
|
const streamoff * __cdecl std_BADOFF_func(void)
|
|
{
|
|
return &std_BADOFF;
|
|
}
|
|
|
|
/* ?_Fpz@std@@3_JA __int64 std::_Fpz */
|
|
__int64 std_Fpz = 0;
|
|
|
|
/* ?_Fpz_func@std@@YAAA_JXZ -> __int64 & __cdecl std::_Fpz_func(void) */
|
|
/* ?_Fpz_func@std@@YAAEA_JXZ -> __int64 & __ptr64 __cdecl std::_Fpz_func(void) */
|
|
__int64 * __cdecl std_Fpz_func(void)
|
|
{
|
|
return &std_Fpz;
|
|
}
|