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

Codetools: Fix SmartHint for generic specialized types. Issue #29860.

Browse Source
This commit is contained in:
Juha 2022-12-23 15:24:13 +02:00
parent 425db255bd
commit 5719672f10
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
components/codetools/finddeclarationtool.pas
View File

@ -3198,11 +3198,16 @@ function TFindDeclarationTool.GetSmartHint(Node: TCodeTreeNode;
function MoveToLastIdentifierThroughDots(ExtTool: TFindDeclarationTool): Boolean; function MoveToLastIdentifierThroughDots(ExtTool: TFindDeclarationTool): Boolean;
var var
LastPos: TAtomPosition; LastPos: TAtomPosition;
HasSpecialize: Boolean;
begin begin
LastPos := ExtTool.CurPos; LastPos := ExtTool.CurPos;
ExtTool.ReadNextAtom; ExtTool.ReadNextAtom;
if ExtTool.CurPos.Flag = cafWord then if ExtTool.CurPos.Flag = cafWord then begin
HasSpecialize := ExtTool.UpAtomIs('SPECIALIZE');
ExtTool.ReadNextAtom; ExtTool.ReadNextAtom;
if HasSpecialize then
LastPos := ExtTool.CurPos; // Type starts after "specialize".
end;
while ExtTool.CurPos.Flag = cafPoint do while ExtTool.CurPos.Flag = cafPoint do
begin begin
ExtTool.ReadNextAtom; ExtTool.ReadNextAtom;