paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-09 10:47:58 +02:00
Code Issues Packages Projects Releases Wiki Activity

CodeTools: fix attribute resolver - remove exception handling

Browse Source
This commit is contained in:
Ondrej Pokorny 2022-12-28 08:55:51 +01:00
parent 0f438c98fe
commit cbef44b7ef
1 changed files with 6 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
components/codetools/finddeclarationtool.pas
View File

@ -9365,6 +9365,7 @@ var
Result:=false;
if CurAtom.Flag<>cafWord then exit;
Identifier:=GetAtom;
Params.Flags := Params.Flags - [fdfExceptionOnNotFound];
for I := 0 to 1 do
begin
// first check for attribute with exactly the same name
@ -9372,16 +9373,11 @@ var
if I=1 then // append 'attribute' to typename
Identifier+='Attribute';
Params.SetIdentifier(Self,PChar(Identifier),@CheckSrcIdentifier);
try
if Context.Tool.FindIdentifierInContext(Params) then begin
ExprType.Desc:=xtContext;
ExprType.Context:=CreateFindContext(Params);
Params.Load(OldInput,true);
exit(true);
end;
except
on E: ECodeToolError do
// ignore - CodeTools raise ECodeToolError when identifier is not found
if Context.Tool.FindIdentifierInContext(Params) then begin
ExprType.Desc:=xtContext;
ExprType.Context:=CreateFindContext(Params);
Params.Load(OldInput,true);
exit(true);
end;
end;
Params.Load(OldInput,false);