paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-06 15:47:52 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Loop variable must be integer, count can be -1

Browse Source
This commit is contained in:
Michaël Van Canneyt 2025-01-23 14:49:23 +01:00
parent 925091d0d1
commit 0914565a52
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
packages/fcl-fpcunit/src/testutils.pp
View File

@ -94,10 +94,11 @@ type
var
methodTable : pMethodNameTable;
i : dword;
i : integer;
vmt: PVmt;
idx: integer;
pmr: PMethodNameRec;
lName : shortstring;
begin
AList.Clear;
vmt := PVmt(aClass);
@ -109,11 +110,12 @@ begin
pmr := @methodTable^.entries[0];
for i := 0 to MethodTable^.count - 1 do
begin
idx := aList.IndexOf(pmr^.name^);
lName:=pmr^.name^;
idx := aList.IndexOf(lName);
if (idx <> - 1) then
//found overridden method so delete it
aList.Delete(idx);
aList.AddObject(pmr^.name^, TObject(pmr^.addr));
aList.AddObject(lName, TObject(pmr^.addr));
Inc(pmr);
end;
end;