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

codetools: fixed marking very short classes as unfinished, bug #13638

Browse Source 
git-svn-id: trunk@19806 -
This commit is contained in:
mattias 2009-05-04 20:03:21 +00:00
parent e5db74796e
commit 5abefaf3bf
2 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/codetools/finddeclarationtool.pas
View File

@ -2639,7 +2639,8 @@ var
ctnClassTypePublished,ctnClassTypePublic,ctnClassTypeProtected,ctnClassTypePrivate,
ctnClassVarPublished,ctnClassVarPublic,ctnClassVarProtected,ctnClassVarPrivate,
ctnRecordVariant,
ctnProcedureHead, ctnParameterList:
ctnProcedureHead, ctnParameterList,
ctnClassInheritance:
// these codetreenodes build a parent-child-relationship, but
// for pascal it is only a range, hence after searching in the
// childs of the last node, search must continue in the childs
@ -4291,7 +4292,7 @@ begin
-[fdfExceptionOnNotFound];
Params.ContextNode:=ClassContext.Node;
{$IFDEF ShowTriedContexts}
DebugLn('[TFindDeclarationTool.FindIdentifierInClassOfMethod] searching identifier in class of method');
DebugLn('[TFindDeclarationTool.FindIdentifierInClassOfMethod] searching identifier in class of method Identifier=',GetIdentifier(Params.Identifier));
{$ENDIF}
Result:=ClassContext.Tool.FindIdentifierInContext(Params);
Params.Load(OldInput,true);

4
components/codetools/pascalparsertool.pas
View File

@ -3314,6 +3314,10 @@ begin
if ChildCreated and (CurNode.Desc=ctnClass) and IsForward then begin
// forward class definition found
CurNode.SubDesc:=CurNode.SubDesc+ctnsForwardDeclaration;
end else begin
// very short class found e.g. = class(TAncestor);
if ChildCreated and (CurNode.Desc=ctnClass) then
CurNode.SubDesc:=CurNode.SubDesc+ctnsNeedJITParsing; // will not create sub nodes now
end;
end else begin
if ChildCreated and (CurNode.Desc=ctnClass) then