diff --git a/components/fpdebug/fpdbgdwarfdataclasses.pas b/components/fpdebug/fpdbgdwarfdataclasses.pas
index 44ad0c5f61..6b61e62984 100644
--- a/components/fpdebug/fpdbgdwarfdataclasses.pas
+++ b/components/fpdebug/fpdbgdwarfdataclasses.pas
@@ -2959,6 +2959,8 @@ begin
 
       // TDbgDwarfProcSymbol
       Result := Cu.DwarfSymbolClassMap.CreateProcSymbol(CU, Iter.DataPtr, AAddress);
+      if Result<>nil then
+        break;
     finally
       Iter.Free;
     end;