diff options
Diffstat (limited to 'packages/libc/src/glue.inc')
| -rw-r--r-- | packages/libc/src/glue.inc | 53 |
1 files changed, 53 insertions, 0 deletions
diff --git a/packages/libc/src/glue.inc b/packages/libc/src/glue.inc new file mode 100644 index 0000000000..4211ab0f74 --- /dev/null +++ b/packages/libc/src/glue.inc @@ -0,0 +1,53 @@ +{ --------------------------------------------------------------------- + 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; + UInt64 = 0..High(Int64); // Must be unsigned. + 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; + + |