paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-07 20:31:57 +02:00
Code Issues Packages Projects Releases Wiki Activity

amunits: renamed agraphics/Move to gfxMove to match other platforms and avoid the conflict with System.Move()

Browse Source 
git-svn-id: trunk@28562 -
This commit is contained in:
Károly Balogh 2014-08-31 17:21:58 +00:00
parent 9b40b6dcc1
commit 832ac8332e
1 changed files with 1 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
packages/amunits/src/coreunits/agraphics.pas
View File

@ -2339,7 +2339,7 @@ PROCEDURE LoadView(view : pView);
PROCEDURE LockLayerRom(layer : pLayer);
FUNCTION MakeVPort(view : pView; vp : pViewPort) : ULONG;
FUNCTION ModeNotAvailable(modeID : ULONG) : LONGINT;
PROCEDURE Move(rp : pRastPort; x : LONGINT; y : LONGINT);
PROCEDURE gfxMove(rp : pRastPort location 'a1'; x : LONGINT location 'd0'; y : LONGINT location 'd1'); syscall GfxBase 240;
PROCEDURE MoveSprite(vp : pViewPort; sprite : pSimpleSprite; x : LONGINT; y : LONGINT);
FUNCTION MrgCop(view : pView) : ULONG;
FUNCTION NewRegion : pRegion;
@ -3812,19 +3812,6 @@ BEGIN
END;
END;
PROCEDURE Move(rp : pRastPort; x : LONGINT; y : LONGINT);
BEGIN
ASM
MOVE.L A6,-(A7)
MOVEA.L rp,A1
MOVE.L x,D0
MOVE.L y,D1
MOVEA.L GfxBase,A6
JSR -240(A6)
MOVEA.L (A7)+,A6
END;
END;
PROCEDURE MoveSprite(vp : pViewPort; sprite : pSimpleSprite; x : LONGINT; y : LONGINT);
BEGIN
ASM