// Copyright 2019 Google LLC
//
// This source code is licensed under the BSD-style license found in the
// LICENSE file in the root directory of this source tree.

$assert CHANNEL_TILE % 4 == 0
$assert CHANNEL_TILE >= 4
$assert PIXEL_TILE == 1
$ABC = "0123456789ABCDEFGHIJKLMN"
#include <assert.h>

#include <xmmintrin.h>

#include <xnnpack/bilinear.h>


void xnn_f32_bilinear_ukernel__sse_c${CHANNEL_TILE}${"" if PIXEL_TILE == 1 else "x%d" % PIXEL_TILE}(
    size_t output_pixels,
    size_t channels,
    const float**restrict input,
    size_t input_offset,
    const float*restrict weights,
    float*restrict output,
    size_t output_increment)
{
  assert(output_pixels != 0);
  assert(channels != 0);
  assert(channels % sizeof(float) == 0);

  do {
    const float* i0 = (const float*) ((uintptr_t) input[0] + input_offset);
    const float* i1 = (const float*) ((uintptr_t) input[1] + input_offset);
    const float* i2 = (const float*) ((uintptr_t) input[2] + input_offset);
    const float* i3 = (const float*) ((uintptr_t) input[3] + input_offset);
    input += 4;

    __m128 valphahv = _mm_loadl_pi(_mm_undefined_ps(), (const __m64*) weights);
    valphahv = _mm_unpacklo_ps(valphahv, valphahv);
    const __m128 valphah = _mm_movelh_ps(valphahv, valphahv);
    const __m128 valphav = _mm_movehl_ps(valphahv, valphahv);
    weights += 2;

    size_t c = channels;
    for (; c >= ${CHANNEL_TILE} * sizeof(float); c -= ${CHANNEL_TILE} * sizeof(float)) {
      const __m128 vtl${ABC[0:4]} = _mm_loadu_ps(i0);
      const __m128 vtr${ABC[0:4]} = _mm_loadu_ps(i1);
      const __m128 vbl${ABC[0:4]} = _mm_loadu_ps(i2);
      const __m128 vbr${ABC[0:4]} = _mm_loadu_ps(i3);
      $for C in range(4, CHANNEL_TILE, 4):
        const __m128 vtl${ABC[C:C+4]} = _mm_loadu_ps(i0 + ${C});
        const __m128 vtr${ABC[C:C+4]} = _mm_loadu_ps(i1 + ${C});
        const __m128 vbl${ABC[C:C+4]} = _mm_loadu_ps(i2 + ${C});
        const __m128 vbr${ABC[C:C+4]} = _mm_loadu_ps(i3 + ${C});
      i0 += ${CHANNEL_TILE};
      i1 += ${CHANNEL_TILE};
      i2 += ${CHANNEL_TILE};
      i3 += ${CHANNEL_TILE};

      $for C in range(0, CHANNEL_TILE, 4):
        const __m128 vtd${ABC[C:C+4]} = _mm_sub_ps(vtr${ABC[C:C+4]}, vtl${ABC[C:C+4]});
        const __m128 vbd${ABC[C:C+4]} = _mm_sub_ps(vbr${ABC[C:C+4]}, vbl${ABC[C:C+4]});

      $for C in range(0, CHANNEL_TILE, 4):
        const __m128 vt${ABC[C:C+4]} = _mm_add_ps(vtl${ABC[C:C+4]}, _mm_mul_ps(vtd${ABC[C:C+4]}, valphah));
        const __m128 vb${ABC[C:C+4]} = _mm_add_ps(vbl${ABC[C:C+4]}, _mm_mul_ps(vbd${ABC[C:C+4]}, valphah));

      $for C in range(0, CHANNEL_TILE, 4):
        const __m128 vd${ABC[C:C+4]} = _mm_sub_ps(vb${ABC[C:C+4]}, vt${ABC[C:C+4]});

      $for C in range(0, CHANNEL_TILE, 4):
        const __m128 vo${ABC[C:C+4]} = _mm_add_ps(vt${ABC[C:C+4]}, _mm_mul_ps(vd${ABC[C:C+4]}, valphav));

      _mm_storeu_ps(output, vo${ABC[0:4]});
      $for C in range(4, CHANNEL_TILE, 4):
        _mm_storeu_ps(output + ${C}, vo${ABC[C:C+4]});
      output += ${CHANNEL_TILE};
    }
    $if CHANNEL_TILE > 4:
      for (; c >= 4 * sizeof(float); c -= 4 * sizeof(float)) {
        const __m128 vtl0123 = _mm_loadu_ps(i0);
        const __m128 vtr0123 = _mm_loadu_ps(i1);
        const __m128 vbl0123 = _mm_loadu_ps(i2);
        const __m128 vbr0123 = _mm_loadu_ps(i3);
        i0 += 4;
        i1 += 4;
        i2 += 4;
        i3 += 4;

        const __m128 vtd0123 = _mm_sub_ps(vtr0123, vtl0123);
        const __m128 vbd0123 = _mm_sub_ps(vbr0123, vbl0123);

        const __m128 vt0123 = _mm_add_ps(vtl0123, _mm_mul_ps(vtd0123, valphah));
        const __m128 vb0123 = _mm_add_ps(vbl0123, _mm_mul_ps(vbd0123, valphah));

        const __m128 vd0123 = _mm_sub_ps(vb0123, vt0123);

        const __m128 vo0123 = _mm_add_ps(vt0123, _mm_mul_ps(vd0123, valphav));

        _mm_storeu_ps(output, vo0123);
        output += 4;
      }
    if XNN_UNLIKELY(c != 0) {
      const __m128 vtl0123 = _mm_loadu_ps(i0);
      const __m128 vtr0123 = _mm_loadu_ps(i1);
      const __m128 vbl0123 = _mm_loadu_ps(i2);
      const __m128 vbr0123 = _mm_loadu_ps(i3);

      const __m128 vtd0123 = _mm_sub_ps(vtr0123, vtl0123);
      const __m128 vbd0123 = _mm_sub_ps(vbr0123, vbl0123);

      const __m128 vt0123 = _mm_add_ps(vtl0123, _mm_mul_ps(vtd0123, valphah));
      const __m128 vb0123 = _mm_add_ps(vbl0123, _mm_mul_ps(vbd0123, valphah));

      const __m128 vd0123 = _mm_sub_ps(vb0123, vt0123);

      __m128 vo0123 = _mm_add_ps(vt0123, _mm_mul_ps(vd0123, valphav));

      if (c & (2 * sizeof(float))) {
        _mm_storel_pi((__m64*) output, vo0123);
        vo0123 = _mm_movehl_ps(vo0123, vo0123);
        output += 2;
      }
      if (c & (1 * sizeof(float))) {
        _mm_store_ss(output, vo0123);
        output += 1;
      }
    }

    output = (float*) ((uintptr_t) output + output_increment);
  } while (--output_pixels != 0);
}