diff options
author | karoly <karoly@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2014-09-08 10:32:54 +0000 |
---|---|---|
committer | karoly <karoly@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2014-09-08 10:32:54 +0000 |
commit | b91bc22fc738b25f04ac0fdf476d787e7c9fdc6b (patch) | |
tree | 8b910800c10c90cc48a403c5097ba5eb64cedf11 | |
parent | b0fad692864669bbcd214ab81ccd876dfd251c94 (diff) | |
download | fpc-b91bc22fc738b25f04ac0fdf476d787e7c9fdc6b.tar.gz |
amunits: syscallified pastoc. This unit is deprecated, but since it's still used inside amunits, it's better have it safe
git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@28619 3ad0048d-3df7-0310-abae-a5850022a9f2
-rw-r--r-- | packages/amunits/src/utilunits/pastoc.pas | 27 |
1 files changed, 2 insertions, 25 deletions
diff --git a/packages/amunits/src/utilunits/pastoc.pas b/packages/amunits/src/utilunits/pastoc.pas index 5f83bdeae8..1264515c43 100644 --- a/packages/amunits/src/utilunits/pastoc.pas +++ b/packages/amunits/src/utilunits/pastoc.pas @@ -77,31 +77,8 @@ var myrememberkey : pRemember; remember_exit : pointer; -FUNCTION fpcAllocRemember(VAR rememberKey : pRemember; size : ULONG; flags : ULONG) : POINTER; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L rememberKey,A0 - MOVE.L size,D0 - MOVE.L flags,D1 - MOVEA.L _IntuitionBase,A6 - JSR -396(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -PROCEDURE fpcFreeRemember(VAR rememberKey : pRemember; reallyForget : LONGINT); -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L rememberKey,A0 - MOVE.L reallyForget,D0 - MOVEA.L _IntuitionBase,A6 - JSR -408(A6) - MOVEA.L (A7)+,A6 - END; -END; +FUNCTION fpcAllocRemember(VAR rememberKey : pRemember location 'a0'; size : ULONG location 'd0'; flags : ULONG location 'd1') : POINTER; syscall _IntuitionBase 396; +PROCEDURE fpcFreeRemember(VAR rememberKey : pRemember location 'a0'; reallyForget : LONGINT location 'd0'); syscall _IntuitionBase 408; Function StringPcharCopy(Dest: PChar; Source: String):PChar; var |