* floatfns.c (Fabs): Do not wrap fabs inside IN_FLOAT.

Unlike the other wrapped functions, fabs has an unspecified
effect on errno.

Fixes: debbugs:11913

diff --git a/src/ChangeLog b/src/ChangeLog
index 6c994369610dde7fa963b76ed53abc6819da2e71..9949c65ba713c5e8da3368262dd039c125c06714 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,9 @@
+2012-07-17  Paul Eggert  <eggert@cs.ucla.edu>
+
+       * floatfns.c (Fabs): Do not wrap fabs inside IN_FLOAT (Bug#11913).
+       Unlike the other wrapped functions, fabs has an unspecified
+       effect on errno.
+
 2012-07-16  Jan Djärv  <jan.h.d@swipnet.se>
 
        * nsterm.m (keyDown): Interpret flags without left/right bits

diff --git a/src/floatfns.c b/src/floatfns.c
index eaa1b32eb17ea634c5410d83070711dac883ceff..cad071f1e15cd9f76b045c03a3f28387feda1130 100644 (file)
--- a/src/floatfns.c
+++ b/src/floatfns.c
@@ -664,7 +664,7 @@ DEFUN ("abs", Fabs, Sabs, 1, 1, 0,
   CHECK_NUMBER_OR_FLOAT (arg);
 
   if (FLOATP (arg))
-    IN_FLOAT (arg = make_float (fabs (XFLOAT_DATA (arg))), "abs", arg);
+    arg = make_float (fabs (XFLOAT_DATA (arg)));
   else if (XINT (arg) < 0)
     XSETINT (arg, - XINT (arg));