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-2019 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_expr_stfle_init()                               \
  44   unsigned long long stfle_bits = 0ULL;                                 \
  45   if (__glibc_likely ((hwcap & HWCAP_S390_STFLE)                        \
  46                       && (hwcap & HWCAP_S390_ZARCH)                     \
  47                       && (hwcap & HWCAP_S390_HIGH_GPRS)))               \
  48     {                                                                   \
  49       S390_STORE_STFLE (stfle_bits);                                    \
  50     }
  51
  52 #define s390_libc_ifunc_expr_init()
  53 #define s390_libc_ifunc_expr(TYPE_FUNC, FUNC, EXPR)             \
  54   __ifunc (TYPE_FUNC, FUNC, EXPR, unsigned long int hwcap,      \
  55            s390_libc_ifunc_expr_init);