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

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

Browse Source 
git-svn-id: trunk@48991 -
This commit is contained in:
marcus 2021-03-16 20:54:13 +00:00
parent 612f063795
commit 82450e1d57
4 changed files with 11 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
packages/amunits/src/coreunits/exec.pas
View File

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

3
packages/arosunits/src/exec.pas
View File

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

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

@ -20,10 +20,6 @@ unit exec;
interface interface
var
ExecBase: Pointer;
{ Some types for classic Amiga and AROS compatibility } { Some types for classic Amiga and AROS compatibility }
type type
STRPTR = PChar; 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_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. 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; function Supervisor(userFunction: Pointer location 'a5'): Cardinal;
SysCall MOS_ExecBase 030; SysCall MOS_ExecBase 030;

3
packages/os4units/src/exec.pas
View File

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