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

* fixed more TThreadID stuff

Browse Source
This commit is contained in:
florian 2005-04-14 20:42:14 +00:00
parent 9f875b3c36
commit c04f0bc856
2 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/inc/thread.inc
View File

@ -131,7 +131,7 @@ begin
Result:=CurrentTM.ThreadGetPriority(ThreadHandle);
end;
function GetCurrentThreadId : dword;
function GetCurrentThreadId : TThreadID;
begin
Result:=CurrentTM.GetCurrentThreadID();
@ -497,7 +497,10 @@ end;
{
$Log$
Revision 1.27 2005-04-13 20:15:47 florian
Revision 1.28 2005-04-14 20:42:14 florian
* fixed more TThreadID stuff
Revision 1.27 2005/04/13 20:15:47 florian
* TThread on linux fixed
Revision 1.26 2005/04/09 17:26:08 florian

7
rtl/inc/threadh.inc
View File

@ -127,7 +127,7 @@ function KillThread (threadHandle : TThreadID) : dword;
function WaitForThreadTerminate (threadHandle : TThreadID; TimeoutMs : longint) : dword; {0=no timeout}
function ThreadSetPriority (threadHandle : TThreadID; Prio: longint): boolean; {-15..+15, 0=normal}
function ThreadGetPriority (threadHandle : TThreadID): longint;
function GetCurrentThreadId : dword;
function GetCurrentThreadId : TThreadID;
{ this allows to do a lot of things in MT safe way }
@ -155,7 +155,10 @@ procedure RTLeventsync(m:trtlmethod;p:tprocedure);
{
$Log$
Revision 1.30 2005-04-13 20:10:50 florian
Revision 1.31 2005-04-14 20:42:14 florian
* fixed more TThreadID stuff
Revision 1.30 2005/04/13 20:10:50 florian
+ TThreadID
Revision 1.29 2005/04/09 17:26:08 florian