Amiga, AROS, MorphOS, OS4: Unified ExecBase for all Amiga Platforms

git-svn-id: trunk@48991 -

packages/amunits/src/coreunits/exec.pas

@@ -1173,7 +1173,8 @@ CONST
        PAVLKEYCOMP = ^AVLKEYCOMP;
        AVLKEYCOMP = APTR;
 
-
+var
+  ExecBase: PExecBase absolute _ExecBase;
 
 PROCEDURE AbortIO(ioRequest : pIORequest location 'a1'); syscall _ExecBase 480;
 PROCEDURE AddDevice(device : pDevice location 'a1'); syscall _ExecBase 432;

packages/arosunits/src/exec.pas

@@ -1213,6 +1213,9 @@ const
   RAWFMTFUNC_SERIAL = 1; // Output to debug log (usually serial port)
   RAWFMTFUNC_COUNT  = 2; // Just count characters, PutChData is a pointer to the counter (ULONG *)
 
+var
+  ExecBase: PExecBase absolute AOS_ExecBase;
+
 // function headers
 function Supervisor(UserFunction: TProcedure): ULONG; syscall AOS_ExecBase 5;
 procedure Reschedule(Task: PTask); syscall AOS_ExecBase 8;

packages/morphunits/src/exec.pas

@@ -20,10 +20,6 @@ unit exec;
 
 interface
 
-var
-  ExecBase: Pointer;
-
-
 { Some types for classic Amiga and AROS compatibility }
 type
   STRPTR    = PChar;
@@ -1760,6 +1756,9 @@ const
   TLSTAG_DESTRUCTOR = TLSTAG_DUMMY + $0; // Destructor function to call on task termination if the TLS value is non-nil. The function is called with as: procedure(value: APTR; userdata: APTR);
   TLSTAG_USERDATA   = TLSTAG_DUMMY + $1;  // Userdata for the destructor function. Defaults to nil.
 
+var
+  ExecBase: PExecBase absolute MOS_ExecBase;
+
 function Supervisor(userFunction: Pointer location 'a5'): Cardinal;
 SysCall MOS_ExecBase 030;
 

packages/os4units/src/exec.pas

@@ -1736,6 +1736,9 @@ const
 
 //**********************************************************************
 
+var
+  ExecBase: PExecBase absolute AOS_ExecBase;
+
 function ExecObtain(): LongWord; syscall IExec 60;
 function ExecRelease(): LongWord; syscall IExec 64;
 procedure ExecExpunge(); syscall IExec 68;