Class TNodeStore (unit EZDSLBse)

Inherits from

TObject

Heaps

Constructors


constructor Create(aNodeSize : integer);

Best if it is a power of two} {--------


Functions

function Alloc : PNode;

--------

procedure Dealloc(aNode : PNode);

--------

destructor Destroy;

--------

procedure nsGrowSpareNodeStack;

--------

Properties

Events

Variables

nsBlock : PNode;


nsNodeSize : integer;


nsNodeStack : PNode;


nsRefCount : integer;


nsResLock : TezResourceLock;


nsSpareNodeCount : longint;



Constructors


constructor Create(aNodeSize : integer);

Best if it is a power of two} {--------


Functions


function Alloc : PNode;

--------


procedure Dealloc(aNode : PNode);

--------


destructor Destroy;

--------


procedure nsGrowSpareNodeStack;

--------


Properties


Events


Variables


nsBlock : PNode;


nsNodeSize : integer;


nsNodeStack : PNode;


nsRefCount : integer;


nsResLock : TezResourceLock;


nsSpareNodeCount : longint;