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

codetools: fixed class completion

Browse Source 
git-svn-id: trunk@18063 -
This commit is contained in:
mattias 2009-01-02 18:56:39 +00:00
parent 9ccd6f2095
commit 912f4c0d77
1 changed files with 4 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
components/codetools/codecompletiontool.pas
View File

@ -5612,7 +5612,7 @@ var
InsertEndPos: LongInt;
ProcCode: String;
begin
Result:=false;
Result:=true;
BodiesWithoutDefs:=nil;
DefsWithoutBodies:=nil;
try
@ -5627,6 +5627,7 @@ var
BodyAVLNode:=ProcBodyNodes.FindSuccessor(BodyAVLNode);
end;
if BodiesWithoutDefs=nil then exit;
// collect all definitions without a body
DefAVLNode:=ClassProcs.FindLowest;
while DefAVLNode<>nil do begin
@ -5650,10 +5651,8 @@ var
DefNodeExt.Data:=BodyNodeExt;
end else begin
// no mapping found
// => warn user
ANode:=TCodeTreeNodeExtension(BodiesWithoutDefs.FindLowest.Data).Node;
MoveCursorToNodeStart(ANode.FirstChild);
RaiseException('procedure has no definition in the class');
debugln(CleanPosToStr(ANode.FirstChild.StartPos)+' warning: procedure has no definition in the class');
exit;
end;
// replace body proc head(s) with class proc head(s)
@ -5681,7 +5680,6 @@ var
BodiesWithoutDefs.Free;
DefsWithoutBodies.Free;
end;
Result:=true;
end;
procedure RemoveAbstractMethods;