paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 17:49:09 +02:00
Code Issues Packages Projects Releases Wiki Activity

* TThreadID fix

Browse Source
This commit is contained in:
Tomas Hajny 2005-04-20 21:52:16 +00:00
parent 2bbc4601c3
commit 076364ca7f
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
rtl/os2/systhrd.inc
View File

@ -193,7 +193,7 @@ end;
function SysBeginThread(sa : Pointer;stacksize : dword; function SysBeginThread(sa : Pointer;stacksize : dword;
ThreadFunction : tthreadfunc;p : pointer; ThreadFunction : tthreadfunc;p : pointer;
creationFlags : dword; var ThreadId : THandle) : DWord; creationFlags : dword; var ThreadId : TThreadID) : DWord;
var var
TI: PThreadInfo; TI: PThreadInfo;
begin begin
@ -220,7 +220,7 @@ end;
{$ifdef DEBUG_MT} {$ifdef DEBUG_MT}
writeln('Starting new thread'); writeln('Starting new thread');
{$endif DEBUG_MT} {$endif DEBUG_MT}
SysBeginThread := DosCreateThread (DWord(ThreadID), @ThreadMain, SA, SysBeginThread := DosCreateThread (DWord (ThreadID), @ThreadMain, SA,
CreationFlags, StackSize); CreationFlags, StackSize);
end; end;
@ -546,7 +546,10 @@ end;
{ {
$Log$ $Log$
Revision 1.2 2005-03-20 22:33:27 hajny Revision 1.3 2005-04-20 21:52:16 hajny
* TThreadID fix
Revision 1.2 2005/03/20 22:33:27 hajny
* thread local memory freed * thread local memory freed
Revision 1.1 2005/02/06 16:57:18 peter Revision 1.1 2005/02/06 16:57:18 peter