瀏覽代碼

AROS: hooked the new debug stuff into the AROS RTL, to be compatible with MorphOS and Amiga

git-svn-id: trunk@28703 -
marcus 11 年之前
父節點
當前提交
34a726b89d
共有 2 個文件被更改,包括 3 次插入0 次删除
  1. 1 0
      rtl/aros/i386/execf.inc
  2. 2 0
      rtl/aros/system.pp

+ 1 - 0
rtl/aros/i386/execf.inc

@@ -45,6 +45,7 @@ procedure DeletePool(poolHeader: Pointer); syscall LocalExecBase 117;
 function AllocPooled(poolHeader: Pointer; memSize: Cardinal): Pointer; syscall LocalExecBase 118;
 function FreePooled(poolHeader: Pointer; memory: Pointer; memSize: Cardinal): Pointer; syscall LocalExecBase 119;
 procedure StackSwap(NewStack: PStackSwapStruct); syscall AOS_ExecBase 122;
+procedure RawPutChar(c: Char); syscall AOS_ExecBase 86;
 
 //function RawDoFmt(const formatString : pCHAR;const dataStream : POINTER; putChProc : tPROCEDURE; putChData : POINTER): pointer;
 function RawDoFmt(const formatString : pCHAR;const dataStream : POINTER; putChProc : POINTER; putChData : POINTER): pointer; syscall LocalExecBase 87;

+ 2 - 0
rtl/aros/system.pp

@@ -28,6 +28,7 @@ interface
 {$define DISABLE_NO_THREAD_MANAGER}
 
 {$I systemh.inc}
+{$I osdebugh.inc}
 
 const
   LineEnding = #10;
@@ -83,6 +84,7 @@ procedure Debugln(s: string);
 implementation
 
 {$I system.inc}
+{$I osdebug.inc}
 type
     PWBArg = ^TWBArg;
     TWBArg = record