* counter variable in CrtWrite changed to SmallInt in order to generate more efficient code on the 16-bit i8086

git-svn-id: trunk@25444 -

rtl/msdos/crt.pp

@@ -639,7 +639,7 @@ end;
 
 Procedure CrtWrite(var f : textrec);
 var
-  i : longint;
+  i : smallint;
 begin
   GetScreenCursor(CurrX,CurrY);
   for i:=0 to f.bufpos-1 do