paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-11 17:55:55 +02:00
Code Issues Packages Projects Releases Wiki Activity

codetools: checklfm: error if property is not published

Browse Source 
git-svn-id: trunk@34807 -
This commit is contained in:
mattias 2012-01-19 22:23:10 +00:00
parent 595b29af86
commit 502a88f46a
1 changed files with 6 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
components/codetools/stdcodetools.pas
View File

@ -2177,7 +2177,6 @@ var
out IdentContext: TFindContext): boolean;
var
Params: TFindDeclarationParams;
IdentifierNotPublished: Boolean;
IsPublished: Boolean;
CurContext: TFindContext;
begin
@ -2205,7 +2204,6 @@ var
' Flags=['+FindDeclarationFlagsAsString(Params.Flags)+']'
);}
if ClassContext.Tool.FindIdentifierInContext(Params) then begin
Result:=true;
IdentContext:=CleanFindContext;
repeat
CurContext:=CreateFindContext(Params);
@ -2250,22 +2248,23 @@ var
Params.Free;
end;
IdentifierNotPublished:=not IsPublished;
if (IdentContext.Node=nil) or IdentifierNotPublished then begin
if (IdentContext.Node<>nil) and IsPublished then begin
Result:=true;
end else begin
// no proper node found
// -> search in DefineProperties
if SearchInDefinePropertiesToo then begin
//debugln('FindLFMIdentifier A SearchAlsoInDefineProperties=',dbgs(SearchInDefinePropertiesToo));
//debugln('FindLFMIdentifier A SearchAlsoInDefineProperties=',dbgs(SearchInDefinePropertiesToo),' Identifier=',IdentName);
if FindNonPublishedDefineProperty(LFMNode,DefaultErrorPosition,
IdentName,ClassContext)
then begin
//debugln(['FindLFMIdentifier "',IdentName,'" is defined via DefineProperties']);
Result:=true;
end;
end;
end;
if (not Result) and ErrorOnNotFound then begin
if (IdentContext.Node<>nil) and IdentifierNotPublished then begin
if (IdentContext.Node<>nil) and (not IsPublished) then begin
LFMTree.AddError(lfmeIdentifierNotPublished,LFMNode,
'identifier '+IdentName+' is not published in class '
+'"'+ClassContext.Tool.ExtractClassName(ClassContext.Node,false,true)+'"',
@ -2670,7 +2669,6 @@ begin
finally
DeactivateGlobalWriteLock;
end;
Result:=LFMTree.FirstError=nil;
end;