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

Fix compilation for EMX

Browse Source 
git-svn-id: trunk@37016 -
This commit is contained in:
pierre 2017-08-21 14:36:03 +00:00
parent 961bd0b56f
commit f395d83db5
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
packages/rtl-console/src/emx/crt.pp
View File

@ -367,7 +367,7 @@ begin
gotoXY(1,1); gotoXY(1,1);
end; end;
procedure gotoXY(x,y:byte); procedure gotoXY(x,y:tcrtcoord);
{Positions the cursor on (x,y) relative to the window origin.} {Positions the cursor on (x,y) relative to the window origin.}
@ -383,7 +383,7 @@ begin
setcursor(y+hi(windmin)-1,x+lo(windmin)-1); setcursor(y+hi(windmin)-1,x+lo(windmin)-1);
end; end;
function whereX:byte; function whereX:tcrtcoord;
{Returns the x position of the cursor.} {Returns the x position of the cursor.}
@ -394,7 +394,7 @@ begin
whereX:=x-lo(windmin)+1; whereX:=x-lo(windmin)+1;
end; end;
function whereY:byte; function whereY:tcrtcoord;
{Returns the y position of the cursor.} {Returns the y position of the cursor.}