Home Explore Help
Sign In
pascal
/
freepascal.compiler
mirror of https://gitlab.com/freepascal.org/fpc/source.git
2
0
Fork 0
Files Issues 0 Wiki
Browse Source

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

git-svn-id: trunk@25444 -
nickysn 12 years ago
parent
5de4bdac40
commit
766b7745bd
1 changed files with 1 additions and 1 deletions
Unified View Show Diff Stats
  1. 1 1
      rtl/msdos/crt.pp

+ 1 - 1
rtl/msdos/crt.pp
View File 

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