paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-13 00:09:32 +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;
CONST INFINITE=-1;
procedure IntRTLEventWaitFor (AEvent: PRTLEvent);
CONST INFINITE=-1;
begin
{$WARNING TODO!}
{
@ -436,6 +435,30 @@ begin
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
OS2ThreadManager: TThreadManager;
@ -453,14 +476,15 @@ begin
ResumeThread :=@SysResumeThread;
KillThread :=@SysKillThread;
ThreadSwitch :=@SysThreadSwitch;
CloseThread :=@SysCloseThread;
WaitForThreadTerminate :=@SysWaitForThreadTerminate;
ThreadSetPriority :=@SysThreadSetPriority;
ThreadGetPriority :=@SysThreadGetPriority;
CloseThread :=@SysCloseThread;
GetCurrentThreadId :=@SysGetCurrentThreadId;
InitCriticalSection :=@SysInitCriticalSection;
DoneCriticalSection :=@SysDoneCriticalSection;
EnterCriticalSection :=@SysEnterCriticalSection;
TryEnterCriticalSection:=@SysTryEnterCriticalSection;
LeaveCriticalSection :=@SysLeaveCriticalSection;
InitThreadVar :=@SysInitThreadVar;
RelocateThreadVar :=@SysRelocateThreadVar;
@ -474,9 +498,10 @@ begin
RTLEventCreate :=@IntRTLEventCreate;
RTLEventDestroy :=@IntRTLEventDestroy;
RTLEventSetEvent :=@IntRTLEventSetEvent;
RTLEventResetEvent :=@intRTLEventResetEvent;
RTLEventWaitFor :=@IntRTLEventWaitFor;
RTLEventWaitForTimeout :=@intRTLEventWaitForTimeout;
end;
SetThreadManager (OS2ThreadManager);
end;