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

* initialize previously missing fields of threadmanager record

Browse Source 
git-svn-id: trunk@15139 -
This commit is contained in:
Tomas Hajny 2010-04-11 15:14:18 +00:00
parent a1d94c6829
commit ef669a31c8
1 changed files with 29 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
rtl/os2/systhrd.inc
View File

@ -425,9 +425,8 @@ begin
end; end;
CONST INFINITE=-1;
procedure IntRTLEventWaitFor (AEvent: PRTLEvent); procedure IntRTLEventWaitFor (AEvent: PRTLEvent);
CONST INFINITE=-1;
begin begin
{$WARNING TODO!} {$WARNING TODO!}
{ {
@ -436,6 +435,30 @@ begin
end; end;
function SysTryEnterCriticalSection (var CS): longint;
begin
{$WARNING TODO!}
end;
procedure IntRTLEventWaitForTimeout (AEvent: PRTLEvent; Timeout: longint);
begin
{$WARNING TODO!}
{
WaitForSingleObject(THANDLE(AEvent), Timeout);
}
end;
procedure intRTLEventResetEvent (AEvent: PRTLEvent);
begin
{$WARNING TODO!}
{
ResetEvent(THANDLE(AEvent));
}
end;
var var
OS2ThreadManager: TThreadManager; OS2ThreadManager: TThreadManager;
@ -453,14 +476,15 @@ begin
ResumeThread :=@SysResumeThread; ResumeThread :=@SysResumeThread;
KillThread :=@SysKillThread; KillThread :=@SysKillThread;
ThreadSwitch :=@SysThreadSwitch; ThreadSwitch :=@SysThreadSwitch;
CloseThread :=@SysCloseThread;
WaitForThreadTerminate :=@SysWaitForThreadTerminate; WaitForThreadTerminate :=@SysWaitForThreadTerminate;
ThreadSetPriority :=@SysThreadSetPriority; ThreadSetPriority :=@SysThreadSetPriority;
ThreadGetPriority :=@SysThreadGetPriority; ThreadGetPriority :=@SysThreadGetPriority;
CloseThread :=@SysCloseThread;
GetCurrentThreadId :=@SysGetCurrentThreadId; GetCurrentThreadId :=@SysGetCurrentThreadId;
InitCriticalSection :=@SysInitCriticalSection; InitCriticalSection :=@SysInitCriticalSection;
DoneCriticalSection :=@SysDoneCriticalSection; DoneCriticalSection :=@SysDoneCriticalSection;
EnterCriticalSection :=@SysEnterCriticalSection; EnterCriticalSection :=@SysEnterCriticalSection;
TryEnterCriticalSection:=@SysTryEnterCriticalSection;
LeaveCriticalSection :=@SysLeaveCriticalSection; LeaveCriticalSection :=@SysLeaveCriticalSection;
InitThreadVar :=@SysInitThreadVar; InitThreadVar :=@SysInitThreadVar;
RelocateThreadVar :=@SysRelocateThreadVar; RelocateThreadVar :=@SysRelocateThreadVar;
@ -474,9 +498,10 @@ begin
RTLEventCreate :=@IntRTLEventCreate; RTLEventCreate :=@IntRTLEventCreate;
RTLEventDestroy :=@IntRTLEventDestroy; RTLEventDestroy :=@IntRTLEventDestroy;
RTLEventSetEvent :=@IntRTLEventSetEvent; RTLEventSetEvent :=@IntRTLEventSetEvent;
RTLEventResetEvent :=@intRTLEventResetEvent;
RTLEventWaitFor :=@IntRTLEventWaitFor; RTLEventWaitFor :=@IntRTLEventWaitFor;
RTLEventWaitForTimeout :=@intRTLEventWaitForTimeout;
end; end;
SetThreadManager (OS2ThreadManager); SetThreadManager (OS2ThreadManager);
end; end;