/*
 * Copyright (c) 2019, Alliance for Open Media. All rights reserved
 *
 * This source code is subject to the terms of the BSD 2 Clause License and
 * the Alliance for Open Media Patent License 1.0. If the BSD 2 Clause License
 * was not distributed with this source code in the LICENSE file, you can
 * obtain it at www.aomedia.org/license/software. If the Alliance for Open
 * Media Patent License 1.0 was not distributed with this source code in the
 * PATENTS file, you can obtain it at www.aomedia.org/license/patent.
 */

#include <emmintrin.h>

#include "aom_dsp/x86/synonyms.h"
#include "av1/common/warped_motion.h"
#include "config/av1_rtcd.h"

int64_t av1_calc_frame_error_sse2(const uint8_t *const ref, int ref_stride,
                                  const uint8_t *const dst, int p_width,
                                  int p_height, int dst_stride) {
  int64_t sum_error = 0;
  int i, j;
  __m128i row_error, col_error;
  __m128i zero = _mm_setzero_si128();
  __m128i dup_255 = _mm_set1_epi16(255);
  col_error = zero;
  for (i = 0; i < (p_height); i++) {
    row_error = zero;
    for (j = 0; j < (p_width / 16); j++) {
      __m128i ref_8 =
          _mm_load_si128((__m128i *)(ref + (j * 16) + (i * ref_stride)));
      __m128i dst_8 =
          _mm_load_si128((__m128i *)(dst + (j * 16) + (i * dst_stride)));
      __m128i ref_16_lo = _mm_unpacklo_epi8(ref_8, zero);
      __m128i ref_16_hi = _mm_unpackhi_epi8(ref_8, zero);
      __m128i dst_16_lo = _mm_unpacklo_epi8(dst_8, zero);
      __m128i dst_16_hi = _mm_unpackhi_epi8(dst_8, zero);

      __m128i diff_1 =
          _mm_add_epi16(_mm_sub_epi16(dst_16_lo, ref_16_lo), dup_255);
      __m128i diff_2 =
          _mm_add_epi16(_mm_sub_epi16(dst_16_hi, ref_16_hi), dup_255);

      __m128i error_1_lo =
          _mm_set_epi32(error_measure_lut[_mm_extract_epi16(diff_1, 3)],
                        error_measure_lut[_mm_extract_epi16(diff_1, 2)],
                        error_measure_lut[_mm_extract_epi16(diff_1, 1)],
                        error_measure_lut[_mm_extract_epi16(diff_1, 0)]);
      __m128i error_1_hi =
          _mm_set_epi32(error_measure_lut[_mm_extract_epi16(diff_1, 7)],
                        error_measure_lut[_mm_extract_epi16(diff_1, 6)],
                        error_measure_lut[_mm_extract_epi16(diff_1, 5)],
                        error_measure_lut[_mm_extract_epi16(diff_1, 4)]);
      __m128i error_2_lo =
          _mm_set_epi32(error_measure_lut[_mm_extract_epi16(diff_2, 3)],
                        error_measure_lut[_mm_extract_epi16(diff_2, 2)],
                        error_measure_lut[_mm_extract_epi16(diff_2, 1)],
                        error_measure_lut[_mm_extract_epi16(diff_2, 0)]);
      __m128i error_2_hi =
          _mm_set_epi32(error_measure_lut[_mm_extract_epi16(diff_2, 7)],
                        error_measure_lut[_mm_extract_epi16(diff_2, 6)],
                        error_measure_lut[_mm_extract_epi16(diff_2, 5)],
                        error_measure_lut[_mm_extract_epi16(diff_2, 4)]);

      __m128i error_1 = _mm_add_epi32(error_1_lo, error_1_hi);
      __m128i error_2 = _mm_add_epi32(error_2_lo, error_2_hi);
      __m128i error_1_2 = _mm_add_epi32(error_1, error_2);

      row_error = _mm_add_epi32(row_error, error_1_2);
    }
    __m128i col_error_lo = _mm_unpacklo_epi32(row_error, zero);
    __m128i col_error_hi = _mm_unpackhi_epi32(row_error, zero);
    __m128i col_error_temp = _mm_add_epi64(col_error_lo, col_error_hi);
    col_error = _mm_add_epi64(col_error, col_error_temp);
    // Error summation for remaining width, which is not multiple of 16
    if (p_width & 0xf) {
      for (int l = j * 16; l < p_width; ++l) {
        sum_error += (int64_t)error_measure(dst[l + i * dst_stride] -
                                            ref[l + i * ref_stride]);
      }
    }
  }
  int64_t sum_error_d_0, sum_error_d_1;
  xx_storel_64(&sum_error_d_0, col_error);
  xx_storel_64(&sum_error_d_1, _mm_srli_si128(col_error, 8));
  sum_error = (sum_error + sum_error_d_0 + sum_error_d_1);
  return sum_error;
}