paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2026-01-07 05:10:52 +01:00
Code Issues Packages Projects Releases Wiki Activity

* use a try..finally block to protect against memory leaks if the comparison

Browse Source 
callback function raises an exception in QuickSort_ItemList_Context

git-svn-id: trunk@41228 -
This commit is contained in:
nickysn 2019-02-05 12:14:09 +00:00
parent e5492d8992
commit de80621e1e
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/inc/sortbase.pp
View File

@ -237,8 +237,11 @@ begin
if not Assigned(Items) or (ItemCount < 2) or (ItemSize < 1) then
exit;
GetMem(TempBuf, ItemSize);
QuickSort(0, ItemCount - 1);
FreeMem(TempBuf, ItemSize);
try
QuickSort(0, ItemCount - 1);
finally
FreeMem(TempBuf, ItemSize);
end;
end;
procedure QuickSort_ItemList_CustomItemExchanger_Context(