SCCS-vsn: lib/libm/vax/Makefile 1.3
SCCS-vsn: lib/libm/vax/argred.s 1.3
SCCS-vsn: lib/libm/vax/atan2.s 1.3
SCCS-vsn: lib/libm/vax/cabs.s 1.3
SCCS-vsn: lib/libm/vax/cbrt.s 1.3
SCCS-vsn: lib/libm/vax/infnan.s 1.3
SCCS-vsn: lib/libm/vax/sincos.s 1.3
SCCS-vsn: lib/libm/vax/sqrt.s 1.3
SCCS-vsn: lib/libm/vax/support.s 1.3
SCCS-vsn: lib/libm/vax/tan.s 1.3
SCCS-vsn: lib/libm/vax/mcount.sed 1.3
SCCS-vsn: lib/libm/vax/Makefile 1.3
SCCS-vsn: lib/libm/vax/argred.s 1.3
SCCS-vsn: lib/libm/vax/atan2.s 1.3
SCCS-vsn: lib/libm/vax/cabs.s 1.3
SCCS-vsn: lib/libm/vax/cbrt.s 1.3
SCCS-vsn: lib/libm/vax/infnan.s 1.3
SCCS-vsn: lib/libm/vax/sincos.s 1.3
SCCS-vsn: lib/libm/vax/sqrt.s 1.3
SCCS-vsn: lib/libm/vax/support.s 1.3
SCCS-vsn: lib/libm/vax/tan.s 1.3
SCCS-vsn: lib/libm/vax/mcount.sed 1.3
-# @(#)Makefile 1.2 (ucb.elefunt) %G%
-# SCCSID = "@(#)Makefile 1.2 (ucb.elefunt) %G%"
+# @(#)Makefile 1.3 (ucb.elefunt) %G%
+# SCCSID = "@(#)Makefile 1.3 (ucb.elefunt) %G%"
MORE=atan2.o cabs.o cbrt.o sqrt.o sincos.o tan.o argred.o support.o infnan.o
.s.o:
MORE=atan2.o cabs.o cbrt.o sqrt.o sincos.o tan.o argred.o support.o infnan.o
.s.o:
# their experiences (good or bad) with these elementary function codes,
# using "sendbug 4bsd-bugs@BERKELEY", to the authors.
#
# their experiences (good or bad) with these elementary function codes,
# using "sendbug 4bsd-bugs@BERKELEY", to the authors.
#
-
-# @(#)argred.s 1.1 (Berkeley) 8/21/85; 1.2 (ucb.elefunt) %G%
+ .data
+ .align 2
+_sccsid:
+.asciz "@(#)argred.s 1.1 (Berkeley) 8/21/85; 1.3 (ucb.elefunt) %G%"
# libm$argred implements Bob Corbett's argument reduction and
# libm$sincos implements Peter Tang's double precision sin/cos.
# libm$argred implements Bob Corbett's argument reduction and
# libm$sincos implements Peter Tang's double precision sin/cos.
# their experiences (good or bad) with these elementary function codes,
# using "sendbug 4bsd-bugs@BERKELEY", to the authors.
#
# their experiences (good or bad) with these elementary function codes,
# using "sendbug 4bsd-bugs@BERKELEY", to the authors.
#
-
-# @(#)atan2.s 1.2 (Berkeley) 8/21/85; 1.2 (ucb.elefunt) %G%
+ .data
+ .align 2
+_sccsid:
+.asciz "@(#)atan2.s 1.2 (Berkeley) 8/21/85; 1.3 (ucb.elefunt) %G%"
# ATAN2(Y,X)
# RETURN ARG (X+iY)
# ATAN2(Y,X)
# RETURN ARG (X+iY)
# their experiences (good or bad) with these elementary function codes,
# using "sendbug 4bsd-bugs@BERKELEY", to the authors.
#
# their experiences (good or bad) with these elementary function codes,
# using "sendbug 4bsd-bugs@BERKELEY", to the authors.
#
-
-# @(#)cabs.s 1.2 (Berkeley) 8/21/85; 1.2 (ucb.elefunt) %G%
+ .data
+ .align 2
+_sccsid:
+.asciz "@(#)cabs.s 1.2 (Berkeley) 8/21/85; 1.3 (ucb.elefunt) %G%"
# double precision complex absolute value
# CABS by W. Kahan, 9/7/80.
# double precision complex absolute value
# CABS by W. Kahan, 9/7/80.
# their experiences (good or bad) with these elementary function codes,
# using "sendbug 4bsd-bugs@BERKELEY", to the authors.
#
# their experiences (good or bad) with these elementary function codes,
# using "sendbug 4bsd-bugs@BERKELEY", to the authors.
#
-
-# @(#)cbrt.s 1.1 (Berkeley) 5/23/85; 1.2 (ucb.elefunt) %G%
+ .data
+ .align 2
+_sccsid:
+.asciz "@(#)cbrt.s 1.1 (Berkeley) 5/23/85; 1.3 (ucb.elefunt) %G%"
# double cbrt(double arg)
# W. Kahan, 10/13/80. revised 1/13/84 for keeping sign symmetry
# double cbrt(double arg)
# W. Kahan, 10/13/80. revised 1/13/84 for keeping sign symmetry
* ongoing research project and hence should feel obligated to report
* their experiences (good or bad) with these elementary function codes,
* using "sendbug 4bsd-bugs@BERKELEY", to the authors.
* ongoing research project and hence should feel obligated to report
* their experiences (good or bad) with these elementary function codes,
* using "sendbug 4bsd-bugs@BERKELEY", to the authors.
- *
- * @(#)infnan.s 1.1 (Berkeley) 8/21/85; 1.2 (ucb.elefunt) %G%
- *
+ */
+ .data
+ .align 2
+_sccsid:
+.asciz "@(#)infnan.s 1.1 (Berkeley) 8/21/85; 1.3 (ucb.elefunt) %G%"
+
+/*
* infnan(arg) int arg;
* where arg := EDOM if result is NaN
* := ERANGE if result is +INF
* := -ERANGE if result is -INF
*
* The Reserved Operand Fault is generated inside of this routine.
* infnan(arg) int arg;
* where arg := EDOM if result is NaN
* := ERANGE if result is +INF
* := -ERANGE if result is -INF
*
* The Reserved Operand Fault is generated inside of this routine.
*/
.globl _infnan
.set EDOM,33
*/
.globl _infnan
.set EDOM,33
# their experiences (good or bad) with these elementary function codes,
# using "sendbug 4bsd-bugs@BERKELEY", to the authors.
#
# their experiences (good or bad) with these elementary function codes,
# using "sendbug 4bsd-bugs@BERKELEY", to the authors.
#
-
-# @(#)sincos.s 1.1 (Berkeley) 8/21/85; 1.2 (ucb.elefunt) %G%
+ .data
+ .align 2
+_sccsid:
+.asciz "@(#)sincos.s 1.1 (Berkeley) 8/21/85; 1.3 (ucb.elefunt) %G%"
# This is the implementation of Peter Tang's double precision
# sine and cosine for the VAX using Bob Corbett's argument reduction.
# This is the implementation of Peter Tang's double precision
# sine and cosine for the VAX using Bob Corbett's argument reduction.
* ongoing research project and hence should feel obligated to report
* their experiences (good or bad) with these elementary function codes,
* using "sendbug 4bsd-bugs@BERKELEY", to the authors.
* ongoing research project and hence should feel obligated to report
* their experiences (good or bad) with these elementary function codes,
* using "sendbug 4bsd-bugs@BERKELEY", to the authors.
- *
- *
- * @(#)sqrt.s 1.1 (Berkeley) 8/21/85; 1.2 (ucb.elefunt) %G%
- *
+ */
+ .data
+ .align 2
+_sccsid:
+.asciz "@(#)sqrt.s 1.1 (Berkeley) 8/21/85; 1.3 (ucb.elefunt) %G%"
+
+/*
* double sqrt(arg) revised August 15,1982
* double arg;
* if(arg<0.0) { _errno = EDOM; return(<a reserved operand>); }
* double sqrt(arg) revised August 15,1982
* double arg;
* if(arg<0.0) { _errno = EDOM; return(<a reserved operand>); }
* ongoing research project and hence should feel obligated to report
* their experiences (good or bad) with these elementary function codes,
* using "sendbug 4bsd-bugs@BERKELEY", to the authors.
* ongoing research project and hence should feel obligated to report
* their experiences (good or bad) with these elementary function codes,
* using "sendbug 4bsd-bugs@BERKELEY", to the authors.
- *
- * @(#)support.s 1.3 (Berkeley) 8/21/85; 1.2 (ucb.elefunt) %G%
- *
+ */
+ .data
+ .align 2
+_sccsid:
+.asciz "@(#)support.s 1.3 (Berkeley) 8/21/85; 1.3 (ucb.elefunt) %G%"
+
+/*
* copysign(x,y),
* logb(x),
* scalb(x,N),
* copysign(x,y),
* logb(x),
* scalb(x,N),
# their experiences (good or bad) with these elementary function codes,
# using "sendbug 4bsd-bugs@BERKELEY", to the authors.
#
# their experiences (good or bad) with these elementary function codes,
# using "sendbug 4bsd-bugs@BERKELEY", to the authors.
#
-
-# @(#)tan.s 1.1 (Berkeley) 8/21/85; 1.2 (ucb.elefunt) %G%
+ .data
+ .align 2
+_sccsid:
+.asciz "@(#)tan.s 1.1 (Berkeley) 8/21/85; 1.3 (ucb.elefunt) %G%"
# This is the implementation of Peter Tang's double precision
# tangent for the VAX using Bob Corbett's argument reduction.
# This is the implementation of Peter Tang's double precision
# tangent for the VAX using Bob Corbett's argument reduction.