mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-15 11:00:15 +02:00
49 lines
1.2 KiB
PHP
49 lines
1.2 KiB
PHP
{
|
|
Basic Windows stuff
|
|
|
|
This file is part of the Free Pascal run time library.
|
|
Copyright (c) 2002-2005 by Free Pascal development team
|
|
|
|
See the file COPYING.FPC, included in this distribution,
|
|
for details about the copyright.
|
|
|
|
This program is distributed in the hope that it will be useful,
|
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
|
|
|
|
**********************************************************************}
|
|
|
|
{ Platform specific information }
|
|
type
|
|
{$ifdef CPU64}
|
|
THandle = QWord;
|
|
ULONG_PTR = QWord;
|
|
{$else CPU64}
|
|
THandle = DWord;
|
|
ULONG_PTR = DWord;
|
|
{$endif CPU64}
|
|
TThreadID = THandle;
|
|
SIZE_T = ULONG_PTR;
|
|
|
|
{ the fields of this record are os dependent }
|
|
{ and they shouldn't be used in a program }
|
|
{ only the type TCriticalSection is important }
|
|
PRTLCriticalSection = ^TRTLCriticalSection;
|
|
TRTLCriticalSection = packed record
|
|
DebugInfo : pointer;
|
|
LockCount : longint;
|
|
RecursionCount : longint;
|
|
OwningThread : THandle;
|
|
LockSemaphore : THandle;
|
|
SpinCount : ULONG_PTR;
|
|
end;
|
|
|
|
const
|
|
{$ifdef WINCE}
|
|
KernelDLL = 'coredll';
|
|
ApiSuffix = 'W';
|
|
{$else WINCE}
|
|
KernelDLL = 'kernel32';
|
|
ApiSuffix = 'A';
|
|
{$endif WINCE}
|