Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
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.
  • Loading branch information
Ulrich Drepper committed May 7, 2004
1 parent a9dd9ea commit f1debaf
Show file tree
Hide file tree
Showing 6 changed files with 259 additions and 5 deletions.
26 changes: 23 additions & 3 deletions 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>

Expand Down
14 changes: 14 additions & 0 deletions math/bug-tgmath1.c
Expand Up @@ -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;
}
4 changes: 2 additions & 2 deletions math/tgmath.h
Expand Up @@ -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)
Expand Down Expand Up @@ -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)
Expand Down
8 changes: 8 additions & 0 deletions sysdeps/unix/sysv/linux/alpha/Versions
Expand Up @@ -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 {
Expand Down
60 changes: 60 additions & 0 deletions sysdeps/unix/sysv/linux/alpha/dl-sysdep.c
@@ -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 changes: 152 additions & 0 deletions sysdeps/unix/sysv/linux/alpha/sysconf.c
@@ -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"

0 comments on commit f1debaf

Please sign in to comment.