| Elliott Hughes | e332f65 | 2018-05-08 15:07:43 -0700 | [diff] [blame] | 1 | /*- |
| 2 | * Copyright (c) 2007, 2010-2013 Steven G. Kargl |
| 3 | * All rights reserved. |
| 4 | * |
| 5 | * Redistribution and use in source and binary forms, with or without |
| 6 | * modification, are permitted provided that the following conditions |
| 7 | * are met: |
| 8 | * 1. Redistributions of source code must retain the above copyright |
| 9 | * notice unmodified, this list of conditions, and the following |
| 10 | * disclaimer. |
| 11 | * 2. Redistributions in binary form must reproduce the above copyright |
| 12 | * notice, this list of conditions and the following disclaimer in the |
| 13 | * documentation and/or other materials provided with the distribution. |
| 14 | * |
| 15 | * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR |
| 16 | * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES |
| 17 | * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. |
| 18 | * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, |
| 19 | * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT |
| 20 | * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, |
| 21 | * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY |
| 22 | * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT |
| 23 | * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF |
| 24 | * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. |
| 25 | * |
| 26 | * s_sinl.c and s_cosl.c merged by Steven G. Kargl. |
| 27 | */ |
| 28 | |
| Elliott Hughes | e332f65 | 2018-05-08 15:07:43 -0700 | [diff] [blame] | 29 | #include <float.h> |
| 30 | #ifdef __i386__ |
| 31 | #include <ieeefp.h> |
| 32 | #endif |
| 33 | |
| 34 | #include "math.h" |
| 35 | #include "math_private.h" |
| 36 | #include "k_sincosl.h" |
| 37 | |
| 38 | #if LDBL_MANT_DIG == 64 |
| 39 | #include "../ld80/e_rem_pio2l.h" |
| 40 | #elif LDBL_MANT_DIG == 113 |
| 41 | #include "../ld128/e_rem_pio2l.h" |
| 42 | #else |
| 43 | #error "Unsupported long double format" |
| 44 | #endif |
| 45 | |
| 46 | void |
| 47 | sincosl(long double x, long double *sn, long double *cs) |
| 48 | { |
| 49 | union IEEEl2bits z; |
| Elliott Hughes | 99ef447 | 2022-01-12 17:51:20 -0800 | [diff] [blame] | 50 | int e0; |
| Elliott Hughes | e332f65 | 2018-05-08 15:07:43 -0700 | [diff] [blame] | 51 | long double y[2]; |
| 52 | |
| 53 | z.e = x; |
| Elliott Hughes | e332f65 | 2018-05-08 15:07:43 -0700 | [diff] [blame] | 54 | z.bits.sign = 0; |
| 55 | |
| 56 | ENTERV(); |
| 57 | |
| 58 | /* Optimize the case where x is already within range. */ |
| 59 | if (z.e < M_PI_4) { |
| 60 | /* |
| 61 | * If x = +-0 or x is a subnormal number, then sin(x) = x and |
| 62 | * cos(x) = 1. |
| 63 | */ |
| 64 | if (z.bits.exp == 0) { |
| 65 | *sn = x; |
| 66 | *cs = 1; |
| 67 | } else |
| 68 | __kernel_sincosl(x, 0, 0, sn, cs); |
| 69 | RETURNV(); |
| 70 | } |
| 71 | |
| 72 | /* If x = NaN or Inf, then sin(x) and cos(x) are NaN. */ |
| 73 | if (z.bits.exp == 32767) { |
| 74 | *sn = x - x; |
| 75 | *cs = x - x; |
| 76 | RETURNV(); |
| 77 | } |
| 78 | |
| 79 | /* Range reduction. */ |
| 80 | e0 = __ieee754_rem_pio2l(x, y); |
| 81 | |
| 82 | switch (e0 & 3) { |
| 83 | case 0: |
| 84 | __kernel_sincosl(y[0], y[1], 1, sn, cs); |
| 85 | break; |
| 86 | case 1: |
| 87 | __kernel_sincosl(y[0], y[1], 1, cs, sn); |
| 88 | *cs = -*cs; |
| 89 | break; |
| 90 | case 2: |
| 91 | __kernel_sincosl(y[0], y[1], 1, sn, cs); |
| 92 | *sn = -*sn; |
| 93 | *cs = -*cs; |
| 94 | break; |
| 95 | default: |
| 96 | __kernel_sincosl(y[0], y[1], 1, cs, sn); |
| 97 | *sn = -*sn; |
| 98 | } |
| 99 | |
| 100 | RETURNV(); |
| 101 | } |