TestPrimitivesAndOr.c

/* test_andor.c
 * vi:ts=4 sw=4
 *
 * (c) Copyright 2012 Hewlett-Packard Development Company, L.P.
 * 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,
 * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
 * or implied. See the License for the specific language governing
 * permissions and limitations under the License.
 */
 
#include <freerdp/config.h>
 
#include <winpr/sysinfo.h>
 
#include "prim_test.h"
 
#define FUNC_TEST_SIZE 65536
 
#define VALUE (0xA5A5A5A5U)
 
/* ========================================================================= */
static BOOL test_and_32u_impl(const char* name, fn_andC_32u_t fkt, const UINT32* src,
                              const UINT32 val, UINT32* dst, size_t size)
{
  pstatus_t status = fkt(src, val, dst, WINPR_ASSERTING_INT_CAST(int32_t, size));
  if (status != PRIMITIVES_SUCCESS)
    return FALSE;
 
  for (size_t i = 0; i < size; ++i)
  {
    if (dst[i] != (src[i] & val))
    {
 
      printf("AND %s FAIL[%" PRIuz "] 0x%08" PRIx32 "&0x%08" PRIx32 "=0x%08" PRIx32
             ", got 0x%08" PRIx32 "\n",
             name, i, src[i], val, (src[i] & val), dst[i]);
 
      return FALSE;
    }
  }
 
  return TRUE;
}
 
static BOOL test_and_32u_func(void)
{
  UINT32 src[FUNC_TEST_SIZE + 3] = WINPR_C_ARRAY_INIT;
  UINT32 dst[FUNC_TEST_SIZE + 3] = WINPR_C_ARRAY_INIT;
 
  if (winpr_RAND(src, sizeof(src)) < 0)
    return FALSE;
 
  if (!test_and_32u_impl("generic->andC_32u aligned", generic->andC_32u, src + 1, VALUE, dst + 1,
                         FUNC_TEST_SIZE))
    return FALSE;
  if (!test_and_32u_impl("generic->andC_32u unaligned", generic->andC_32u, src + 1, VALUE,
                         dst + 2, FUNC_TEST_SIZE))
    return FALSE;
  if (!test_and_32u_impl("optimized->andC_32u aligned", optimized->andC_32u, src + 1, VALUE,
                         dst + 1, FUNC_TEST_SIZE))
    return FALSE;
  if (!test_and_32u_impl("optimized->andC_32u unaligned", optimized->andC_32u, src + 1, VALUE,
                         dst + 2, FUNC_TEST_SIZE))
    return FALSE;
 
  return TRUE;
}
 
/* ------------------------------------------------------------------------- */
static BOOL test_and_32u_speed(void)
{
  UINT32 src[MAX_TEST_SIZE + 3] = WINPR_C_ARRAY_INIT;
  UINT32 dst[MAX_TEST_SIZE + 3] = WINPR_C_ARRAY_INIT;
 
  if (winpr_RAND(src, sizeof(src)) < 0)
    return FALSE;
 
  if (!speed_test("andC_32u", "aligned", g_Iterations, (speed_test_fkt)generic->andC_32u,
                  (speed_test_fkt)optimized->andC_32u, src + 1, VALUE, dst + 1, MAX_TEST_SIZE))
    return FALSE;
  if (!speed_test("andC_32u", "unaligned", g_Iterations, (speed_test_fkt)generic->andC_32u,
                  (speed_test_fkt)optimized->andC_32u, src + 1, VALUE, dst + 2, MAX_TEST_SIZE))
    return FALSE;
 
  return TRUE;
}
 
/* ========================================================================= */
static BOOL check(const UINT32* src, const UINT32* dst, UINT32 size, UINT32 value)
{
  for (UINT32 i = 0; i < size; ++i)
  {
    if (dst[i] != (src[i] | value))
    {
      printf("OR-general general FAIL[%" PRIu32 "] 0x%08" PRIx32 "&0x%08" PRIx32
             "=0x%08" PRIx32 ", got 0x%08" PRIx32 "\n",
             i, src[i], value, src[i] | value, dst[i]);
      return FALSE;
    }
  }
 
  return TRUE;
}
 
static BOOL test_or_32u_func(void)
{
  pstatus_t status = 0;
  UINT32 src[FUNC_TEST_SIZE + 3] = WINPR_C_ARRAY_INIT;
  UINT32 dst[FUNC_TEST_SIZE + 3] = WINPR_C_ARRAY_INIT;
 
  if (winpr_RAND(src, sizeof(src)) < 0)
    return FALSE;
 
  status = generic->orC_32u(src + 1, VALUE, dst + 1, FUNC_TEST_SIZE);
  if (status != PRIMITIVES_SUCCESS)
    return FALSE;
 
  if (!check(src + 1, dst + 1, FUNC_TEST_SIZE, VALUE))
    return FALSE;
 
  status = optimized->orC_32u(src + 1, VALUE, dst + 1, FUNC_TEST_SIZE);
  if (status != PRIMITIVES_SUCCESS)
    return FALSE;
 
  if (!check(src + 1, dst + 1, FUNC_TEST_SIZE, VALUE))
    return FALSE;
 
  return TRUE;
}
 
/* ------------------------------------------------------------------------- */
static BOOL test_or_32u_speed(void)
{
  UINT32 src[FUNC_TEST_SIZE + 3] = WINPR_C_ARRAY_INIT;
  UINT32 dst[FUNC_TEST_SIZE + 3] = WINPR_C_ARRAY_INIT;
 
  if (winpr_RAND(src, sizeof(src)) < 0)
    return FALSE;
 
  return (speed_test("add16s", "aligned", g_Iterations, (speed_test_fkt)generic->orC_32u,
                     (speed_test_fkt)optimized->orC_32u, src + 1, VALUE, dst + 1,
                     FUNC_TEST_SIZE));
}
 
int TestPrimitivesAndOr(int argc, char* argv[])
{
  WINPR_UNUSED(argc);
  WINPR_UNUSED(argv);
 
  prim_test_setup(FALSE);
 
  if (!test_and_32u_func())
    return -1;
 
  if (!test_or_32u_func())
    return -1;
 
  if (g_TestPrimitivesPerformance)
  {
    if (!test_and_32u_speed())
      return -1;
    if (!test_or_32u_speed())
      return -1;
  }
 
  return 0;
}