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

* compilation fix - CloseThrad typo from r15072

Browse Source 
git-svn-id: trunk@15124 -
This commit is contained in:
Tomas Hajny 2010-04-10 08:43:39 +00:00
parent 36125b623a
commit 86f1e52505
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
rtl/os2/systhrd.inc
View File

@ -255,6 +255,7 @@ end;
function SysCloseThread (threadHandle : TThreadID) : dword; function SysCloseThread (threadHandle : TThreadID) : dword;
begin begin
SysCloseThread := 0;
// SysCloseThread:=CloseHandle(threadHandle); // SysCloseThread:=CloseHandle(threadHandle);
end; end;
@ -455,7 +456,7 @@ begin
WaitForThreadTerminate :=@SysWaitForThreadTerminate; WaitForThreadTerminate :=@SysWaitForThreadTerminate;
ThreadSetPriority :=@SysThreadSetPriority; ThreadSetPriority :=@SysThreadSetPriority;
ThreadGetPriority :=@SysThreadGetPriority; ThreadGetPriority :=@SysThreadGetPriority;
CloseThrad :=@SysCloseThread; CloseThread :=@SysCloseThread;
GetCurrentThreadId :=@SysGetCurrentThreadId; GetCurrentThreadId :=@SysGetCurrentThreadId;
InitCriticalSection :=@SysInitCriticalSection; InitCriticalSection :=@SysInitCriticalSection;
DoneCriticalSection :=@SysDoneCriticalSection; DoneCriticalSection :=@SysDoneCriticalSection;