void sincosl(long double x, long double *sn, long double *cs) { union IEEEl2bits z; int e0, sgn; long double y[2]; z.e = x; sgn = z.bits.sign; z.bits.sign = 0; ENTERV(); /* Optimize the case where x is already within range. */ if (z.e < M_PI_4) { /* * If x = +-0 or x is a subnormal number, then sin(x) = x and * cos(x) = 1. */ if (z.bits.exp == 0) { *sn = x; *cs = 1; } else __kernel_sincosl(x, 0, 0, sn, cs); RETURNV(); } /* If x = NaN or Inf, then sin(x) and cos(x) are NaN. */ if (z.bits.exp == 32767) { *sn = x - x; *cs = x - x; RETURNV(); } /* Range reduction. */ e0 = __ieee754_rem_pio2l(x, y); switch (e0 & 3) { case 0: __kernel_sincosl(y[0], y[1], 1, sn, cs); break; case 1: __kernel_sincosl(y[0], y[1], 1, cs, sn); *cs = -*cs; break; case 2: __kernel_sincosl(y[0], y[1], 1, sn, cs); *sn = -*sn; *cs = -*cs; break; default: __kernel_sincosl(y[0], y[1], 1, cs, sn); *sn = -*sn; } RETURNV(); }
void openpam_free_envlist(char **envlist) { char **env; ENTER(); if (envlist == NULL) RETURNV(); for (env = envlist; *env != NULL; ++env) FREE(*env); FREE(envlist); RETURNV(); }
void openpam_free_data(pam_handle_t *pamh, void *data, int status) { ENTER(); (void)pamh; (void)status; FREE(data); RETURNV(); }