mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-30 17:30:21 +02:00
codetools: fixed av when find declaration after function keyword
git-svn-id: trunk@17156 -
This commit is contained in:
parent
7e0078d527
commit
2e17592d31
@ -4076,6 +4076,8 @@ begin
|
||||
Result:=ifrProceedSearch;
|
||||
// if proc is a method body, search in class
|
||||
// -> find class name
|
||||
if ProcContextNode.FirstChild=nil then
|
||||
exit(ifrProceedSearch);
|
||||
MoveCursorToNodeStart(ProcContextNode.FirstChild);
|
||||
ReadNextAtom; // read name
|
||||
if not AtomIsIdentifier(false) then exit; // ignore operator procs
|
||||
|
Loading…
Reference in New Issue
Block a user