Merge pull request #3787 from yebblies/sqrtport

[DDMD] Move sqrt into Port
dlang · Jul 20, 2014 · 82b031c · 82b031c
2 parents e47d845 + 6bcbae1
commit 82b031c
Show file tree

Hide file tree

Showing 3 changed files with 27 additions and 1 deletion.
diff --git a/src/builtin.c b/src/builtin.c
@@ -69,7 +69,7 @@ Expression *eval_sqrt(Loc loc, FuncDeclaration *fd, Expressions *arguments)
 {
     Expression *arg0 = (*arguments)[0];
     assert(arg0->op == TOKfloat64);
-    return new RealExp(loc, sqrtl(arg0->toReal()), arg0->type);
+    return new RealExp(loc, Port::sqrt(arg0->toReal()), arg0->type);
 }
 
 Expression *eval_fabs(Loc loc, FuncDeclaration *fd, Expressions *arguments)

diff --git a/src/root/port.c b/src/root/port.c
@@ -77,6 +77,11 @@ int Port::isInfinity(double r)
     return (::fpclassify(r) == FP_INFINITE);
 }
 
+longdouble Port::sqrt(longdouble x)
+{
+    return ::sqrtl(x);
+}
+
 longdouble Port::fmodl(longdouble x, longdouble y)
 {
     return ::fmodl(x, y);
@@ -214,6 +219,11 @@ int Port::isInfinity(double r)
     return (::_fpclass(r) & (_FPCLASS_NINF | _FPCLASS_PINF));
 }
 
+longdouble Port::sqrt(longdouble x)
+{
+    return ::sqrtl(x);
+}
+
 longdouble Port::fmodl(longdouble x, longdouble y)
 {
     return ::fmodl(x, y);
@@ -352,6 +362,11 @@ int Port::isInfinity(double r)
     return isinf(r);
 }
 
+longdouble Port::sqrt(longdouble x)
+{
+    return ::sqrtl(x);
+}
+
 longdouble Port::fmodl(longdouble x, longdouble y)
 {
     return ::fmodl(x, y);
@@ -572,6 +587,11 @@ int Port::isInfinity(double r)
 #endif
 }
 
+longdouble Port::sqrt(longdouble x)
+{
+    return ::sqrtl(x);
+}
+
 longdouble Port::fmodl(longdouble x, longdouble y)
 {
 #if __FreeBSD__ && __FreeBSD_version < 800000 || __OpenBSD__
@@ -753,6 +773,11 @@ int Port::isInfinity(double r)
     return isinf(r);
 }
 
+longdouble Port::sqrt(longdouble x)
+{
+    return ::sqrtl(x);
+}
+
 longdouble Port::fmodl(longdouble x, longdouble y)
 {
     return ::fmodl(x, y);

diff --git a/src/root/port.h b/src/root/port.h
@@ -51,6 +51,7 @@ struct Port
     static int isInfinity(double);
 
     static longdouble fmodl(longdouble x, longdouble y);
+    static longdouble sqrt(longdouble x);
     static int fequal(longdouble x, longdouble y);
 
     static char *strupr(char *);