summaryrefslogtreecommitdiff
path: root/sysdeps/unix/sysv/linux/s390/sysconf.c
diff options
context:
space:
mode:
Diffstat (limited to 'sysdeps/unix/sysv/linux/s390/sysconf.c')
-rw-r--r--sysdeps/unix/sysv/linux/s390/sysconf.c230
1 files changed, 0 insertions, 230 deletions
diff --git a/sysdeps/unix/sysv/linux/s390/sysconf.c b/sysdeps/unix/sysv/linux/s390/sysconf.c
deleted file mode 100644
index 5d78fdd073..0000000000
--- a/sysdeps/unix/sysv/linux/s390/sysconf.c
+++ /dev/null
@@ -1,230 +0,0 @@
-/* Get system parameters, e.g. cache information. S390/S390x version.
- Copyright (C) 2015-2017 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>
-
-static long int linux_sysconf (int name);
-
-/* Possible arguments for get_cache_info.
- The values are reflecting the level/attribute/type indications
- of ecag-instruction (extract cpu attribue). */
-#define CACHE_LEVEL_MAX 8
-#define CACHE_ATTR_LINESIZE 1
-#define CACHE_ATTR_SIZE 2
-#define CACHE_ATTR_ASSOC 3
-#define CACHE_TYPE_DATA 0
-#define CACHE_TYPE_INSTRUCTION 1
-
-static long
-get_cache_info (int level, int attr, int type)
-{
- unsigned long int val;
- unsigned int cmd;
- unsigned long int arg;
-
- /* Check arguments. */
- if (level < 1 || level > CACHE_LEVEL_MAX
- || attr < CACHE_ATTR_LINESIZE || attr > CACHE_ATTR_ASSOC
- || type < CACHE_TYPE_DATA || type > CACHE_TYPE_INSTRUCTION)
- return 0L;
-
- /* Check if ecag-instruction is available.
- ecag - extract CPU attribute (only in zarch; arch >= z10; in as 2.24) */
- if (!(GLRO (dl_hwcap) & HWCAP_S390_STFLE)
-#if !defined __s390x__
- || !(GLRO (dl_hwcap) & HWCAP_S390_ZARCH)
- || !(GLRO (dl_hwcap) & HWCAP_S390_HIGH_GPRS)
-#endif /* !__s390x__ */
- )
- {
- /* stfle (or zarch, high-gprs on s390-32) is not available.
- We are on an old machine. Return 256byte for LINESIZE for L1 d/i-cache,
- otherwise 0. */
- if (level == 1 && attr == CACHE_ATTR_LINESIZE)
- return 256L;
- else
- return 0L;
- }
-
- /* Store facility list and check for z10.
- (see ifunc-resolver for details) */
- register unsigned long reg0 __asm__("0") = 0;
-#ifdef __s390x__
- unsigned long stfle_bits;
-# define STFLE_Z10_MASK (1UL << (63 - 34))
-#else
- unsigned long long stfle_bits;
-# define STFLE_Z10_MASK (1ULL << (63 - 34))
-#endif /* !__s390x__ */
- __asm__ __volatile__(".machine push" "\n\t"
- ".machinemode \"zarch_nohighgprs\"\n\t"
- ".machine \"z9-109\"" "\n\t"
- "stfle %0" "\n\t"
- ".machine pop" "\n"
- : "=QS" (stfle_bits), "+d" (reg0)
- : : "cc");
-
- if (!(stfle_bits & STFLE_Z10_MASK))
- {
- /* We are at least on a z9 machine.
- Return 256byte for LINESIZE for L1 d/i-cache,
- otherwise 0. */
- if (level == 1 && attr == CACHE_ATTR_LINESIZE)
- return 256L;
- else
- return 0L;
- }
-
- /* Check cache topology, if cache is available at this level. */
- arg = (CACHE_LEVEL_MAX - level) * 8;
- __asm__ __volatile__ (".machine push\n\t"
- ".machine \"z10\"\n\t"
- ".machinemode \"zarch_nohighgprs\"\n\t"
- "ecag %0,%%r0,0\n\t" /* returns 64bit unsigned integer. */
- "srlg %0,%0,0(%1)\n\t" /* right align 8bit cache info field. */
- ".machine pop"
- : "=&d" (val)
- : "a" (arg)
- );
- val &= 0xCUL; /* Extract cache scope information from cache topology summary.
- (bits 4-5 of 8bit-field; 00 means cache does not exist). */
- if (val == 0)
- return 0L;
-
- /* Get cache information for level, attribute and type. */
- cmd = (attr << 4) | ((level - 1) << 1) | type;
- __asm__ __volatile__ (".machine push\n\t"
- ".machine \"z10\"\n\t"
- ".machinemode \"zarch_nohighgprs\"\n\t"
- "ecag %0,%%r0,0(%1)\n\t"
- ".machine pop"
- : "=d" (val)
- : "a" (cmd)
- );
- return val;
-}
-
-long int
-__sysconf (int name)
-{
- if (name >= _SC_LEVEL1_ICACHE_SIZE && name <= _SC_LEVEL4_CACHE_LINESIZE)
- {
- int level;
- int attr;
- int type;
-
- switch (name)
- {
- case _SC_LEVEL1_ICACHE_SIZE:
- level = 1;
- attr = CACHE_ATTR_SIZE;
- type = CACHE_TYPE_INSTRUCTION;
- break;
- case _SC_LEVEL1_ICACHE_ASSOC:
- level = 1;
- attr = CACHE_ATTR_ASSOC;
- type = CACHE_TYPE_INSTRUCTION;
- break;
- case _SC_LEVEL1_ICACHE_LINESIZE:
- level = 1;
- attr = CACHE_ATTR_LINESIZE;
- type = CACHE_TYPE_INSTRUCTION;
- break;
-
- case _SC_LEVEL1_DCACHE_SIZE:
- level = 1;
- attr = CACHE_ATTR_SIZE;
- type = CACHE_TYPE_DATA;
- break;
- case _SC_LEVEL1_DCACHE_ASSOC:
- level = 1;
- attr = CACHE_ATTR_ASSOC;
- type = CACHE_TYPE_DATA;
- break;
- case _SC_LEVEL1_DCACHE_LINESIZE:
- level = 1;
- attr = CACHE_ATTR_LINESIZE;
- type = CACHE_TYPE_DATA;
- break;
-
- case _SC_LEVEL2_CACHE_SIZE:
- level = 2;
- attr = CACHE_ATTR_SIZE;
- type = CACHE_TYPE_DATA;
- break;
- case _SC_LEVEL2_CACHE_ASSOC:
- level = 2;
- attr = CACHE_ATTR_ASSOC;
- type = CACHE_TYPE_DATA;
- break;
- case _SC_LEVEL2_CACHE_LINESIZE:
- level = 2;
- attr = CACHE_ATTR_LINESIZE;
- type = CACHE_TYPE_DATA;
- break;
-
- case _SC_LEVEL3_CACHE_SIZE:
- level = 3;
- attr = CACHE_ATTR_SIZE;
- type = CACHE_TYPE_DATA;
- break;
- case _SC_LEVEL3_CACHE_ASSOC:
- level = 3;
- attr = CACHE_ATTR_ASSOC;
- type = CACHE_TYPE_DATA;
- break;
- case _SC_LEVEL3_CACHE_LINESIZE:
- level = 3;
- attr = CACHE_ATTR_LINESIZE;
- type = CACHE_TYPE_DATA;
- break;
-
- case _SC_LEVEL4_CACHE_SIZE:
- level = 4;
- attr = CACHE_ATTR_SIZE;
- type = CACHE_TYPE_DATA;
- break;
- case _SC_LEVEL4_CACHE_ASSOC:
- level = 4;
- attr = CACHE_ATTR_ASSOC;
- type = CACHE_TYPE_DATA;
- break;
- case _SC_LEVEL4_CACHE_LINESIZE:
- level = 4;
- attr = CACHE_ATTR_LINESIZE;
- type = CACHE_TYPE_DATA;
- break;
-
- default:
- level = 0;
- attr = 0;
- type = 0;
- break;
- }
-
- return get_cache_info (level, attr, type);
- }
-
- return linux_sysconf (name);
-}
-
-/* Now the generic Linux version. */
-#undef __sysconf
-#define __sysconf static linux_sysconf
-#include <sysdeps/unix/sysv/linux/sysconf.c>
View Lorry Controller Status