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: Hunt for issue #37384.

Browse Source
This commit is contained in:
Juha 2021-11-25 02:18:38 +02:00
parent 4d585393be
commit 2849fb27e9
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/codetools/finddeclarationtool.pas
View File

@ -14190,6 +14190,8 @@ end;
procedure TFindDeclarationParams.AddOperandPart(aPart: string); procedure TFindDeclarationParams.AddOperandPart(aPart: string);
begin begin
if aPart=FExtractedOperand then // Hunting for issue #37384
raise Exception.Create('TFindDeclarationParams.AddOperandPart: Adding duplicate "'+aPart+'"');
FExtractedOperand := FExtractedOperand + aPart; FExtractedOperand := FExtractedOperand + aPart;
end; end;