pod_deque

type pod_deque = object(array_base)

  block_shift: unsigned;

  block_size: unsigned;

  block_mask: unsigned;

  m_size: unsigned;

  m_num_blocks: unsigned;

  m_max_blocks: unsigned;

  m_block_ptr_inc: unsigned;

  m_blocks: pointer;

  m_entry_sz: unsigned;

  constructor Construct();

  destructor Destruct;

  procedure remove_all;

  procedure remove_last;

  procedure add();

  procedure modify_last();

  procedure cut_at();

  function size; virtual;

  function entry; virtual;

  function array_operator(); virtual;

  procedure assign_operator();

  function curr();

  function prev();

  function Next();

  function last;

  function allocate_continuous_block();

  procedure allocate_block();

  function data_ptr;

end;

pod_deque

array_base

TObject