paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-15 21:19:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

* GetScreenCursor (and all places where it's called) var parameters changed to smallint, which is more optimal on i8086

Browse Source 
git-svn-id: trunk@25455 -
This commit is contained in:
nickysn 2013-09-11 14:51:59 +00:00
parent 771301d7db
commit 6ef912a7a0
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
rtl/msdos/crt.pp
View File

@ -111,7 +111,7 @@ begin
end;
procedure GetScreenCursor(var x,y : longint);
procedure GetScreenCursor(var x,y : smallint);
begin
x:=mem[$40:$50]+1;
y:=mem[$40:$51]+1;
@ -307,7 +307,7 @@ Procedure ClrEol;
Clear from current position to end of line.
}
var
x,y : longint;
x,y : smallint;
fil : word;
Begin
GetScreenCursor(x,y);
@ -323,7 +323,7 @@ Function WhereX: tcrtcoord;
Return current X-position of cursor.
}
var
x,y : longint;
x,y : smallint;
Begin
GetScreenCursor(x,y);
WhereX:=x-WinMinX;
@ -336,7 +336,7 @@ Function WhereY: tcrtcoord;
Return current Y-position of cursor.
}
var
x,y : longint;
x,y : smallint;
Begin
GetScreenCursor(x,y);
WhereY:=y-WinMinY;
@ -614,7 +614,7 @@ end;
*****************************************************************************}
var
CurrX,CurrY : longint;
CurrX,CurrY : smallint;
Procedure WriteChar(c:char);
var
@ -792,7 +792,7 @@ end;
//function __djgpp_set_ctrl_c(enable : longint) : boolean;cdecl;external;
var
x,y : longint;
x,y : smallint;
begin
{ Detect keyboard type }
DetectKeyboard;