Imported Upstream version 5.20.0.180

Former-commit-id: ff953ca879339fe1e1211f7220f563e1342e66cb

support/libm/complex.c

@@ -10,14 +10,9 @@
  * ====================================================
  */
 
-#include <sys/cdefs.h>
-
 #include <float.h>
 #include <math.h>
 
-#include "complex.h"
-#include "math_private.h"
-
 /*-
  * Copyright (c) 2004 Stefan Farfeleder
  * All rights reserved.
@@ -46,20 +41,6 @@
  * $FreeBSD$
  */
 
-double
-creal(double complex z)
-{
-	return z;
-}
-
-double
-cimag(double complex z)
-{
-	const double_complex z1 = { .f = z };
-
-	return (IMAGPART(z1));
-}
-
 /*
  * cabs() wrapper for hypot().
  *
@@ -67,8 +48,13 @@ cimag(double complex z)
  * Placed into the Public Domain, 1994.
  */
 
+static inline
 double
-cabs(double complex z)
+cabs(double_complex z)
 {
+#ifdef _MSC_VER // older versions deprecate hypot
+	return _hypot (creal (z), cimag (z));
+#else
 	return hypot(creal(z), cimag(z));
+#endif
 }