paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 02:49:21 +02:00
Code Issues Packages Projects Releases Wiki Activity

morphunits: imported the traditional Amiga types and some consts into exec for better Amiga & AROS compatibility

Browse Source 
git-svn-id: trunk@31000 -
This commit is contained in:
Károly Balogh 2015-06-07 01:26:47 +00:00
parent 2ffb2f9c98
commit c1946ace52
1 changed files with 24 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
packages/morphunits/src/exec.pas
View File

@ -24,6 +24,30 @@ var
ExecBase: Pointer; ExecBase: Pointer;
{ Some types for classic Amiga and AROS compatibility }
type
STRPTR = PChar;
ULONG = Longword;
LONG = Longint;
APTR = Pointer;
BPTR = Longint;
BSTR = Longint;
BOOL = Smallint; { I think this could be changed to WordBool (KB) }
UWORD = Word;
WORDBITS = Word;
LONGBITS = Longword;
PLONGBITS = ^LONGBITS;
UBYTE = Byte;
PULONG = ^Longword;
PAPTR = ^APTR;
PLONG = ^LONG;
{ Some constants for classic Amiga and AROS compatibility }
const
LTrue : Longint = 1;
LFalse : Longint = 0;
{ * emulinterface consts from MorphOS SDK * } { * emulinterface consts from MorphOS SDK * }
const const