administrator/blaise
1
0
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

Replace force-exit workarounds with break now that Break is supported

Browse source
This commit is contained in:
Graeme Geldenhuys 2026-04-22 23:18:47 +01:00
parent b38a486a0e
commit cbb1af5ffc
2 changed files with 6 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
rtl/src/main/pascal/Generics.Collections.pas
View file

@ -141,10 +141,9 @@ begin
if Ptr^ = Key then if Ptr^ = Key then
begin begin
Result := I; Result := I;
I := Self.FCount { force loop exit } break
end end;
else I := I + 1
I := I + 1
end end
end; end;

7
tests/phase3_milestone.pas
View file

@ -118,10 +118,9 @@ begin
if Ptr^ = Key then if Ptr^ = Key then
begin begin
Result := I; Result := I;
I := Self.FCount break
end end;
else I := I + 1
I := I + 1
end end
end; end;