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

* fixed compile for unix

Browse Source
This commit is contained in:
peter 2004-01-21 20:11:06 +00:00
parent af3d31eceb
commit 16746b7d41
1 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
rtl/inc/thread.inc
View File

@ -14,6 +14,10 @@
**********************************************************************}
Var
CurrentTM : TThreadManager;
{*****************************************************************************
Threadvar initialization
*****************************************************************************}
@ -31,7 +35,7 @@
{ Stack checking }
StackLength:=stklen;
StackBottom:=Sptr - StackLength;
ThreadID := SysGetCurrentThreadID;
ThreadID := CurrentTM.GetCurrentThreadID();
end;
{*****************************************************************************
@ -79,9 +83,6 @@
EndThread(0);
end;
Var
CurrentTM : TThreadManager;
function BeginThread(sa : Pointer;stacksize : dword; ThreadFunction : tthreadfunc;p : pointer;creationFlags : dword; var ThreadId : DWord) : DWord;
begin
@ -321,7 +322,10 @@ end;
{
$Log$
Revision 1.7 2004-01-20 23:13:53 hajny
Revision 1.8 2004-01-21 20:11:06 peter
* fixed compile for unix
Revision 1.7 2004/01/20 23:13:53 hajny
* ExecuteProcess fixes, ProcessID and ThreadID added
Revision 1.6 2003/11/29 17:33:09 michael