From 49830232d70cf11ff020da6d06b8a79372770829 Mon Sep 17 00:00:00 2001 From: Mattias Gaertner Date: Tue, 2 Mar 2021 09:20:18 +0000 Subject: [PATCH] fcl-passrc: fixed spaces git-svn-id: trunk@48863 - --- packages/fcl-passrc/src/pasuseanalyzer.pas | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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.ClassType=TPasProperty) or ((El.Parent is TPasClassType) and TPasClassType(El.Parent).IsExternal) then exit; if El.Visibility in [visPrivate,visStrictPrivate] then