Home Explore Help
Sign In
pascal
/
freepascal.compiler
mirror of https://gitlab.com/freepascal.org/fpc/source.git
2
0
Fork 0
Files Issues 0 Wiki
Browse Source

* Fix error out of bounds

Michaël Van Canneyt 1 year ago
parent
0c61c7057a
commit
cdda954ea7
1 changed files with 1 additions and 1 deletions
Unified View Show Diff Stats
  1. 1 1
      packages/fpindexer/src/fpindexer.pp

+ 1 - 1
packages/fpindexer/src/fpindexer.pp
View File 

@@ -828,7 +828,7 @@ begin
 
 
 
   if FCount=0 then
 
   if FCount=0 then
 
     exit;
 
     exit;
 
-  AddNewRankedItem(ResultList[i]);
 
+  AddNewRankedItem(ResultList[0]);
 
   for i := 1 to FCount - 1 do
 
   for i := 1 to FCount - 1 do
 
   begin
 
   begin
 
     if SameRank(I,FRankedCount-1)  then
 
     if SameRank(I,FRankedCount-1)  then