From 0f754d0339ad356f43e5caafdb899ae4cf456fe1 Mon Sep 17 00:00:00 2001 From: Aditya Upadhyay Date: Thu, 29 Jun 2017 01:30:47 +0530 Subject: [PATCH 04/18] 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 100755 newlib/libm/complex/cargl.c diff --git a/newlib/libm/complex/Makefile.am b/newlib/libm/complex/Makefile.am index c70726e..48b6d92 100644 --- a/newlib/libm/complex/Makefile.am +++ b/newlib/libm/complex/Makefile.am @@ -11,7 +11,7 @@ src = cabs.c cacos.c cacosh.c carg.c casin.c casinh.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 + 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 100755 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