"Шаровая" оперативка, Или программное увеличение оперативной памяти, Fpc Опции

[Bokul]

Заинтересовал? Вот они - чудо компиляторы...

Запускаем код и радуемся результатам:

type
    ar=array[1..65456] of byte;
    ar2=array[1..327600] of byte;
var p:^ar;
    p2:^ar2;
begin
   writeln('Free memory before allocation: ',GetHeapStatus.TotalFree);
   new(p);
   writeln('Free memory after allocation: ',GetHeapStatus.TotalFree);
   dispose(p);
   writeln('Free memory after dispose: ',GetHeapStatus.TotalFree);
   new(p2);
   writeln('Again allocation: ',GetHeapStatus.TotalFree);
   dispose(p2);
   writeln('Again dispose: ',GetHeapStatus.TotalFree);
   readln;
end.

Системный блок раскручивать необязательно - все изменения проходят на программном уровне.
P.S. Не знаю как энергия, но память из ниоткуда можно получить.. Fpc is the best
P.P.S.
Причина, наверно, кроется вот в чем:

Т.е. тип cardinal, возвращаемый методом TotalFree, не имеет постоянного размера, и меняется в зависимости от присваиваемого значение. Имхо.
Так вот, вопрос: как в Fpc измерять разницу свободной памяти до и после размещения в ней данных, без всяких таких казусов?

Сообщение отредактировано: Bokul - 27.12.2006 6:39

[Bokul]

Ясно, GetHeapStatus для этих целей не годится - надо юзать модуль heaptrc

Вот в таком формате heaptrc выдает свой заголовок (а потом еще 200 метров отчета):

Heap dump by heaptrc unit
1010000 memory blocks allocated : 12840000/16880000 - что значат выделенные числа?
10000 memory blocks freed : 840000/880000 - что значат выделенные числа?
1000000 unfreed memory blocks : 12000000
True heap size : 80216064 (80 used in System startup)
True free heap : 215984
Should be : 8215984

It displays the total memory used, and then dumps a list of blocks that were allocated but not freed

На что надо смотреть? На unfreed memory blocks?