paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-13 15:59:38 +02:00
Code Issues Packages Projects Releases Wiki Activity

MG: find declaration for delphi pointer shortcut and clientrect tricks

Browse Source 
git-svn-id: trunk@1656 -
This commit is contained in:
lazarus 2002-05-01 11:57:40 +00:00
parent 4567f3e78d
commit 194546760e
1 changed files with 12 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
components/codetools/finddeclarationtool.pas
View File

@ -3211,8 +3211,18 @@ var
CurContext.Node:=CurContext.Tool.GetInterfaceNode;
end;
end;
// there is no special left to do, since Result already points to
// the type context node.
// point changes the context to the base type
// this is already done, so there is not much left to do.
// Delphi knows . as shortcut for ^.
// -> check for pointer type
if (Scanner.CompilerMode=cmDELPHI) and (CurExprDesc=xtContext)
and (CurContext.Node.Desc=ctnPointerType)
and (CurContext.Node<>StartContext.Node) then begin
// left side of expression has defined a special context
// => this '.' is a dereference
CurContext:=CurContext.Tool.FindBaseTypeOfNode(Params,
CurContext.Node.FirstChild);
end;
end;
procedure ResolveAs;