paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-25 18:49:21 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
git-svn-id: trunk@28703 -
This commit is contained in:
marcus 2014-09-21 17:05:48 +00:00
parent b08ffa0a87
commit 34a726b89d
2 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
rtl/aros/i386/execf.inc
View File

@ -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
rtl/aros/system.pp
View File

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