1234567891011121314151617181920212223242526272829303132333435 |
- {
- This file is part of the Free Pascal run time library.
- Copyright (c) 2007 by contributors of the Free Pascal Compiler
- This file implements all the base types and limits required
- for a minimal POSIX compliant subset required to port the compiler
- to a new OS.
- 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
- THandle = Longint;
- TThreadID = THandle;
- TOSTimestamp = Longint;
- { pthread_mutex_t }
- PRTLCriticalSection = ^TRTLCriticalSection;
- TRTLCriticalSection = record
- __m_reserved: longint;
- __m_count: longint;
- __m_owner: pointer;
- __m_kind: longint;
- __m_lock: record
- __status: sizeint;
- __spinlock: longint;
- end;
- end;
|