Browse Source

* fixed TFPList.Sort. Scary news: turns out we don't have any tests for
TFPList.Sort or TList.Sort... :(

git-svn-id: trunk@41177 -

nickysn 6 years ago
parent
commit
63f9afa6bd
1 changed files with 1 additions and 1 deletions
  1. 1 1
      rtl/objpas/classes/lists.inc

+ 1 - 1
rtl/objpas/classes/lists.inc

@@ -302,7 +302,7 @@ end;
 
 
 procedure TFPList.Sort(Compare: TListSortCompare);
 procedure TFPList.Sort(Compare: TListSortCompare);
 begin
 begin
-  Sort(Compare, @SortBase.DefaultSortingAlgorithm);
+  Sort(Compare, SortBase.DefaultSortingAlgorithm);
 end;
 end;