paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-08-22 14:09:09 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Patch for TList.Move of merge request git restore src/fresneldom.pas to Fix issue #39250

Browse Source
This commit is contained in:
Michaël Van Canneyt 2023-01-07 18:43:37 +01:00
parent acc23987d7
commit 98a5b2edc1
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/rtl/generics.collections.pas
View File

@ -1091,7 +1091,7 @@ begin
for i := AIndex to ANewIndex-1 do for i := AIndex to ANewIndex-1 do
Arr[i] := Arr[i+1] Arr[i] := Arr[i+1]
else else
for i := ANewIndex downto AIndex+1 do for i := AIndex downto ANewIndex+1 do
Arr[i] := Arr[i-1]; Arr[i] := Arr[i-1];
Arr[ANewIndex] := LTemp; Arr[ANewIndex] := LTemp;
end; end;