paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-16 05:59:28 +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;
ThreadFunction : tthreadfunc;p : pointer;
creationFlags : dword; var ThreadId : THandle) : DWord;
creationFlags : dword; var ThreadId : TThreadID) : DWord;
var
TI: PThreadInfo;
begin
@ -220,7 +220,7 @@ end;
{$ifdef DEBUG_MT}
writeln('Starting new thread');
{$endif DEBUG_MT}
SysBeginThread := DosCreateThread (DWord(ThreadID), @ThreadMain, SA,
SysBeginThread := DosCreateThread (DWord (ThreadID), @ThreadMain, SA,
CreationFlags, StackSize);
end;
@ -546,7 +546,10 @@ end;
{
$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
Revision 1.1 2005/02/06 16:57:18 peter