multi_devices_graph_builder.cc 25.4 KB
Newer Older
Y
Yu Yang 已提交
1 2 3 4 5 6 7 8 9 10 11 12 13
//   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.
C
chengduoZH 已提交
14
#include <algorithm>
Y
Yancey1989 已提交
15
#include <fstream>
C
chengduoZH 已提交
16
#include <string>
C
chengduoZH 已提交
17
#include <utility>
C
chengduoZH 已提交
18 19
#include <vector>

20
#include "paddle/fluid/framework/details/all_reduce_op_handle.h"
C
chengduoZH 已提交
21
#include "paddle/fluid/framework/details/broadcast_op_handle.h"
Y
Yu Yang 已提交
22
#include "paddle/fluid/framework/details/computation_op_handle.h"
23
#include "paddle/fluid/framework/details/data_balance_op_handle.h"
C
chengduoZH 已提交
24
#include "paddle/fluid/framework/details/multi_devices_graph_builder.h"
C
chengduoZH 已提交
25
#include "paddle/fluid/framework/details/reduce_op_handle.h"
Y
Yancey1989 已提交
26
#include "paddle/fluid/framework/details/rpc_op_handle.h"
Y
Yu Yang 已提交
27
#include "paddle/fluid/framework/details/scale_loss_grad_op_handle.h"
X
Xin Pan 已提交
28
#include "paddle/fluid/framework/ir/node.h"
Y
Fix bug  
yuyang18 已提交
29
#include "paddle/fluid/framework/op_info.h"
Y
Yu Yang 已提交
30
#include "paddle/fluid/framework/scope.h"
Y
Yu Yang 已提交
31

