浏览代码

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

git-svn-id: trunk@28562 -
Károly Balogh 11 年之前
父节点
当前提交
832ac8332e
共有 1 个文件被更改,包括 1 次插入14 次删除
  1. 1 14
      packages/amunits/src/coreunits/agraphics.pas

+ 1 - 14
packages/amunits/src/coreunits/agraphics.pas

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