浏览代码

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

git-svn-id: trunk@28701 -
Károly Balogh 11 年之前
父节点
当前提交
27befd2375
共有 2 个文件被更改,包括 12 次插入0 次删除
  1. 9 0
      rtl/amiga/m68k/execf.inc
  2. 3 0
      rtl/amiga/system.pp

+ 9 - 0
rtl/amiga/m68k/execf.inc

@@ -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 - 0
rtl/amiga/system.pp

@@ -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}