Y
Yu Yang 已提交
32 33 34
namespace paddle {
namespace framework {
namespace details {
Y
Yu Yang 已提交
35 36

#ifdef PADDLE_WITH_CUDA
Y
Yu Yang 已提交
37 38 39 40
MultiDevSSAGraphBuilder::MultiDevSSAGraphBuilder(
    const std::vector<platform::Place> &places,
    const std::string &loss_var_name,
    const std::unordered_set<std::string> &params,
C
chengduoZH 已提交
41
    const std::vector<Scope *> &local_scopes,
Y
yuyang18 已提交
42
    platform::NCCLContextMap *nccl_ctxs, const BuildStrategy &strategy)
Y
Yu Yang 已提交
43 44 45
    : loss_var_name_(loss_var_name),
      places_(places),
      local_scopes_(local_scopes),
C
chengduoZH 已提交
46
      nccl_ctxs_(nccl_ctxs),
Y
yuyang18 已提交
47
      strategy_(strategy) {
Y
Yu Yang 已提交
48 49 50 51 52
#else
MultiDevSSAGraphBuilder::MultiDevSSAGraphBuilder(
    const std::vector<platform::Place> &places,
    const std::string &loss_var_name,
    const std::unordered_set<std::string> &params,
Y
yuyang18 已提交
53
    const std::vector<Scope *> &local_scopes, const BuildStrategy &strategy)
Y
Yu Yang 已提交
54 55
    : loss_var_name_(loss_var_name),
      places_(places),
C
chengduoZH 已提交
56
      local_scopes_(local_scopes),
Y
yuyang18 已提交
57
      strategy_(strategy) {
Y
Yu Yang 已提交
58
#endif
Y
Yu Yang 已提交
59 60 61
  for (auto &p : params) {
    grad_names_.insert(GradVarName(p));
  }
Y
Yancey1989 已提交
62
  balance_vars_.resize(places_.size(), 0);
Y
yuyang18 已提交
63 64 65 66 67
  if (strategy_.enable_data_balance_ && places_.size() == 1) {
    LOG(WARNING) << "It is no need to enable data balance when there is only "
                    "one place. enable_data_balance is set to False.";
    strategy_.enable_data_balance_ = false;
  }
Y
Yu Yang 已提交
68 69
}

70
void MultiDevSSAGraphBuilder::CreateOpHandleIOs(Graph *result, ir::Node *node,
Y
Yu Yang 已提交
71 72
                                                size_t place_id) const {
  auto p = places_[place_id];
X
Xin Pan 已提交
73
  auto *op_handle = result->Get<GraphOps>("ops").back().get();
X
Xin Pan 已提交
74 75
  op_handle->SetDeviceContext(p,
                              platform::DeviceContextPool::Instance().Get(p));
T
wip  
typhoonzero 已提交
76

77 78
  for (ir::Node *input : node->inputs) {
    VarHandle *var = CreateOrGetLatestVarHandle(result, input, p, place_id);
T
wip  
typhoonzero 已提交
79 80 81
    op_handle->AddInput(var);
  }

82 83
  for (ir::Node *output : node->outputs) {
    CreateOpOutput(result, op_handle, output, p, place_id);
T
wip  
typhoonzero 已提交
84 85
  }
}
Y
fix pe  
Yancey1989 已提交
86 87

std::vector<std::string> MultiDevSSAGraphBuilder::FindDistTrainSendVars(
88
    const std::vector<std::unique_ptr<ir::Node>> &nodes) const {
Y
fix pe  
Yancey1989 已提交
89
  std::vector<std::string> send_vars;
Y
Yancey1989 已提交
90 91
  // since parameters are all in block 0,
  // it's enough to only scan send ops in block 0
92
  for (auto &node : nodes) {
X
Xin Pan 已提交
93
    if (node->NodeType() != ir::Node::Type::kOperation) continue;
94
    OpDesc *op = node->Op();
Y
Yancey1989 已提交
95 96
    // TODO(Yancey1989): use a graceful method to find send op,
    // instead of the the hard code string
97
    if (op->Type() == "send") {
Y
fix pe  
Yancey1989 已提交
98 99 100 101 102 103 104 105 106 107
      auto op_vars = op->InputArgumentNames();
      send_vars.reserve(send_vars.size() +
                        std::distance(op_vars.begin(), op_vars.end()));
      send_vars.insert(send_vars.end(), op_vars.begin(), op_vars.end());
    }
  }
  return send_vars;
}

std::vector<std::string> MultiDevSSAGraphBuilder::FindDistTrainRecvVars(
108
    const std::vector<std::unique_ptr<ir::Node>> &nodes) const {
Y
fix pe  
Yancey1989 已提交
109
  std::vector<std::string> recv_vars;
110
  for (auto &node : nodes) {
X
Xin Pan 已提交
111
    if (node->NodeType() != ir::Node::Type::kOperation) continue;
112
    OpDesc *op = node->Op();
Y
Yancey1989 已提交
113 114 115
    // TODO(Yancey1989): use a graceful method to find recv op,
    // instead of the hard code string
    if (op->Type() == "recv") {
Y
fix pe  
Yancey1989 已提交
116 117 118 119 120 121 122 123 124 125
      auto op_vars = op->OutputArgumentNames();
      recv_vars.reserve(recv_vars.size() +
                        std::distance(op_vars.begin(), op_vars.end()));
      recv_vars.insert(recv_vars.end(), op_vars.begin(), op_vars.end());
    }
  }
  return recv_vars;
}

bool MultiDevSSAGraphBuilder::IsDistTrainOp(
126
    ir::Node *node, const std::vector<std::string> &send_vars,
Y
fix pe  
Yancey1989 已提交
127 128
    const std::vector<std::string> &recv_vars) const {
  if (send_vars.size() == 0 || recv_vars.size() == 0) {
T
typhoonzero 已提交
129 130 131
    return false;
  }

Y
Yu Yang 已提交
132 133 134 135
  /**
   * Check any of opvars contains `.block` and in sendvars
   */
  auto checker = [](const std::vector<std::string> &opvars,
Y
fix pe  
Yancey1989 已提交
136
                    const std::vector<std::string> &rpc_vars) -> bool {
T
typhoonzero 已提交
137
    for (auto &var : opvars) {
Y
Yancey1989 已提交
138 139 140
      // a variable name with the suffix `.block` means it's a splited
      // variable by (DistributeTranspiler)
      // [python/paddle/fluid/transpiler/distribute_transpiler.py]
T
typhoonzero 已提交
141
      if (var.find(".block") != std::string::npos &&
Y
fix pe  
Yancey1989 已提交
142
          std::find(rpc_vars.begin(), rpc_vars.end(), var) != rpc_vars.end()) {
Y
Yu Yang 已提交
143
        return true;
T
typhoonzero 已提交
144 145
      }
    }
Y
Yu Yang 已提交
146
    return false;
T
typhoonzero 已提交
147 148
  };

149 150 151
  std::vector<std::string> input_var_names;
  std::vector<std::string> output_var_names;
  for (ir::Node *input : node->inputs) {
X
Xin Pan 已提交
152
    input_var_names.push_back(input->Name());
153 154
  }
  for (ir::Node *output : node->outputs) {
X
Xin Pan 已提交
155
    output_var_names.push_back(output->Name());
156 157 158 159
  }

  return checker(output_var_names, send_vars) ||
         checker(input_var_names, recv_vars);
T
typhoonzero 已提交
160 161
}

Y
Yancey1989 已提交
162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181
size_t MultiDevSSAGraphBuilder::GetAppropriateDeviceID(
    const std::vector<std::string> &var_names) const {
  int64_t numel_sum = 0;
  for (auto var_name : var_names) {
    auto var_desc = all_vars_.at(var_name);
    PADDLE_ENFORCE_NOT_NULL(var_desc);
    auto dim = framework::make_ddim(var_desc->GetShape());
    int64_t numel = framework::product(dim);
    PADDLE_ENFORCE_GT(numel, 0);
    numel_sum += numel;
  }

  auto smallest =
      std::min_element(std::begin(balance_vars_), std::end(balance_vars_));
  size_t dev_id =
      static_cast<size_t>(std::distance(std::begin(balance_vars_), smallest));
  balance_vars_[dev_id] += numel_sum;
  return dev_id;
}

182
std::unique_ptr<Graph> MultiDevSSAGraphBuilder::Apply(
X
Xin Pan 已提交
183
    std::unique_ptr<Graph> graph) const {
X
Xin Pan 已提交
184
  // Rebuild the graph structure.
185 186 187 188
  auto nodes = std::move(graph->nodes);
  graph->nodes.clear();

  for (auto &node : nodes) {
X
Xin Pan 已提交
189 190
    if (node->NodeType() == ir::Node::Type::kVariable) {
      all_vars_.emplace(node->Name(), node->Var());
191
    }
C
fix ci  
chengduoZH 已提交
192
  }
C
chengduoZH 已提交
193

X
Xin Pan 已提交
194
  Graph &result = *graph;
C
chengduoZH 已提交
195
  std::unordered_set<std::string> og_has_been_broadcast;
Y
Yu Yang 已提交
196 197

  // We cannot invoke resize. It is a bug of GCC 4.8
X
Xin Pan 已提交
198 199 200
  result.Set("vars", new GraphVars(places_.size()));
  result.Set("dep_vars", new GraphDepVars);
  result.Set("ops", new GraphOps);
201

Y
fix pe  
Yancey1989 已提交
202 203
  // find send/recv vars so that we can place the distributed training
  // realted op in the place 0
204 205
  auto send_vars = FindDistTrainSendVars(nodes);
  auto recv_vars = FindDistTrainRecvVars(nodes);
T
typhoonzero 已提交
206

C
chengduoZH 已提交
207 208 209
  std::vector<std::unordered_set<std::string>> bcast_var_name_set;
  bcast_var_name_set.resize(places_.size());

C
chengduoZH 已提交
210
  size_t cur_device_id = 0;
Y
Yu Yang 已提交
211
  bool is_forwarding = true;
212

X
Xin Pan 已提交
213 214 215 216
  // NOTE: Currently, passes before SSAGraphBuilder cannot reorder
  // forward, backward nodes. E.g. you can't append an forward node
  // at the end of the node list.
  // TODO(panyx0718): FIXME: Needs to sort by forward->backward order.
217
  for (auto &node : nodes) {
X
Xin Pan 已提交
218
    if (node->NodeType() != ir::Node::Type::kOperation) continue;
Y
Yancey1989 已提交
219
    if (boost::get<int>(
220
            node->Op()->GetAttr(OpProtoAndCheckerMaker::OpRoleAttrName())) ==
Y
Yancey1989 已提交
221
        static_cast<int>(OpRole::kRPC)) {
222 223 224 225
      CreateRPCOp(&result, node.get());
    } else if (IsDistTrainOp(node.get(), send_vars, recv_vars)) {
      CreateDistTrainOp(&result, node.get());
    } else if (IsScaleLossOp(node.get())) {
Y
Yu Yang 已提交
226
      // user can customize loss@grad if not use_default_grad_scale_
Y
yuyang18 已提交
227 228
      if (strategy_.gradient_scale_ !=
          BuildStrategy::GradientScaleStrategy::kCustomized) {
Y
Yu Yang 已提交
229 230
        CreateScaleLossGradOp(&result);
      }
231 232 233 234
      // This assumes the backward generating code will ensure IsScaleLossOp
      // is true only for the op that scale the final scalar loss.
      // It also assumes backward op will always follow the forward op in
      // the block.
Y
Yu Yang 已提交
235
      is_forwarding = false;
Y
Yu Yang 已提交
236
    } else {
237
      int op_dev_id = GetOpDeviceID(node.get());
C
chengduo 已提交
238
      if (op_dev_id != -1) {  // This op only runs on one specific device.
239 240
        CreateComputationalOp(&result, node.get(), op_dev_id);
        for (ir::Node *n : node->outputs) {
X
Xin Pan 已提交
241
          var_name_on_devices_.emplace(n->Name(), op_dev_id);
C
chengduoZH 已提交
242
        }
C
chengduo 已提交
243 244 245
      } else {
        // This op runs on all devices, and its output may have parameter's
        // gradients.
246 247 248 249 250 251
        if (node->Op()->Type() == "read" && strategy_.enable_data_balance_) {
          node->Op()->SetAttr("throw_eof_exp", false);
          CreateComputationalOps(&result, node.get(), places_.size());
          // TODO(panyx0718): builder shouldn't depend on the out logic of
          // a specific op.
          const auto &data_var_names = node->Op()->Output("Out");
252
          InsertDataBalanceOp(&result, data_var_names);
F
fengjiayi 已提交
253
        } else {
254
          CreateComputationalOps(&result, node.get(), places_.size());
255 256
        }

C
chengduo 已提交
257 258 259
        if (!is_forwarding && places_.size() > 1) {
          // Currently, we assume that once gradient is generated, it can be
          // broadcast, and each gradient is only broadcast once.
260
          if (static_cast<bool>(boost::get<int>(node->Op()->GetAttr(
C
chengduo 已提交
261 262 263
                                    OpProtoAndCheckerMaker::OpRoleAttrName())) &
                                static_cast<int>(OpRole::kBackward))) {
            try {
264 265
              auto backward_vars = boost::get<std::vector<std::string>>(
                  node->Op()->GetNullableAttr(
C
chengduo 已提交
266
                      OpProtoAndCheckerMaker::OpRoleVarAttrName()));
Y
yuyang18 已提交
267

C
chengduo 已提交
268
              PADDLE_ENFORCE_EQ(backward_vars.size() % 2, 0);
Y
yuyang18 已提交
269

C
chengduo 已提交
270 271 272 273
              for (size_t i = 0; i < backward_vars.size(); i += 2) {
                auto &p_name = backward_vars[i];
                auto &g_name = backward_vars[i + 1];
                VLOG(10) << "Bcast " << g_name << " for parameter " << p_name;
Y
yuyang18 已提交
274

C
chengduo 已提交
275 276 277 278 279 280 281 282 283 284 285 286 287 288 289 290 291 292 293
                switch (strategy_.reduce_) {
                  case BuildStrategy::ReduceStrategy::kReduce:
                    cur_device_id = GetAppropriateDeviceID({g_name});
                    CreateReduceOp(&result, g_name, cur_device_id);
                    var_name_on_devices_.emplace(g_name, cur_device_id);
                    bcast_var_name_set[cur_device_id].emplace(p_name);
                    break;
                  case BuildStrategy::ReduceStrategy::kAllReduce:
                    if (IsSparseGradient(g_name)) {
                      CreateReduceOp(&result, g_name, 0);
                      CreateBroadcastOp(&result, g_name, 0);
                    } else {
                      InsertAllReduceOp(&result, g_name);
                    }
                    break;
                  default:
                    LOG(FATAL) << "Unknown reduce strategy ";
                    break;
                }
Y
yuyang18 已提交
294
              }
C
chengduo 已提交
295
            } catch (boost::bad_get e) {
C
chengduoZH 已提交
296
            }
Y
Yu Yang 已提交
297 298 299 300 301 302
          }
        }
      }
    }
  }

303 304 305 306 307 308 309 310 311 312 313 314 315
  bool use_gpu = false;
#ifdef PADDLE_WITH_CUDA
  use_gpu = nccl_ctxs_ != nullptr;
#endif

  if (use_gpu ||
      strategy_.reduce_ == BuildStrategy::ReduceStrategy::kAllReduce) {
    // Insert BCast Ops
    for (size_t dev_id = 0; dev_id < bcast_var_name_set.size(); ++dev_id) {
      auto &to_bcast_set = bcast_var_name_set[dev_id];
      for (auto &bcast_name : to_bcast_set) {
        CreateBroadcastOp(&result, bcast_name, dev_id);
      }
C
chengduoZH 已提交
316 317
    }
  }
318

Y
Yu Yang 已提交
319 320
  /*
    Dependency graph has been constructed. However, there are still data
321
    hazards need to be handled.
Y
Yu Yang 已提交
322 323
   */
  PolishGraphToSupportDataHazards(&result);
Y
Yu Yang 已提交
324

Y
Yu Yang 已提交
325 326 327 328
  /*
   * Only variables should be the leaves of graph.
   */
  AddOutputToLeafOps(&result);
X
Xin Pan 已提交
329
  return std::move(graph);
Y
Yu Yang 已提交
330 331
}

Y
Yancey1989 已提交
332 333 334
bool MultiDevSSAGraphBuilder::IsSparseGradient(const std::string &og) const {
  PADDLE_ENFORCE(all_vars_.count(og) != 0);
  if (all_vars_.at(og)->GetType() == proto::VarType::SELECTED_ROWS) {
C
fix ci  
chengduoZH 已提交
335 336 337
    return true;
  }
  return false;
338 339
}

340 341 342 343 344 345 346 347 348 349 350 351 352
void MultiDevSSAGraphBuilder::SetCommunicationContext(
    OpHandleBase *op_handle, const platform::Place &p) const {
#ifdef PADDLE_WITH_CUDA
  if (nccl_ctxs_ == nullptr) {
    op_handle->SetDeviceContext(p,
                                platform::DeviceContextPool::Instance().Get(p));
  }
#else
  op_handle->SetDeviceContext(p,
                              platform::DeviceContextPool::Instance().Get(p));
#endif
}

X
Xin Pan 已提交
353
void MultiDevSSAGraphBuilder::CreateBroadcastOp(Graph *result,
C
chengduoZH 已提交
354
                                                const std::string &p_name,
C
chengduoZH 已提交
355
                                                size_t src_dev_id) const {
C
chengduoZH 已提交
356
#ifdef PADDLE_WITH_CUDA
X
Xin Pan 已提交
357
  auto *op_handle = new BroadcastOpHandle(result->CreateEmptyNode("broadcast"),
X
Xin Pan 已提交
358
                                          local_scopes_, places_, nccl_ctxs_);
C
chengduoZH 已提交
359
#else
X
Xin Pan 已提交
360
  auto *op_handle = new BroadcastOpHandle(result->CreateEmptyNode("broadcast"),
361
                                          local_scopes_, places_);
C
chengduoZH 已提交
362
#endif
X
Xin Pan 已提交
363
  result->Get<GraphOps>("ops").emplace_back(op_handle);
X
Xin Pan 已提交
364

X
Xin Pan 已提交
365 366
  auto *in =
      result->Get<GraphVars>("vars").at(src_dev_id).at(p_name).back().get();
C
chengduoZH 已提交
367 368 369 370
  op_handle->AddInput(in);

  for (size_t i = 0; i < places_.size(); ++i) {
    auto &p = places_[i];
C
chengduoZH 已提交
371
    SetCommunicationContext(op_handle, p);
X
Xin Pan 已提交
372
    auto &vars = result->Get<GraphVars>("vars").at(i).at(p_name);
X
Xin Pan 已提交
373 374
    auto *out_var = new VarHandle(result->CreateEmptyNode(p_name), vars.size(),
                                  i, p_name, p);
C
chengduoZH 已提交
375 376 377 378 379
    vars.emplace_back(out_var);
    op_handle->AddOutput(out_var);
  }
}

X
Xin Pan 已提交
380
void MultiDevSSAGraphBuilder::CreateComputationalOp(Graph *result,
381
                                                    ir::Node *node,
C
chengduoZH 已提交
382
                                                    int dev_id) const {
383
  result->Get<GraphOps>("ops").emplace_back(
X
Xin Pan 已提交
384
      new ComputationOpHandle(result->CreateOpNode(node->Op()),
385 386
                              local_scopes_[dev_id], places_[dev_id]));
  CreateOpHandleIOs(result, node, dev_id);
C
chengduoZH 已提交
387 388
}

X
Xin Pan 已提交
389
void MultiDevSSAGraphBuilder::InsertAllReduceOp(Graph *result,
C
chengduoZH 已提交
390
                                                const std::string &og) const {
Y
Yu Yang 已提交
391
#ifdef PADDLE_WITH_CUDA
X
Xin Pan 已提交
392 393 394
  result->Get<GraphOps>("ops").emplace_back(
      new AllReduceOpHandle(result->CreateEmptyNode("allreduce"), local_scopes_,
                            places_, nccl_ctxs_));
C
chengduoZH 已提交
395
#else
X
Xin Pan 已提交
396
  result->Get<GraphOps>("ops").emplace_back(new AllReduceOpHandle(
X
Xin Pan 已提交
397
      result->CreateEmptyNode("allreduce"), local_scopes_, places_));
C
chengduoZH 已提交
398
#endif
X
Xin Pan 已提交
399
  auto *op_handle = result->Get<GraphOps>("ops").back().get();
Y
Yu Yang 已提交
400 401 402

  for (size_t i = 0; i < places_.size(); ++i) {
    auto &p = places_[i];
C
chengduoZH 已提交
403
    SetCommunicationContext(op_handle, p);
X
Xin Pan 已提交
404
    auto &vars = result->Get<GraphVars>("vars")[i][og];
Y
Yu Yang 已提交
405 406
    PADDLE_ENFORCE(!vars.empty());
    auto &prev_grad = vars.back();
Y
Yu Yang 已提交
407 408
    op_handle->AddInput(prev_grad.get());

X
Xin Pan 已提交
409 410
    auto var =
        new VarHandle(result->CreateEmptyNode(og), vars.size(), i, og, p);
Y
Yu Yang 已提交
411 412 413 414 415
    vars.emplace_back(var);
    op_handle->AddOutput(var);
  }
}

416
void MultiDevSSAGraphBuilder::InsertDataBalanceOp(
X
Xin Pan 已提交
417
    Graph *result, const std::vector<std::string> &datas) const {
F
fengjiayi 已提交
418
#ifdef PADDLE_WITH_CUDA
X
Xin Pan 已提交
419 420 421
  result->Get<GraphOps>("ops").emplace_back(
      new DataBalanceOpHandle(result->CreateEmptyNode("data_balance"),
                              local_scopes_, places_, nccl_ctxs_));
F
fengjiayi 已提交
422
#else
X
Xin Pan 已提交
423
  result->Get<GraphOps>("ops").emplace_back(new DataBalanceOpHandle(
X
Xin Pan 已提交
424
      result->CreateEmptyNode("data_balance"), local_scopes_, places_));
F
fengjiayi 已提交
425
#endif
X
Xin Pan 已提交
426
  auto *op_handle = result->Get<GraphOps>("ops").back().get();
427 428 429 430
  for (size_t i = 0; i < places_.size(); ++i) {
    auto &p = places_[i];
    SetCommunicationContext(op_handle, p);
    for (const std::string &d_name : datas) {
X
Xin Pan 已提交
431
      auto &vars = result->Get<GraphVars>("vars")[i][d_name];
432 433
      PADDLE_ENFORCE(!vars.empty());
      op_handle->AddInput(vars.back().get());
X
Xin Pan 已提交
434
      auto var = new VarHandle(result->CreateEmptyNode(d_name), vars.size(), i,
435
                               d_name, p);
436 437 438 439 440 441
      vars.emplace_back(var);
      op_handle->AddOutput(var);
    }
  }
}

Y
Yu Yang 已提交
442 443 444 445 446 447 448 449 450 451 452 453
bool MultiDevSSAGraphBuilder::IsParameterGradientOnce(
    const std::string &og,
    std::unordered_set<std::string> *og_has_been_broadcast) const {
  bool is_pg_once =
      grad_names_.count(og) != 0 && og_has_been_broadcast->count(og) == 0;
  if (is_pg_once) {
    // Insert NCCL AllReduce Op
    og_has_been_broadcast->insert(og);
  }
  return is_pg_once;
}

454
int MultiDevSSAGraphBuilder::GetOpDeviceID(ir::Node *node) const {
Y
yuyang18 已提交
455
  if (strategy_.reduce_ != BuildStrategy::ReduceStrategy::kReduce) {
C
chengduoZH 已提交
456 457
    return -1;
  }
458
  int op_role = boost::get<int>(
459
      node->Op()->GetAttr(framework::OpProtoAndCheckerMaker::OpRoleAttrName()));
460 461
  if (op_role != static_cast<int>(framework::OpRole::kOptimize)) {
    return -1;
C
chengduoZH 已提交
462
  }
463
  auto param_grad = boost::get<std::vector<std::string>>(
X
Xin Pan 已提交
464
      node->Op()->GetAttr(OpProtoAndCheckerMaker::OpRoleVarAttrName()));
465 466 467

  PADDLE_ENFORCE_EQ(param_grad.size(), 2U);
  int dev_id = GetVarDeviceID(param_grad[1]);
X
Xin Pan 已提交
468 469
  PADDLE_ENFORCE_NE(dev_id, -1, "dev_id should not be -1.[%s, %s]",
                    node->Op()->Type(), param_grad[0]);
470
  return dev_id;
471 472 473 474 475
}

int MultiDevSSAGraphBuilder::GetVarDeviceID(const std::string &varname) const {
  auto got = var_name_on_devices_.find(varname);
  return got == var_name_on_devices_.end() ? -1 : got->second;
C
chengduoZH 已提交
476 477
}

X
Xin Pan 已提交
478
void MultiDevSSAGraphBuilder::CreateScaleLossGradOp(Graph *result) const {
Y
Yu Yang 已提交
479 480 481
  for (size_t i = 0; i < places_.size(); ++i) {
// Insert ScaleCost OpHandle
#ifdef PADDLE_WITH_CUDA
C
chengduoZH 已提交
482 483 484
    auto *communication_dev_ctx =
        nccl_ctxs_ ? nccl_ctxs_->DevCtx(places_[i])
                   : platform::DeviceContextPool::Instance().Get(places_[i]);
Y
Yu Yang 已提交
485 486 487 488
#else
    auto *communication_dev_ctx =
        platform::DeviceContextPool::Instance().Get(platform::CPUPlace());
#endif
X
Xin Pan 已提交
489
    auto *op_handle = new ScaleLossGradOpHandle(
X
Xin Pan 已提交
490 491
        result->CreateEmptyNode("scale_loss_grad"), local_scopes_.size(),
        local_scopes_[i], places_[i], communication_dev_ctx);
X
Xin Pan 已提交
492
    result->Get<GraphOps>("ops").emplace_back(op_handle);
Y
Yu Yang 已提交
493 494 495 496 497 498 499

    // FIXME: Currently ScaleLossGradOp only use device_count as scale
    // factor. So it does not depend on any other operators.
    // VarHandle *loss = GetVarHandle(loss_var_name, place);
    // loss->pending_ops_.emplace_back(op_handle);
    // op_handle->inputs_.emplace_back(loss);

500 501 502 503
    // TODO(panyx0718): GradVarName(loss_var_name_)
    const std::string grad_var_name = GradVarName(loss_var_name_);
    auto &vars = result->Get<GraphVars>("vars")[i][grad_var_name];
    size_t version = vars.size();
X
Xin Pan 已提交
504
    auto var = new VarHandle(result->CreateEmptyNode(grad_var_name), version, i,
505 506 507
                             grad_var_name, places_[i]);
    vars.emplace_back(var);
    op_handle->AddOutput(var);
Y
Yu Yang 已提交
508 509 510
  }
}

X
Xin Pan 已提交
511
void MultiDevSSAGraphBuilder::CreateComputationalOps(Graph *result,
512
                                                     ir::Node *node,
T
typhoonzero 已提交
513 514
                                                     size_t num_places) const {
  for (size_t scope_idx = 0; scope_idx < num_places; ++scope_idx) {
Y
Yu Yang 已提交
515 516
    auto p = places_[scope_idx];
    auto s = local_scopes_[scope_idx];
X
Xin Pan 已提交
517 518
    result->Get<GraphOps>("ops").emplace_back(
        new ComputationOpHandle(result->CreateOpNode(node->Op()), s, p));
519
    CreateOpHandleIOs(result, node, scope_idx);
Y
Yu Yang 已提交
520 521 522
  }
}

X
Xin Pan 已提交
523
VarHandle *MultiDevSSAGraphBuilder::CreateReduceOp(Graph *result,
C
chengduoZH 已提交
524 525
                                                   const std::string &og,
                                                   int dst_dev_id) const {
C
chengduoZH 已提交
526
#ifdef PADDLE_WITH_CUDA
X
Xin Pan 已提交
527
  result->Get<GraphOps>("ops").emplace_back(new ReduceOpHandle(
X
Xin Pan 已提交
528
      result->CreateEmptyNode("reduce"), local_scopes_, places_, nccl_ctxs_));
C
chengduoZH 已提交
529
#else
530
  result->Get<GraphOps>("ops").emplace_back(new ReduceOpHandle(
X
Xin Pan 已提交
531
      result->CreateEmptyNode("reduce"), local_scopes_, places_));
C
chengduoZH 已提交
532
#endif
X
Xin Pan 已提交
533
  auto *op_handle = result->Get<GraphOps>("ops").back().get();
C
chengduoZH 已提交
534 535 536

  for (size_t i = 0; i < places_.size(); ++i) {
    auto &p = places_[i];
C
chengduoZH 已提交
537
    SetCommunicationContext(op_handle, p);
X
Xin Pan 已提交
538
    auto &vars = result->Get<GraphVars>("vars")[i][og];
C
chengduoZH 已提交
539 540 541 542
    PADDLE_ENFORCE(!vars.empty());
    auto &prev_grad = vars.back();
    op_handle->AddInput(prev_grad.get());
  }
X
Xin Pan 已提交
543
  auto &vars = result->Get<GraphVars>("vars")[dst_dev_id][og];
X
Xin Pan 已提交
544
  auto var = new VarHandle(result->CreateEmptyNode(og), vars.size(), dst_dev_id,
X
Xin Pan 已提交
545
                           og, places_[dst_dev_id]);
C
chengduoZH 已提交
546 547 548 549 550
  vars.emplace_back(var);
  op_handle->AddOutput(var);
  return var;
}

551 552
// Find the first occurence of `prev_op_name` and make current `op` depend
// on it.
X
Xin Pan 已提交
553
void MultiDevSSAGraphBuilder::ConnectOp(Graph *result, OpHandleBase *op,
Y
fix pe  
Yancey1989 已提交
554
                                        const std::string &prev_op_name) const {
X
Xin Pan 已提交
555
  for (auto &prev_op : result->Get<GraphOps>("ops")) {
Y
fix pe  
Yancey1989 已提交
556
    if (prev_op->Name() == prev_op_name) {
X
Xin Pan 已提交
557
      auto *dep_var = new DummyVarHandle(result->CreateEmptyNode("dummy"));
Y
Yancey1989 已提交
558
      prev_op->AddOutput(dep_var);
X
Xin Pan 已提交
559
      result->Get<GraphDepVars>("dep_vars").emplace(dep_var);
Y
fix pe  
Yancey1989 已提交
560
      op->AddInput(dep_var);
Y
Yancey1989 已提交
561 562 563 564
    }
  }
}

X
Xin Pan 已提交
565
void MultiDevSSAGraphBuilder::CreateDistTrainOp(Graph *result,
566
                                                ir::Node *node) const {
Y
Yancey1989 已提交
567
  int op_dev_id = -1;
568 569 570
  std::vector<std::string> input_var_names;
  std::vector<std::string> output_var_names;
  for (ir::Node *input : node->inputs) {
X
Xin Pan 已提交
571
    input_var_names.push_back(input->Name());
572 573
  }
  for (ir::Node *output : node->outputs) {
X
Xin Pan 已提交
574
    output_var_names.push_back(output->Name());
575 576 577 578 579
  }

  if (node->Op()->Type() == "split_byref" ||
      node->Op()->Type() == "split_selected_rows") {
    op_dev_id = GetVarDeviceID(input_var_names[0]);
Y
Yancey1989 已提交
580
    if (strategy_.reduce_ == BuildStrategy::ReduceStrategy::kAllReduce) {
581 582
      op_dev_id = GetAppropriateDeviceID(input_var_names);
      for (auto &varname : input_var_names) {
Y
Yancey1989 已提交
583 584 585
        var_name_on_devices_.emplace(varname, op_dev_id);
      }
    }
586
    for (auto &varname : output_var_names) {
Y
Yancey1989 已提交
587 588
      var_name_on_devices_.emplace(varname, op_dev_id);
    }
589 590 591
  } else if (node->Op()->Type() == "concat") {
    op_dev_id = GetVarDeviceID(input_var_names[0]);
    for (auto &varname : output_var_names) {
Y
yi.wu 已提交
592 593
      var_name_on_devices_.emplace(varname, op_dev_id);
    }
Y
Yancey1989 已提交
594 595 596 597 598 599 600
  } else {
    PADDLE_ENFORCE(
        "the distribute training related op should be in [split_byref, "
        "concat].");
  }

  PADDLE_ENFORCE(op_dev_id != -1,
601 602
                 "can not find right place for distributed op: %s",
                 node->Op()->Type());
Y
Yancey1989 已提交
603

604 605
  CreateComputationalOp(result, node, op_dev_id);
  if (node->Op()->Type() == "concat") {
X
Xin Pan 已提交
606
    ConnectOp(result, result->Get<GraphOps>("ops").back().get(),
X
Xin Pan 已提交
607
              "fetch_barrier");
Y
Yancey1989 已提交
608 609 610
  }
}

611
// Create RPC related op handles that connects its in ops and out ops.
612
void MultiDevSSAGraphBuilder::CreateRPCOp(Graph *result, ir::Node *node) const {
Y
Yancey1989 已提交
613
  int op_dev_id = -1;
614
  if (node->Op()->Type() == "send") {
X
Xin Pan 已提交
615
    op_dev_id = GetVarDeviceID(node->inputs[0]->Name());
Y
Yancey1989 已提交
616 617
    // the variable name which contains .block means it was splited by
    // split_byref op
618 619
    // so that we can balance the variable blocks to all the pserver
    // instances.
Y
Yancey1989 已提交
620
    if (strategy_.reduce_ == BuildStrategy::ReduceStrategy::kAllReduce &&
X
Xin Pan 已提交
621
        node->inputs[0]->Name().find(".block") == std::string::npos) {
622 623
      std::vector<std::string> input_var_names;
      for (ir::Node *n : node->inputs) {
X
Xin Pan 已提交
624
        input_var_names.push_back(n->Name());
625 626 627
      }
      op_dev_id = GetAppropriateDeviceID(input_var_names);
      for (auto &varname : input_var_names) {
Y
Yancey1989 已提交
628 629 630
        var_name_on_devices_.emplace(varname, op_dev_id);
      }
    }
631 632 633
  } else if (node->Op()->Type() == "recv") {
    std::vector<std::string> output_var_names;
    for (ir::Node *n : node->outputs) {
X
Xin Pan 已提交
634
      output_var_names.push_back(n->Name());
635 636 637
    }
    op_dev_id = GetAppropriateDeviceID(output_var_names);
    for (auto &varname : output_var_names) {
Y
Yancey1989 已提交
638 639 640 641 642 643 644 645
      var_name_on_devices_.emplace(varname, op_dev_id);
    }
  } else {
    // send_barrier and fetch_barrier op can be scheduled on device 0
    op_dev_id = 0;
  }

  PADDLE_ENFORCE(op_dev_id != -1, "can not find the right place for rpc op: %s",
646
                 node->Op()->Type());
Y
Yancey1989 已提交
647

648 649 650
  result->Get<GraphOps>("ops").emplace_back(new RPCOpHandle(
      result->CreateOpNode(node->Op()), *node->Op(), local_scopes_[op_dev_id],
      node->Op()->Type(), places_[op_dev_id]));
Y
fix pe  
Yancey1989 已提交
651

652
  if (node->Op()->Type() == "send_barrier") {
X
Xin Pan 已提交
653
    ConnectOp(result, result->Get<GraphOps>("ops").back().get(), "send");
654
  } else if (node->Op()->Type() == "recv") {
X
Xin Pan 已提交
655
    ConnectOp(result, result->Get<GraphOps>("ops").back().get(),
X
Xin Pan 已提交
656
              "send_barrier");
657
  } else if (node->Op()->Type() == "fetch_barrier") {
X
Xin Pan 已提交
658
    ConnectOp(result, result->Get<GraphOps>("ops").back().get(), "recv");
659
  } else if (node->Op()->Type() == "send") {
Y
Yancey1989 已提交
660 661 662
    // do nothing
  } else {
    PADDLE_THROW(
Y
Yancey1989 已提交
663
        "rpc op should be in ["
664
        "send, send_barrier. recv, fetch_barrier]");
Y
Yancey1989 已提交
665 666
  }

667
  CreateOpHandleIOs(result, node, op_dev_id);
Y
Yu Yang 已提交
668 669
}

670
bool MultiDevSSAGraphBuilder::IsScaleLossOp(ir::Node *node) const {
Y
yuyang18 已提交
671
  return boost::get<int>(
672
             node->Op()->GetAttr(OpProtoAndCheckerMaker::OpRoleAttrName())) ==
Y
Fix bug  
yuyang18 已提交
673 674 675
             (static_cast<int>(OpRole::kBackward) |
              static_cast<int>(OpRole::kLoss)) &&
         !loss_var_name_.empty();  // If loss_var is empty. This is test mode
Y
Yu Yang 已提交
676
}
Y
Yu Yang 已提交
677 678 679
}  // namespace details
}  // namespace framework
}  // namespace paddle