Aren
/
NetBSD
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
NetBSD/lib/libm/complex/crealf.c

18 lines
292 B
C
Raw Normal View History

Commit SoC long double support from Stathis Kamperis
2010-09-15 20:11:28 +04:00
/* $NetBSD: crealf.c,v 1.2 2010/09/15 16:11:29 christos Exp $ */
Add C99 complex support, for double and float. Most complex function implementations are from the "c9x-complex" library, originating from the "cephes" math library, see http://www.netlib.org/cephes/, from Stephen L. Moshier, incorporated and redistributed with the NetBSD license by permission of the author. Error behaviour and other boundary conditions (branch cuts) need to be looked at. For namespace sanity, I've done the rename/weak alias procedure to most of the exported functions which are also used internally. Didn't do so for sin/cos(f) yet because assembler implementations use them directly, and renaming functions shared between the main libm and the machine specific "overlay" might raise binary compatibility issues.
2007-08-20 20:01:28 +04:00
/*
* Written by Matthias Drochner <drochner@NetBSD.org>.
* Public domain.
*/
#include <complex.h>
Commit SoC long double support from Stathis Kamperis
2010-09-15 20:11:28 +04:00
#include "../src/math_private.h"
Add C99 complex support, for double and float. Most complex function implementations are from the "c9x-complex" library, originating from the "cephes" math library, see http://www.netlib.org/cephes/, from Stephen L. Moshier, incorporated and redistributed with the NetBSD license by permission of the author. Error behaviour and other boundary conditions (branch cuts) need to be looked at. For namespace sanity, I've done the rename/weak alias procedure to most of the exported functions which are also used internally. Didn't do so for sin/cos(f) yet because assembler implementations use them directly, and renaming functions shared between the main libm and the machine specific "overlay" might raise binary compatibility issues.
2007-08-20 20:01:28 +04:00
float
crealf(float complex z)
{
Commit SoC long double support from Stathis Kamperis
2010-09-15 20:11:28 +04:00
float_complex w = { .z = z };
Add C99 complex support, for double and float. Most complex function implementations are from the "c9x-complex" library, originating from the "cephes" math library, see http://www.netlib.org/cephes/, from Stephen L. Moshier, incorporated and redistributed with the NetBSD license by permission of the author. Error behaviour and other boundary conditions (branch cuts) need to be looked at. For namespace sanity, I've done the rename/weak alias procedure to most of the exported functions which are also used internally. Didn't do so for sin/cos(f) yet because assembler implementations use them directly, and renaming functions shared between the main libm and the machine specific "overlay" might raise binary compatibility issues.
2007-08-20 20:01:28 +04:00
Commit SoC long double support from Stathis Kamperis
2010-09-15 20:11:28 +04:00
return (REAL_PART(w));
Add C99 complex support, for double and float. Most complex function implementations are from the "c9x-complex" library, originating from the "cephes" math library, see http://www.netlib.org/cephes/, from Stephen L. Moshier, incorporated and redistributed with the NetBSD license by permission of the author. Error behaviour and other boundary conditions (branch cuts) need to be looked at. For namespace sanity, I've done the rename/weak alias procedure to most of the exported functions which are also used internally. Didn't do so for sin/cos(f) yet because assembler implementations use them directly, and renaming functions shared between the main libm and the machine specific "overlay" might raise binary compatibility issues.
2007-08-20 20:01:28 +04:00
}