From 2849fb27e9b83832b8e1c23687b754f488a1a225 Mon Sep 17 00:00:00 2001
From: Juha <juha@lazarus-ide.org>
Date: Thu, 25 Nov 2021 02:18:38 +0200
Subject: [PATCH] Codetools: Hunt for issue #37384.

---
 components/codetools/finddeclarationtool.pas | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/components/codetools/finddeclarationtool.pas b/components/codetools/finddeclarationtool.pas
index 14c38129a6..f8cde4f7fa 100644
--- a/components/codetools/finddeclarationtool.pas
+++ b/components/codetools/finddeclarationtool.pas
@@ -14190,6 +14190,8 @@ end;
 
 procedure TFindDeclarationParams.AddOperandPart(aPart: string);
 begin
+  if aPart=FExtractedOperand then  // Hunting for issue #37384
+    raise Exception.Create('TFindDeclarationParams.AddOperandPart: Adding duplicate "'+aPart+'"');
   FExtractedOperand := FExtractedOperand + aPart;
 end;