paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-03 23:54:33 +01:00
Code Issues Packages Projects Releases Wiki Activity

amiga: reintroduced some of the exec debug functions, which were removed, but actually *DO* exist on classic Amiga and hooked the new SysDebug stuff into the Amiga RTL

Browse Source 
git-svn-id: trunk@28701 -
This commit is contained in:
Károly Balogh 2014-09-21 00:15:49 +00:00
parent 4e48190342
commit 27befd2375
2 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
rtl/amiga/m68k/execf.inc
View File

@ -273,6 +273,15 @@ SysCall AOS_ExecBase 492;
function OpenResource(resName: PChar location 'a1'): Pointer;
SysCall AOS_ExecBase 498;
procedure RawIOInit;
SysCall AOS_ExecBase 504;
function RawMayGetChar: Char;
SysCall AOS_ExecBase 510;
procedure RawPutChar(d0arg: Char location 'd0');
SysCall AOS_ExecBase 516;
function RawDoFmt(formatString: PChar location 'a0';
dataStream : Pointer location 'a1';
putChProc : Pointer location 'a2';

3
rtl/amiga/system.pp
View File

@ -23,6 +23,7 @@ interface
{$define FPC_IS_SYSTEM}
{$I systemh.inc}
{$I osdebugh.inc}
{$ifdef cpum68k}
{$define fpc_softfpu_interface}
@ -110,6 +111,8 @@ implementation
{$endif cpum68k}
{$I system.inc}
{$I osdebug.inc}
{$IFDEF AMIGAOS4}
// Required to allow opening of utility library interface...
{$include utilf.inc}