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

* extension of r13191 to OS/2, EMX and potential other platforms using crt.inc based implementation of unit crt

Browse Source 
git-svn-id: trunk@13207 -
This commit is contained in:
Tomas Hajny 2009-05-27 21:18:35 +00:00
parent ae3ab174cd
commit 2353848004
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
rtl/inc/crt.inc
View File

@ -19,7 +19,7 @@ var
ScanCode: byte;
SpecialKey: boolean;
procedure GotoXY (X: byte; Y: byte);
procedure GotoXY (X: tcrtcoord; Y: tcrtcoord);
begin
GotoXY32 (X, Y);
end;
@ -29,7 +29,7 @@ begin
Window32 (X1, Y1, X2, Y2);
end;
function WhereX: byte;
function WhereX: tcrtcoord;
var
X1: dword;
begin
@ -40,7 +40,7 @@ begin
WhereX := X1;
end;
function WhereY: byte;
function WhereY: tcrtcoord;
var
Y1: dword;
begin