From d7dded53989ee0343efc1e20bec58cc4e9695257 Mon Sep 17 00:00:00 2001 From: Aditya Upadhyay Date: Wed, 28 Jun 2017 00:02:49 +0530 Subject: [PATCH 4/9] Importing cargl.c from NetBSD. --- newlib/libm/complex/Makefile.am | 2 +- newlib/libm/complex/cargl.c | 18 ++++++++++++++++++ 2 files changed, 19 insertions(+), 1 deletion(-) create mode 100644 newlib/libm/complex/cargl.c diff --git a/newlib/libm/complex/Makefile.am b/newlib/libm/complex/Makefile.am index 2c54ca7..7d649ca 100644 --- a/newlib/libm/complex/Makefile.am +++ b/newlib/libm/complex/Makefile.am @@ -10,7 +10,7 @@ src = cabs.c cacos.c cacosh.c carg.c casin.c casinh.c \ cpow.c cproj.c creal.c \ csin.c csinh.c csqrt.c ctan.c ctanh.c -lsrc = cabsl.c creall.c cimagl.c ccoshl.c cacoshl.c clogl.c csqrtl.c +lsrc = cabsl.c creall.c cimagl.c ccoshl.c cacoshl.c clogl.c csqrtl.c cargl.c fsrc = cabsf.c casinf.c ccosf.c cimagf.c cprojf.c \ csqrtf.c cacosf.c casinhf.c ccoshf.c clogf.c clog10f.c \ diff --git a/newlib/libm/complex/cargl.c b/newlib/libm/complex/cargl.c new file mode 100644 index 0000000..d2885a4 --- /dev/null +++ b/newlib/libm/complex/cargl.c @@ -0,0 +1,18 @@ +/* $NetBSD: cargl.c,v 1.1 2014/10/10 00:48:18 christos Exp $ */ + +/* + * Public domain. + */ + +#include +#include + +long double +cargl(long double complex z) +{ + #ifdef _LDBL_EQ_DBL + return carg (z); + #else + return atan2l (imag (z), real (z)); + #endif +} -- 2.7.4