| author | Michael Morrell <mmorrell@tachyum.com> | 2019年10月14日 09:07:31 -0400 |
|---|---|---|
| committer | Rich Felker <dalias@aerifal.cx> | 2019年10月14日 09:08:22 -0400 |
| commit | aa2d23e57c9c95f0ffeb80cb035e5a5be52d8ef0 (patch) | |
| tree | 85e6f04af86717b8984f132e84b01c484e20810d /src/complex/cacosh.c | |
| parent | ea9525c8bcf6170df59364c4bcd616de1acf8703 (diff) | |
| download | musl-aa2d23e57c9c95f0ffeb80cb035e5a5be52d8ef0.tar.gz | |
| -rw-r--r-- | src/complex/cacosh.c | 5 |
diff --git a/src/complex/cacosh.c b/src/complex/cacosh.c index 8e42f1ae..76127f75 100644 --- a/src/complex/cacosh.c +++ b/src/complex/cacosh.c @@ -4,6 +4,9 @@ double complex cacosh(double complex z) { + int zineg = signbit(cimag(z)); + z = cacos(z); - return CMPLX(-cimag(z), creal(z)); + if (zineg) return CMPLX(cimag(z), -creal(z)); + else return CMPLX(-cimag(z), creal(z)); } |