From 190b09a5dda0040b362578792fced5a0d5e02eb5 Mon Sep 17 00:00:00 2001 From: marco Date: Fri, 3 Jan 2003 11:21:32 +0000 Subject: [PATCH] * copied and checked from Linux. --- rtl/bsd/ctypes.inc | 68 ++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 68 insertions(+) create mode 100644 rtl/bsd/ctypes.inc diff --git a/rtl/bsd/ctypes.inc b/rtl/bsd/ctypes.inc new file mode 100644 index 0000000000..217722d8ae --- /dev/null +++ b/rtl/bsd/ctypes.inc @@ -0,0 +1,68 @@ +{ + $Id$ + This file is part of the Free Pascal run time library. + Copyright (c) 2001 by Free Pascal development team + + Basic types for C interfacing. Check the 64-bit defines. + + 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. + + **********************************************************************} + +{***********************************************************************} +{ POSIX TYPE DEFINITIONS } +{***********************************************************************} + +{ Introduced defines + - 64bitarch (for 64-bits OSS BSD systems) +} + +Type + { the following type definitions are compiler dependant } + { and system dependant } + + cInt8 = shortint; + cUInt8 = byte; + cUInt16= word; + cInt16 = smallint; + cInt32 = longint; + cUInt32= cardinal; + cInt64 = int64; +{$ifndef VER_1_0} + cUInt64= qword; +{$else} + cUInt64= int64; +{$endif} + + cuchar = byte; + cInt = longint; { minimum range is : 32-bit } + cUInt = Cardinal; { minimum range is : 32-bit } + {$ifdef 64bitarch} + cLong = int64; + {$ifdef VER_1_0} + cuLong = int64; + {$else} + cuLong = qword; + {$endif} + {$else} + cLong = longint; + cuLong = Cardinal; + {$endif} + cshort = integer; + cushort= word; + + pcInt = ^cInt; + +{ + $Log$ + Revision 1.1 2003-01-03 11:21:32 marco + * copied and checked from Linux. + + +} +