diff options
author | mattias <mattias@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2021-03-17 18:22:11 +0000 |
---|---|---|
committer | mattias <mattias@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2021-03-17 18:22:11 +0000 |
commit | 4c638e20d1eba2bfa406c3e3734aa26c48bf642f (patch) | |
tree | 956a135b0af0572f64ec84f1a7cb1e25c8bf1298 /packages/fcl-passrc/src/pasresolver.pp | |
parent | 0976a596354ad021269abb3983d7f619b4a9225e (diff) | |
download | fpc-4c638e20d1eba2bfa406c3e3734aa26c48bf642f.tar.gz |
fcl-passrc: fixed no hint when published method hides ancestor method
git-svn-id: https://svn.freepascal.org/svn/fpc/trunk@48997 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'packages/fcl-passrc/src/pasresolver.pp')
-rw-r--r-- | packages/fcl-passrc/src/pasresolver.pp | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/packages/fcl-passrc/src/pasresolver.pp b/packages/fcl-passrc/src/pasresolver.pp index 5c2b99c479..4ab775a5a3 100644 --- a/packages/fcl-passrc/src/pasresolver.pp +++ b/packages/fcl-passrc/src/pasresolver.pp @@ -5487,7 +5487,9 @@ begin if (Proc.Visibility=visStrictPrivate) or ((Proc.Visibility=visPrivate) and (Proc.GetModule<>Data^.Proc.GetModule)) then - // a private private is hidden by definition -> no hint + // a private method is hidden by definition -> no hint + else if (Proc.Visibility=visPublished) then + // a published can hide (used for overloading rtti) -> no hint else if (ProcScope.ImplProc<>nil) // not abstract, external and (not ProcHasImplElements(ProcScope.ImplProc)) then // hidden method has implementation, but no statements -> useless |