mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-05-03 18:43:59 +02:00
58 lines
1.5 KiB
PHP
58 lines
1.5 KiB
PHP
{ ---------------------------------------------------------------------
|
|
glue.inc : Glue between libc and Pascal types
|
|
---------------------------------------------------------------------}
|
|
|
|
Type
|
|
|
|
__ptr_t = Pointer;
|
|
P__ptr_t = ^__ptr_t;
|
|
ptrdiff_t = Integer;
|
|
__long_double_t = Extended;
|
|
P__long_double_t = ^__long_double_t;
|
|
size_t = Cardinal;
|
|
Psize_t = size_t;
|
|
{$ifdef ver1_0}
|
|
UInt64 = Int64; // Must be unsigned.
|
|
{$else}
|
|
UInt64 = 0..High(Int64); // Must be unsigned.
|
|
{$endif}
|
|
wchar_t = widechar;
|
|
Pwchar_t = ^wchar_t;
|
|
PPwchar_t = ^Pwchar_t;
|
|
PPByte = ^PByte;
|
|
PPPChar = ^PPChar;
|
|
|
|
{ ---------------------------------------------------------------------
|
|
Declarations moved forward because C headers are a mess.
|
|
---------------------------------------------------------------------}
|
|
|
|
Type
|
|
__sighandler_t = procedure(SigNum: Integer); cdecl;
|
|
|
|
timespec = record
|
|
tv_sec: Longint;
|
|
tv_nsec: Longint;
|
|
end;
|
|
|
|
wint_t = Cardinal;
|
|
__mbstate_t = record
|
|
count: Integer;
|
|
case { __value } Integer of
|
|
0: (__wch: wint_t);
|
|
1: (__wchb: packed array[0..4 - 1] of Char);
|
|
end;
|
|
mbstate_t = __mbstate_t;
|
|
P__mbstate_t = ^__mbstate_t;
|
|
|
|
{ ---------------------------------------------------------------------
|
|
Borland compatibility types for forward declarations.
|
|
---------------------------------------------------------------------}
|
|
|
|
TSignalHandler = __sighandler_t;
|
|
TTimeSpec = timespec;
|
|
PTimeSpec = ^TTimeSpec;
|
|
TMultiByteState = __mbstate_t;
|
|
PMultiByteState = ^TMultiByteState;
|
|
|
|
|