paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 23:49:05 +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; end;
procedure GetScreenCursor(var x,y : longint); procedure GetScreenCursor(var x,y : smallint);
begin begin
x:=mem[$40:$50]+1; x:=mem[$40:$50]+1;
y:=mem[$40:$51]+1; y:=mem[$40:$51]+1;
@ -307,7 +307,7 @@ Procedure ClrEol;
Clear from current position to end of line. Clear from current position to end of line.
} }
var var
x,y : longint; x,y : smallint;
fil : word; fil : word;
Begin Begin
GetScreenCursor(x,y); GetScreenCursor(x,y);
@ -323,7 +323,7 @@ Function WhereX: tcrtcoord;
Return current X-position of cursor. Return current X-position of cursor.
} }
var var
x,y : longint; x,y : smallint;
Begin Begin
GetScreenCursor(x,y); GetScreenCursor(x,y);
WhereX:=x-WinMinX; WhereX:=x-WinMinX;
@ -336,7 +336,7 @@ Function WhereY: tcrtcoord;
Return current Y-position of cursor. Return current Y-position of cursor.
} }
var var
x,y : longint; x,y : smallint;
Begin Begin
GetScreenCursor(x,y); GetScreenCursor(x,y);
WhereY:=y-WinMinY; WhereY:=y-WinMinY;
@ -614,7 +614,7 @@ end;
*****************************************************************************} *****************************************************************************}
var var
CurrX,CurrY : longint; CurrX,CurrY : smallint;
Procedure WriteChar(c:char); Procedure WriteChar(c:char);
var var
@ -792,7 +792,7 @@ end;
//function __djgpp_set_ctrl_c(enable : longint) : boolean;cdecl;external; //function __djgpp_set_ctrl_c(enable : longint) : boolean;cdecl;external;
var var
x,y : longint; x,y : smallint;
begin begin
{ Detect keyboard type } { Detect keyboard type }
DetectKeyboard; DetectKeyboard;