paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-21 09:42:12 +01:00
Code Issues Packages Projects Releases Wiki Activity

Codetools: fix crash when trying to add declaration for "foo := unit1;" Patch by WooBean007

Browse Source
This commit is contained in:
Martin 2024-02-13 10:59:37 +01:00
parent e72f2533e7
commit ba0c38e2b4
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/codetools/finddeclarationtool.pas
View File

@ -13778,8 +13778,9 @@ begin
FindContext:=ExprType.Context; FindContext:=ExprType.Context;
// ToDo: PPU, DCU // ToDo: PPU, DCU
if (FindContext.Node<>nil) and (FindContext.Node.Parent<>nil) and
if FindContext.Node.Parent.Desc=ctnTypeDefinition then (FindContext.Node.Parent.Desc=ctnTypeDefinition)
then
FindContext.Node:=FindContext.Node.Parent; FindContext.Node:=FindContext.Node.Parent;
case FindContext.Node.Desc of case FindContext.Node.Desc of