update from main archive 960909
authordrepper <drepper>
Tue, 10 Sep 1996 01:59:16 +0000 (01:59 +0000)
committerdrepper <drepper>
Tue, 10 Sep 1996 01:59:16 +0000 (01:59 +0000)
sysdeps/vax/Dist
sysdeps/vax/bcmp.s [deleted file]
sysdeps/vax/index.s [deleted file]
sysdeps/vax/infnan.c [deleted file]
sysdeps/vax/log10.c [deleted file]
sysdeps/vax/memcmp.s
sysdeps/vax/rindex.s [deleted file]
sysdeps/vax/strchr.s
sysdeps/vax/strrchr.s

index 9830be2..22a6930 100644 (file)
@@ -1 +1,2 @@
 DEFS.h
+fl.h
diff --git a/sysdeps/vax/bcmp.s b/sysdeps/vax/bcmp.s
deleted file mode 100644 (file)
index d980feb..0000000
+++ /dev/null
@@ -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
diff --git a/sysdeps/vax/index.s b/sysdeps/vax/index.s
deleted file mode 100644 (file)
index e599b27..0000000
+++ /dev/null
@@ -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
diff --git a/sysdeps/vax/infnan.c b/sysdeps/vax/infnan.c
deleted file mode 100644 (file)
index 62ec9dc..0000000
+++ /dev/null
@@ -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)
diff --git a/sysdeps/vax/log10.c b/sysdeps/vax/log10.c
deleted file mode 100644 (file)
index 0874177..0000000
+++ /dev/null
@@ -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>
index 3854fd8..f7e47de 100644 (file)
@@ -59,3 +59,5 @@ ENTRY(memcmp, 0)
        cmpc3   r5,(r1),(r3)
        jeql    0b              /* loop if same */
        jbr     1b
+
+weak_alias (memcmp, bcmp)
diff --git a/sysdeps/vax/rindex.s b/sysdeps/vax/rindex.s
deleted file mode 100644 (file)
index 76d7e29..0000000
+++ /dev/null
@@ -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
index 18b5383..1683f56 100644 (file)
@@ -103,3 +103,5 @@ Lreent:
        beql    2f              /* not found: return NULL */
        movl    r1,r0
 2:     ret
+
+weak_alias (strchr, index)
index f292eac..dffcdda 100644 (file)
@@ -112,3 +112,5 @@ Lreent:
 3:
        movl    r5,r0           /* return stashed pointer */
        ret
+
+weak_alias (strrchr, rindex)