mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-18 19:29:18 +02:00
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:
parent
775567e8f7
commit
a096c78e23
@ -2216,7 +2216,7 @@ var
|
||||
hs : String;
|
||||
code : Longint;
|
||||
Begin
|
||||
l:=0;
|
||||
i:=0;
|
||||
if not CheckRead(f) then
|
||||
Exit;
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user