commit 693e19cf485cf22d32466d3478aaecbfb07010be
author Alex-Rud <Alex.van.rudik@gmail.com> Tue Jul 30 14:51:56 2019 +0300
committer Jens Geyer <jensg@apache.org> Sun Aug 25 00:20:55 2019 +0200
tree 616112bb52c845dc5ed0bd5611c115eb9c64e457
parent 81f5e10ec420ae01675b61f212939a93128438f0

THRIFT-4939 TThriftListImpl<T>.Sort() does not use comparer
Client: Delphi
Patch: Alex-Rud <Alex.van.rudik@gmail.com>

lib/delphi/src/Thrift.Collections.pas

diff --git a/lib/delphi/src/Thrift.Collections.pas b/lib/delphi/src/Thrift.Collections.pas
index 2e13724..3b56fe2 100644
--- a/lib/delphi/src/Thrift.Collections.pas
+++ b/lib/delphi/src/Thrift.Collections.pas
@@ -639,7 +639,7 @@
 
 procedure TThriftListImpl<T>.Sort(const AComparer: IComparer<T>);
 begin
-  FList.Sort;
+  FList.Sort(AComparer);
 end;
 
 function TThriftListImpl<T>.ToArray: TArray<T>;