void __cdecl _endthread (
void
)
{
_ptiddata ptd; /* pointer to thread's _tiddata struct */
/*
* Call fp termination, if necessary
*/
#ifdef CRTDLL
_fpclear();
#else /* CRTDLL */
if (_FPmtterm != NULL &&
_IsNonwritableInCurrentImage((PBYTE)&_FPmtterm))
{
(*_FPmtterm)();
}
#endif /* CRTDLL */
ptd = _getptd_noexit();
if (ptd) {
/*
* Close the thread handle (if there was one)
*/
if ( ptd->_thandle != (uintptr_t)(-1) )
(void) CloseHandle( (HANDLE)(ptd->_thandle) );
/*
* Free up the _tiddata structure & its subordinate buffers
* _freeptd() will also clear the value for this thread
* of the FLS variable __flsindex.
*/
_freeptd(ptd);
}
/*
* Terminate the thread
*/
ExitThread(0);
}
static unsigned long WINAPI _threadstart (
void * ptd
)
{
_ptiddata _ptd; /* pointer to per-thread data */
/* Initialize FlsGetValue function pointer */
__set_flsgetvalue();
/*
* Check if ptd is initialised during THREAD_ATTACH call to dll mains
*/
if ( (_ptd = (_ptiddata)__fls_getvalue(__get_flsindex())) == NULL)
{
/*
* Stash the pointer to the per-thread data stucture in TLS
*/
if ( !__fls_setvalue(__get_flsindex(), ptd) )
{
ExitThread(GetLastError());
}
}
else
{
_ptd->_initaddr = ((_ptiddata) ptd)->_initaddr;
_ptd->_initarg = ((_ptiddata) ptd)->_initarg;
_ptd->_thandle = ((_ptiddata) ptd)->_thandle;
#if defined (_M_CEE) || defined (MRTDLL)
_ptd->__initDomain=((_ptiddata) ptd)->__initDomain;
#endif /* defined (_M_CEE) || defined (MRTDLL) */
_freefls(ptd);
ptd = _ptd;
}
/*
* Call fp initialization, if necessary
*/
#ifndef MRTDLL
#ifdef CRTDLL
_fpclear();
#else /* CRTDLL */
if (_FPmtinit != NULL &&
_IsNonwritableInCurrentImage((PBYTE)&_FPmtinit))
{
(*_FPmtinit)();
}
#endif /* CRTDLL */
#endif /* MRTDLL */
#if defined (_M_CEE) || defined (MRTDLL)
DWORD domain=0;
if(!_getdomain(&domain))
{
ExitThread(0);
}
if(domain!=_ptd->__initDomain)
{
/* need to transition to caller's domain and startup there*/
::msclr::call_in_appdomain(_ptd->__initDomain, _callthreadstart);
return 0L;
}
#endif /* defined (_M_CEE) || defined (MRTDLL) */
_callthreadstart();
return(0L);
}
int
__tmainCRTStartup(
void
) {
#ifdef _WINMAIN_
_TUCHAR* lpszCommandLine;
STARTUPINFO StartupInfo;
BOOL inDoubleQuote = FALSE;
__try {
/*
Note: MSDN specifically notes that GetStartupInfo returns no error, and throws unspecified SEH if it fails, so
the very general exception handler below is appropriate
*/
GetStartupInfo(&StartupInfo);
} __except (EXCEPTION_EXECUTE_HANDLER) {
return 255;
}
#endif /* _WINMAIN_ */
/*
* Guard the initialization code and the call to user's main, or
* WinMain, function in a __try/__except statement.
*/
__try {
/*
* There is a possiblity that the module where this object is
* linked into is a mixed module. In all the cases we gurantee that
* native initialization will occur before managed initialization.
* Also in anycase this code should never be called when some other
* code is initializing native code, that's why we exit in that case.
*
* Do runtime startup initializers.
*
* Note: the only possible entry we'll be executing here is for
* __lconv_init, pulled in from charmax.obj only if the EXE was
* compiled with -J. All other .CRT$XI* initializers are only
* run as part of the CRT itself, and so for the CRT DLL model
* are not found in the EXE. For that reason, we call _initterm,
* not _initterm_e, because __lconv_init will never return failure,
* and _initterm_e is not exported from the CRT DLL.
*
* Note further that, when using the CRT DLL, executing the
* .CRT$XI* initializers is only done for an EXE, not for a DLL
* using the CRT DLL. That is to make sure the -J setting for
* the EXE is not overriden by that of any DLL.
*/
void* lock_free = 0;
void* fiberid = ((PNT_TIB)NtCurrentTeb())->StackBase;
int nested = FALSE;
while ((lock_free = InterlockedCompareExchangePointer((volatile PVOID*)&__native_startup_lock, fiberid, 0)) != 0) {
if (lock_free == fiberid) {
nested = TRUE;
break;
}
/* some other thread is running native startup/shutdown during a cctor/domain unload.
Should only happen if this DLL was built using the Everett-compat loader lock fix in vcclrit.h
*/
/* wait for the other thread to complete init before we return */
Sleep(1000);
}
if (__native_startup_state == __initializing) {
_amsg_exit(_RT_CRT_INIT_CONFLICT);
} else if (__native_startup_state == __uninitialized) {
__native_startup_state = __initializing;
#ifndef _SYSCRT
if (_initterm_e(__xi_a, __xi_z) != 0) {
return 255;
}
#else /* _SYSCRT */
_initterm((_PVFV*)(void*)__xi_a, (_PVFV*)(void*)__xi_z);
#endif /* _SYSCRT */
} else {
has_cctor = 1;
}
/*
* do C++ constructors (initializers) specific to this EXE
*/
if (__native_startup_state == __initializing) {
_initterm(__xc_a, __xc_z);
__native_startup_state = __initialized;
}
_ASSERTE(__native_startup_state == __initialized);
if (!nested) {
/* For X86, the definition of InterlockedExchangePointer wrongly causes warning C4312 */
#pragma warning(push)
#pragma warning(disable:4312)
InterlockedExchangePointer((volatile PVOID*)&__native_startup_lock, 0);
#pragma warning(pop)
}
/*
* If we have any dynamically initialized __declspec(thread)
* variables, then invoke their initialization for the primary
* thread used to start the process, by calling __dyn_tls_init
* through a callback defined in tlsdyn.obj.
*/
if (__dyn_tls_init_callback != NULL &&
_IsNonwritableInCurrentImage((PBYTE)&__dyn_tls_init_callback)) {
__dyn_tls_init_callback(NULL, DLL_THREAD_ATTACH, NULL);
}
/* Enable buffer count checking if linking against static lib */
_CrtSetCheckCount(TRUE);
#ifdef _WINMAIN_
/*
* Skip past program name (first token in command line).
* Check for and handle quoted program name.
*/
#ifdef WPRFLAG
/* OS may not support "W" flavors */
if (_wcmdln == NULL) {
return 255;
}
lpszCommandLine = (wchar_t*)_wcmdln;
#else /* WPRFLAG */
lpszCommandLine = (unsigned char*)_acmdln;
#endif /* WPRFLAG */
while (*lpszCommandLine > SPACECHAR ||
(*lpszCommandLine && inDoubleQuote)) {
/*
* Flip the count from 1 to 0 or 0 to 1 if current character
* is DOUBLEQUOTE
*/
if (*lpszCommandLine == DQUOTECHAR) {
inDoubleQuote = !inDoubleQuote;
}
#ifdef _MBCS
if (_ismbblead(*lpszCommandLine)) {
if (lpszCommandLine) {
lpszCommandLine++;
}
}
#endif /* _MBCS */
++lpszCommandLine;
}
/*
* Skip past any white space preceeding the second token.
*/
while (*lpszCommandLine && (*lpszCommandLine <= SPACECHAR)) {
lpszCommandLine++;
}
#ifdef WPRFLAG
mainret = wWinMain(
#else /* WPRFLAG */
mainret = WinMain(
#endif /* WPRFLAG */
(HINSTANCE)&__ImageBase,
NULL,
lpszCommandLine,
StartupInfo.dwFlags & STARTF_USESHOWWINDOW
? StartupInfo.wShowWindow
: SW_SHOWDEFAULT
);
#else /* _WINMAIN_ */
#ifdef WPRFLAG
__winitenv = envp;
mainret = wmain(argc, argv, envp);
#else /* WPRFLAG */
__initenv = envp;
mainret = main(argc, argv, envp);
#endif /* WPRFLAG */
#endif /* _WINMAIN_ */
/*
* Note that if the exe is managed app, we don't really need to
* call exit or _c_exit. .cctor should be able to take care of
* this.
*/
if (!managedapp)
exit(mainret);
if (has_cctor == 0)
_cexit();
} __except (_XcptFilter(GetExceptionCode(), GetExceptionInformation())) {
/*
* Should never reach here
*/
mainret = GetExceptionCode();
/*
* Note that if the exe is managed app, we don't really need to
* call exit or _c_exit. .cctor should be able to take care of
* this.
*/
if (!managedapp) {
_exit(mainret);
}
if (has_cctor == 0) {
_cexit();
}
} /* end of try - except */
return mainret;
}
DECLSPEC_GUARD_SUPPRESS
EXCEPTION_DISPOSITION
__C_specific_handler (
_In_ PEXCEPTION_RECORD ExceptionRecord,
_In_ PVOID EstablisherFrame,
_Inout_ PCONTEXT ContextRecord,
_Inout_ PDISPATCHER_CONTEXT DispatcherContext
)
/*++
Routine Description:
This function scans the scope tables associated with the specified
procedure and calls exception and termination handlers as necessary.
Arguments:
ExceptionRecord - Supplies a pointer to an exception record.
EstablisherFrame - Supplies a pointer to frame of the establisher function.
ContextRecord - Supplies a pointer to a context record.
DispatcherContext - Supplies a pointer to the exception dispatcher or
unwind dispatcher context.
N.B. SHRINK WRAPPING MUST BE DISABLED FOR THIS FUNCTION.
Return Value:
If an exception is being dispatched and the exception is handled by one
of the exception filter routines, then there is no return from this
routine and RtlUnwind is called. Otherwise, an exception disposition
value of continue execution or continue search is returned.
If an unwind is being dispatched, then each termination handler is called
and a value of continue search is returned.
--*/
{
ULONG_PTR ControlPc;
PEXCEPTION_FILTER ExceptionFilter;
EXCEPTION_POINTERS ExceptionPointers;
ULONG_PTR ImageBase;
ULONG_PTR Handler;
ULONG Index;
PSCOPE_TABLE ScopeTable;
ULONG TargetIndex;
ULONG_PTR TargetPc;
PTERMINATION_HANDLER TerminationHandler;
LONG Value;
DISABLE_SHRINK_WRAPPING();
#if defined(_M_AMD64)
//
// Validate integrity of context record.
//
__except_validate_context_record(ContextRecord);
#endif
//
// Get the image base address. compute the relative address of where
// control left the establisher, and get the address of the scope table.
//
ImageBase = DispatcherContext->ImageBase;
ControlPc = DispatcherContext->ControlPc - ImageBase;
ScopeTable = (PSCOPE_TABLE)(DispatcherContext->HandlerData);
#if defined(_M_ARM_NT) || defined(_M_ARM64) || defined(_CHPE_X86_ARM64_EH_)
//
// Do we have an indirect scope table?
//
if ((ScopeTable->Count & (1 << 31)) != 0) {
ScopeTable = (PSCOPE_TABLE)(ImageBase + (ScopeTable->Count & ~(1 << 31)));
}
//
// If this context came from an unwind to a call, then the ControlPc points
// to a return address, which could put us at the start of a neighboring
// scope. To correct for this, back the PC up by the minimum instruction
// size to ensure we are in the same scope as the original branch opcode.
//
if (DispatcherContext->ControlPcIsUnwound != FALSE) {
#if defined(_M_ARM_NT)
ControlPc -= 2;
#else
ControlPc -= 4;
#endif
}
#endif // defined(_M_ARM_NT) || defined(_M_ARM64) || defined(_CHPE_X86_ARM64_EH_)
//
// If an unwind is not in progress, then scan the scope table and call
// the appropriate exception filter routines. Otherwise, scan the scope
// table and call the appropriate termination handlers using the target
// PC obtained from the dispatcher context.
//
if (IS_DISPATCHING(ExceptionRecord->ExceptionFlags)) {
//
// Scan the scope table and call the appropriate exception filter
// routines.
//
ExceptionPointers.ExceptionRecord = ExceptionRecord;
ExceptionPointers.ContextRecord = ContextRecord;
for (Index = DispatcherContext->ScopeIndex; Index < ScopeTable->Count; Index += 1) {
if ((ControlPc >= ScopeTable->ScopeRecord[Index].BeginAddress) &&
(ControlPc < ScopeTable->ScopeRecord[Index].EndAddress) &&
(ScopeTable->ScopeRecord[Index].JumpTarget != 0)) {
//
// If the filter function address is the distinguished value
// one, then set the disposition value to execute handler.
// Otherwise, call the exception filter function to get the
// disposition value.
//
if (ScopeTable->ScopeRecord[Index].HandlerAddress == 1) {
Value = EXCEPTION_EXECUTE_HANDLER;
} else {
ExceptionFilter =
(PEXCEPTION_FILTER)(ScopeTable->ScopeRecord[Index].HandlerAddress + ImageBase);
Value = EXECUTE_EXCEPTION_FILTER(&ExceptionPointers,
EstablisherFrame,
ExceptionFilter,
DispatcherContext);
}
//
// If the return value is less than zero, then dismiss the
// exception. Otherwise, if the value is greater than zero,
// then unwind to the target exception handler. Otherwise,
// continue the search for an exception filter.
//
if (Value < 0) {
return ExceptionContinueExecution;
} else if (Value > 0) {
//
// If a thrown C++ exception is being handled, then let
// the C++ exception handler destruct the thrown object.
//
#ifndef _NTSUBSET_
if ((ExceptionRecord->ExceptionCode == EH_EXCEPTION_NUMBER) &&
(_pDestructExceptionObject != NULL) &&
(_IsNonwritableInCurrentImage(&_pDestructExceptionObject))) {
(*_pDestructExceptionObject)(ExceptionRecord, TRUE);
}
#endif
//
// Inform the debugger that control is about to be passed
// to an exception handler and pass the handler's address
// to NLG_Notify.
//
Handler = ImageBase + ScopeTable->ScopeRecord[Index].JumpTarget;
_NLG_Notify((PVOID)Handler, EstablisherFrame, 0x1);
RtlUnwindEx(EstablisherFrame,
(PVOID)(ScopeTable->ScopeRecord[Index].JumpTarget + ImageBase),
ExceptionRecord,
(PVOID)((ULONG_PTR)ExceptionRecord->ExceptionCode),
(PCONTEXT)DispatcherContext->ContextRecord,
DispatcherContext->HistoryTable);
//
// Notify debugger : return from exception handler
//
__NLG_Return2();
}
}
}
} else {
//
// Scan the scope table and call the appropriate termination handler
// routines.
//
TargetPc = DC_TARGETPC(DispatcherContext) - ImageBase;
for (Index = DispatcherContext->ScopeIndex; Index < ScopeTable->Count; Index += 1) {
if ((ControlPc >= ScopeTable->ScopeRecord[Index].BeginAddress) &&
(ControlPc < ScopeTable->ScopeRecord[Index].EndAddress)) {
if (IS_TARGET_UNWIND(ExceptionRecord->ExceptionFlags)) {
//
// If the target PC is within the same scope as the control PC,
// then this is an uplevel goto out of an inner try scope or a
// long jump back into a try scope. Terminate the scan for a
// termination handler.
//
// N.B. Due to a bug in the AMD64 compiler, try scopes may
// be split into multiple regions, requiring a scan
// of the earlier region of the table to verify that
// the target PC is not within the same try scope.
// The split scopes could reside both before or after
// the currently searched scope in the scope table.
//
// N.B. The target PC can be just beyond the end of the
// scope in which case it is a leave from a scope.
// The "leave from a scope" case is subsequently
// handled before control is transferred.
//
for (TargetIndex = 0; TargetIndex < ScopeTable->Count; TargetIndex += 1) {
if ((TargetPc >= ScopeTable->ScopeRecord[TargetIndex].BeginAddress) &&
(TargetPc < ScopeTable->ScopeRecord[TargetIndex].EndAddress) &&
(ScopeTable->ScopeRecord[TargetIndex].JumpTarget == ScopeTable->ScopeRecord[Index].JumpTarget) &&
(ScopeTable->ScopeRecord[TargetIndex].HandlerAddress == ScopeTable->ScopeRecord[Index].HandlerAddress)) {
break;
}
}
if (TargetIndex != ScopeTable->Count) {
break;
}
}
//
// If the scope table entry describes an exception filter
// and the associated exception handler is the target of
// the unwind, then terminate the scan for termination
// handlers. Otherwise, if the scope table entry describes
// a termination handler, then record the address of the
// end of the scope as the new control PC address and call
// the termination handler.
//
if (ScopeTable->ScopeRecord[Index].JumpTarget != 0) {
if ((TargetPc == ScopeTable->ScopeRecord[Index].JumpTarget) &&
(IS_TARGET_UNWIND(ExceptionRecord->ExceptionFlags))) {
break;
}
} else {
DispatcherContext->ScopeIndex = Index + 1;
TerminationHandler =
(PTERMINATION_HANDLER)(ScopeTable->ScopeRecord[Index].HandlerAddress + ImageBase);
EXECUTE_TERMINATION_HANDLER(TRUE,
EstablisherFrame,
TerminationHandler,
DispatcherContext);
}
}
}
}
//
// Continue search for exception or termination handlers.
//
ENABLE_SHRINK_WRAPPING();
return ExceptionContinueSearch;
}
BOOL WINAPI _CRT_INIT(
HANDLE hDllHandle,
DWORD dwReason,
LPVOID lpreserved
)
{
/*
* If this is a process detach notification, check that there has
* been a prior (successful) process attachment.
*/
if ( dwReason == DLL_PROCESS_DETACH ) {
if ( __proc_attached > 0 )
__proc_attached--;
else
/*
* no prior process attach. just return failure.
*/
return FALSE;
}
#ifdef _M_IX86
/*
* Set the local copy of the Pentium FDIV adjustment flag
*/
_adjust_fdiv = * _imp___adjust_fdiv;
#endif /* _M_IX86 */
/*
* do C++ constructors (initializers) specific to this DLL
*/
if ( dwReason == DLL_PROCESS_ATTACH ) {
/*
* There is a possiblity that the module where this object is
* linked into is a mixed module. In all the cases we gurantee
* that native initialization will occur before managed
* initialization. Also in anycase this code should never be
* called when some other code is initializing native code,
* that's why we exit in that case.
*
* The case that is illegal is when managed code is executed for
* the first time in loader lock. But there can be case when dll is
* loaded in LoadLibrary and CLR could be already loaded in this
* case it is perfectly OK to execute .cctor.
*/
void *lock_free=0;
void *fiberid=((PNT_TIB)NtCurrentTeb())->StackBase;
int nested=FALSE;
while((lock_free=InterlockedCompareExchangePointer((volatile PVOID *)&__native_startup_lock, fiberid, 0))!=0)
{
if(lock_free==fiberid)
{
nested=TRUE;
break;
}
/* some other thread is running native startup/shutdown during a cctor/domain unload.
Should only happen if this DLL was built using the Everett-compat loader lock fix in vcclrit.h
*/
/* wait for the other thread to complete init before we return */
Sleep(1000);
}
if (__native_startup_state != __uninitialized)
{
_amsg_exit( _RT_CRT_INIT_CONFLICT);
}
else
{
/*
* Set the native startup state to initializing.
*/
__native_startup_state = __initializing;
/*
* Invoke C initializers.
*/
#ifndef _SYSCRT
if (_initterm_e( __xi_a, __xi_z ) != 0)
return FALSE;
#else /* _SYSCRT */
_initterm((_PVFV *)(void *)__xi_a, (_PVFV *)(void *)__xi_z);
#endif /* _SYSCRT */
/*
* Invoke C++ constructors
*/
_initterm(__xc_a,__xc_z);
/*
* Set the native initialization state to initialized.
*/
__native_startup_state = __initialized;
}
if(!nested)
{
/* For X86, the definition of InterlockedExchangePointer wrongly causes warning C4312 */
#pragma warning(push)
#pragma warning(disable:4312)
InterlockedExchangePointer((volatile PVOID *)&__native_startup_lock,0);
#pragma warning(pop)
}
/*
* If we have any dynamically initialized __declspec(thread)
* variables, then invoke their initialization for the thread on
* which the DLL is being loaded, by calling __dyn_tls_init through
* a callback defined in tlsdyn.obj. We can't rely on the OS
* calling __dyn_tls_init with DLL_PROCESS_ATTACH because, on
* Win2K3 and before, that call happens before the CRT is
* initialized.
*/
if (__dyn_tls_init_callback != NULL &&
_IsNonwritableInCurrentImage((PBYTE)&__dyn_tls_init_callback))
{
__dyn_tls_init_callback(hDllHandle, DLL_THREAD_ATTACH,
lpreserved);
}
/* Enable buffer count checking if linking against static lib */
_CrtSetCheckCount(TRUE);
/*
* Increment the process attached flag.
*/
__proc_attached++;
}
else if ( dwReason == DLL_PROCESS_DETACH )
{
/*
* Any basic clean-up code that goes here must be
* duplicated below in _DllMainCRTStartup for the
* case where the user's DllMain() routine fails on a
* Process Attach notification. This does not include
* calling user C++ destructors, etc.
*/
/*
* do _onexit/atexit() terminators
* (if there are any)
*
* These terminators MUST be executed in
* reverse order (LIFO)!
*
* NOTE:
* This code assumes that __onexitbegin
* points to the first valid onexit()
* entry and that __onexitend points
* past the last valid entry. If
* __onexitbegin == __onexitend, the
* table is empty and there are no
* routines to call.
*/
void *lock_free=0;
while((lock_free=InterlockedCompareExchangePointer((volatile PVOID *)&__native_startup_lock, (PVOID)1, 0))!=0)
{
/* some other thread is running native startup/shutdown during a cctor/domain unload.
Should only happen if this DLL was built using the Everett-compat loader lock fix in vcclrit.h
*/
/* wait for the other thread to complete init before we return */
Sleep(1000);
}
if(__native_startup_state!=__initialized)
{
/* somehow we are in a very bad state running shutdown when we have not started */
_amsg_exit( _RT_CRT_INIT_CONFLICT);
}
else
{
_PVFV * onexitbegin = (_PVFV *)_decode_pointer(__onexitbegin);
if (onexitbegin)
{
_PVFV * onexitend = (_PVFV *)_decode_pointer(__onexitend);
while ( --onexitend >= onexitbegin )
/*
* if current table entry is not
* NULL, call thru it.
*/
if ( *onexitend != NULL )
(**onexitend)();
/*
* free the block holding onexit table to
* avoid memory leaks. Also zero the ptr
* variables so that they are clearly cleaned up.
*/
_free_crt ( onexitbegin ) ;
__onexitbegin = __onexitend = (_PVFV *)_encoded_null();
}
__native_startup_state = __uninitialized;
/* For X86, the definition of InterlockedExchangePointer wrongly causes warning C4312 */
#pragma warning(push)
#pragma warning(disable:4312)
InterlockedExchangePointer((volatile PVOID *)&__native_startup_lock,0);
#pragma warning(pop)
}
}
return TRUE;
}
