paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-14 07:02:50 +02:00
Code Issues Packages Projects Releases Wiki Activity

codetools: fixed find term type of function returning a pointer type

Browse Source 
git-svn-id: trunk@41093 -
This commit is contained in:
mattias 2013-05-09 14:42:45 +00:00
parent dc39e06d70
commit 01e46f51c9
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/codetools/finddeclarationtool.pas
View File

@ -9987,6 +9987,7 @@ begin
end;
end;
// check if TermPos is @Name and a pointer (= ^Name) can be found
if IsTermNamedPointer(TermPos,ExprType) then begin
// pointer type
end else begin
@ -10703,6 +10704,8 @@ begin
// ToDo: PPU, DCU
if FindContext.Node.Parent.Desc=ctnTypeDefinition then
FindContext.Node:=FindContext.Node.Parent;
case FindContext.Node.Desc of
ctnTypeDefinition:
@ -10752,6 +10755,7 @@ begin
Result:=GetIdentifier(
@FindContext.Tool.Src[FindContext.Node.StartPos]);
end;
end;
if Result='' then begin