paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-01 10:50:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

added central unit for OS dependent types.

Browse Source
This commit is contained in:
alex 2000-03-20 15:50:13 +00:00
parent e62572843b
commit cb860d32dc
1 changed files with 66 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

66
rtl/inc/os_types.pp Normal file
View File

@ -0,0 +1,66 @@
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 <AlexS@freepage.de>
}
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.