busybox/uClibc
1
0
Fork 0
mirror of https://git.busybox.net/uClibc synced 2025-10-14 01:32:00 +08:00
Code Issues Packages Projects Releases Wiki Activity

libm: implement generic cexp(), cexpf() and cexpl().

Browse Source 
The cexp*() family of functions is defined by the C99 math standard as
implementing exponential functions for complex types.

Signed-off-by: William Pitcock <nenolod@dereferenced.org>
Signed-off-by: Bernhard Reutner-Fischer <rep.dot.nop@gmail.com>
This commit is contained in:
William Pitcock
2011-11-01 18:41:30 -05:00
committed by Bernhard Reutner-Fischer
parent 25790afdad
commit 6471fc450b
2 changed files with 65 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
libm/Makefile.in
View File

@@ -72,7 +72,8 @@ libm_CSRC := \
s_fpclassify.c s_fpclassifyf.c s_signbit.c s_signbitf.c \
s_isnan.c s_isnanf.c s_isinf.c s_isinff.c s_finitef.c \
s_fdim.c s_fma.c s_fmax.c s_fmin.c \
s_remquo.c w_exp2.c
s_remquo.c w_exp2.c \
cexp.c
# Not implemented [yet?], see comment in float_wrappers.c:
# fdimf.o fmaf.o fmaxf.o fminf.o

63
libm/cexp.c Normal file
View File

@@ -0,0 +1,63 @@
/*
* Copyright (c) 2011 William Pitcock <nenolod@dereferenced.org>
*
* Permission to use, copy, modify, and/or distribute this software for any
* purpose with or without fee is hereby granted, provided that the above
* copyright notice and this permission notice appear in all copies.
*
* THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
* IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
* WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
* DISCLAIMED. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT,
* INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
* (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
* SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
* HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT,
* STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING
* IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
* POSSIBILITY OF SUCH DAMAGE.
*/
#include <features.h>
#include <math.h>
#include <complex.h>
__complex__ double cexp(__complex__ double z)
{
__complex__ double ret;
double r_exponent = exp(__real__ z);
__real__ ret = r_exponent * cos(__imag__ z);
__imag__ ret = r_exponent * sin(__imag__ z);
return ret;
}
libm_hidden_def(cexp)
libm_hidden_proto(cexpf)
__complex__ float cexpf(__complex__ float z)
{
__complex__ float ret;
double r_exponent = exp(__real__ z);
__real__ ret = r_exponent * cosf(__imag__ z);
__imag__ ret = r_exponent * sinf(__imag__ z);
return ret;
}
libm_hidden_def(cexpf)
#if defined __UCLIBC_HAS_LONG_DOUBLE_MATH__ && !defined __NO_LONG_DOUBLE_MATH
libm_hidden_proto(cexpl)
__complex__ long double cexpl(__complex__ long double z)
{
__complex__ long double ret;
long double r_exponent = expl(__real__ z);
__real__ ret = r_exponent * cosl(__imag__ z);
__imag__ ret = r_exponent * sinl(__imag__ z);
return ret;
}
libm_hidden_def(cexpl)
#endif