paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-31 16:50:47 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
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
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/inc/text.inc
View File

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