anchor.diff:    FLAG_CLEAN = (1 shl 2);
     FLAG_TILES = (1 shl 3);
     FLAG_SECTORS = (1 shl 4);
  -  FLAG_EXCLUDED = (1 shl 5);
  +  FLAG_EXCLUDES = (1 shl 5);
     FLAG_WEIGHTS = (1 shl 6);
     FLAG_HEURISTICS = (1 shl 7);
  +  FLAG_STARTS = (1 shl 8);
   
     CHANGED_FINISH_INTERVAL = 8;
   label
  -  weights_flags, path_found, path_not_found, fill_result;
  +  weights_flags, nodes_initialized, path_found, path_not_found, fill_result;
   var
     i: NativeUInt;
     MapWidth, MapHeight: Cardinal;
  
positive.code:   {$endif}
    {$if Defined(DEBUG) and not Defined(CPFLIB)}
  
  
    TTileMapPtr(nil).FlushHotNodes;
  
    TTileMapPtr(nil).DoFindPath(100500);
  
  
  
negative.code:     Mask := Mask * 3;
      Mask := Mask + 2*Byte(X > 0);
      Mask := Mask - 1 + (X shr {$ifdef CPUX86}31{$else}HIGH_NATIVE_BIT{$endif}); // Delphi compiler optimization bug
      Node.NodeInfo := (Node.NodeInfo and FLAGS_CLEAN_MASK) or $00ff0000 or Cardinal(Mask shl 3);
  
      // Y := Abs(dY)
      Mask := -(Y shr HIGH_NATIVE_BIT);
  