Use fabs/fabsl/fabsq for NVs in pp_abs.

In many floating point formats, fabs*() are rather simple operations
such as just clearing the sign bit, and will be slightly faster
than a conditional negation (especially with optimizing compilers).

1 files changed, 1 insertions, 4 deletions

diff --git a/pp.c b/pp.c
index d0df828363..8054e7da11 100644
--- a/pp.c
+++ b/pp.c
@@ -3057,10 +3057,7 @@ PP(pp_abs)
         }
       } else{
         const NV value = SvNV_nomg(sv);
-        if (value < 0.0)
-          SETn(-value);
-        else
-          SETn(value);
+        SETn(Perl_fabs(value));
       }
     }
     return NORMAL;