13.12.2016, 20:22
|
|
Начинающий
|
|
Регистрация: 16.11.2008
Адрес: Российская Федерация!! :)
Сообщения: 165
Версия Delphi: Delphi 2010
Репутация: 1272
|
|
Цитата:
Сообщение от NumLock
Так-то в VCL BeginThread() рекомендуется.
|
В этом меня насторожило вот это:
Код:
{$IFDEF MSWINDOWS}
function ThreadWrapper(Parameter: Pointer): Integer; stdcall;
{$ELSE}
function ThreadWrapper(Parameter: Pointer): Pointer; cdecl;
{$ENDIF}
asm
{$IFDEF PC_MAPPED_EXCEPTIONS}
{ Mark the top of the stack with a signature }
PUSH UNWINDFI_TOPOFSTACK
{$ENDIF PC_MAPPEDEXCEPTIONS}
CALL _FpuInit
PUSH EBP
{$IFNDEF PC_MAPPED_EXCEPTIONS}
XOR ECX,ECX
PUSH offset _ExceptionHandler
MOV EDX,FS:[ECX]
PUSH EDX
MOV FS:[ECX],ESP
{$ENDIF !PC_MAPPED_EXCEPTIONS}
{$IFDEF PC_MAPPED_EXCEPTIONS}
// The signal handling code in SysUtils depends on being able to
// discriminate between Delphi threads and foreign threads in order
// to choose the disposition of certain signals. It does this by
// testing a TLS index. However, we allocate TLS in a lazy fashion,
// so this test can fail unless we've already allocated the TLS segment.
// So we force the allocation of the TLS index value by touching a TLS
// value here. So don't remove this silly call to AreOSExceptionsBlocked.
CALL AreOSExceptionsBlocked
{$ENDIF PC_MAPPED_EXCEPTIONS}
MOV EAX,Parameter
MOV ECX,[EAX].TThreadRec.Parameter
MOV EDX,[EAX].TThreadRec.Func
PUSH ECX
PUSH EDX
CALL _FreeMem
POP EDX
POP EAX
CALL EDX
{$IFNDEF PC_MAPPED_EXCEPTIONS}
XOR EDX,EDX
POP ECX
MOV FS:[EDX],ECX
POP ECX
{$ENDIF !PC_MAPPED_EXCEPTIONS}
POP EBP
{$IFDEF PC_MAPPED_EXCEPTIONS}
{ Ditch our TOS marker }
ADD ESP, 4
{$ENDIF PC_MAPPED_EXCEPTIONS}
end;
И зачем это. Я не понял.
__________________
11011111 INED Home code
VK
|