paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-13 05:40:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ added the TItemListSorter_NoContext and TItemListSorter_Context procedure

Browse Source 
types to sortbase. No implementation for them yet. They will allow sorting
  an array with elements of arbitrary size (e.g. array of records).

git-svn-id: trunk@41171 -
This commit is contained in:
nickysn 2019-02-02 21:03:10 +00:00
parent 25f6da7066
commit 848890e54b
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/inc/sortbase.pp
View File

@ -23,9 +23,11 @@ interface
type type
TListSortComparer_NoContext = function(Item1, Item2: Pointer): Integer; TListSortComparer_NoContext = function(Item1, Item2: Pointer): Integer;
TPtrListSorter_NoContext = procedure(ItemPtrs: PPointer; ItemCount: PtrUInt; Comparer: TListSortComparer_NoContext); TPtrListSorter_NoContext = procedure(ItemPtrs: PPointer; ItemCount: PtrUInt; Comparer: TListSortComparer_NoContext);
TItemListSorter_NoContext = procedure(Items: Pointer; ItemSize, ItemCount: SizeUInt; Comparer: TListSortComparer_NoContext);
TListSortComparer_Context = function(Item1, Item2, Context: Pointer): Integer; TListSortComparer_Context = function(Item1, Item2, Context: Pointer): Integer;
TPtrListSorter_Context = procedure(ItemPtrs: PPointer; ItemCount: PtrUInt; Comparer: TListSortComparer_Context; Context: Pointer); TPtrListSorter_Context = procedure(ItemPtrs: PPointer; ItemCount: PtrUInt; Comparer: TListSortComparer_Context; Context: Pointer);
TItemListSorter_Context = procedure(Items: Pointer; ItemSize, ItemCount: SizeUInt; Comparer: TListSortComparer_Context; Context: Pointer);
PSortingAlgorithm = ^TSortingAlgorithm; PSortingAlgorithm = ^TSortingAlgorithm;
TSortingAlgorithm = record TSortingAlgorithm = record