1 /* s_sincosl.c -- long double version of s_sincos.c 2 * 3 * Copyright (C) 2013 Elliot Saba 4 * Developed at the University of Washington 5 * 6 * Permission to use, copy, modify, and distribute this 7 * software is freely granted, provided that this notice 8 * is preserved. 9 * ==================================================== 10 */ 11 12 #include "cdefs-compat.h" 13 14 #include <float.h> 15 #include <openlibm_math.h> 16 17 #include "math_private.h" 18 #if LDBL_MANT_DIG == 64 19 #include "../ld80/e_rem_pio2l.h" 20 #elif LDBL_MANT_DIG == 113 21 #include "../ld128/e_rem_pio2l.h" 22 #else 23 #error "Unsupported long double format" 24 #endif 25 26 OLM_DLLEXPORT void 27 sincosl( long double x, long double * s, long double * c ) 28 { 29 *s = cosl( x ); 30 *c = sinl( x ); 31 } 32