TSmallBlockTypeState = packed record
  InternalBlockSize: Cardinal;
  UseableBlockSize: Cardinal;
  AllocatedBlockCount: Cardinal;
  ReservedAddressSpace: Cardinal;
end;

struct TSmallBlockTypeState {
  unsigned InternalBlockSize;
  unsigned UseableBlockSize;
  unsigned AllocatedBlockCount;
  unsigned ReservedAddressSpace;
};