paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-16 05:30:37 +01:00
Code Issues Packages Projects Releases Wiki Activity

* TThread on linux fixed

Browse Source
This commit is contained in:
florian 2005-04-13 20:15:47 +00:00
parent 4aa4aeae79
commit 3ab66b5576
1 changed files with 20 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

37
rtl/inc/thread.inc
View File

@ -78,7 +78,7 @@ Var
EndThread(0);
end;
function BeginThread(sa : Pointer;stacksize : dword; ThreadFunction : tthreadfunc;p : pointer;creationFlags : dword; var ThreadId : THandle) : DWord;
function BeginThread(sa : Pointer;stacksize : dword; ThreadFunction : tthreadfunc;p : pointer;creationFlags : dword; var ThreadId : TThreadID) : DWord;
begin
Result:=CurrentTM.BeginThread(sa,stacksize,threadfunction,P,creationflags,ThreadID);
@ -90,13 +90,13 @@ begin
CurrentTM.EndThread(ExitCode);
end;
function SuspendThread (threadHandle : dword) : dword;
function SuspendThread (threadHandle : TThreadID) : dword;
begin
Result:=CurrentTM.SuspendThread(ThreadHandle);
end;
function ResumeThread (threadHandle : dword) : dword;
function ResumeThread (threadHandle : TThreadID) : dword;
begin
Result:=CurrentTM.ResumeThread(ThreadHandle);
@ -108,24 +108,24 @@ begin
CurrentTM.ThreadSwitch;
end;
function KillThread (threadHandle : dword) : dword;
function KillThread (threadHandle : TThreadID) : dword;
begin
Result:=CurrentTM.KillThread(ThreadHandle);
end;
function WaitForThreadTerminate (threadHandle : dword; TimeoutMs : longint) : dword;
function WaitForThreadTerminate (threadHandle : TThreadID; TimeoutMs : longint) : dword;
begin
Result:=CurrentTM.WaitForThreadTerminate(ThreadHandle,TimeOutMS);
end;
function ThreadSetPriority (threadHandle : dword; Prio: longint): boolean;
function ThreadSetPriority (threadHandle : TThreadID; Prio: longint): boolean;
begin
Result:=CurrentTM.ThreadSetPriority(ThreadHandle,Prio);
end;
function ThreadGetPriority (threadHandle : dword): longint;
function ThreadGetPriority (threadHandle : TThreadID): longint;
begin
Result:=CurrentTM.ThreadGetPriority(ThreadHandle);
@ -294,7 +294,7 @@ end;
function NoBeginThread(sa : Pointer;stacksize : dword;
ThreadFunction : tthreadfunc;p : pointer;
creationFlags : dword; var ThreadId : THandle) : DWord;
creationFlags : dword; var ThreadId : TThreadID) : DWord;
begin
NoThreadError;
end;
@ -304,7 +304,7 @@ begin
NoThreadError;
end;
function NoThreadHandler (threadHandle : dword) : dword;
function NoThreadHandler (threadHandle : TThreadID) : dword;
begin
NoThreadError;
end;
@ -314,22 +314,22 @@ begin
NoThreadError;
end;
function NoWaitForThreadTerminate (threadHandle : dword; TimeoutMs : longint) : dword; {0=no timeout}
function NoWaitForThreadTerminate (threadHandle : TThreadID; TimeoutMs : longint) : dword; {0=no timeout}
begin
NoThreadError;
end;
function NoThreadSetPriority (threadHandle : dword; Prio: longint): boolean; {-15..+15, 0=normal}
function NoThreadSetPriority (threadHandle : TThreadID; Prio: longint): boolean; {-15..+15, 0=normal}
begin
NoThreadError;
end;
function NoThreadGetPriority (threadHandle : dword): longint;
function NoThreadGetPriority (threadHandle : TThreadID): longint;
begin
NoThreadError;
end;
function NoGetCurrentThreadId : dword;
function NoGetCurrentThreadId : TThreadID;
begin
if IsMultiThread then
NoThreadError
@ -430,19 +430,19 @@ procedure NORTLeventStartWait(state:pRTLEvent);
begin
NoThreadError;
end;
procedure NORTLeventWaitFor(state:pRTLEvent);
begin
NoThreadError;
end;
procedure NORTLeventWaitForTimeout(state:pRTLEvent;timeout : longint);
begin
NoThreadError;
end;
procedure NORTLeventsync(m:trtlmethod;p:tprocedure);
begin
@ -497,7 +497,10 @@ end;
{
$Log$
Revision 1.26 2005-04-09 17:26:08 florian
Revision 1.27 2005-04-13 20:15:47 florian
* TThread on linux fixed
Revision 1.26 2005/04/09 17:26:08 florian
+ classes.mainthreadid is set now
+ rtleventresetevent
+ rtleventwairfor with timeout