anchor.diff:    PPathMapResult = ^TPathMapResult;
   
     // internal class
  -  TExceptionString = {$ifdef CPFLIB}PWideChar{$else}string{$endif};
  +  TCPFExceptionString = {$ifdef CPFLIB}PWideChar{$else}string{$endif};
     TCPFClass = {$ifdef CPFLIB}object{$else}class(TObject){$endif}
     protected
       FCallAddress: Pointer;
   
  -    procedure CPFException(const Message: TExceptionString);
  +    procedure CPFException(const Message: TCPFExceptionString);
       procedure CPFExceptionFmt(const Fmt: PWideChar; const Args: array of {$ifdef CPFLIB}Integer{$else}const{$endif});
  -    function CPFAlloc(const Size: NativeUInt): Pointer;
  -    procedure CPFFree(const P: Pointer);
  -    function CPFRealloc(const P: Pointer; const Size: NativeUInt): Pointer;
  +    procedure CPFGetMem(var P: Pointer; const Size: NativeUInt);
  +    procedure CPFFreeMem(var P: Pointer);
  +    procedure CPFReallocMem(var P: Pointer; const NewSize: NativeUInt);
     end;
     TCPFClassPtr = {$ifdef CPFLIB}^{$endif}TCPFClass;
   
  
positive.code:     end;
    end else
    begin
      Cell.NodePtr := ChildNodePtr;
  
      {$ifdef LARGEINT}
        // todo
        Result := Pointer(ChildNodePtr);
      {$else}
        Result := Pointer(ChildNodePtr);
      {$endif}
    end;
  end;
  
negative.code:     HeuristicsDiagonal: NativeInt;
      TileWeights: array[0..1] of PCardinalList;
      CellOffsets: array[0..7] of NativeInt;
      FinishPoint: TCPFPoint;
      NodeStorage: TPathMapNodeStorage;
    end;
  
    // main path finding class
  