From cbb1af5ffc153e8125cd2c821b7d8a442b06de35 Mon Sep 17 00:00:00 2001
From: Graeme Geldenhuys <graemeg@gmail.com>
Date: Wed, 22 Apr 2026 23:18:47 +0100
Subject: [PATCH] Replace force-exit workarounds with break now that Break is
 supported

---
 rtl/src/main/pascal/Generics.Collections.pas | 7 +++----
 tests/phase3_milestone.pas                   | 7 +++----
 2 files changed, 6 insertions(+), 8 deletions(-)

diff --git a/rtl/src/main/pascal/Generics.Collections.pas b/rtl/src/main/pascal/Generics.Collections.pas
index 22c1419..19ea059 100644
--- a/rtl/src/main/pascal/Generics.Collections.pas
+++ b/rtl/src/main/pascal/Generics.Collections.pas
@@ -141,10 +141,9 @@ begin
     if Ptr^ = Key then
     begin
       Result := I;
-      I      := Self.FCount  { force loop exit }
-    end
-    else
-      I := I + 1
+      break
+    end;
+    I := I + 1
   end
 end;
 
diff --git a/tests/phase3_milestone.pas b/tests/phase3_milestone.pas
index 1db7b23..8006ba7 100644
--- a/tests/phase3_milestone.pas
+++ b/tests/phase3_milestone.pas
@@ -118,10 +118,9 @@ begin
     if Ptr^ = Key then
     begin
       Result := I;
-      I      := Self.FCount
-    end
-    else
-      I := I + 1
+      break
+    end;
+    I := I + 1
   end
 end;