paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-26 23:03:48 +02: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

5
components/codetools/methodjumptool.pas
View File

@ -538,7 +538,10 @@ begin
{$IFDEF CTDEBUG}
DebugLn('TMethodJumpingCodeTool.FindJumpPoint class found: ',dbgs(ClassNode<>nil));
{$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
StartNode:=ClassNode.FirstChild;
while (StartNode<>nil) and (StartNode.FirstChild=nil) do