amiga: Crt, fixed cursor x and y position

git-svn-id: https://svn.freepascal.org/svn/fpc/trunk@45114 3ad0048d-3df7-0310-abae-a5850022a9f2

1 files changed, 6 insertions, 6 deletions

diff --git a/packages/rtl-console/src/amicommon/video.pp b/packages/rtl-console/src/amicommon/video.pp
index 502cfe93c1..4ea60eb1ab 100644
--- a/packages/rtl-console/src/amicommon/video.pp
+++ b/packages/rtl-console/src/amicommon/video.pp
@@ -584,11 +584,11 @@ begin
      SmallForce or ForceCursorUpdate then
   begin
     {$ifdef WITHBUFFERING}
-    DrawChar(BufRp, OldCursorY, OldCursorX, crHidden);
-    if CursorState then DrawChar(BufRp, CursorY, CursorX, CursorType);
+    DrawChar(BufRp, OldCursorX, OldCursorY, crHidden);
+    if CursorState then DrawChar(BufRp, CursorX, CursorY, CursorType);
     {$else}
-    DrawChar(VideoWindow^.RPort, OldCursorY, OldCursorX, crHidden);
-    if CursorState then DrawChar(VideoWindow^.RPort, CursorY, CursorX, CursorType);
+    DrawChar(VideoWindow^.RPort, OldCursorX, OldCursorY, crHidden);
+    if CursorState then DrawChar(VideoWindow^.RPort, CursorX, CursorY, CursorType);
     {$endif}
     OldCursorX := CursorX;
     OldCursorY := CursorY;
@@ -602,8 +602,8 @@ end;
 
 procedure SysSetCursorPos(NewCursorX, NewCursorY: Word);
 begin
-  CursorX := NewCursorY;
-  CursorY := NewCursorX;
+  CursorX := NewCursorX;
+  CursorY := NewCursorY;
   SysUpdateScreen(False);
 end;