paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-27 12:00:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

codetools: clean up

Browse Source
This commit is contained in:
mattias 2023-03-12 22:52:25 +01:00
parent f2050ac1c3
commit 82edbea0ac
1 changed files with 0 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
components/codetools/finddeclarationtool.pas
View File

@ -5375,7 +5375,6 @@ var
ResultNode: TCodeTreeNode;
OldFlags: TFindDeclarationFlags;
AliasContext: TFindContext;
Cache: TBaseTypeCache;
begin
if not( (NodeStack<>nil) and (NodeStack<>@MyNodeStack) )then begin // will be handled by caller
if (Context.Node<>nil) and (Context.Node.Desc in [ctnProcedure,ctnProcedureHead])
@ -12715,7 +12714,6 @@ procedure TFindDeclarationTool.CreateBaseTypeCaches(
var i: integer;
Entry: PCodeTreeNodeStackEntry;
BaseTypeCache: TBaseTypeCache;
NextEntry: PCodeTreeNodeStackEntry;
begin
{$IFDEF ShowBaseTypeCache}
DbgOut('[TFindDeclarationTool.CreateBaseTypeCaches] ',
@ -14147,7 +14145,6 @@ function TFindDeclarationParams.FindGenericParamType: Boolean;
function DoFindIdentifierInContext(Tool: TFindDeclarationTool): boolean;
var
SubParams: TFindDeclarationParams;
p: TFindDeclarationInput;
begin
SubParams:=TFindDeclarationParams.Create(Self);
try