anchor.diff:            // already node allocated and coordinates filled
             // need to fill path/parent and heuristics/way data
             {$ifdef LARGEINT}
  -            Cell.NodePtr := NativeUInt(NativeInt(ChildNode) + NODEPTR_MODIFIER - NODEPTR_FLAG_LARGE);
  +            Cell.NodePtr := NativeUInt(NativeInt(ChildNode) + NODEPTR_MODIFIER - NODEPTR_FLAG_ALLOCATED);
             {$else}
  -            Cell.NodePtr := NativeUInt(ChildNode) + NODEPTR_MODIFIER;
  +            Cell.NodePtr := NativeUInt(ChildNode) + NODEPTR_FLAG_HEURISTED;
             {$endif}
             ChildNode.Path := Path;
             ChildNode.NodeInfo := ChildNodeInfo;
  
positive.code: 
    // allocate and fill cells
    Size := FCellCount * SizeOf(TCPFCell);
    CPFGetMem(Pointer(FInfo.Cells), Size);
    ZeroMemory(FInfo.Cells, Size);
    Clear;
  
    // allocate first
    GrowNodeAllocator(FInfo);
  end;
  
  
negative.code:   LastCount, Count: Cardinal;
    V: Cardinal;
    i: NativeUInt;
    PWeight: PSingle;
  begin
    LastCount := FActualInfo.Weights.Count;
  
  