sysdeps/s390/multiarch/ifunc-resolve.h

   1 /* IFUNC resolver function for CPU specific functions.
   2    32/64 bit S/390 version.
   3    Copyright (C) 2015-2016 Free Software Foundation, Inc.
   4    This file is part of the GNU C Library.
   5
   6    The GNU C Library is free software; you can redistribute it and/or
   7    modify it under the terms of the GNU Lesser General Public
   8    License as published by the Free Software Foundation; either
   9    version 2.1 of the License, or (at your option) any later version.
  10
  11    The GNU C Library is distributed in the hope that it will be useful,
  12    but WITHOUT ANY WARRANTY; without even the implied warranty of
  13    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  14    Lesser General Public License for more details.
  15
  16    You should have received a copy of the GNU Lesser General Public
  17    License along with the GNU C Library; if not, see
  18    <http://www.gnu.org/licenses/>.  */
  19
  20 #include <unistd.h>
  21 #include <dl-procinfo.h>
  22
  23 #define S390_STFLE_BITS_Z10  34 /* General instructions extension */
  24 #define S390_STFLE_BITS_Z196 45 /* Distinct operands, pop ... */
  25
  26 #define S390_IS_Z196(STFLE_BITS)                        \
  27   ((STFLE_BITS & (1ULL << (63 - S390_STFLE_BITS_Z196))) != 0)
  28
  29 #define S390_IS_Z10(STFLE_BITS)                         \
  30   ((STFLE_BITS & (1ULL << (63 - S390_STFLE_BITS_Z10))) != 0)
  31
  32 #define S390_STORE_STFLE(STFLE_BITS)                                    \
  33   /* We want just 1 double word to be returned.  */                     \
  34   register unsigned long reg0 __asm__("0") = 0;                         \
  35                                                                         \
  36   __asm__ __volatile__(".machine push"        "\n\t"                    \
  37                        ".machine \"z9-109\""  "\n\t"                    \
  38                        ".machinemode \"zarch_nohighgprs\"\n\t"          \
  39                        "stfle %0"             "\n\t"                    \
  40                        ".machine pop"         "\n"                      \
  41                        : "=QS" (STFLE_BITS), "+d" (reg0)                \
  42                        : : "cc");
  43 #define s390_libc_ifunc_init()                                          \
  44   unsigned long long stfle_bits = 0ULL;                                 \
  45   if (__glibc_likely((dl_hwcap & HWCAP_S390_STFLE)                      \
  46                      && (dl_hwcap & HWCAP_S390_ZARCH)                   \
  47                      && (dl_hwcap & HWCAP_S390_HIGH_GPRS)))             \
  48     {                                                                   \
  49       S390_STORE_STFLE (stfle_bits);                                    \
  50     }
  51
  52 #define s390_libc_ifunc(TYPE_FUNC, RESOLVERFUNC, FUNC)                  \
  53   /* Make the declarations of the optimized functions hidden in order
  54      to prevent GOT slots being generated for them. */                  \
  55   extern __typeof (TYPE_FUNC) RESOLVERFUNC##_z196 attribute_hidden;     \
  56   extern __typeof (TYPE_FUNC) RESOLVERFUNC##_z10 attribute_hidden;      \
  57   extern __typeof (TYPE_FUNC) RESOLVERFUNC##_default attribute_hidden;  \
  58   __ifunc (TYPE_FUNC, FUNC,                                             \
  59            __glibc_likely (S390_IS_Z196 (stfle_bits))                   \
  60            ? RESOLVERFUNC##_z196                                        \
  61            : __glibc_likely (S390_IS_Z10 (stfle_bits))                  \
  62              ? RESOLVERFUNC##_z10                                       \
  63              : RESOLVERFUNC##_default,                                  \
  64            unsigned long int dl_hwcap, s390_libc_ifunc_init);
  65
  66 #define s390_vx_libc_ifunc(FUNC)                \
  67   s390_vx_libc_ifunc2_redirected(FUNC, FUNC, FUNC)
  68
  69 #define s390_vx_libc_ifunc_redirected(TYPE_FUNC, FUNC)  \
  70   s390_vx_libc_ifunc2_redirected(TYPE_FUNC, FUNC, FUNC)
  71
  72 #define s390_vx_libc_ifunc2(RESOLVERFUNC, FUNC) \
  73   s390_vx_libc_ifunc2_redirected(FUNC, RESOLVERFUNC, FUNC)
  74
  75 #define s390_vx_libc_ifunc_init()
  76 #define s390_vx_libc_ifunc2_redirected(TYPE_FUNC, RESOLVERFUNC, FUNC)   \
  77   /* Make the declarations of the optimized functions hidden in order
  78      to prevent GOT slots being generated for them.  */                 \
  79   extern __typeof (TYPE_FUNC) RESOLVERFUNC##_vx attribute_hidden;       \
  80   extern __typeof (TYPE_FUNC) RESOLVERFUNC##_c attribute_hidden;        \
  81   __ifunc (TYPE_FUNC, FUNC,                                             \
  82            (dl_hwcap & HWCAP_S390_VX)                                   \
  83            ? RESOLVERFUNC##_vx                                          \
  84            : RESOLVERFUNC##_c,                                          \
  85            unsigned long int dl_hwcap, s390_vx_libc_ifunc_init);