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

*** empty log message ***

Browse Source
This commit is contained in:
florian 2001-01-26 21:02:21 +00:00
parent dcbb5bac16
commit 04293466ed
1 changed files with 6 additions and 25 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
rtl/win32/thread.inc
View File

@ -28,7 +28,8 @@ var
dataindex : dword; dataindex : dword;
{ import the necessary stuff from windows } { import the necessary stuff from windows }
function TlsAlloc : DWord;external 'kernel32' name 'TlsAlloc'; function TlsAlloc : DWord;
external 'kernel32' name 'TlsAlloc';
function TlsGetValue(dwTlsIndex : DWord) : pointer; function TlsGetValue(dwTlsIndex : DWord) : pointer;
external 'kernel32' name 'TlsGetValue'; external 'kernel32' name 'TlsGetValue';
function TlsSetValue(dwTlsIndex : DWord;lpTlsValue : pointer) : LongBool; function TlsSetValue(dwTlsIndex : DWord;lpTlsValue : pointer) : LongBool;
@ -196,28 +197,6 @@ procedure EndThread;
{ we implement these procedures for win32 by importing them } { we implement these procedures for win32 by importing them }
{ directly from windows } { directly from windows }
procedure InitCriticalsection(var cs : tcriticalsection);
begin
end;
procedure DoneCriticalsection(var cs : tcriticalsection);
begin
end;
procedure EnterCriticalsection(var cs : tcriticalsection);
begin
end;
procedure LeaveCriticalsection(var cs : tcriticalsection);
begin
end;
{
procedure InitCriticalSection(var cs : tcriticalsection); procedure InitCriticalSection(var cs : tcriticalsection);
external 'kernel32' name 'InitializeCriticalSection'; external 'kernel32' name 'InitializeCriticalSection';
@ -229,13 +208,15 @@ procedure EnterCriticalSection(var cs : tcriticalsection);
procedure LeaveCriticalSection(var cs : tcriticalsection); procedure LeaveCriticalSection(var cs : tcriticalsection);
external 'kernel32' name 'LeaveCriticalSection'; external 'kernel32' name 'LeaveCriticalSection';
}
{$endif MT} {$endif MT}
{ {
$Log$ $Log$
Revision 1.3 2001-01-26 16:38:03 florian Revision 1.4 2001-01-26 21:02:21 florian
*** empty log message ***
Revision 1.3 2001/01/26 16:38:03 florian
*** empty log message *** *** empty log message ***
Revision 1.2 2001/01/24 21:47:38 florian Revision 1.2 2001/01/24 21:47:38 florian