paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 23:49:07 +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 Threadvar initialization
*****************************************************************************} *****************************************************************************}
@ -31,7 +35,7 @@
{ Stack checking } { Stack checking }
StackLength:=stklen; StackLength:=stklen;
StackBottom:=Sptr - StackLength; StackBottom:=Sptr - StackLength;
ThreadID := SysGetCurrentThreadID; ThreadID := CurrentTM.GetCurrentThreadID();
end; end;
{***************************************************************************** {*****************************************************************************
@ -79,9 +83,6 @@
EndThread(0); EndThread(0);
end; end;
Var
CurrentTM : TThreadManager;
function BeginThread(sa : Pointer;stacksize : dword; ThreadFunction : tthreadfunc;p : pointer;creationFlags : dword; var ThreadId : DWord) : DWord; function BeginThread(sa : Pointer;stacksize : dword; ThreadFunction : tthreadfunc;p : pointer;creationFlags : dword; var ThreadId : DWord) : DWord;
begin begin
@ -321,7 +322,10 @@ end;
{ {
$Log$ $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 * ExecuteProcess fixes, ProcessID and ThreadID added
Revision 1.6 2003/11/29 17:33:09 michael Revision 1.6 2003/11/29 17:33:09 michael