/* FreeRDP: A Remote Desktop Protocol Client

 * Optimized routines to set a chunk of memory to a constant.

 * 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.

 *

 */

#ifdef HAVE_CONFIG_H

#include "config.h"

#endif

#include <string.h>

#include <freerdp/types.h>

#include <freerdp/primitives.h>

#include <winpr/sysinfo.h>

#ifdef WITH_SSE2

#include <emmintrin.h>

#endif /* WITH_SSE2 */

#ifdef WITH_IPP

#include <ipps.h>

#endif /* WITH_IPP */

#include "prim_internal.h"

static primitives_t* generic = NULL;

/* ========================================================================= */

#ifdef WITH_SSE2

#if !defined(WITH_IPP) || defined(ALL_PRIMITIVES_VERSIONS)

static pstatus_t sse2_set_8u(BYTE val, BYTE* pDst, UINT32 len)

{

	BYTE byte, *dptr;

	__m128i xmm0;

	size_t count;

	if (len < 16)

		return generic->set_8u(val, pDst, len);

	byte = val;

	dptr = (BYTE*)pDst;

	/* Seek 16-byte alignment. */

	while ((ULONG_PTR)dptr & 0x0f)

	{

		*dptr++ = byte;

		if (--len == 0)

			return PRIMITIVES_SUCCESS;

	}

	xmm0 = _mm_set1_epi8(byte);

	/* Cover 256-byte chunks via SSE register stores. */

	count = len >> 8;

	len -= count << 8;

	/* Do 256-byte chunks using one XMM register. */

	while (count--)

	{

		_mm_store_si128((__m128i*)dptr, xmm0);

		dptr += 16;

		_mm_store_si128((__m128i*)dptr, xmm0);

		dptr += 16;

		_mm_store_si128((__m128i*)dptr, xmm0);

		dptr += 16;

		_mm_store_si128((__m128i*)dptr, xmm0);

		dptr += 16;

		_mm_store_si128((__m128i*)dptr, xmm0);

		dptr += 16;

		_mm_store_si128((__m128i*)dptr, xmm0);

		dptr += 16;

		_mm_store_si128((__m128i*)dptr, xmm0);

		dptr += 16;

		_mm_store_si128((__m128i*)dptr, xmm0);

		dptr += 16;

		_mm_store_si128((__m128i*)dptr, xmm0);

		dptr += 16;

		_mm_store_si128((__m128i*)dptr, xmm0);

		dptr += 16;

		_mm_store_si128((__m128i*)dptr, xmm0);

		dptr += 16;

		_mm_store_si128((__m128i*)dptr, xmm0);

		dptr += 16;

		_mm_store_si128((__m128i*)dptr, xmm0);

		dptr += 16;

		_mm_store_si128((__m128i*)dptr, xmm0);

		dptr += 16;

		_mm_store_si128((__m128i*)dptr, xmm0);

		dptr += 16;

		_mm_store_si128((__m128i*)dptr, xmm0);

		dptr += 16;

	}

	/* Cover 16-byte chunks via SSE register stores. */

	count = len >> 4;

	len -= count << 4;

	/* Do 16-byte chunks using one XMM register. */

	while (count--)

	{

		_mm_store_si128((__m128i*)dptr, xmm0);

		dptr += 16;

	}

	/* Do leftover bytes. */

	while (len--)

		*dptr++ = byte;

	return PRIMITIVES_SUCCESS;

}

#endif /* !defined(WITH_IPP) || defined(ALL_PRIMITIVES_VERSIONS) */

#endif /* WITH_SSE2 */

/* ------------------------------------------------------------------------- */

#ifdef WITH_SSE2

#if !defined(WITH_IPP) || defined(ALL_PRIMITIVES_VERSIONS)

static pstatus_t sse2_set_32u(UINT32 val, UINT32* pDst, UINT32 len)

