/* IFUNC resolver function for CPU specific functions.

   32/64 bit S/390 version.

   Copyright (C) 2015-2018 Free Software Foundation, Inc.

   This file is part of the GNU C Library.

   The GNU C Library is free software; you can redistribute it and/or

   modify it under the terms of the GNU Lesser General Public

   License as published by the Free Software Foundation; either

   version 2.1 of the License, or (at your option) any later version.

   The GNU C Library is distributed in the hope that it will be useful,

   but WITHOUT ANY WARRANTY; without even the implied warranty of

   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU

   Lesser General Public License for more details.

   You should have received a copy of the GNU Lesser General Public

   License along with the GNU C Library; if not, see

   <http://www.gnu.org/licenses/>.  */

#include <unistd.h>

#include <dl-procinfo.h>

#define S390_STFLE_BITS_Z10  34 /* General instructions extension */

#define S390_STFLE_BITS_Z196 45 /* Distinct operands, pop ... */

#define S390_IS_Z196(STFLE_BITS)			\

  ((STFLE_BITS & (1ULL << (63 - S390_STFLE_BITS_Z196))) != 0)

#define S390_IS_Z10(STFLE_BITS)				\

  ((STFLE_BITS & (1ULL << (63 - S390_STFLE_BITS_Z10))) != 0)

#define S390_STORE_STFLE(STFLE_BITS)					\

  /* We want just 1 double word to be returned.  */			\

  register unsigned long reg0 __asm__("0") = 0;				\

									\

  __asm__ __volatile__(".machine push"        "\n\t"			\

		       ".machine \"z9-109\""  "\n\t"			\

		       ".machinemode \"zarch_nohighgprs\"\n\t"		\

		       "stfle %0"             "\n\t"			\

		       ".machine pop"         "\n"			\

		       : "=QS" (STFLE_BITS), "+d" (reg0)		\

		       : : "cc");

#define s390_libc_ifunc_init()						\

  unsigned long long stfle_bits = 0ULL;					\

  if (__glibc_likely ((hwcap & HWCAP_S390_STFLE)			\

		      && (hwcap & HWCAP_S390_ZARCH)			\

		      && (hwcap & HWCAP_S390_HIGH_GPRS)))		\

    {									\

      S390_STORE_STFLE (stfle_bits);					\

    }

#define s390_libc_ifunc(TYPE_FUNC, RESOLVERFUNC, FUNC)			\

  /* Make the declarations of the optimized functions hidden in order

     to prevent GOT slots being generated for them. */			\

  extern __typeof (TYPE_FUNC) RESOLVERFUNC##_z196 attribute_hidden;	\

  extern __typeof (TYPE_FUNC) RESOLVERFUNC##_z10 attribute_hidden;      \

  extern __typeof (TYPE_FUNC) RESOLVERFUNC##_default attribute_hidden;  \

  __ifunc (TYPE_FUNC, FUNC,						\

	   __glibc_likely (S390_IS_Z196 (stfle_bits))			\

	   ? RESOLVERFUNC##_z196					\

	   : __glibc_likely (S390_IS_Z10 (stfle_bits))			\

	     ? RESOLVERFUNC##_z10					\

	     : RESOLVERFUNC##_default,					\

	   unsigned long int hwcap, s390_libc_ifunc_init);

#define s390_vx_libc_ifunc(FUNC)		\

  s390_vx_libc_ifunc2_redirected(FUNC, FUNC, FUNC)

#define s390_vx_libc_ifunc_redirected(TYPE_FUNC, FUNC)	\

  s390_vx_libc_ifunc2_redirected(TYPE_FUNC, FUNC, FUNC)

#define s390_vx_libc_ifunc2(RESOLVERFUNC, FUNC)	\

  s390_vx_libc_ifunc2_redirected(FUNC, RESOLVERFUNC, FUNC)

#define s390_vx_libc_ifunc_init()

#define s390_vx_libc_ifunc2_redirected(TYPE_FUNC, RESOLVERFUNC, FUNC)	\

  /* Make the declarations of the optimized functions hidden in order

     to prevent GOT slots being generated for them.  */			\

  extern __typeof (TYPE_FUNC) RESOLVERFUNC##_vx attribute_hidden;	\

  extern __typeof (TYPE_FUNC) RESOLVERFUNC##_c attribute_hidden;	\

  __ifunc (TYPE_FUNC, FUNC,						\

	   (hwcap & HWCAP_S390_VX)					\

	   ? RESOLVERFUNC##_vx						\

	   : RESOLVERFUNC##_c,						\

	   unsigned long int hwcap, s390_vx_libc_ifunc_init);

#define s390_libc_ifunc_expr_init()

#define s390_libc_ifunc_expr(TYPE_FUNC, FUNC, EXPR)		\

  __ifunc (TYPE_FUNC, FUNC, EXPR, unsigned long int hwcap,	\

	   s390_libc_ifunc_expr_init);