paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 01:59:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

fcl-passrc: fixed spaces

Browse Source 
git-svn-id: trunk@48863 -
(cherry picked from commit 49830232d7)
This commit is contained in:
Mattias Gaertner 2021-03-02 09:20:18 +00:00 committed by Florian Klämpfl
parent 638efba36e
commit 68fcf19ed2
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/fcl-passrc/src/pasuseanalyzer.pas
View File

@ -2854,7 +2854,7 @@ begin
begin begin
// write without read // write without read
if (vmExternal in El.VarModifiers) if (vmExternal in El.VarModifiers)
or (El.ClassType=TPasProperty) or (El.ClassType=TPasProperty)
or ((El.Parent is TPasClassType) and TPasClassType(El.Parent).IsExternal) then or ((El.Parent is TPasClassType) and TPasClassType(El.Parent).IsExternal) then
exit; exit;
if El.Visibility in [visPrivate,visStrictPrivate] then if El.Visibility in [visPrivate,visStrictPrivate] then