Выделение памяти, FPC Опции

[klem4]

Что-то я не понимаю, почему для Byte и LongInt выделяется одно и тоже кол-во памяти ?

var
  pByte : ^Byte;
  pLong : ^LongInt;
  mem1, mem2 : LongInt;

begin
  mem1 := GetHeapStatus.TotalFree;
  New(pByte);
  mem2 := GetHeapStatus.TotalFree;
  writeln('Для pByte выделено ', mem1 - mem2);
  New(pLong);
  mem1 := GetHeapStatus.TotalFree;
  writeln('Для pLong выделено ', mem2 - mem1);
end.

[volvo]

Внимательно читаем файл prog.pdf (из документации на FPC):

8.4.1 Heap allocation strategy

The heap is a memory structure which is organized as a stack. The heap bottom is stored in the variable HeapOrg. Initially the heap pointer (HeapPtr) points to the bottom of the heap. When a variable is allocated on the heap, HeapPtr is incremented by the size of the allocated memory block. This has the effect of stacking dynamic variables on top of each other.

Each time a block is allocated, its size is normalized to have a granularity of 16 bytes.