diff options
author | mattias <mattias@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2021-03-02 09:20:18 +0000 |
---|---|---|
committer | mattias <mattias@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2021-03-02 09:20:18 +0000 |
commit | b280c609df0b32c35327bd9c697ae6771a5640e8 (patch) | |
tree | 93549f5562ab17d083e144db8181d3d6ec44d472 | |
parent | 9ea9312cef1db97b782cf8d8a6b920e75544136e (diff) | |
download | fpc-b280c609df0b32c35327bd9c697ae6771a5640e8.tar.gz |
fcl-passrc: fixed spaces
git-svn-id: https://svn.freepascal.org/svn/fpc/trunk@48863 3ad0048d-3df7-0310-abae-a5850022a9f2
-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 |