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

git-svn-id: branches/fixes_3_2@45850 -
This commit is contained in:
pierre 2020-07-25 11:28:01 +00:00
parent 775567e8f7
commit a096c78e23

View File

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