diff options
Diffstat (limited to 'packages/fcl-passrc/src/pasuseanalyzer.pas')
-rw-r--r-- | packages/fcl-passrc/src/pasuseanalyzer.pas | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/packages/fcl-passrc/src/pasuseanalyzer.pas b/packages/fcl-passrc/src/pasuseanalyzer.pas index fa6a042b2d..870986a344 100644 --- a/packages/fcl-passrc/src/pasuseanalyzer.pas +++ b/packages/fcl-passrc/src/pasuseanalyzer.pas @@ -2854,7 +2854,7 @@ begin begin // write without read if (vmExternal in El.VarModifiers) - + or (El.ClassType=TPasProperty) or ((El.Parent is TPasClassType) and TPasClassType(El.Parent).IsExternal) then exit; if El.Visibility in [visPrivate,visStrictPrivate] then |