anchor.diff:    _5 = (1 shl 5);
     _6 = (1 shl 6);
     _7 = (1 shl 7);
  -
  -  {$ifdef LARGEINT}
  -    HIGH_NATIVE_BIT = 63;
  -  {$else}
  -    HIGH_NATIVE_BIT = 31;
  -  {$endif}
  -
  -  {$ifdef LARGEINT}
  -    LARGE_NODEPTR_OFFSET = 32 - {0..31}5;
  -  {$endif}
  -
  -  NODEPTR_MASK = Integer((not 7) {$ifdef LARGEINT} and ((1 shl LARGE_NODEPTR_OFFSET) - 1){$endif});
   
     FLAG_ATTAINABLE = 1 shl 6;
     FLAG_KNOWN_PATH = 1 shl 7;
  
positive.code:   FCaching := not FCaching;
    // todo
  end;
  
  function TPathMap.DoFindPath(StartNode: PPathMapNode): PPathMapNode;
  label
  
negative.code:     MaximumNode: PPathMapNode;
  
      {$ifdef LARGEINT}
      LargeModifier: NativeInt;
      {$endif}
  
      Allocated: NativeUInt;
      Buffers: array[0..31] of NativeUInt{Pointer};
    end;
  
  