[src/netbsd-1-5]: src/lib/libm/arch/i387 Pull up rev. 1.3 (approved by thorpej):

[kleink <kleink%NetBSD.org@localhost>]

details:   https://anonhg.NetBSD.org/src/rev/8bda379c118f
branches:  netbsd-1-5
changeset: 489539:8bda379c118f
user:      kleink <kleink%NetBSD.org@localhost>
date:      Tue Sep 26 14:31:12 2000 +0000

description:
Pull up rev. 1.3 (approved by thorpej):
Make these idempotent as far as the FPU register stack is concerned.

diffstat:

 lib/libm/arch/i387/e_expf.S |  8 ++++----
 1 files changed, 4 insertions(+), 4 deletions(-)

diffs (25 lines):

diff -r dacbc98761ed -r 8bda379c118f lib/libm/arch/i387/e_expf.S
--- a/lib/libm/arch/i387/e_expf.S       Tue Sep 26 14:30:26 2000 +0000
+++ b/lib/libm/arch/i387/e_expf.S       Tue Sep 26 14:31:12 2000 +0000
@@ -5,17 +5,17 @@
 
 #include <machine/asm.h>
 
-RCSID("$NetBSD: e_expf.S,v 1.2 1999/07/02 15:37:34 simonb Exp $")
+RCSID("$NetBSD: e_expf.S,v 1.2.8.1 2000/09/26 14:31:12 kleink Exp $")
 
 /* e^x = 2^(x * log2(e)) */
 ENTRY(__ieee754_expf)
        flds    4(%esp)
        fldl2e
        fmulp                           /* x * log2(e) */
-       fstl    %st(1)
+       fldl    %st(0)
        frndint                         /* int(x * log2(e)) */
-       fstl    %st(2)
-       fsubrp                          /* fract(x * log2(e)) */
+       fsubr   %st(0),%st(1)           /* fract(x * log2(e)) */
+       fxch
        f2xm1                           /* 2^(fract(x * log2(e))) - 1 */
        fld1
        faddp                           /* 2^(fract(x * log2(e))) */