#ifndef CPU_X64_JIT_UNI_1X1_CONV_UTILS_HPP
#define CPU_X64_JIT_UNI_1X1_CONV_UTILS_HPP
#include "common/convolution_pd.hpp"
#include "common/dnnl_thread.hpp"
#include "common/memory_tracking.hpp"
#include "common/nstl.hpp"
#include "common/primitive_desc_iterator.hpp"
#include "common/type_helpers.hpp"
#include "common/utils.hpp"
#include "cpu/x64/jit_generator.hpp"
#include "cpu/x64/jit_primitive_conf.hpp"
namespace dnnl {
namespace impl {
namespace cpu {
namespace x64 {
struct reduce_to_unit_stride_t {
convolution_desc_t conv_d_;
bool reduce_src_;
size_t space_per_thread_;
};
template <typename conv_pd_t>
inline void rtus_prepare(conv_pd_t *self, const convolution_desc_t *&conv_d,
const memory_desc_t *&src_d, const memory_desc_t *dst_d,
const memory_desc_t *weights_d) {
const int ndims = src_d->ndims;
const bool with_groups
= memory_desc_wrapper(weights_d).ndims() == ndims + 1;
bool rtus_applicable = utils::one_of(ndims, 3, 4)
&& IMPLICATION(with_groups, weights_d->dims[0] == 1);
if (ndims == 3)
rtus_applicable = rtus_applicable && conv_d->strides[0] != 1
&& conv_d->src_desc.data_type != data_type::s32;
else
rtus_applicable = rtus_applicable
&& (conv_d->strides[0] != 1 || conv_d->strides[1] != 1);
for (int d = 2; d < ndims; ++d) {
rtus_applicable = rtus_applicable && conv_d->padding[0][d - 2] == 0
&& dst_d->dims[d] * conv_d->strides[d - 2] == src_d->dims[d];
}
if (!rtus_applicable) return;
const auto dat_tag = ndims == 3
? memory_desc_wrapper(src_d).matches_one_of_tag(
format_tag::nCw8c, format_tag::nCw16c, format_tag::nwc)
: memory_desc_wrapper(src_d).matches_one_of_tag(format_tag::nChw8c,
format_tag::nChw16c, format_tag::nhwc);
if (dat_tag == format_tag::undef) return;
const bool is_nspc
= utils::one_of(dat_tag, format_tag::nwc, format_tag::nhwc);
if (is_nspc && !mayiuse(sse41)) return;
self->rtus_.reduce_src_ = true;
conv_d = &(self->rtus_.conv_d_ = *conv_d);
self->rtus_.conv_d_.strides[0] = 1;
if (ndims == 4) self->rtus_.conv_d_.strides[1] = 1;
utils::array_set(self->rtus_.conv_d_.padding[0], 0, 2);
if (ndims == 4) utils::array_set(self->rtus_.conv_d_.padding[1], 0, 2);
const int ic = src_d->dims[1];
if (self->desc()->prop_kind == prop_kind::backward_data) {
data_type_t data_type = self->rtus_.conv_d_.diff_src_desc.data_type;
src_d = &(self->rtus_.conv_d_.diff_src_desc = *dst_d);
self->rtus_.conv_d_.diff_src_desc.dims[1] = ic;
self->rtus_.conv_d_.diff_src_desc.data_type = data_type;
memory_desc_wrapper::compute_blocking(
self->rtus_.conv_d_.diff_src_desc, dat_tag);
} else {
data_type_t data_type = self->rtus_.conv_d_.src_desc.data_type;
src_d = &(self->rtus_.conv_d_.src_desc = *dst_d);
self->rtus_.conv_d_.src_desc.dims[1] = ic;
self->rtus_.conv_d_.src_desc.data_type = data_type;
memory_desc_wrapper::compute_blocking(
self->rtus_.conv_d_.src_desc, dat_tag);
}
}
template <typename conv_pd_t>
inline void rtus_prepare_space_info(conv_pd_t *self,
memory_tracking::registrar_t &scratchpad, int max_threads) {
if (!self->rtus_.reduce_src_) return;
const auto &jcp = self->jcp_;
const bool is_nspc
= utils::one_of(jcp.src_tag, format_tag::nhwc, format_tag::nwc);
const size_t factor = utils::pick_by_prop_kind(self->desc()->prop_kind,
jcp.nb_reduce, jcp.nb_load_blocking_max, jcp.nb_bcast_blocking);
size_t typesize
= types::data_type_size(self->invariant_src_md()->data_type);
self->rtus_.space_per_thread_
= is_nspc ? jcp.is * jcp.ic : factor * jcp.is * jcp.ic_block;
scratchpad.book(memory_tracking::names::key_conv_rtus_space,
max_threads * self->rtus_.space_per_thread_, typesize);
}
template <cpu_isa_t isa>
struct rtus_driver_t : public jit_generator_t {
struct call_params_t {
const void *ws;
const void *src;
size_t icb;
size_t os;
size_t iw_start;
};
DECLARE_CPU_JIT_AUX_FUNCTIONS(rtus_driver_t)
Xbyak::Reg64 reg_ws = r12;
Xbyak::Reg64 reg_src = r13;
Xbyak::Reg64 reg_icb = rdx;
Xbyak::Reg64 reg_os = r11;
Xbyak::Reg64 reg_iw_start = r8;
Xbyak::Reg64 reg_cur_os = rax;
Xbyak::Reg64 reg_cur_iw = r9;
Xbyak::Reg64 reg_cur_src = r10;
Xbyak::Reg64 reg_cur_src_fin = reg_cur_iw;
Xbyak::Opmask tail_mask = k2;
Xbyak::Reg64 reg_cur_icb = rax;
Xbyak::Reg64 reg_tail_mask = r14;
Xbyak::Reg64 reg_icb_remainder = rcx;
Xbyak::Reg64 reg_ws_copy = r15;
int iw_, stride_w_;
int src_step_h_, src_step_icb_, ws_step_icb_, vlen_, vlen_shift_;
bool src_to_ws_;
size_t typesize_;
int ic_, ic_tail_;
bool is_nspc_;
Xbyak::Xmm reg_zero;
Xbyak::Xmm reg_v;
rtus_driver_t(int iw, int stride_w, int src_step_h, int src_step_icb,
int ws_step_icb, bool src_to_ws, size_t typesize, int ic,
bool is_nspc = false)
: jit_generator_t(jit_name(), isa)
, iw_(iw)
, stride_w_(stride_w)
, src_step_h_(src_step_h)
, src_step_icb_(src_step_icb)
, ws_step_icb_(ws_step_icb)
, src_to_ws_(src_to_ws)
, typesize_(typesize)
, ic_(ic)
, is_nspc_(is_nspc) {
using namespace Xbyak;
assert(ic_ > 0);
auto Vmm = [this](int idx, size_t typesize) {
Xmm res;
if (is_nspc_) {
switch (isa) {
case sse41: res = Xmm(idx); break;
case avx2: res = Ymm(idx); break;
case avx512_core: res = Zmm(idx); break;
default: assert(!"Not supported isa"); res = Xmm(idx);
}
return res;
}
switch (isa) {
case sse41:
switch (typesize) {
case 2: res = Xmm(idx); break;
default: assert(!"Not supported typesize");
}
break;
case avx2:
switch (typesize) {
case 4: res = Ymm(idx); break;
case 2: res = Xmm(idx); break;
default:
assert(!"Not supported typesize");
res = Ymm(idx);
}
break;
case avx512_core:
switch (typesize) {
case 4: res = Zmm(idx); break;
case 2: res = Ymm(idx); break;
case 1: res = Xmm(idx); break;
default:
assert(!"Not supported typesize");
res = Zmm(idx);
}
}
return res;
};
reg_zero = Vmm(0, typesize);
reg_v = Vmm(1, typesize);
vlen_ = reg_v.getBit() / 8;
vlen_shift_ = 0;
int tvlen = is_nspc_ ? typesize_ : vlen_;
while (tvlen > 1) {
tvlen /= 2;
vlen_shift_++;
}
const int simd_w = vlen_ / sizeof(float);
ic_tail_ = ic_ % simd_w;
}
void loop_is() {
using namespace Xbyak;
mov(reg_cur_src, reg_src);
mov(reg_cur_iw, reg_iw_start);
mov(reg_cur_os, reg_os);
Label is_loop;
L(is_loop);
if (src_to_ws_) {
vmovups(reg_v, ptr[reg_cur_src]);
vmovups(ptr[reg_ws], reg_v);
} else {
vmovups(reg_v, ptr[reg_ws]);
vmovups(ptr[reg_cur_src], reg_v);
for (int w = 1; w < stride_w_; ++w)
vmovups(ptr[reg_cur_src + w * vlen_], reg_zero);
}
add(reg_ws, vlen_);
add(reg_cur_src, stride_w_ * vlen_);
if (!(src_step_icb_ == iw_ || src_step_h_ == iw_)) {
Label skip_h_step;
add(reg_cur_iw, stride_w_);
cmp(reg_cur_iw, iw_);
jl(skip_h_step, T_NEAR);
if (src_to_ws_) {
add(reg_cur_src, (src_step_h_ - iw_) * vlen_);
} else {
mov(reg_cur_src_fin, reg_cur_src);
add(reg_cur_src_fin, (src_step_h_ - iw_) * vlen_);
Label ih_loop;
L(ih_loop);
for (int w = 0; w < stride_w_; ++w)
vmovups(ptr[reg_cur_src + w * vlen_], reg_zero);
add(reg_cur_src, stride_w_ * vlen_);
cmp(reg_cur_src, reg_cur_src_fin);
jl(ih_loop, T_NEAR);
}
xor_(reg_cur_iw, reg_cur_iw);
L(skip_h_step);
}
sub(reg_cur_os, vlen_);
jnz(is_loop, T_NEAR);
sub(reg_ws, reg_os);
}
void loop_is_nspc() {
using namespace Xbyak;
assert(is_nspc_);
mov(reg_cur_src, reg_src);
mov(reg_cur_iw, reg_iw_start);
if (isa == avx512_core) {
push(rcx); mov(reg_icb_remainder, reg_icb);
and_(reg_icb_remainder,
(vlen_ / typesize_) - 1); mov(reg_tail_mask, 1);
shl(reg_tail_mask, reg_icb_remainder.cvt8());
dec(reg_tail_mask);
pop(rcx);
switch (typesize_) {
case 4: kmovw(tail_mask, reg_tail_mask.cvt32()); break;
case 2: kmovd(tail_mask, reg_tail_mask.cvt32()); break;
case 1: kmovq(tail_mask, reg_tail_mask); break;
default: assert(!"Unsupported typesize");
}
}
auto load_reg = [this](const Xmm &vreg, const Reg64 ®,
const int64_t offset, const int load_size) {
if (isa == avx512_core) {
const Address &addr = ptr[reg + offset];
switch (typesize_) {
case 4: vmovups(vreg, addr); break;
case 2: vmovdqu16(vreg, addr); break;
case 1: vmovdqu8(vreg, addr); break;
default: assert(!"Unsupported typesize");
}
} else {
const bool is_ymm = load_size > 16;
if (is_ymm)
load_bytes(Ymm(vreg.getIdx()), reg, offset, load_size);
else
load_bytes(Xmm(vreg.getIdx()), reg, offset, load_size);
}
};
auto store_reg = [this](const Reg64 ®, const Xmm &vreg,
const int64_t offset, const int store_size) {
if (isa == avx512_core) {
const Address &addr = ptr[reg + offset];
switch (typesize_) {
case 4: vmovups(addr, vreg); break;
case 2: vmovdqu16(addr, vreg); break;
case 1: vmovdqu8(addr, vreg); break;
default: assert(!"Unsupported typesize");
}
} else {
const bool is_ymm = store_size > 16;
if (is_ymm)
store_bytes(Ymm(vreg.getIdx()), reg, offset, store_size);
else
store_bytes(vreg, reg, offset, store_size);
}
};
mov(reg_ws_copy, reg_ws);
shl(reg_icb, vlen_shift_);
const size_t w_step_factor = ic_ * typesize_;
const size_t max_load_store_bytes = isa == sse41
? typesize_ == 4 ? 16 : 8
: typesize_ == 4 ? 32
: 16;
const size_t load_store_size
= isa == avx512_core ? vlen_ : max_load_store_bytes;
size_t load_store_tail_size = (typesize_ == 1 ? max_load_store_bytes
: ic_tail_ * typesize_);
Label is_loop, ic_loop, ic_loop_tail, ic_loop_finish;
L(is_loop);
{
mov(reg_cur_src, reg_src);
mov(reg_ws, reg_ws_copy);
mov(reg_cur_icb, reg_icb);
L(ic_loop);
{
cmp(reg_cur_icb, load_store_size);
jl(ic_loop_tail, T_NEAR);
if (src_to_ws_) {
load_reg(reg_v, reg_cur_src, 0, load_store_size);
store_reg(reg_ws, reg_v, 0, load_store_size);
} else {
load_reg(reg_v, reg_ws, 0, load_store_size);
store_reg(reg_cur_src, reg_v, 0, load_store_size);
for (int w = 1; w < stride_w_; ++w)
store_reg(reg_cur_src, reg_zero, w * w_step_factor,
load_store_size);
}
add(reg_ws, load_store_size);
add(reg_cur_src, load_store_size);
sub(reg_cur_icb, load_store_size);
jmp(ic_loop, T_NEAR);
}
L(ic_loop_tail);
{
cmp(reg_cur_icb, 0);
je(ic_loop_finish, T_NEAR);
if (src_to_ws_) {
load_reg(reg_v | tail_mask, reg_cur_src, 0,
load_store_tail_size);
store_reg(
reg_ws, reg_v | tail_mask, 0, load_store_tail_size);
} else {
load_reg(
reg_v | tail_mask, reg_ws, 0, load_store_tail_size);
store_reg(reg_cur_src, reg_v | tail_mask, 0,
load_store_tail_size);
for (int w = 1; w < stride_w_; ++w)
store_reg(reg_cur_src, reg_zero | tail_mask,
w * w_step_factor, load_store_tail_size);
}
}
L(ic_loop_finish);
add(reg_ws_copy, w_step_factor);
add(reg_src, stride_w_ * w_step_factor);
const bool skip_oh_step = src_step_h_ == iw_;
if (!skip_oh_step) {
mov(reg_cur_src, reg_src);
Label skip_h_step;
add(reg_cur_iw, stride_w_);
cmp(reg_cur_iw, iw_);
jl(skip_h_step, T_NEAR);
if (src_to_ws_) {
add(reg_src, (src_step_h_ - iw_) * w_step_factor);
} else {
mov(reg_cur_src_fin, reg_cur_src);
add(reg_cur_src_fin, (src_step_h_ - iw_) * w_step_factor);
Label ih_loop_nhwc, ic_ih_loop_nhwc, ic_tail_ih_loop_nhwc,
ic_finish_ih_loop_nhwc;
L(ih_loop_nhwc);
mov(reg_cur_src, reg_src);
mov(reg_cur_icb, reg_icb);
L(ic_ih_loop_nhwc);
cmp(reg_cur_icb, load_store_size);
jl(ic_tail_ih_loop_nhwc, T_NEAR);
for (int w = 0; w < stride_w_; ++w)
store_reg(reg_cur_src, reg_zero, w * w_step_factor,
load_store_size);
add(reg_cur_src, load_store_size);
sub(reg_cur_icb, load_store_size);
jnz(ic_ih_loop_nhwc, T_NEAR);
L(ic_tail_ih_loop_nhwc);
cmp(reg_cur_icb, 0);
jle(ic_finish_ih_loop_nhwc, T_NEAR);
for (int w = 0; w < stride_w_; ++w)
store_reg(reg_cur_src, reg_zero | tail_mask,
w * w_step_factor, load_store_tail_size);
L(ic_finish_ih_loop_nhwc);
add(reg_src, stride_w_ * w_step_factor);
cmp(reg_src, reg_cur_src_fin);
jl(ih_loop_nhwc, T_NEAR);
}
xor_(reg_cur_iw, reg_cur_iw);
L(skip_h_step);
}
sub(reg_os, 1);
jnz(is_loop, T_NEAR);
}
}
void generate() override {
using namespace Xbyak;
assert(utils::one_of(isa, sse41, avx2, avx512_core));
preamble();
#define READ_PARAM(what) \
mov(reg_##what, ptr[abi_param1 + offsetof(call_params_t, what)])
READ_PARAM(src);
READ_PARAM(icb);
READ_PARAM(os);
READ_PARAM(iw_start);
READ_PARAM(ws);
#undef READ_PARAM
if (!src_to_ws_) {
switch (reg_zero.getBit() / 8) {
case 16 : uni_vpxor(reg_zero, reg_zero, reg_zero); break;
case 32 : {
Xbyak::Ymm ymm_z(reg_zero.getIdx());
uni_vpxor(ymm_z, ymm_z, ymm_z);
break;
}
case 64 : {
Xbyak::Zmm zmm_z(reg_zero.getIdx());
uni_vpxor(zmm_z, zmm_z, zmm_z);
break;
}
default: assert(!"rtus kernel failure");
}
}
if (is_nspc_) {
loop_is_nspc();
} else {
shl(reg_os, vlen_shift_);
Label icb_loop;
L(icb_loop);
loop_is();
add(reg_ws, ws_step_icb_ * vlen_);
add(reg_src, src_step_icb_ * vlen_);
sub(reg_icb, vlen_ / typesize_);
jnz(icb_loop, T_NEAR);
}
postamble();
uni_vzeroupper();
ret();
}
};
template <cpu_isa_t isa, typename conv_t>
inline status_t init_rtus_driver(conv_t *self) {
const auto &conf = *self->pd();
if (!conf.rtus_.reduce_src_) return status::success;
const auto &cd = *conf.desc();
const int ndims = conf.ndims();
const int stride_h = (conf.ndims() == 3) ? 1 : cd.strides[0];
const int stride_w = cd.strides[ndims - 3];
const bool is_bwd_data = cd.prop_kind == prop_kind::backward_data;
const auto &src_d = is_bwd_data ? *conf.diff_src_md() : *conf.src_md();
const int ih = ndims == 3 ? 1 : src_d.dims[2];
const int iw = src_d.dims[ndims - 1];
const int ic = src_d.dims[1];
const auto src_tag = memory_desc_wrapper(src_d).matches_one_of_tag(
format_tag::nhwc, format_tag::nwc);
const bool is_nspc = src_tag != format_tag::undef;
const int src_step_h = stride_h * iw;
const int src_step_icb = !is_nspc ? ih * iw : 1;
const int ws_step_icb = !is_nspc ? conf.jcp_.is : 1;
const bool src_to_ws = !is_bwd_data;
const size_t typesize
= types::data_type_size(self->pd()->invariant_src_md()->data_type);
CHECK(safe_ptr_assign(self->rtus_driver_,
new rtus_driver_t<isa>(iw, stride_w, src_step_h, src_step_icb,
ws_step_icb, src_to_ws, typesize, ic, is_nspc)));
return self->rtus_driver_->create_kernel();
}
inline int best_divider(int value, int min_divider, int max_divider,
bool find_max, int step = 1) {
using namespace dnnl::impl::utils;
max_divider = nstl::max(1, nstl::min(max_divider, value));
min_divider = nstl::max(1, nstl::min(min_divider, max_divider));
auto loss_ratio = [](int total, int chunk) {
return float(rnd_up(total, chunk) - total) / rnd_up(total, chunk);
};
float min_loss = FLT_MAX;
int x_divider = max_divider;
for (int divider = max_divider; divider >= min_divider; divider -= step) {
const float loss = loss_ratio(value, divider);
if ((find_max && loss < min_loss) || (!find_max && loss <= min_loss)) {
min_loss = loss;
x_divider = divider;
}
}
return x_divider;
}
using jcp_t = jit_1x1_conv_conf_t;
inline bool is_bcast_layout_nxc(const jcp_t &jcp) {
switch (jcp.prop_kind) {
case prop_kind::forward_training:
case prop_kind::forward_inference:
case prop_kind::backward_weights:
return utils::one_of(jcp.src_tag, format_tag::ndhwc,
format_tag::nhwc, format_tag::nwc);
case prop_kind::backward_data:
return utils::one_of(jcp.dst_tag, format_tag::ndhwc,
format_tag::nhwc, format_tag::nwc);
default: assert(!"invalid prop_kind"); return false;
}
}
inline bool is_load_layout_nxc(const jcp_t &jcp) {
return jcp.prop_kind == prop_kind::backward_weights
&& utils::one_of(jcp.dst_tag, format_tag::ndhwc, format_tag::nhwc,
format_tag::nwc);
}
inline bool is_out_layout_nxc(const jcp_t &jcp) {
switch (jcp.prop_kind) {
case prop_kind::forward_training:
case prop_kind::forward_inference:
return utils::one_of(jcp.dst_tag, format_tag::ndhwc,
format_tag::nhwc, format_tag::nwc);
case prop_kind::backward_data:
return utils::one_of(jcp.src_tag, format_tag::ndhwc,
format_tag::nhwc, format_tag::nwc);
case prop_kind::backward_weights: return false;
default: assert(!"invalid prop_kind"); return false;
}
}
inline size_t get_bcast_u_offset(const jcp_t &jcp) {
return is_bcast_layout_nxc(jcp) ? jcp.ic : jcp.ic_block;
}
inline size_t get_bcast_j_offset(const jcp_t &jcp) {
return is_bcast_layout_nxc(jcp) ? jcp.reduce_dim : jcp.reduce_loop_unroll;
}
inline size_t get_bcast_offset(const jcp_t &jcp, int u, int j) {
size_t offset;
if (utils::one_of(jcp.prop_kind, prop_kind::forward_training,
prop_kind::forward_inference, prop_kind::backward_data)) {
assert(jcp.reduce_loop_unroll == jcp.reduce_block);
if (is_bcast_layout_nxc(jcp) || u != jcp.reduce_loop_unroll) {
offset = j * get_bcast_j_offset(jcp) + u;
} else {
offset = (jcp.bcast_dim + j) * get_bcast_j_offset(jcp);
}
} else {
offset = u * get_bcast_u_offset(jcp) + j;
}
return sizeof(float) * offset;
}
inline size_t get_load_u_offset(const jcp_t &jcp) {
return is_load_layout_nxc(jcp) ? jcp.oc : jcp.oc_block;
}
inline size_t get_load_i_offset(const jcp_t &jcp) {
return is_load_layout_nxc(jcp) ? jcp.oc_block : jcp.os;
}
inline size_t get_load_bwd_w_offset(const jcp_t &jcp, int i, int u0) {
if (is_load_layout_nxc(jcp)) {
return i * get_load_i_offset(jcp) + u0 * get_load_u_offset(jcp);
} else {
return (i * get_load_i_offset(jcp) + u0) * get_load_u_offset(jcp);
}
}
inline size_t get_output_i_offset(
const jcp_t &jcp, bool ignore_dw_conv = false) {
if (is_out_layout_nxc(jcp)) {
return jcp.load_block;
} else {
return (!ignore_dw_conv && jcp.with_dw_conv ? jcp.ow : jcp.bcast_dim)
* jcp.load_block;
}
}
inline size_t get_output_j_offset(const jcp_t &jcp) {
return is_out_layout_nxc(jcp) ? jcp.load_dim : jcp.load_block;
}
inline size_t get_load_loop_output_fwd_offset(
const jcp_t &jcp, int load_loop_blk, bool ignore_dw_conv = false) {
size_t offset = load_loop_blk * jcp.oc_block * sizeof(float);
if (!is_out_layout_nxc(jcp)) {
offset *= !ignore_dw_conv && jcp.with_dw_conv ? jcp.ow : jcp.os;
}
return offset;
}
inline size_t get_load_loop_output_bwd_d_offset(
const jcp_t &jcp, int load_loop_blk) {
size_t offset = load_loop_blk * jcp.ic_block * sizeof(float);
if (!is_out_layout_nxc(jcp)) { offset *= jcp.os; }
return offset;
}
} } } }
#endif