MG: fixed consistency check inheritance

git-svn-id: trunk@657 -
This commit is contained in:
lazarus 2002-02-03 16:33:18 +00:00
parent 6d1ba0f10c
commit 7b585c30cd

View File

@ -3486,6 +3486,8 @@ end;
function TFindDeclarationTool.ConsistencyCheck: integer;
var ANodeCache: TCodeTreeNodeCache;
begin
Result:=inherited ConsistencyCheck;
if Result<>0 then exit;
if FInterfaceIdentifierCache<>nil then begin
end;