Module Name: src
Committed By: riastradh
Date: Tue May 7 15:15:10 UTC 2024
Modified Files:
src/lib/libm/arch/vax: n_argred.S n_atan2.S n_cabs.S n_cbrt.S
n_infnan.S n_scalbn.S n_sqrt.S n_support.S
Log Message:
libm/arch/vax: Use END to delimit symbol definitions.
This way we get sizes and, likely, slightly better debug info about
PCs inside these symbols.
To generate a diff of this commit:
cvs rdiff -u -r1.9 -r1.10 src/lib/libm/arch/vax/n_argred.S \
src/lib/libm/arch/vax/n_atan2.S
cvs rdiff -u -r1.7 -r1.8 src/lib/libm/arch/vax/n_cabs.S \
src/lib/libm/arch/vax/n_cbrt.S
cvs rdiff -u -r1.6 -r1.7 src/lib/libm/arch/vax/n_infnan.S \
src/lib/libm/arch/vax/n_scalbn.S
cvs rdiff -u -r1.11 -r1.12 src/lib/libm/arch/vax/n_sqrt.S
cvs rdiff -u -r1.10 -r1.11 src/lib/libm/arch/vax/n_support.S
Please note that diffs are not public domain; they are subject to the
copyright notices on the relevant files.
Modified files:
Index: src/lib/libm/arch/vax/n_argred.S
diff -u src/lib/libm/arch/vax/n_argred.S:1.9 src/lib/libm/arch/vax/n_argred.S:1.10
--- src/lib/libm/arch/vax/n_argred.S:1.9 Thu Apr 19 00:37:20 2007
+++ src/lib/libm/arch/vax/n_argred.S Tue May 7 15:15:09 2024
@@ -1,4 +1,4 @@
-/* $NetBSD: n_argred.S,v 1.9 2007/04/19 00:37:20 matt Exp $ */
+/* $NetBSD: n_argred.S,v 1.10 2024/05/07 15:15:09 riastradh Exp $ */
/*
* Copyright (c) 1985, 1993
* The Regents of the University of California. All rights reserved.
@@ -67,6 +67,7 @@ small_arg:
* %r3 contains a F-format extension to the reduced argument;
* %r4 contains a 0 or 1 corresponding to a sin or cos entry.
*/
+END(__libm_argred)
.hidden __libm_sincos
ENTRY(__libm_sincos, 0)
@@ -120,6 +121,7 @@ done:
mnegd %r0,%r0
even:
rsb
+END(__libm_sincos)
#ifdef __ELF__
.section .rodata
Index: src/lib/libm/arch/vax/n_atan2.S
diff -u src/lib/libm/arch/vax/n_atan2.S:1.9 src/lib/libm/arch/vax/n_atan2.S:1.10
--- src/lib/libm/arch/vax/n_atan2.S:1.9 Fri Oct 10 20:58:09 2014
+++ src/lib/libm/arch/vax/n_atan2.S Tue May 7 15:15:09 2024
@@ -1,4 +1,4 @@
-/* $NetBSD: n_atan2.S,v 1.9 2014/10/10 20:58:09 martin Exp $ */
+/* $NetBSD: n_atan2.S,v 1.10 2024/05/07 15:15:09 riastradh Exp $ */
/*
* Copyright (c) 1985, 1993
* The Regents of the University of California. All rights reserved.
@@ -81,6 +81,7 @@ ENTRY(_atan2f, 0)
calls $2,_C_LABEL(_atan2)
cvtdf %r0,%r0
ret
+END(_atan2f)
#ifdef WEAK_ALIAS
WEAK_ALIAS(atan2, _atan2)
@@ -211,6 +212,7 @@ pio2:
resop:
movq $0x8000,%r0 # propagate the reserved operand
ret
+END(_atan2)
_ALIGN_TEXT
ptable:
Index: src/lib/libm/arch/vax/n_cabs.S
diff -u src/lib/libm/arch/vax/n_cabs.S:1.7 src/lib/libm/arch/vax/n_cabs.S:1.8
--- src/lib/libm/arch/vax/n_cabs.S:1.7 Fri Oct 10 20:58:09 2014
+++ src/lib/libm/arch/vax/n_cabs.S Tue May 7 15:15:09 2024
@@ -1,4 +1,4 @@
-/* $NetBSD: n_cabs.S,v 1.7 2014/10/10 20:58:09 martin Exp $ */
+/* $NetBSD: n_cabs.S,v 1.8 2024/05/07 15:15:09 riastradh Exp $ */
/*
* Copyright (c) 1985, 1993
* The Regents of the University of California. All rights reserved.
@@ -52,6 +52,7 @@ ENTRY(_hypotf, 0)
calls $2,_C_LABEL(_hypot)
cvtdf %r0,%r0
ret
+END(_hypotf)
#ifdef WEAK_ALIAS
WEAK_ALIAS(hypot, _hypot)
@@ -64,6 +65,7 @@ ENTRY(_hypot, 0x8040) # save %r6, enab
movq 4(%ap),%r0 # %r0:1 = x
movq 12(%ap),%r2 # %r2:3 = y
jbr cabs2
+END(_hypot)
/* entry for Fortran use, call by: d = abs(z) */
ENTRY(z_abs, 0x8040) # save %r6, enable floating overflow
@@ -89,6 +91,7 @@ cont:
addd2 %r0,%r0 # overflow; %r0 is half of true abs value
return:
ret
+END(z_abs)
ENTRY(__libm_cdabs_r6,0) # ENTRY POINT for cdsqrt
# calculates a scaled (factor in %r6)
@@ -138,3 +141,4 @@ ordered:
# %r0:1 = dsqrt(x^2+y^2)/2^%r6
retsb:
rsb # error < 0.86 ulp
+END(__libm_cdabs_r6)
Index: src/lib/libm/arch/vax/n_cbrt.S
diff -u src/lib/libm/arch/vax/n_cbrt.S:1.7 src/lib/libm/arch/vax/n_cbrt.S:1.8
--- src/lib/libm/arch/vax/n_cbrt.S:1.7 Sun Nov 24 15:12:10 2013
+++ src/lib/libm/arch/vax/n_cbrt.S Tue May 7 15:15:09 2024
@@ -1,4 +1,4 @@
-/* $NetBSD: n_cbrt.S,v 1.7 2013/11/24 15:12:10 martin Exp $ */
+/* $NetBSD: n_cbrt.S,v 1.8 2024/05/07 15:15:09 riastradh Exp $ */
/*
* Copyright (c) 1985, 1993
* The Regents of the University of California. All rights reserved.
@@ -45,6 +45,7 @@ ENTRY(cbrtf, 0)
calls $2,_C_LABEL(cbrt)
cvtdf %r0,%r0
ret
+END(cbrtf)
#ifdef WEAK_ALIAS
WEAK_ALIAS(cbrtl, cbrt)
@@ -54,6 +55,7 @@ ALTENTRY(cbrt)
ENTRY(d_cbrt, 0x00c0) # save %r6 & %r7
movq 4(%ap),%r0 # %r0 = argument x
jbr dcbrt2
+END(d_cbrt)
ENTRY(dcbrt_, 0x00c0) # save %r6 & %r7
movq *4(%ap),%r0 # %r0 = argument x
@@ -90,6 +92,7 @@ dcbrt2: bicw3 $0x807f,%r0,%r2 # biased e
bisw2 %ap,%r0 # restore the sign bit
return:
ret # error less than 0.667 ulps
+END(dcbrt_)
_ALIGN_TEXT
B : .long 721142941 # (86-0.03306235651)*(2^23)
Index: src/lib/libm/arch/vax/n_infnan.S
diff -u src/lib/libm/arch/vax/n_infnan.S:1.6 src/lib/libm/arch/vax/n_infnan.S:1.7
--- src/lib/libm/arch/vax/n_infnan.S:1.6 Thu Aug 7 16:44:45 2003
+++ src/lib/libm/arch/vax/n_infnan.S Tue May 7 15:15:10 2024
@@ -1,4 +1,4 @@
-/* $NetBSD: n_infnan.S,v 1.6 2003/08/07 16:44:45 agc Exp $ */
+/* $NetBSD: n_infnan.S,v 1.7 2024/05/07 15:15:10 riastradh Exp $ */
/*
* Copyright (c) 1985, 1993
* The Regents of the University of California. All rights reserved.
@@ -54,3 +54,4 @@ ENTRY(infnan, 0)
1: movl $EDOM,_C_LABEL(errno)
2: emodd $0,$0,$0x8000,%r0,%r0 # generates the reserved operand fault
ret
+END(infnan)
Index: src/lib/libm/arch/vax/n_scalbn.S
diff -u src/lib/libm/arch/vax/n_scalbn.S:1.6 src/lib/libm/arch/vax/n_scalbn.S:1.7
--- src/lib/libm/arch/vax/n_scalbn.S:1.6 Mon Apr 4 19:33:44 2022
+++ src/lib/libm/arch/vax/n_scalbn.S Tue May 7 15:15:10 2024
@@ -30,7 +30,7 @@
#include <machine/asm.h>
#include <sys/errno.h>
-RCSID("$NetBSD: n_scalbn.S,v 1.6 2022/04/04 19:33:44 andvar Exp $")
+RCSID("$NetBSD: n_scalbn.S,v 1.7 2024/05/07 15:15:10 riastradh Exp $")
WEAK_ALIAS(scalbn,_scalbn)
WEAK_ALIAS(scalbnl,_scalbnl)
@@ -43,6 +43,7 @@ ENTRY(_scalbnf, 0)
cvtfd 4(%ap), %r0
movl 8(%ap), %r2
jr 1f
+END(_scalbnf)
ALTENTRY(_scalbnl)
ENTRY(_scalbn, 0)
@@ -82,3 +83,4 @@ copysign:
bisw2 $0x8000, %r0 /* preserve sign-bit */
5:
ret
+END(_scalbn)
Index: src/lib/libm/arch/vax/n_sqrt.S
diff -u src/lib/libm/arch/vax/n_sqrt.S:1.11 src/lib/libm/arch/vax/n_sqrt.S:1.12
--- src/lib/libm/arch/vax/n_sqrt.S:1.11 Sat Oct 11 06:59:29 2014
+++ src/lib/libm/arch/vax/n_sqrt.S Tue May 7 15:15:10 2024
@@ -1,4 +1,4 @@
-/* $NetBSD: n_sqrt.S,v 1.11 2014/10/11 06:59:29 martin Exp $ */
+/* $NetBSD: n_sqrt.S,v 1.12 2024/05/07 15:15:10 riastradh Exp $ */
/*
* Copyright (c) 1985, 1993
* The Regents of the University of California. All rights reserved.
@@ -53,6 +53,7 @@ WEAK_ALIAS(sqrtl, sqrt)
ENTRY(d_sqrt, 0x003c) # save %r5,%r4,%r3,%r2
movq *4(%ap),%r0
jbr dsqrt2
+END(d_sqrt)
ENTRY(sqrt, 0x003c) # save %r5,%r4,%r3,%r2
movq 4(%ap),%r0
@@ -61,6 +62,7 @@ dsqrt2: bicw3 $0x807f,%r0,%r2 # check ex
jeql noexp # biased exponent is zero -> 0.0 or reserved
bsbb __libm_dsqrt_r5_lcl
noexp: ret
+END(sqrt)
/* **************************** internal procedure */
@@ -128,3 +130,4 @@ ENTRY(sqrtf, 0)
calls $2,_C_LABEL(sqrt)
cvtdf %r0,%r0
ret
+END(sqrtf)
Index: src/lib/libm/arch/vax/n_support.S
diff -u src/lib/libm/arch/vax/n_support.S:1.10 src/lib/libm/arch/vax/n_support.S:1.11
--- src/lib/libm/arch/vax/n_support.S:1.10 Fri Nov 14 14:53:17 2014
+++ src/lib/libm/arch/vax/n_support.S Tue May 7 15:15:10 2024
@@ -1,4 +1,4 @@
-/* $NetBSD: n_support.S,v 1.10 2014/11/14 14:53:17 joerg Exp $ */
+/* $NetBSD: n_support.S,v 1.11 2024/05/07 15:15:10 riastradh Exp $ */
/*
* Copyright (c) 1985, 1993
* The Regents of the University of California. All rights reserved.
@@ -61,6 +61,7 @@ ENTRY(copysign, 0)
bicw2 $0x8000,%r0 # replace x by |x|
bisw2 %r2,%r0 # copy the sign bit of y to x
Lz: ret
+END(copysign)
ENTRY(copysignf, 0)
movl 4(%ap),%r0 # load x into %r0
@@ -70,6 +71,7 @@ ENTRY(copysignf, 0)
bicw2 $0x8000,%r0 # replace x by |x|
bisw2 %r2,%r0 # copy the sign bit of y to x
1: ret
+END(copysignf)
/*
* float logbf(float x);
@@ -79,6 +81,7 @@ ENTRY(logbf, 0)
calls $2,_C_LABEL(logb)
cvtdf %r0,%r0
ret
+END(logbf)
/*
* double logb(double x);
@@ -94,6 +97,7 @@ Ln: movq 4(%ap),%r0 # %r0:1 = x (zero o
bneq 1f # simply return if reserved op
movq $0x0000fe00ffffcfff,%r0 # -2147483647.0
1: ret
+END(logb)
/*
* long finite(double x);
@@ -110,6 +114,7 @@ ENTRY(finite, 0)
ret
1: clrl %r0
ret
+END(finite)
/* int isnan(double x);
*/
@@ -124,6 +129,7 @@ ENTRY(isnan, 0)
ENTRY(isnanf, 0)
clrl %r0
ret
+END(isnanf)
/*
* double scalb(x,N)
@@ -155,6 +161,7 @@ ovfl: pushl $ERANGE
ret
unfl: movq $0,%r0
ret1: ret
+END(scalb)
/*
* DREM(X,Y)
@@ -245,3 +252,4 @@ Rop: #Reserved operand
Ret:
movq $0x8000,%r0 #propagate reserved op
ret
+END(drem)
