You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
66 lines
2.6 KiB
66 lines
2.6 KiB
/* Copyright (c) 2016 PaddlePaddle Authors. All Rights Reserve.
|
|
|
|
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,
|
|
WITHOpArgType::OUT WARRANTIES OR CONDITIONS OF ANY KOpArgType::IND, either
|
|
express or implied. See the License for the specific language governing
|
|
permissions and limitations under the License. */
|
|
|
|
#include "paddle/framework/grad_op_builder.h"
|
|
#include "paddle/framework/framework.pb.h"
|
|
#include "paddle/framework/op_registry.h"
|
|
|
|
namespace paddle {
|
|
namespace framework {
|
|
enum class OpArgType { IN, OUT };
|
|
|
|
static void TransOpArg(const OperatorBase* src_op,
|
|
OperatorBase::VarNameMap* vars,
|
|
const OpArgType& src_type, bool is_grad) {
|
|
const auto& src_inout =
|
|
src_type == OpArgType::IN ? src_op->inputs_ : src_op->outputs_;
|
|
auto& dst_inout = *vars;
|
|
|
|
const OpProto& proto = OpProtos().at(src_op->type_);
|
|
const auto& src_arg_list =
|
|
src_type == OpArgType::IN ? proto.inputs() : proto.outputs();
|
|
for (const auto& arg : src_arg_list) {
|
|
if (arg.no_gradient() && !is_grad) continue;
|
|
const std::string src_name = arg.name();
|
|
std::string dst_name = is_grad ? GradVarName(src_name) : src_name;
|
|
dst_inout[dst_name].reserve(src_inout.at(src_name).size());
|
|
for (auto& var_name : src_inout.at(src_name)) {
|
|
std::string s = is_grad ? GradVarName(var_name) : var_name;
|
|
dst_inout[dst_name].emplace_back(s);
|
|
}
|
|
}
|
|
}
|
|
|
|
OperatorBase* BuildGradOp(const OperatorBase* op) {
|
|
auto gop_type_it = OpRegistry::grad_ops().find(op->type_);
|
|
PADDLE_ENFORCE(gop_type_it != OpRegistry::grad_ops().end(),
|
|
"Operator %s do not register gradient type", op->type_);
|
|
auto& grad_op_type = gop_type_it->second;
|
|
OperatorBase::VarNameMap inputs;
|
|
OperatorBase::VarNameMap outputs;
|
|
TransOpArg(op, &inputs, OpArgType::IN, false); // I
|
|
TransOpArg(op, &inputs, OpArgType::OUT, false); // O
|
|
TransOpArg(op, &inputs, OpArgType::OUT, true); // OG
|
|
TransOpArg(op, &outputs, OpArgType::IN, true); // IG
|
|
auto gop_it = OpRegistry::op_creators().find(grad_op_type);
|
|
PADDLE_ENFORCE(gop_it != OpRegistry::op_creators().end(),
|
|
"Operator %s 's Gradient %s's creator cannot be found",
|
|
op->type_, grad_op_type);
|
|
|
|
return gop_it->second(grad_op_type, inputs, outputs, op->attrs_);
|
|
}
|
|
|
|
} // namespace framework
|
|
} // namespace paddle
|