mirrors/glibc
1
0
Fork 0
mirror of https://sourceware.org/git/glibc.git synced 2024-12-15 20:43:29 +08:00
Code Issues Actions Packages Projects Releases Wiki Activity

update from main archive 960909

Browse Source
This commit is contained in:
Ulrich Drepper 1996-09-10 01:59:36 +00:00
parent 44b8acdd3a
commit 16d6b38e4d
28 changed files with 37 additions and 404 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

0
sysdeps/alpha/copysign.S → sysdeps/alpha/s_copysign.S
View File

5
sysdeps/alpha/fabs.S → sysdeps/alpha/s_fabs.S
View File

@ -19,9 +19,10 @@ Cambridge, MA 02139, USA. */
#include <sysdep.h>
ENTRY(fabs)
ENTRY(__fabs)
.prologue 0
cpys $f31,$f16,$f0
ret
END(fabs)
END(__fabs)
weak_alias (__fabs, fabs)

4
sysdeps/m68k/fpu/__math.h
View File

@ -20,7 +20,7 @@ Cambridge, MA 02139, USA. */
#include <sys/cdefs.h>
#ifdef __NO_MATH_INLINES
#ifdef __NO_M81_MATH_INLINES
/* This is used when defining the functions themselves. Define them with
__ names, and with `static inline' instead of `extern inline' so the
bodies will always be used, never an external function call. */
@ -29,7 +29,7 @@ Cambridge, MA 02139, USA. */
#else
#define __m81_u(x) x
#define __m81_inline extern __inline
#define __MATH_INLINES 1
#define __M81_MATH_INLINES 1
#endif
/* Define a const math function. */

6
sysdeps/m68k/fpu/e_acos.c
View File

@ -16,8 +16,9 @@ License along with the GNU C Library; see the file COPYING.LIB. If
not, write to the Free Software Foundation, Inc., 675 Mass Ave,
Cambridge, MA 02139, USA. */
#include <ansidecl.h>
#define __NO_M81_MATH_INLINES
#include <math.h>
#include "math_private.h"
#ifndef FUNC
#define FUNC __ieee754_acos
@ -27,7 +28,8 @@ Cambridge, MA 02139, USA. */
#endif
float_type
DEFUN(FUNC, (x), float_type x)
FUNC (x)
float_type x;
{
return __m81_u(FUNC)(x);
}

7
sysdeps/m68k/fpu/e_fmod.c
View File

@ -16,8 +16,9 @@ License along with the GNU C Library; see the file COPYING.LIB. If
not, write to the Free Software Foundation, Inc., 675 Mass Ave,
Cambridge, MA 02139, USA. */
#include <ansidecl.h>
#define __NO_M81_MATH_INLINES
#include <math.h>
#include "math_private.h"
#ifndef FUNC
#define FUNC __ieee754_fmod
@ -27,7 +28,9 @@ Cambridge, MA 02139, USA. */
#endif
float_type
DEFUN(FUNC, (x, y), float_type x AND float_type y)
FUNC (x, y)
float_type x;
float_type y;
{
return __m81_u(FUNC)(x, y);
}

2
sysdeps/m68k/fpu/k_cos.c
View File

@ -16,7 +16,9 @@ License along with the GNU C Library; see the file COPYING.LIB. If
not, write to the Free Software Foundation, Inc., 675 Mass Ave,
Cambridge, MA 02139, USA. */
#define __NO_M81_MATH_INLINES
#include <math.h>
#include "math_private.h"
#ifndef FUNC
#define FUNC cos

4
sysdeps/m68k/fpu/k_sin.c
View File

