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

+ some critical section related stuff added

Browse Source
This commit is contained in:
florian 2002-10-14 17:18:44 +00:00
parent de26052432
commit 0e4a87d682
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
rtl/win32/wininc/redef.inc
View File

@ -112,6 +112,9 @@ procedure InitializeCriticalSection(var CriticalSection : TRTLCriticalSection);
procedure EnterCriticalSection(var CriticalSection : TRTLCriticalSection); external 'kernel32' name 'EnterCriticalSection'; procedure EnterCriticalSection(var CriticalSection : TRTLCriticalSection); external 'kernel32' name 'EnterCriticalSection';
procedure LeaveCriticalSection(var CriticalSection : TRTLCriticalSection); external 'kernel32' name 'LeaveCriticalSection'; procedure LeaveCriticalSection(var CriticalSection : TRTLCriticalSection); external 'kernel32' name 'LeaveCriticalSection';
procedure DeleteCriticalSection(var CriticalSection : TRTLCriticalSection); external 'kernel32' name 'DeleteCriticalSection'; procedure DeleteCriticalSection(var CriticalSection : TRTLCriticalSection); external 'kernel32' name 'DeleteCriticalSection';
function InitializeCriticalSectionAndSpinCount(var CriticalSection : TRTLCriticalSection;dwSpinCount : DWORD) : BOOL; external 'kernel32' name 'InitializeCriticalSectionAndSpinCount';
function SetCriticalSectionSpinCount(var CriticalSection : TRTLCriticalSection;dwSpinCount : DWORD ): DWORD; external 'kernel32' name 'SetCriticalSectionSpinCount';
function TryEnterCriticalSection(var CriticalSection : TRTLCriticalSection) : BOOL; external 'kernel32' name 'TryEnterCriticalSection';
function _lcreat(const lpPathName: LPCSTR; iAttribute: Integer): HFILE; external 'kernel32' name '_lcreat'; function _lcreat(const lpPathName: LPCSTR; iAttribute: Integer): HFILE; external 'kernel32' name '_lcreat';
function _lopen(const lpPathName: LPCSTR; iReadWrite: Integer): HFILE; external 'kernel32' name '_lopen'; function _lopen(const lpPathName: LPCSTR; iReadWrite: Integer): HFILE; external 'kernel32' name '_lopen';
@ -912,11 +915,14 @@ function HResultFromNT(x : Longint) : HRESULT;
{ {
$Log$ $Log$
Revision 1.8 2002-09-07 16:01:31 peter Revision 1.9 2002-10-14 17:18:44 florian
+ some critical section related stuff added
Revision 1.8 2002/09/07 16:01:31 peter
* old logs removed and tabs fixed * old logs removed and tabs fixed
Revision 1.7 2002/03/23 20:13:53 marco Revision 1.7 2002/03/23 20:13:53 marco
* Some macro functions fixed. Didn't commit win32platform first because * Some macro functions fixed. Didn't commit win32platform first because
of mandatory init. of mandatory init.
} }