// Copyright (c) 2018 PaddlePaddle Authors. All Rights Reserved.
//
// Licensed under the Apache License, Version 2.0 (the "License");
// you may not use this file except in compliance with the License.
// You may obtain a copy of the License at
//
//     http://www.apache.org/licenses/LICENSE-2.0
//
// Unless required by applicable law or agreed to in writing, software
// distributed under the License is distributed on an "AS IS" BASIS,
// WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
// See the License for the specific language governing permissions and
// limitations under the License.

#include "paddle/fluid/framework/details/computation_op_handle.h"
#include "paddle/fluid/framework/details/multi_devices_helper.h"
#include "paddle/fluid/framework/details/scale_loss_grad_op_handle.h"
#include "paddle/fluid/framework/ir/graph_helper.h"
#include "paddle/fluid/framework/ir/memory_optimize_pass/op_graph_view.h"

namespace paddle {
namespace framework {
namespace ir {

template <typename T>
static bool IsMatchedPlaceSingleDeviceOp(details::OpHandleBase *op_base,
                                         const platform::Place &place) {
  auto *op = dynamic_cast<T *>(op_base);
  return op && op->GetPlace() == place;
}

static bool IsLockAndRecordEventFreeComputationOpHandle(
    details::ComputationOpHandle *op, const OpGraphView &graph_view) {
  if (!platform::is_gpu_place(op->GetPlace()) &&
      !platform::is_xpu_place(op->GetPlace()))
    return false;
  for (auto &pending_op : graph_view.PendingOps(op)) {
    if (!IsMatchedPlaceSingleDeviceOp<details::ComputationOpHandle>(
            pending_op, op->GetPlace()) &&
        !IsMatchedPlaceSingleDeviceOp<details::ScaleLossGradOpHandle>(
            pending_op, op->GetPlace())) {
      return false;
    }
  }
  return true;
}

class ModifyOpLockAndRecordEventPass : public ir::Pass {
 protected:
  void ApplyImpl(ir::Graph *graph) const override {
    auto all_ops = ir::FilterByNodeWrapper<details::OpHandleBase>(*graph);
    OpGraphView graph_view(all_ops);
    for (auto &op : all_ops) {
      auto *compute_op = dynamic_cast<details::ComputationOpHandle *>(op);
      if (compute_op == nullptr) continue;
      bool is_lock_and_record_event_free =
          IsLockAndRecordEventFreeComputationOpHandle(compute_op, graph_view);
      compute_op->SetLockAndRecordEventFree(is_lock_and_record_event_free);
      if (is_lock_and_record_event_free) {
        VLOG(10) << "Set is_lock_and_record_event_free be true in op "
                 << compute_op->DebugString();
      }
    }
  }
};
}  // namespace ir
}  // namespace framework
}  // namespace paddle

REGISTER_PASS(modify_op_lock_and_record_event_pass,
              paddle::framework::ir::ModifyOpLockAndRecordEventPass);