{

	const primitives_t* prim = primitives_get_generic();

	UINT32* dptr = (UINT32*)pDst;

	__m128i xmm0;

	size_t count;

	/* If really short, just do it here. */

	if (len < 32)

	{

		while (len--)

			*dptr++ = val;

		return PRIMITIVES_SUCCESS;

	}

	/* Assure we can reach 16-byte alignment. */

	if (((ULONG_PTR)dptr & 0x03) != 0)

	{

		return prim->set_32u(val, pDst, len);

	}

	/* Seek 16-byte alignment. */

	while ((ULONG_PTR)dptr & 0x0f)

	{

		*dptr++ = val;

		if (--len == 0)

			return PRIMITIVES_SUCCESS;

	}

	xmm0 = _mm_set1_epi32(val);

	/* Cover 256-byte chunks via SSE register stores. */

	count = len >> 6;

	len -= count << 6;

	/* Do 256-byte chunks using one XMM register. */

	while (count--)

	{

		_mm_store_si128((__m128i*)dptr, xmm0);

		dptr += 4;

		_mm_store_si128((__m128i*)dptr, xmm0);

		dptr += 4;

		_mm_store_si128((__m128i*)dptr, xmm0);

		dptr += 4;

		_mm_store_si128((__m128i*)dptr, xmm0);

		dptr += 4;

		_mm_store_si128((__m128i*)dptr, xmm0);

		dptr += 4;

		_mm_store_si128((__m128i*)dptr, xmm0);

		dptr += 4;

		_mm_store_si128((__m128i*)dptr, xmm0);

		dptr += 4;

		_mm_store_si128((__m128i*)dptr, xmm0);

		dptr += 4;

		_mm_store_si128((__m128i*)dptr, xmm0);

		dptr += 4;

		_mm_store_si128((__m128i*)dptr, xmm0);

		dptr += 4;

		_mm_store_si128((__m128i*)dptr, xmm0);

		dptr += 4;

		_mm_store_si128((__m128i*)dptr, xmm0);

		dptr += 4;

		_mm_store_si128((__m128i*)dptr, xmm0);

		dptr += 4;

		_mm_store_si128((__m128i*)dptr, xmm0);

		dptr += 4;

		_mm_store_si128((__m128i*)dptr, xmm0);

		dptr += 4;

		_mm_store_si128((__m128i*)dptr, xmm0);

		dptr += 4;

	}

	/* Cover 16-byte chunks via SSE register stores. */

	count = len >> 2;

	len -= count << 2;

	/* Do 16-byte chunks using one XMM register. */

	while (count--)

	{

		_mm_store_si128((__m128i*)dptr, xmm0);

		dptr += 4;

	}

	/* Do leftover bytes. */

	while (len--)

		*dptr++ = val;

	return PRIMITIVES_SUCCESS;

}

/* ------------------------------------------------------------------------- */

static pstatus_t sse2_set_32s(INT32 val, INT32* pDst, UINT32 len)

{

	UINT32 uval = *((UINT32*)&val;;

	return sse2_set_32u(uval, (UINT32*)pDst, len);

}

#endif /* !defined(WITH_IPP) || defined(ALL_PRIMITIVES_VERSIONS) */

#endif /* WITH_SSE2 */

#ifdef WITH_IPP

/* ------------------------------------------------------------------------- */

static pstatus_t ipp_wrapper_set_32u(UINT32 val, UINT32* pDst, INT32 len)

{

	/* A little type conversion, then use the signed version. */

	INT32 sval = *((INT32*)&val;;

	return ippsSet_32s(sval, (INT32*)pDst, len);

}

#endif

/* ------------------------------------------------------------------------- */

void primitives_init_set_opt(primitives_t* prims)

{

	generic = primitives_get_generic();

	primitives_init_set(prims);

	/* Pick tuned versions if possible. */

#ifdef WITH_IPP

	prims->set_8u = (__set_8u_t)ippsSet_8u;

	prims->set_32s = (__set_32s_t)ippsSet_32s;

	prims->set_32u = (__set_32u_t)ipp_wrapper_set_32u;

	prims->zero = (__zero_t)ippsZero_8u;

#elif defined(WITH_SSE2)

	if (IsProcessorFeaturePresent(PF_SSE2_INSTRUCTIONS_AVAILABLE))

	{

		prims->set_8u = sse2_set_8u;

		prims->set_32s = sse2_set_32s;

		prims->set_32u = sse2_set_32u;

	}

#endif

}