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

* one more TThreadID fix

Browse Source
This commit is contained in:
Tomas Hajny 2005-04-17 17:19:41 +00:00
parent bbee26af24
commit 787bd9171d
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/inc/thread.inc
View File

@ -62,7 +62,7 @@ Var
end; end;
function BeginThread(ThreadFunction : tthreadfunc;p : pointer;var ThreadId : THandle) : DWord; function BeginThread(ThreadFunction : tthreadfunc;p : pointer;var ThreadId : TThreadID) : DWord;
begin begin
BeginThread:=BeginThread(nil,DefaultStackSize,ThreadFunction,p,0,ThreadId); BeginThread:=BeginThread(nil,DefaultStackSize,ThreadFunction,p,0,ThreadId);
end; end;
@ -497,7 +497,10 @@ end;
{ {
$Log$ $Log$
Revision 1.28 2005-04-14 20:42:14 florian Revision 1.29 2005-04-17 17:19:41 hajny
* one more TThreadID fix
Revision 1.28 2005/04/14 20:42:14 florian
* fixed more TThreadID stuff * fixed more TThreadID stuff
Revision 1.27 2005/04/13 20:15:47 florian Revision 1.27 2005/04/13 20:15:47 florian