anchor.diff:  function TKMTerrain.GetPassablePointWithinSegment(OriginPoint, TargetPoint: TKMPoint;
                                                     aPass: TKMTerrainPassability;
                                                     MaxDistance: Integer = -1): TKMPoint;
  -  function IsDistBetweenPointsAllowed(const OriginPoint, TargetPoint: TKMPoint): Boolean;
  -  begin
  -    Result := (MaxDistance = -1) or (KMDistanceSqr(OriginPoint, TargetPoint) <= Sqr(MaxDistance));
  -  end;
  +
  +  function IsDistBetweenPointsAllowed(const OriginPoint, TargetPoint: TKMPoint; aMaxDistance: Integer): Boolean; inline;
  +  begin
  +    Result := (aMaxDistance = -1) or (KMDistanceSqr(OriginPoint, TargetPoint) <= Sqr(aMaxDistance));
  +  end;
  +
   var
     normVector: TKMPoint;
     normDistance: Integer;
  
positive.code: 
  
  procedure TKMTerrain.GetHouseMarks(const aLoc: TKMPoint; aHouseType: TKMHouseType; aList: TKMPointTagList);
    procedure MarkPoint(aPoint: TKMPoint; aID: Integer);
    var I: Integer;
    begin
      for I := 0 to aList.Count - 1 do //Skip wires from comparison
        if (aList.Tag[I] <> TC_OUTLINE) and KMSamePoint(aList[I], aPoint) then
  
negative.code: 
  
  procedure TKMTerrain.UpdatePassability(const Loc: TKMPoint);
  
    procedure AddPassability(aPass: TKMTerrainPassability);
    begin
      Land[Loc.Y,Loc.X].Passability := Land[Loc.Y,Loc.X].Passability + [aPass];
    end;
  
  var
    I, K: Integer;
    hasHousesNearTile, housesNearVertex, isBuildNoObj: Boolean;
  