Explorar o código

Try to fix rtl compilation error for some systems after last merge

git-svn-id: branches/fixes_3_2@45850 -
pierre %!s(int64=5) %!d(string=hai) anos
pai
achega
a096c78e23
Modificáronse 1 ficheiros con 1 adicións e 1 borrados
  1. 1 1
      rtl/inc/text.inc

+ 1 - 1
rtl/inc/text.inc

@@ -2216,7 +2216,7 @@ var
   hs   : String;
   code : Longint;
 Begin
-  l:=0;
+  i:=0;
   if not CheckRead(f) then
     Exit;