paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-23 16:39:31 +01:00
Code Issues Packages Projects Releases Wiki Activity

codetools: method jump: error on class not found

Browse Source 
git-svn-id: trunk@35048 -
This commit is contained in:
mattias 2012-01-31 02:38:27 +00:00
parent ec66ae883a
commit 22e07332cc
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/codetools/methodjumptool.pas
View File

@ -538,7 +538,10 @@ begin
{$IFDEF CTDEBUG} {$IFDEF CTDEBUG}
DebugLn('TMethodJumpingCodeTool.FindJumpPoint class found: ',dbgs(ClassNode<>nil)); DebugLn('TMethodJumpingCodeTool.FindJumpPoint class found: ',dbgs(ClassNode<>nil));
{$ENDIF} {$ENDIF}
if ClassNode=nil then exit; if ClassNode=nil then begin
MoveCursorToProcName(ProcNode,false);
RaiseException('class not found "'+SearchedClassname+'"');
end;
// search first class grand child node // search first class grand child node
StartNode:=ClassNode.FirstChild; StartNode:=ClassNode.FirstChild;
while (StartNode<>nil) and (StartNode.FirstChild=nil) do while (StartNode<>nil) and (StartNode.FirstChild=nil) do