anchor.diff:      procedure GrowNodeStorage(var Buffer: TPathMapNodeStorage);
       function AllocateNode(const X, Y: NativeInt): PPathMapNode;
       function CalculateHeuristics(const Start, Finish: TPoint): NativeInt;
  +//    procedure ClearMapCells(Node: PPathMapNode; Count: NativeUInt); overload;
  +//    procedure ClearMapCells(Node: PPathMapNode{as list}); overload;
       function DoFindPath(StartNode: PPathMapNode): PPathMapNode;
     {$ifdef CPFLIB}
     public
  
positive.code:   {$endif}
  end;
  
  
  {$ifdef CPFLIB}
  var
  
negative.code: 
    {$ifNdef CPUX86}
    Buffer := @Store.Buffer;
    {$endif}
  
    {$ifdef LARGEINT}
    LargeModifier := Store.Info.NodeStorage.LargeModifier;
    {$endif}
  
    // Top initialization
  