diff options
| author | Todd C. Miller <millert@cvs.openbsd.org> | 2003-11-01 22:19:34 +0000 |
|---|---|---|
| committer | Todd C. Miller <millert@cvs.openbsd.org> | 2003-11-01 22:19:34 +0000 |
| commit | 175a8fb692752e743f26874b87ffbc43f910232a (patch) | |
| tree | 04ffaf8ea44fbf75667bf2b02cc62afca1392299 | |
| parent | c70122c4a86c06a4084c199b961034a4d9f71423 (diff) | |
Historically, scalb() in 4BSD had the actual semantics of scalbn(). We changed
scalb() to scalbn() some time ago in the tree to fix this. However, it turns
out the vax scalb() had already been fixed to support standard scalb()
semantics. This commit undoes that change, making the vax scalbn() the same
as the 4BSD scalb() (but with the correct name) and fixes the comment.
We still could use wrappers for scalb(), scalbf() and scalbnf().
Fixes exp() and a number of perl tests; OK hugh@
| -rw-r--r-- | lib/libm/arch/vax/n_support.S | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/lib/libm/arch/vax/n_support.S b/lib/libm/arch/vax/n_support.S index f0f7644da20..2bf94cfe465 100644 --- a/lib/libm/arch/vax/n_support.S +++ b/lib/libm/arch/vax/n_support.S @@ -100,19 +100,18 @@ _finite: /* * double scalbn(x,N) - * double x; double N; + * double x; int N; */ .globl _scalbn .set ERANGE,34 .text .align 1 _scalbn: - .word 0x3c + .word 0xc movq 4(ap),r0 bicl3 $0xffff807f,r0,r3 beql ret1 # 0 or reserved operand - movq 12(ap),r4 - cvtdl r4, r2 + movl 12(ap),r2 cmpl r2,$0x12c bgeq ovfl cmpl r2,$-0x12c @@ -215,7 +214,7 @@ E2: movw $0,r8 #clear r8 movq $0,r0 #x underflow to zero C5: - bisw2 r8,r0 /* put r8 into x's exponent field */ + bisw2 r8,r0 #put r8 into x's exponent field ret Rop: #Reserved operand pushl $EDOM |