Модератор: Модераторы
Max Rusov писал(а):По моим тестам для современных Windows наилучшие показатели имеет самое простое решение на основе HeapAlloc. MM на его основе пишется за пол-часа.
Windows имеет свою собственную реализацию менеджера кучи, который позволяет приложениям создавать, уничтожать кучи, а также производить с ними операции выделения и освобождения памяти в куче. Кроме того, для каждого вновь создаваемого процесса Windows специально создает кучу по умолчанию, которая используется при работе API функций, а также может быть использована прикладной программой. Все создаваемые Windows кучи потоко-безопасны, то есть существует возможность обращения к одной и той же куче из разных потоков одновременно.
Инженеры компании Borland по видимому не доверяют инженерам компании Microsoft, поэтому каждая программа на Delphi имеет свою собственную реализацию менеджера кучи, которая определена в системных модулях. Такое решение аргументируется инженерами Borland тем, что стандартный менеджер кучи Windows не обеспечивает достаточно эффективную работу с памятью. Конечно, как и любая Windows-программа, программа на Delphi имеет стандартную кучу по умолчанию, которую создает для нее система, однако функции New, Release, GetMem, FreeMem и некоторые другие оперируют с собственной реализацией менеджера куч. Менеджер кучи Delphi резервирует блоки адресного пространства размером 1 Мб, а выделяет блоки реальной памяти размером 16 Кб. Также вы можете написать и установить свою реализацию менеджера куч, если не доверяете ни инженерам Borland, ни инженерам Microsoft - для этого имеются все необходимые функции.
Хотя куча совершенно не предназначена для выделения больших участков памяти, запрос выделения большого участка у кучи не приведет к ошибке. Куча просто перенаправит ваш запрос операционной системе и вернет указатель на выделенный ею участок памяти.
devels писал(а):Не знаю какие у вас тесты, но для недолго живущих объектов это тормоз, я пробовал разные настройки и флаги. Родной GetMem и FreeMem у меня работает быстрее.
Код: Выделить всё
>MemTest 1000000 1024
Blocks: 1000000, max size: 1024, Time: 7082 ms
Код: Выделить всё
>MemTest 1000000 1024
Blocks: 1000000, max size: 1024, Time: 889 ms
Max Rusov писал(а):devels писал(а):Не знаю какие у вас тесты, но для недолго живущих объектов это тормоз, я пробовал разные настройки и флаги. Родной GetMem и FreeMem у меня работает быстрее.
Возможно, Вы пробовали на старых версиях Windows, с отключенным Low-fragmentation Heap?
http://msdn.microsoft.com/en-us/library ... 85%29.aspx
Попробуйте в Vista/Win7 (или включите LFH в XP) - будете удивлены.
devels писал(а):Это конечно хорошо, но с учетом того что у более 50% стоит XP, многие пользователи не увидят на деле никакого быстродействия,
devels писал(а):у меня же ваш менеджер тормозит в 2-3 раза по сравнению с родным, пользователи могут почувствовать серьезное замедление.
Код: Выделить всё
var
i,j,t :integer;
L:Array of Pointer;
P: Pointer;
begin
t := GetTickCount;
SetLength(L, 101);
for i := 0 to 10000 do
begin
for j := 0 to 100 do
begin
Getmem(P,100);
L[j] := P;
end;
for j := 0 to 100 do begin
ReAllocMem(L[j],200);
end;
for j := 0 to 100 do
begin
Freemem(L[j], 200);
end;
end;
ShowMessage(IntToStr(GetTickCount - t));
Код: Выделить всё
var
L2: TOriAllocator;
I,T: Integer;
j :integer;
L:Array of Pointer;
P: Pointer;
begin
t := GetTickCount;
SetLength(L, 101);
L2 := TOriAllocator.Create(100, 10000);
for i := 0 to 10000 do
begin
for j := 0 to 100 do
begin
L[j] := L2.Alloc;
end;
for j := 0 to 100 do begin
ReAllocMem(L[j],200);
ReAllocMem(L[j],100);
end;
for j := 0 to 100 do
begin
L2.Dispose(L[j]);
end;
end;
devels писал(а):Правда это без LHF, как ее включить в XP я не в курсе, гугл что-то не может ничего внятного ответить. Если скажете как ее включить, проверю и с ней. Но вы представьте, как долго будет работать программа у более 50% пользователей, у которых не включен LHF.
devels писал(а):Вот мой тест: