diff options
Diffstat (limited to 'lib/mlibc/options/ansi/generic/complex/cimag.c')
-rw-r--r-- | lib/mlibc/options/ansi/generic/complex/cimag.c | 54 |
1 files changed, 0 insertions, 54 deletions
diff --git a/lib/mlibc/options/ansi/generic/complex/cimag.c b/lib/mlibc/options/ansi/generic/complex/cimag.c deleted file mode 100644 index 24619f0..0000000 --- a/lib/mlibc/options/ansi/generic/complex/cimag.c +++ /dev/null @@ -1,54 +0,0 @@ -/* $NetBSD: cimag.c,v 1.2 2010/09/15 16:11:29 christos Exp $ */ - -/* - * Written by Matthias Drochner <drochner@NetBSD.org>. - * Public domain. - * - * imported and modified include for newlib 2010/10/03 - * Marco Atzeri <marco_atzeri@yahoo.it> - */ - -/* -FUNCTION - <<cimag>>, <<cimagf>>---imaginary part - -INDEX - cimag -INDEX - cimagf - -ANSI_SYNOPSIS - #include <complex.h> - double cimag(double complex <[z]>); - float cimagf(float complex <[z]>); - - -DESCRIPTION - These functions compute the imaginary part of <[z]>. - - <<cimagf>> is identical to <<cimag>>, except that it performs - its calculations on <<floats complex>>. - -RETURNS - The cimag functions return the imaginary part value (as a real). - -PORTABILITY - <<cimag>> and <<cimagf>> are ISO C99 - -QUICKREF - <<cimag>> and <<cimagf>> are ISO C99 - -*/ - - -#include <complex.h> - -#include "fdlibm.h" - -double -cimag(double complex z) -{ - double_complex w = { .z = z }; - - return (IMAG_PART(w)); -} |