From 6ef912a7a052cf9200e97e06ff6ae03e1be1f731 Mon Sep 17 00:00:00 2001
From: nickysn <nickysn@gmail.com>
Date: Wed, 11 Sep 2013 14:51:59 +0000
Subject: [PATCH] * GetScreenCursor (and all places where it's called) var
parameters changed to smallint, which is more optimal on i8086
git-svn-id: trunk@25455 -
---
rtl/msdos/crt.pp | 12 ++++++------
1 file changed, 6 insertions(+), 6 deletions(-)
diff --git a/rtl/msdos/crt.pp b/rtl/msdos/crt.pp
index 7d0f6383d1..2c8afed92b 100644
--- a/rtl/msdos/crt.pp
+++ b/rtl/msdos/crt.pp
@@ -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;