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

Changed AllocMem to GetMem for speed

Browse Source 
git-svn-id: trunk@10945 -
This commit is contained in:
andrew 2007-04-14 19:03:35 +00:00
parent c9b22c0490
commit f37189d56d
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/lclproc.pas
View File

@ -1163,7 +1163,7 @@ var
begin begin
if (List=nil) or (List.Count<=1) then exit; if (List=nil) or (List.Count<=1) then exit;
MergeList:=AllocMem(List.Count*SizeOf(Pointer)); MergeList:=GetMem(List.Count*SizeOf(Pointer));
Sort(0,List.Count-1); Sort(0,List.Count-1);
Freemem(MergeList); Freemem(MergeList);
end; end;
@ -1231,7 +1231,7 @@ var
begin begin
if (List=nil) or (List.Count<=1) then exit; if (List=nil) or (List.Count<=1) then exit;
CurSize:=PtrInt(List.Count)*SizeOf(Pointer); CurSize:=PtrInt(List.Count)*SizeOf(Pointer);
MergeList:=AllocMem(CurSize); MergeList:=GetMem(CurSize);
FillChar(MergeList^,CurSize,0); FillChar(MergeList^,CurSize,0);
Sort(0,List.Count-1); Sort(0,List.Count-1);
for i:=0 to List.Count-1 do MergeList[i]:=''; for i:=0 to List.Count-1 do MergeList[i]:='';