From c1946ace52cf4c8d55f67a20b5d3ca618139959a Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?K=C3=A1roly=20Balogh?= <karoly@freepascal.org>
Date: Sun, 7 Jun 2015 01:26:47 +0000
Subject: [PATCH] morphunits: imported the traditional Amiga types and some
 consts into exec for better Amiga & AROS compatibility

git-svn-id: trunk@31000 -
---
 packages/morphunits/src/exec.pas | 24 ++++++++++++++++++++++++
 1 file changed, 24 insertions(+)

diff --git a/packages/morphunits/src/exec.pas b/packages/morphunits/src/exec.pas
index 8a25aa3fbf..4a15556ac8 100644
--- a/packages/morphunits/src/exec.pas
+++ b/packages/morphunits/src/exec.pas
@@ -24,6 +24,30 @@ var
   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 * }
 
 const