mirror of
https://sourceware.org/git/glibc.git
synced 2024-11-23 05:20:06 +00:00
Update.
2004-05-06 Ulrich Drepper <drepper@redhat.com> * math/tgmath.h (fabs): Use __TGMATH_UNARY_REAL_IMAG_RET_REAL. (carg): Likewise. Patch by Lev S Bishop <lev.bishop@yale.edu>. * math/bug-tgmath1.c (main): Test fabs and carg as well. 2004-05-06 Richard Henderson <rth@redhat.com> * elf/elf.h (AT_L1I_CACHESHAPE, AT_L1D_CACHESHAPE, AT_L2_CACHESHAPE, AT_L3_CACHESHAPE): New. * sysdeps/unix/sysv/linux/alpha/Versions: Export __libc_alpha_cache_shape as a private symbol. * sysdeps/unix/sysv/linux/alpha/dl-sysdep.c: New file. * sysdeps/unix/sysv/linux/alpha/sysconf.c: New file. * sysdeps/alpha/divl.S: Use them. * sysdeps/alpha/divq.S: Likewise. * sysdeps/alpha/divqu.S: Likewise. * sysdeps/alpha/reml.S: Likewise. * sysdeps/alpha/remq.S: Likewise. * sysdeps/alpha/remqu.S: Likewise.
This commit is contained in:
parent
a9dd9ea3cd
commit
f1debaf682
26
ChangeLog
26
ChangeLog
@ -1,9 +1,29 @@
|
||||
2004-05-06 Ulrich Drepper <drepper@redhat.com>
|
||||
|
||||
* math/tgmath.h (fabs): Use __TGMATH_UNARY_REAL_IMAG_RET_REAL.
|
||||
(carg): Likewise.
|
||||
Patch by Lev S Bishop <lev.bishop@yale.edu>.
|
||||
|
||||
* math/bug-tgmath1.c (main): Test fabs and carg as well.
|
||||
|
||||
2004-05-06 Richard Henderson <rth@redhat.com>
|
||||
|
||||
* elf/elf.h (AT_L1I_CACHESHAPE, AT_L1D_CACHESHAPE,
|
||||
AT_L2_CACHESHAPE, AT_L3_CACHESHAPE): New.
|
||||
* sysdeps/unix/sysv/linux/alpha/Versions: Export
|
||||
__libc_alpha_cache_shape as a private symbol.
|
||||
* sysdeps/unix/sysv/linux/alpha/dl-sysdep.c: New file.
|
||||
* sysdeps/unix/sysv/linux/alpha/sysconf.c: New file.
|
||||
|
||||
2004-05-06 Richard Henderson <rth@redhat.com>
|
||||
|
||||
* sysdeps/alpha/div_libc.h (_ITOFS, _ITOFT, _FTOIT, _ITOFT2): New.
|
||||
* sysdeps/alpha/divl.S, sysdeps/alpha/divq.S, sysdeps/alpha/divqu.S,
|
||||
sysdeps/alpha/reml.S, sysdeps/alpha/remq.S, sysdeps/alpha/remqu.S:
|
||||
Use them.
|
||||
* sysdeps/alpha/divl.S: Use them.
|
||||
* sysdeps/alpha/divq.S: Likewise.
|
||||
* sysdeps/alpha/divqu.S: Likewise.
|
||||
* sysdeps/alpha/reml.S: Likewise.
|
||||
* sysdeps/alpha/remq.S: Likewise.
|
||||
* sysdeps/alpha/remqu.S: Likewise.
|
||||
|
||||
2004-05-06 Ulrich Drepper <drepper@redhat.com>
|
||||
|
||||
|
@ -29,5 +29,19 @@ main (void)
|
||||
TEST (cimag (1.0f), sizeof (float));
|
||||
TEST (cimag (1.0f + 1.0fi), sizeof (float));
|
||||
|
||||
TEST (fabs (1.0), sizeof (double));
|
||||
TEST (fabs (1.0 + 1.0i), sizeof (double));
|
||||
TEST (fabs (1.0l), sizeof (long double));
|
||||
TEST (fabs (1.0l + 1.0li), sizeof (long double));
|
||||
TEST (fabs (1.0f), sizeof (float));
|
||||
TEST (fabs (1.0f + 1.0fi), sizeof (float));
|
||||
|
||||
TEST (carg (1.0), sizeof (double));
|
||||
TEST (carg (1.0 + 1.0i), sizeof (double));
|
||||
TEST (carg (1.0l), sizeof (long double));
|
||||
TEST (carg (1.0l + 1.0li), sizeof (long double));
|
||||
TEST (carg (1.0f), sizeof (float));
|
||||
TEST (carg (1.0f + 1.0fi), sizeof (float));
|
||||
|
||||
return retval;
|
||||
}
|
||||
|
@ -346,7 +346,7 @@
|
||||
#define ceil(Val) __TGMATH_UNARY_REAL_ONLY (Val, ceil)
|
||||
|
||||
/* Absolute value of X. */
|
||||
#define fabs(Val) __TGMATH_UNARY_REAL_IMAG (Val, fabs, cabs)
|
||||
#define fabs(Val) __TGMATH_UNARY_REAL_IMAG_RET_REAL (Val, fabs, cabs)
|
||||
|
||||
/* Largest integer not greater than X. */
|
||||
#define floor(Val) __TGMATH_UNARY_REAL_ONLY (Val, floor)
|
||||
@ -439,7 +439,7 @@
|
||||
/* Absolute value, conjugates, and projection. */
|
||||
|
||||
/* Argument value of Z. */
|
||||
#define carg(Val) __TGMATH_UNARY_REAL_IMAG (Val, carg, carg)
|
||||
#define carg(Val) __TGMATH_UNARY_REAL_IMAG_RET_REAL (Val, carg, carg)
|
||||
|
||||
/* Complex conjugate of Z. */
|
||||
#define conj(Val) __TGMATH_UNARY_REAL_IMAG (Val, conj, conj)
|
||||
|
@ -73,6 +73,14 @@ libc {
|
||||
#errlist-compat 132
|
||||
_sys_errlist; sys_errlist; _sys_nerr; sys_nerr;
|
||||
}
|
||||
GLIBC_PRIVATE {
|
||||
__libc_alpha_cache_shape;
|
||||
}
|
||||
}
|
||||
ld {
|
||||
GLIBC_PRIVATE {
|
||||
__libc_alpha_cache_shape;
|
||||
}
|
||||
}
|
||||
librt {
|
||||
GLIBC_2.3 {
|
||||
|
60
sysdeps/unix/sysv/linux/alpha/dl-sysdep.c
Normal file
60
sysdeps/unix/sysv/linux/alpha/dl-sysdep.c
Normal file
@ -0,0 +1,60 @@
|
||||
/* Operating system support for run-time dynamic linker. Linux/PPC version.
|
||||
Copyright (C) 1997, 1998, 2001, 2003 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, write to the Free
|
||||
Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
|
||||
02111-1307 USA. */
|
||||
|
||||
|
||||
#include "config.h"
|
||||
#include "kernel-features.h"
|
||||
#include <ldsodefs.h>
|
||||
|
||||
extern long __libc_alpha_cache_shape[4];
|
||||
weak_extern (__libc_alpha_cache_shape);
|
||||
|
||||
|
||||
/* Scan the Aux Vector for the cache shape entries. */
|
||||
#define DL_PLATFORM_AUXV \
|
||||
case AT_L1I_CACHESHAPE: \
|
||||
{ \
|
||||
long *cls = __libc_alpha_cache_shape; \
|
||||
if (cls != NULL) \
|
||||
cls[0] = av->a_un.a_val; \
|
||||
break; \
|
||||
} \
|
||||
case AT_L1D_CACHESHAPE: \
|
||||
{ \
|
||||
long *cls = __libc_alpha_cache_shape; \
|
||||
if (cls != NULL) \
|
||||
cls[1] = av->a_un.a_val; \
|
||||
break; \
|
||||
} \
|
||||
case AT_L2_CACHESHAPE: \
|
||||
{ \
|
||||
long *cls = __libc_alpha_cache_shape; \
|
||||
if (cls != NULL) \
|
||||
cls[2] = av->a_un.a_val; \
|
||||
break; \
|
||||
} \
|
||||
case AT_L3_CACHESHAPE: \
|
||||
{ \
|
||||
long *cls = __libc_alpha_cache_shape; \
|
||||
if (cls != NULL) \
|
||||
cls[3] = av->a_un.a_val; \
|
||||
break; \
|
||||
}
|
||||
|
||||
#include <sysdeps/unix/sysv/linux/dl-sysdep.c>
|
152
sysdeps/unix/sysv/linux/alpha/sysconf.c
Normal file
152
sysdeps/unix/sysv/linux/alpha/sysconf.c
Normal file
@ -0,0 +1,152 @@
|
||||
/* Copyright (C) 2004 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, write to the Free
|
||||
Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
|
||||
02111-1307 USA. */
|
||||
|
||||
#include <assert.h>
|
||||
#include <stdbool.h>
|
||||
#include <stdlib.h>
|
||||
#include <unistd.h>
|
||||
|
||||
|
||||
static long int linux_sysconf (int name);
|
||||
|
||||
#define CSHAPE(totalsize, linesize, assoc) \
|
||||
((totalsize & ~0xff) | (linesize << 4) | assoc)
|
||||
|
||||
long __libc_alpha_cache_shape[4] = { -2, -2, -2, -2 };
|
||||
|
||||
static inline unsigned long
|
||||
implver (void)
|
||||
{
|
||||
unsigned long i;
|
||||
#if __GNUC_PREREQ(3,3)
|
||||
i = __builtin_alpha_implver ();
|
||||
#else
|
||||
asm ("implver %0" : "=r" (i));
|
||||
#endif
|
||||
return i;
|
||||
}
|
||||
|
||||
static inline unsigned long
|
||||
amask (unsigned long x)
|
||||
{
|
||||
unsigned long r;
|
||||
#if __GNUC_PREREQ(3,3)
|
||||
r = __builtin_alpha_amask (x);
|
||||
#else
|
||||
asm ("amask %1,%0" : "=r"(r) : "Ir"(x));
|
||||
#endif
|
||||
return r;
|
||||
}
|
||||
|
||||
/* Get the value of the system variable NAME. */
|
||||
long int
|
||||
__sysconf (int name)
|
||||
{
|
||||
long shape, index;
|
||||
|
||||
/* We only handle the cache information here (for now). */
|
||||
if (name < _SC_LEVEL1_ICACHE_SIZE || name > _SC_LEVEL4_CACHE_LINESIZE)
|
||||
return linux_sysconf (name);
|
||||
|
||||
/* No Alpha has L4 caches. */
|
||||
if (name >= _SC_LEVEL4_CACHE_SIZE)
|
||||
return -1;
|
||||
|
||||
index = (name - _SC_LEVEL1_ICACHE_SIZE) / 3;
|
||||
shape = __libc_alpha_cache_shape[index];
|
||||
if (shape == -2)
|
||||
{
|
||||
long shape_l1i, shape_l1d, shape_l2, shape_l3 = -1;
|
||||
|
||||
/* ??? In the cases below for which we do not know L1 cache sizes,
|
||||
we could do timings to measure sizes. But for the Bcache, it's
|
||||
generally big enough that (without additional help) TLB effects
|
||||
get in the way. We'd either need to be able to allocate large
|
||||
pages or have the kernel do the timings from KSEG. Fortunately,
|
||||
kernels beginning with 2.6.5 will pass us this info in auxvec. */
|
||||
|
||||
switch (implver())
|
||||
{
|
||||
case 0: /* EV4 */
|
||||
/* EV4/LCA45 had 8k L1 caches; EV45 had 16k L1 caches. */
|
||||
/* EV4/EV45 had 128k to 16M 32-byte direct Bcache. LCA45
|
||||
had 64k to 8M 8-byte direct Bcache. Can't tell. */
|
||||
shape_l1i = shape_l1d = shape_l2 = CSHAPE (0, 5, 1);
|
||||
break;
|
||||
|
||||
case 1: /* EV5 */
|
||||
if (amask (1 << 8))
|
||||
{
|
||||
/* MAX insns not present; either EV5 or EV56. */
|
||||
shape_l1i = shape_l1d = CSHAPE(8*1024, 5, 1);
|
||||
/* ??? L2 and L3 *can* be configured as 32-byte line. */
|
||||
shape_l2 = CSHAPE (96*1024, 6, 3);
|
||||
/* EV5/EV56 has 1M to 16M Bcache. */
|
||||
shape_l3 = CSHAPE (0, 6, 1);
|
||||
}
|
||||
else
|
||||
{
|
||||
/* MAX insns present; either PCA56 or PCA57. */
|
||||
/* PCA56 had 16k 64-byte cache; PCA57 had 32k Icache. */
|
||||
/* PCA56 had 8k 64-byte cache; PCA57 had 16k Dcache. */
|
||||
/* PCA5[67] had 512k to 4M Bcache. */
|
||||
shape_l1i = shape_l1d = shape_l2 = CSHAPE (0, 6, 1);
|
||||
}
|
||||
break;
|
||||
|
||||
case 2: /* EV6 */
|
||||
shape_l1i = shape_l1d = CSHAPE(64*1024, 6, 2);
|
||||
/* EV6/EV67/EV68* had 1M to 16M Bcache. */
|
||||
shape_l2 = CSHAPE (0, 6, 1);
|
||||
break;
|
||||
|
||||
case 3: /* EV7 */
|
||||
shape_l1i = shape_l1d = CSHAPE(64*1024, 6, 2);
|
||||
shape_l2 = CSHAPE(7*1024*1024/4, 6, 7);
|
||||
break;
|
||||
|
||||
default:
|
||||
shape_l1i = shape_l1d = shape_l2 = 0;
|
||||
break;
|
||||
}
|
||||
|
||||
__libc_alpha_cache_shape[0] = shape_l1i;
|
||||
__libc_alpha_cache_shape[1] = shape_l1d;
|
||||
__libc_alpha_cache_shape[2] = shape_l2;
|
||||
__libc_alpha_cache_shape[3] = shape_l3;
|
||||
shape = __libc_alpha_cache_shape[index];
|
||||
}
|
||||
|
||||
if (shape <= 0)
|
||||
return shape;
|
||||
|
||||
switch (name % 3)
|
||||
{
|
||||
case 0: /* total size */
|
||||
return shape & -0x100;
|
||||
case 1: /* associativity */
|
||||
return shape & 0xf;
|
||||
default: /* line size */
|
||||
return 1L << ((shape >> 4) & 0xf);
|
||||
}
|
||||
}
|
||||
|
||||
/* Now the generic Linux version. */
|
||||
#undef __sysconf
|
||||
#define __sysconf static linux_sysconf
|
||||
#include "../sysconf.c"
|
Loading…
Reference in New Issue
Block a user