@ -16,7 +16,9 @@ License along with the GNU C Library; see the file COPYING.LIB. If
not, write to the Free Software Foundation, Inc., 675 Mass Ave,
Cambridge, MA 02139, USA. */
#define __NO_M81_MATH_INLINES
#include <math.h>
#include "math_private.h"
#ifndef FUNC
#define FUNC sin
@ -35,7 +37,7 @@ __CONCATX(__kernel_,FUNC) (x, y, iy)
{
float_type sin_x, cos_x, sin_y, cos_y;
if (iy == 0)
return __m81_u_(__CONCATX(__,FUNC)) (x);
return __m81_u(__CONCATX(__,FUNC)) (x);
__asm__ __volatile__ ("fsincosx %2,%0:%1" : "=f" (cos_x), "=f" (sin_x)
: "f" (x));
__asm__ __volatile__ ("fsincosx %2,%0:%1" : "=f" (cos_y), "=f" (sin_y)

6
sysdeps/m68k/fpu/k_tan.c
View File

@ -16,7 +16,9 @@ License along with the GNU C Library; see the file COPYING.LIB. If
not, write to the Free Software Foundation, Inc., 675 Mass Ave,
Cambridge, MA 02139, USA. */
#define __NO_M81_MATH_INLINES
#include <math.h>
#include "math_private.h"
#ifndef FUNC
#define FUNC tan
@ -34,8 +36,8 @@ __CONCATX(__kernel_,FUNC) (x, y, iy)
int iy;
{
float_type tan_x, tan_y;
tan_x = __m81_u_(__CONCATX(__,FUNC)) (x);
tan_y = __m81_u_(__CONCATX(__,FUNC)) (y);
tan_x = __m81_u(__CONCATX(__,FUNC)) (x);
tan_y = __m81_u(__CONCATX(__,FUNC)) (y);
if (iy > 0)
return (tan_x + tan_y) / (1 - tan_x * tan_y);
else

1
sysdeps/m68k/fpu/s_atan.c
View File

@ -17,6 +17,7 @@ not, write to the Free Software Foundation, Inc., 675 Mass Ave,
Cambridge, MA 02139, USA. */
#include <ansidecl.h>
#define __NO_M81_MATH_INLINES
#include <math.h>
#ifndef FUNC

1
sysdeps/m68k/fpu/s_frexp.c
View File

@ -17,6 +17,7 @@ not, write to the Free Software Foundation, Inc., 675 Mass Ave,
Cambridge, MA 02139, USA. */
#include <ansidecl.h>
#define __NO_M81_MATH_INLINES
#include <math.h>
#ifndef FUNC

1
sysdeps/m68k/fpu/s_ilogb.c
View File

@ -17,6 +17,7 @@ not, write to the Free Software Foundation, Inc., 675 Mass Ave,
Cambridge, MA 02139, USA. */
#include <ansidecl.h>
#define __NO_M81_MATH_INLINES
#include <math.h>
#ifndef FUNC

1
sysdeps/m68k/fpu/s_isinf.c
View File

@ -17,6 +17,7 @@ not, write to the Free Software Foundation, Inc., 675 Mass Ave,
Cambridge, MA 02139, USA. */
#include <ansidecl.h>
#define __NO_M81_MATH_INLINES
#include <math.h>
#ifndef FUNC

1
sysdeps/m68k/fpu/s_ldexp.c
View File

@ -17,6 +17,7 @@ not, write to the Free Software Foundation, Inc., 675 Mass Ave,
Cambridge, MA 02139, USA. */
#include <ansidecl.h>
#define __NO_M81_MATH_INLINES
#include <math.h>
#ifndef FUNC

1
sysdeps/m68k/fpu/s_modf.c
View File

@ -17,6 +17,7 @@ not, write to the Free Software Foundation, Inc., 675 Mass Ave,
Cambridge, MA 02139, USA. */
#include <ansidecl.h>
#define __NO_M81_MATH_INLINES
#include <math.h>
#ifndef FUNC

0
sysdeps/m68k/isinfl.c → sysdeps/m68k/s_isinfl.c
View File

0
sysdeps/m68k/isnanl.c → sysdeps/m68k/s_isnanl.c
View File

22
sysdeps/tahoe/log10.c
View File

@ -1,22 +0,0 @@
/* Copyright (C) 1991 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 Library General Public License as
published by the Free Software Foundation; either version 2 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
Library General Public License for more details.
You should have received a copy of the GNU Library General Public
License along with the GNU C Library; see the file COPYING.LIB. If
not, write to the Free Software Foundation, Inc., 675 Mass Ave,
Cambridge, MA 02139, USA. */
#define FPCONST(hi0, lo0, hi1, lo1) { (hi0), (lo0), (hi1), (lo1) }
#include <../sysdeps/vax/log10.c>

1
sysdeps/unix/sysv/linux/alpha/Dist
View File

@ -4,3 +4,4 @@ ioperm.c
init-first.h
clone.S
sys/io.h
llseek.S

12
sysdeps/unix/sysv/linux/m68k/init-first.h
View File

@ -1,12 +0,0 @@
/* This fragment is invoked in the stack context of program start.
Its job is to set up a pointer to argc as an argument, pass
control to `INIT', and, if necessary, clean up after the call
to leave the stack in the same condition it was found in. */
#define SYSDEP_CALL_INIT(NAME, INIT) \
asm(".globl " #NAME "\n\t" \
#NAME ":\n\t" \
"pea %sp@(4)\n\t" \
"jbsr " #INIT "\n\t" \
"addq #4,%sp\n\t" \
"rts");

1
sysdeps/vax/Dist
View File

@ -1 +1,2 @@
DEFS.h
fl.h

57
sysdeps/vax/bcmp.s
View File

@ -1,57 +0,0 @@
/*
* Copyright (c) 1983 Regents of the University of California.
* All rights reserved.
*
* Redistribution and use in source and binary forms, with or without
* modification, are permitted provided that the following conditions
* are met:
* 1. Redistributions of source code must retain the above copyright
* notice, this list of conditions and the following disclaimer.
* 2. Redistributions in binary form must reproduce the above copyright
* notice, this list of conditions and the following disclaimer in the
* documentation and/or other materials provided with the distribution.
* 3. All advertising materials mentioning features or use of this software
* must display the following acknowledgement:
* This product includes software developed by the University of
* California, Berkeley and its contributors.
* 4. Neither the name of the University nor the names of its contributors
* may be used to endorse or promote products derived from this software
* without specific prior written permission.
*
* THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
* ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
* IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
* ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
* FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
* DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
* OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
* HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
* LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
* OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
* SUCH DAMAGE.
*/
#if defined(LIBC_SCCS) && !defined(lint)
.asciz "@(#)bcmp.s 5.6 (Berkeley) 6/1/90"
#endif /* LIBC_SCCS and not lint */
/* bcmp(s1, s2, n) */
#include "DEFS.h"
ENTRY(bcmp, 0)
movl 4(ap),r1
movl 8(ap),r3
movl 12(ap),r4
1:
movzwl $65535,r0
cmpl r4,r0
jleq 2f
subl2 r0,r4
cmpc3 r0,(r1),(r3)
jeql 1b
addl2 r4,r0
ret
2:
cmpc3 r4,(r1),(r3)
ret

99
sysdeps/vax/index.s
View File

@ -1,99 +0,0 @@
/*
* Copyright (c) 1980 Regents of the University of California.
* All rights reserved.
*
* Redistribution and use in source and binary forms, with or without
* modification, are permitted provided that the following conditions
* are met:
* 1. Redistributions of source code must retain the above copyright
* notice, this list of conditions and the following disclaimer.
* 2. Redistributions in binary form must reproduce the above copyright
* notice, this list of conditions and the following disclaimer in the
* documentation and/or other materials provided with the distribution.
* 3. All advertising materials mentioning features or use of this software
* must display the following acknowledgement:
* This product includes software developed by the University of
* California, Berkeley and its contributors.
* 4. Neither the name of the University nor the names of its contributors
* may be used to endorse or promote products derived from this software
* without specific prior written permission.
*
* THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
* ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
* IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
* ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
* FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
* DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
* OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
* HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
* LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
* OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
* SUCH DAMAGE.
*/
#if defined(LIBC_SCCS) && !defined(lint)
.asciz "@(#)index.s 5.6 (Berkeley) 6/1/90"
#endif /* LIBC_SCCS and not lint */
/*
* Find the first occurence of c in the string cp.
* Return pointer to match or null pointer.
*
* char *
* index(cp, c)
* char *cp, c;
*/
#include "DEFS.h"
ENTRY(index, 0)
movq 4(ap),r1 # r1 = cp; r2 = c
tstl r2 # check for special case c == '\0'
bneq 2f
1:
locc $0,$65535,(r1) # just find end of string
beql 1b # still looking
movl r1,r0 # found it
ret
2:
moval tbl,r3 # r3 = address of table
bbss $0,(r3),5f # insure not reentering
movab (r3)[r2],r5 # table entry for c
incb (r5)
movzwl $65535,r4 # fast access
3:
scanc r4,(r1),(r3),$1 # look for c or '\0'
beql 3b # still looking
movl r1,r0 # return pointer to char
tstb (r0) # if have found '\0'
bneq 4f
clrl r0 # else return 0
4:
clrb (r5) # clean up table
clrb (r3)
ret
.data
tbl: .space 256
.text
/*
* Reentrant, but slower version of index
*/
5:
movl r1,r3
6:
locc $0,$65535,(r3) # look for '\0'
bneq 7f
locc r2,$65535,(r3) # look for c
bneq 8f
movl r1,r3 # reset pointer and ...
jbr 6b # ... try again
7:
subl3 r3,r1,r4 # length of short block
incl r4 # +1 for '\0'
locc r2,r4,(r3) # look for c
bneq 8f
ret
8:
movl r1,r0 # return pointer to char
ret

62
sysdeps/vax/infnan.c
View File

@ -1,62 +0,0 @@
/* Copyright (C) 1991, 1992, 1995 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 Library General Public License as
published by the Free Software Foundation; either version 2 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
Library General Public License for more details.
You should have received a copy of the GNU Library General Public
License along with the GNU C Library; see the file COPYING.LIB. If
not, write to the Free Software Foundation, Inc., 675 Mass Ave,
Cambridge, MA 02139, USA. */
#ifndef __GNUC__
#error This file uses GNU C extensions; you must compile with GCC.
#else
#include <ansidecl.h>
#include <errno.h>
#include <math.h>
/* Deal with an infinite or NaN result.
If ERROR is ERANGE, result is +Inf;
if ERROR is - ERANGE, result is -Inf;
otherwise result is NaN.
This will set `errno' to either ERANGE or EDOM,
and may return an infinity or NaN, or may do something else. */
double
DEFUN(__infnan, (error), int error)
{
switch (error)
{
case ERANGE:
errno = ERANGE;
break;
case - ERANGE:
errno = ERANGE;
break;
default:
errno = EDOM;
break;
}
/* Trigger a reserved operand fault. */
{
double result;
asm volatile("emodd %1, %1, %2, %0, %0" : "=r" (result) :
"i" (0), "i" (0x8000));
return result;
}
}
#endif
weak_alias (__infnan, infnan)

28
sysdeps/vax/log10.c
View File

@ -1,28 +0,0 @@
/* Copyright (C) 1991 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 Library General Public License as
published by the Free Software Foundation; either version 2 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
Library General Public License for more details.
You should have received a copy of the GNU Library General Public
License along with the GNU C Library; see the file COPYING.LIB. If
not, write to the Free Software Foundation, Inc., 675 Mass Ave,
Cambridge, MA 02139, USA. */
#include <ansidecl.h>
#ifndef FPCONST
#define FPCONST(hi0, lo0, hi1, lo1) { (lo0), (hi0), (lo1), (hi1) }
#endif
static CONST short int ln10[] = FPCONST(0x4113, 0x5d8d, 0xddaa, 0xa8ac);
#define LN10 (*(CONST double *) ln10)
#include <../sysdeps/generic/log10.c>

2
sysdeps/vax/memcmp.s
View File

@ -59,3 +59,5 @@ ENTRY(memcmp, 0)
cmpc3 r5,(r1),(r3)
jeql 0b /* loop if same */
jbr 1b
weak_alias (memcmp, bcmp)

113
sysdeps/vax/rindex.s
View File

@ -1,113 +0,0 @@
/*
* Copyright (c) 1983 Regents of the University of California.
* All rights reserved.
*
* Redistribution and use in source and binary forms, with or without
* modification, are permitted provided that the following conditions
* are met:
* 1. Redistributions of source code must retain the above copyright
* notice, this list of conditions and the following disclaimer.
* 2. Redistributions in binary form must reproduce the above copyright
* notice, this list of conditions and the following disclaimer in the
* documentation and/or other materials provided with the distribution.
* 3. All advertising materials mentioning features or use of this software
* must display the following acknowledgement:
* This product includes software developed by the University of
* California, Berkeley and its contributors.
* 4. Neither the name of the University nor the names of its contributors
* may be used to endorse or promote products derived from this software
* without specific prior written permission.
*
* THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
* ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
* IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
* ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
* FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
* DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
* OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
* HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
* LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
* OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
* SUCH DAMAGE.
*/
#if defined(LIBC_SCCS) && !defined(lint)
.asciz "@(#)rindex.s 5.6 (Berkeley) 6/1/90"
#endif /* LIBC_SCCS and not lint */
/*
* Find the last occurence of c in the string cp.
* Return pointer to match or null pointer.
*
* char *
* rindex(cp, c)
* char *cp, c;
*/
#include "DEFS.h"
ENTRY(rindex, 0)
movq 4(ap),r1 # r1 = cp; r2 = c
tstl r2 # check for special case c == '\0'
bneq 2f
1:
locc $0,$65535,(r1) # just find end of string
beql 1b # still looking
movl r1,r0 # found it
ret
2:
moval tbl,r3 # r3 = address of table
bbss $0,(r3),5f # insure not reentering
movab (r3)[r2],r5 # table entry for c
incb (r5)
clrl r4 # last found
3:
scanc $65535,(r1),(r3),$1 # look for c or '\0'
beql 3b # keep looking
tstb (r1) # if have found '\0'
beql 4f # we are done
movl r1,r4 # save most recently found
incl r1 # skip over character
jbr 3b # keep looking
4:
movl r4,r0 # return last found (if any)
clrb (r5) # clean up table
clrb (r3)
ret
.data
tbl: .space 256
.text
/*
* Reentrant, but slower version of rindex
*/
5:
movl r1,r3
clrl r4 # r4 = pointer to last match
6:
locc $0,$65535,(r3) # look for '\0'
bneq 8f
decw r0 # r0 = 65535
1:
locc r2,r0,(r3) # look for c
bneq 7f
movl r1,r3 # reset pointer and ...
jbr 6b # ... try again
7:
movl r1,r4 # stash pointer ...
addl3 $1,r1,r3 # ... skip over match and ...
decl r0 # ... decrement count
jbr 6b # ... try again
8:
subl3 r3,r1,r0 # length of short block
incl r0 # +1 for '\0'
9:
locc r2,r0,(r3) # look for c
beql 0f
movl r1,r4 # stash pointer ...
addl3 $1,r1,r3 # ... skip over match ...
decl r0 # ... adjust count and ...
jbr 9b # ... try again
0:
movl r4,r0 # return stashed pointer
ret

2
sysdeps/vax/strchr.s
View File

@ -103,3 +103,5 @@ Lreent:
beql 2f /* not found: return NULL */
movl r1,r0
2: ret
weak_alias (strchr, index)

2
sysdeps/vax/strrchr.s
View File

@ -112,3 +112,5 @@ Lreent:
3:
movl r5,r0 /* return stashed pointer */
ret
weak_alias (strrchr, rindex)