(svn r9772) -Fix [r9770,FS#761]: under some circumstances loading/unloading didn't work (correctly).

src/vehicle.cpp

@@ -743,27 +743,30 @@ static bool CanFillVehicle_FullLoadAny(Vehicle *v)
 }
 
 
-bool CanFillVehicle(Vehicle *v)
+bool CanFillVehicle(Vehicle *front_v)
 {
-	TileIndex tile = v->tile;
+	TileIndex tile = front_v->tile;
 
-	if (IsTileType(tile, MP_STATION) ||
+	assert(IsTileType(tile, MP_STATION) ||
-			(v->type == VEH_SHIP && (
+			(front_v->type == VEH_SHIP && (
 				IsTileType(TILE_ADDXY(tile,  1,  0), MP_STATION) ||
 				IsTileType(TILE_ADDXY(tile, -1,  0), MP_STATION) ||
 				IsTileType(TILE_ADDXY(tile,  0,  1), MP_STATION) ||
 				IsTileType(TILE_ADDXY(tile,  0, -1), MP_STATION) ||
 				IsTileType(TILE_ADDXY(tile, -2,  0), MP_STATION)
-			))) {
+			)));
 
-		/* If patch is active, use alternative CanFillVehicle-function */
+	bool full_load = front_v->current_order.flags & OF_FULL_LOAD;
-		if (_patches.full_load_any && v->current_order.flags & OF_FULL_LOAD) return CanFillVehicle_FullLoadAny(v);
 
-		do {
+	/* If patch is active, use alternative CanFillVehicle-function */
-			if (v->cargo_count != v->cargo_cap) return true;
+	if (_patches.full_load_any && full_load) return CanFillVehicle_FullLoadAny(front_v);
-		} while ((v = v->next) != NULL);
+
-	}
+	Vehicle *v = front_v;
-	return false;
+	do {
+		if (HASBIT(v->vehicle_flags, VF_CARGO_UNLOADING) || (full_load && v->cargo_count != v->cargo_cap)) return true;
+	} while ((v = v->next) != NULL);
+
+	return !HASBIT(front_v->vehicle_flags, VF_LOADING_FINISHED);
 }
 
 /** Check if a given engine type can be refitted to a given cargo