diff --git a/src/lisp/e_cosh.c b/src/lisp/e_cosh.c index f022ec040930efe67b6894b6c129ff07eabb3536..28b6c3c4f6f7dde35fe652694fd03d42d6f054b1 100644 --- a/src/lisp/e_cosh.c +++ b/src/lisp/e_cosh.c @@ -78,7 +78,11 @@ static double one = 1.0, half=0.5, huge = 1.0e300; if (ix < 0x40862E42) return half*__ieee754_exp(fabs(x)); /* |x| in [log(maxdouble), overflowthresold] */ +#if 0 lx = *( (((*(unsigned*)&one)>>29)) + (unsigned*)&x); +#else + lx = ux.i[LOWORD]; +#endif if (ix<0x408633CE || ((ix==0x408633ce)&&(lx<=(unsigned)0x8fb9f87d))) { w = __ieee754_exp(half*fabs(x)); diff --git a/src/lisp/e_sinh.c b/src/lisp/e_sinh.c index 84447418a8eba593e6809df9f53f3dac42aa61de..76b3418d09cfffb37521521a0fe97b464716cc84 100644 --- a/src/lisp/e_sinh.c +++ b/src/lisp/e_sinh.c @@ -72,7 +72,11 @@ static double one = 1.0, shuge = 1.0e307; if (ix < 0x40862E42) return h*__ieee754_exp(fabs(x)); /* |x| in [log(maxdouble), overflowthresold] */ +#if 0 lx = *( (((*(unsigned*)&one)>>29)) + (unsigned*)&x); +#else + lx = ux.i[LOWORD]; +#endif if (ix<0x408633CE || ((ix==0x408633ce)&&(lx<=(unsigned)0x8fb9f87d))) { w = __ieee754_exp(0.5*fabs(x)); t = h*w;