Change return value for -inf argument to -1.0.

diff --git a/sysdeps/libm-i387/s_expm1.S b/sysdeps/libm-i387/s_expm1.S
index 78e8013b7e1585a77ed0cf997552152467dabce4..e1b198d604e3278ba9d4972c44ba3c7d5563318d 100644 (file)
--- a/sysdeps/libm-i387/s_expm1.S
+++ b/sysdeps/libm-i387/s_expm1.S
@@ -30,9 +30,9 @@
        .text
 #endif
        .align ALIGNARG(4)
-       ASM_TYPE_DIRECTIVE(zero,@object)
-zero:  .double 0.0
-       ASM_SIZE_DIRECTIVE(zero)
+       ASM_TYPE_DIRECTIVE(minus1,@object)
+minus1:        .double -1.0
+       ASM_SIZE_DIRECTIVE(minus1)
        ASM_TYPE_DIRECTIVE(one,@object)
 one:   .double 1.0
        ASM_SIZE_DIRECTIVE(one)
@@ -79,7 +79,8 @@ ENTRY(__expm1)
 
 2:     testl   $0x200, %eax    // Test sign.
        jz      3f              // If positive, jump.
-       fldl    MO(zero)        // Set result to 0.
+       fstp    %st
+       fldl    MO(minus1)      // Set result to -1.0.
 3:     ret
 END(__expm1)
 weak_alias (__expm1, expm1)

diff --git a/sysdeps/libm-i387/s_expm1f.S b/sysdeps/libm-i387/s_expm1f.S
index 00f1562e73b550a9235617bf588b5ac89b09267a..8626fee45db96d8f2e82433117f3dd4bb4d4bb27 100644 (file)
--- a/sysdeps/libm-i387/s_expm1f.S
+++ b/sysdeps/libm-i387/s_expm1f.S
@@ -30,9 +30,9 @@
        .text
 #endif
        .align ALIGNARG(4)
-       ASM_TYPE_DIRECTIVE(zero,@object)
-zero:  .double 0.0
-       ASM_SIZE_DIRECTIVE(zero)
+       ASM_TYPE_DIRECTIVE(minus1,@object)
+minus1:        .double -1.0
+       ASM_SIZE_DIRECTIVE(minus1)
        ASM_TYPE_DIRECTIVE(one,@object)
 one:   .double 1.0
        ASM_SIZE_DIRECTIVE(one)
@@ -79,7 +79,8 @@ ENTRY(__expm1f)
 
 2:     testl   $0x200, %eax    // Test sign.
        jz      3f              // If positive, jump.
-       fldl    MO(zero)        // Set result to 0.
+       fstp    %st
+       fldl    MO(minus1)      // Set result to -1.0.
 3:     ret
 END(__expm1f)
 weak_alias (__expm1f, expm1f)

diff --git a/sysdeps/libm-i387/s_expm1l.S b/sysdeps/libm-i387/s_expm1l.S
index b7e6b36d39a9fd56f530ac5ff0ed7c21a0bb93ec..46290ca4a9eb22836d5a4938a8433b64adf3cdbc 100644 (file)
--- a/sysdeps/libm-i387/s_expm1l.S
+++ b/sysdeps/libm-i387/s_expm1l.S
@@ -30,9 +30,9 @@
        .text
 #endif
        .align ALIGNARG(4)
-       ASM_TYPE_DIRECTIVE(zero,@object)
-zero:  .double 0.0
-       ASM_SIZE_DIRECTIVE(zero)
+       ASM_TYPE_DIRECTIVE(minus1,@object)
+minus1:        .double -1.0
+       ASM_SIZE_DIRECTIVE(minus1)
        ASM_TYPE_DIRECTIVE(one,@object)
 one:   .double 1.0
        ASM_SIZE_DIRECTIVE(one)
@@ -79,7 +79,8 @@ ENTRY(__expm1l)
 
 2:     testl   $0x200, %eax    // Test sign.
        jz      3f              // If positive, jump.
-       fldl    MO(zero)        // Set result to 0.
+       fstp    %st
+       fldl    MO(minus1)      // Set result to -1.0.
 3:     ret
 END(__expm1l)
 weak_alias (__expm1l, expm1l)