1*c217d954SCole Faust /*
2*c217d954SCole Faust * Copyright (c) 2018-2021 Arm Limited.
3*c217d954SCole Faust *
4*c217d954SCole Faust * SPDX-License-Identifier: MIT
5*c217d954SCole Faust *
6*c217d954SCole Faust * Permission is hereby granted, free of charge, to any person obtaining a copy
7*c217d954SCole Faust * of this software and associated documentation files (the "Software"), to
8*c217d954SCole Faust * deal in the Software without restriction, including without limitation the
9*c217d954SCole Faust * rights to use, copy, modify, merge, publish, distribute, sublicense, and/or
10*c217d954SCole Faust * sell copies of the Software, and to permit persons to whom the Software is
11*c217d954SCole Faust * furnished to do so, subject to the following conditions:
12*c217d954SCole Faust *
13*c217d954SCole Faust * The above copyright notice and this permission notice shall be included in all
14*c217d954SCole Faust * copies or substantial portions of the Software.
15*c217d954SCole Faust *
16*c217d954SCole Faust * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
17*c217d954SCole Faust * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
18*c217d954SCole Faust * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
19*c217d954SCole Faust * AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
20*c217d954SCole Faust * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
21*c217d954SCole Faust * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
22*c217d954SCole Faust * SOFTWARE.
23*c217d954SCole Faust */
24*c217d954SCole Faust #include "arm_compute/runtime/CL/functions/CLRNNLayer.h"
25*c217d954SCole Faust
26*c217d954SCole Faust #include "arm_compute/core/Helpers.h"
27*c217d954SCole Faust #include "arm_compute/core/Types.h"
28*c217d954SCole Faust #include "arm_compute/core/Utils.h"
29*c217d954SCole Faust #include "arm_compute/core/utils/misc/ShapeCalculator.h"
30*c217d954SCole Faust #include "arm_compute/runtime/CL/CLScheduler.h"
31*c217d954SCole Faust #include "src/core/CL/kernels/CLFillBorderKernel.h"
32*c217d954SCole Faust
33*c217d954SCole Faust #include "src/common/utils/Log.h"
34*c217d954SCole Faust
35*c217d954SCole Faust namespace arm_compute
36*c217d954SCole Faust {
37*c217d954SCole Faust using namespace arm_compute::misc::shape_calculator;
38*c217d954SCole Faust
CLRNNLayer(std::shared_ptr<IMemoryManager> memory_manager)39*c217d954SCole Faust CLRNNLayer::CLRNNLayer(std::shared_ptr<IMemoryManager> memory_manager)
40*c217d954SCole Faust : _memory_group(std::move(memory_manager)), _gemm_state_f(), _add_kernel(), _activation(), _fully_connected_kernel(), _copy(), _fully_connected_out(), _gemm_output(), _add_output(),
41*c217d954SCole Faust _is_prepared(false)
42*c217d954SCole Faust {
43*c217d954SCole Faust }
44*c217d954SCole Faust
45*c217d954SCole Faust CLRNNLayer::~CLRNNLayer() = default;
46*c217d954SCole Faust
validate(const ITensorInfo * input,const ITensorInfo * weights,const ITensorInfo * recurrent_weights,const ITensorInfo * bias,const ITensorInfo * hidden_state,const ITensorInfo * output,const ActivationLayerInfo & info)47*c217d954SCole Faust Status CLRNNLayer::validate(const ITensorInfo *input, const ITensorInfo *weights, const ITensorInfo *recurrent_weights, const ITensorInfo *bias, const ITensorInfo *hidden_state,
48*c217d954SCole Faust const ITensorInfo *output, const ActivationLayerInfo &info)
49*c217d954SCole Faust {
50*c217d954SCole Faust ARM_COMPUTE_RETURN_ERROR_ON_NULLPTR(input, weights, recurrent_weights, bias, hidden_state, output);
51*c217d954SCole Faust ARM_COMPUTE_RETURN_ERROR_ON_DATA_TYPE_NOT_IN(input, DataType::F16, DataType::F32);
52*c217d954SCole Faust ARM_COMPUTE_RETURN_ERROR_ON_MISMATCHING_DATA_TYPES(input, weights, recurrent_weights, bias, hidden_state, output);
53*c217d954SCole Faust
54*c217d954SCole Faust const int idx_width = get_data_layout_dimension_index(input->data_layout(), DataLayoutDimension::WIDTH);
55*c217d954SCole Faust const int idx_height = get_data_layout_dimension_index(input->data_layout(), DataLayoutDimension::HEIGHT);
56*c217d954SCole Faust
57*c217d954SCole Faust ARM_COMPUTE_RETURN_ERROR_ON(input->dimension(idx_width) != weights->dimension(idx_width));
58*c217d954SCole Faust ARM_COMPUTE_RETURN_ERROR_ON(weights->dimension(idx_height) != recurrent_weights->dimension(idx_width));
59*c217d954SCole Faust ARM_COMPUTE_RETURN_ERROR_ON(recurrent_weights->dimension(idx_width) != recurrent_weights->dimension(1));
60*c217d954SCole Faust ARM_COMPUTE_RETURN_ERROR_ON(bias->num_dimensions() != 1);
61*c217d954SCole Faust ARM_COMPUTE_RETURN_ERROR_ON(bias->dimension(idx_width) != weights->dimension(idx_height));
62*c217d954SCole Faust ARM_COMPUTE_RETURN_ERROR_ON(hidden_state->dimension(idx_width) != weights->dimension(idx_height));
63*c217d954SCole Faust ARM_COMPUTE_RETURN_ERROR_ON(hidden_state->dimension(idx_height) != input->dimension(idx_height));
64*c217d954SCole Faust ARM_COMPUTE_RETURN_ERROR_ON_MISMATCHING_DIMENSIONS(output->tensor_shape(), hidden_state->tensor_shape());
65*c217d954SCole Faust
66*c217d954SCole Faust auto shape_info = TensorInfo(compute_rnn_shape(recurrent_weights, hidden_state->dimension(idx_height)), 1, input->data_type());
67*c217d954SCole Faust
68*c217d954SCole Faust ARM_COMPUTE_RETURN_ON_ERROR(CLFullyConnectedLayer::validate(input, weights, bias, &shape_info));
69*c217d954SCole Faust ARM_COMPUTE_RETURN_ON_ERROR(CLGEMM::validate(hidden_state, recurrent_weights, nullptr, &shape_info, 1.f, 0.f));
70*c217d954SCole Faust ARM_COMPUTE_RETURN_ON_ERROR(CLArithmeticAddition::validate(&shape_info, &shape_info, &shape_info, ConvertPolicy::SATURATE));
71*c217d954SCole Faust ARM_COMPUTE_RETURN_ON_ERROR(CLActivationLayer::validate(&shape_info, &shape_info, info));
72*c217d954SCole Faust
73*c217d954SCole Faust return Status{};
74*c217d954SCole Faust }
75*c217d954SCole Faust
configure(const ICLTensor * input,const ICLTensor * weights,const ICLTensor * recurrent_weights,const ICLTensor * bias,ICLTensor * hidden_state,ICLTensor * output,ActivationLayerInfo & info)76*c217d954SCole Faust void CLRNNLayer::configure(const ICLTensor *input, const ICLTensor *weights, const ICLTensor *recurrent_weights, const ICLTensor *bias, ICLTensor *hidden_state, ICLTensor *output,
77*c217d954SCole Faust ActivationLayerInfo &info)
78*c217d954SCole Faust {
79*c217d954SCole Faust configure(CLKernelLibrary::get().get_compile_context(), input, weights, recurrent_weights, bias, hidden_state, output, info);
80*c217d954SCole Faust }
81*c217d954SCole Faust
configure(const CLCompileContext & compile_context,const ICLTensor * input,const ICLTensor * weights,const ICLTensor * recurrent_weights,const ICLTensor * bias,ICLTensor * hidden_state,ICLTensor * output,ActivationLayerInfo & info)82*c217d954SCole Faust void CLRNNLayer::configure(const CLCompileContext &compile_context, const ICLTensor *input, const ICLTensor *weights, const ICLTensor *recurrent_weights, const ICLTensor *bias,
83*c217d954SCole Faust ICLTensor *hidden_state,
84*c217d954SCole Faust ICLTensor *output, ActivationLayerInfo &info)
85*c217d954SCole Faust {
86*c217d954SCole Faust ARM_COMPUTE_ERROR_ON_NULLPTR(input, weights, recurrent_weights, bias, hidden_state, output);
87*c217d954SCole Faust ARM_COMPUTE_ERROR_THROW_ON(CLRNNLayer::validate(input->info(), weights->info(), recurrent_weights->info(), bias->info(), hidden_state->info(), output->info(), info));
88*c217d954SCole Faust ARM_COMPUTE_LOG_PARAMS(input, weights, recurrent_weights, bias, hidden_state, output, info);
89*c217d954SCole Faust
90*c217d954SCole Faust const int idx_height = get_data_layout_dimension_index(input->info()->data_layout(), DataLayoutDimension::HEIGHT);
91*c217d954SCole Faust TensorShape shape = compute_rnn_shape(recurrent_weights->info(), hidden_state->info()->dimension(idx_height));
92*c217d954SCole Faust
93*c217d954SCole Faust _is_prepared = false;
94*c217d954SCole Faust
95*c217d954SCole Faust _fully_connected_out.allocator()->init(TensorInfo(shape, 1, input->info()->data_type()));
96*c217d954SCole Faust _gemm_output.allocator()->init(TensorInfo(shape, 1, input->info()->data_type()));
97*c217d954SCole Faust
98*c217d954SCole Faust // Manage intermediate buffers and configure
99*c217d954SCole Faust _memory_group.manage(&_fully_connected_out);
100*c217d954SCole Faust _fully_connected_kernel.configure(compile_context, input, weights, bias, &_fully_connected_out);
101*c217d954SCole Faust
102*c217d954SCole Faust _memory_group.manage(&_gemm_output);
103*c217d954SCole Faust _gemm_state_f.configure(compile_context, hidden_state, recurrent_weights, nullptr, &_gemm_output, 1.f, 0.f);
104*c217d954SCole Faust
105*c217d954SCole Faust _add_output.allocator()->init(TensorInfo(shape, 1, input->info()->data_type()));
106*c217d954SCole Faust _memory_group.manage(&_add_output);
107*c217d954SCole Faust
108*c217d954SCole Faust _add_kernel.configure(compile_context, &_fully_connected_out, &_gemm_output, &_add_output, ConvertPolicy::SATURATE);
109*c217d954SCole Faust
110*c217d954SCole Faust _fully_connected_out.allocator()->allocate();
111*c217d954SCole Faust _gemm_output.allocator()->allocate();
112*c217d954SCole Faust
113*c217d954SCole Faust _activation.configure(compile_context, &_add_output, hidden_state, info);
114*c217d954SCole Faust _add_output.allocator()->allocate();
115*c217d954SCole Faust
116*c217d954SCole Faust _copy.configure(compile_context, hidden_state, output);
117*c217d954SCole Faust }
118*c217d954SCole Faust
run()119*c217d954SCole Faust void CLRNNLayer::run()
120*c217d954SCole Faust {
121*c217d954SCole Faust prepare();
122*c217d954SCole Faust
123*c217d954SCole Faust MemoryGroupResourceScope scope_mg(_memory_group);
124*c217d954SCole Faust
125*c217d954SCole Faust _fully_connected_kernel.run();
126*c217d954SCole Faust _gemm_state_f.run();
127*c217d954SCole Faust _add_kernel.run();
128*c217d954SCole Faust _activation.run();
129*c217d954SCole Faust
130*c217d954SCole Faust // copy hidden out to output
131*c217d954SCole Faust _copy.run();
132*c217d954SCole Faust }
133*c217d954SCole Faust
prepare()134*c217d954SCole Faust void CLRNNLayer::prepare()
135*c217d954SCole Faust {
136*c217d954SCole Faust if(!_is_prepared)
137*c217d954SCole Faust {
138*c217d954SCole Faust _fully_connected_kernel.prepare();
139*c217d954SCole Faust _gemm_state_f.prepare();
140*c217d954SCole Faust
141*c217d954SCole Faust _is_prepared = true;
142*c217d954SCole Faust }
143*c217d954SCole Faust }
144*c217d954SCole Faust } // namespace arm_compute
145