freepascal.compiler/rtl/inc/os_types.pp

UNIT os_types;

{ 
  Note: 
  This file is meant as a helper for porting C and C++ interfaces to FreePascal. 
  It got required since FPC's resolving of the integer type depends on selected
  slang but not much on the target platform like its state of the art in C. 
  When porting API interfaces its recomended to use the types defined here.
  2000-Mar-18   alex    <[email protected]>
}

INTERFACE

TYPE
// ordinal types
{$ifdef Go32v1}
  tOS_INT  = LongInt;
  tOS_UINT = DWord;
{$define OS_TYPES}
{$endif}
{$ifdef Go32v2}
  tOS_INT  = LongInt;
  tOS_UINT = DWord;
{$define OS_TYPES}
{$endif}
{$ifdef WIN16}
  tOS_INT  = SmallInt;
  tOS_UINT = Word;
{$define OS_TYPES}
{$endif}
{$ifdef WIN32}
  tOS_INT  = LongInt;
  tOS_UINT = DWord;
{$define OS_TYPES}
{$endif}
{$ifdef WIN64}
  tOS_INT  = Comp;  { 8 byte signed ordinal }
  tOS_UINT = QWord; { 8 byte unsigned ordinal }{ possibly still needs to be defined }
{$define OS_TYPES}
{$endif}
{$ifdef LINUX}
{ TODO - how can we decide if we run on a 32 or a 64 bit linux platform ??? }
  tOS_INT  = LongInt;
  tOS_UINT = DWord;
{$define OS_TYPES}
{$endif}
{$ifdef OS2}
{ TODO - just an assumption }
  tOS_INT  = LongInt;
  tOS_UINT = DWord;
{$define OS_TYPES}
{$endif}

{$ifdef OS_TYPES}
// derive pointers from base types
  ptOS_INT = ^tOS_INT;
  ptOS_UINT = ^tOS_UINT;
{$else}
{$warning In Unit OS_Types: no case for your target present }
{$endif}

IMPLEMENTATION

{begin}{of init}
end.