Use the new primitive in the param real/imag abs

--- Signed-off-by: Michael Ferguson <mppf@users.noreply.github.com>
chapel-lang · Jan 5, 2024 · 387f361 · 387f361
1 parent f00e1cc
commit 387f361
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/modules/standard/AutoMath.chpl b/modules/standard/AutoMath.chpl
@@ -211,7 +211,7 @@ module AutoMath {
 
   /* Return the absolute value of a param real(64) as a param */
   proc abs(param x: real(64)) param :real(64) {
-    return if x < 0 then -x else x;
+    return __primitive("abs", x);
   }
 
   /* Returns the magnitude of the real argument `x`. */
@@ -224,7 +224,7 @@ module AutoMath {
 
   /* Return the absolute value of a param real(32) as a param */
   proc abs(param x: real(32)) param : real(32) {
-    return if x < 0 then -x else x;
+    return __primitive("abs", x);
   }
 
   /* Returns the real magnitude of the imaginary argument `x`. */