diff --git a/src/lisp/e_cosh.c b/src/lisp/e_cosh.c index f33ec02e841ce32bebd553d75869d33e1f6a53bf..f022ec040930efe67b6894b6c129ff07eabb3536 100644 --- a/src/lisp/e_cosh.c +++ b/src/lisp/e_cosh.c @@ -80,7 +80,7 @@ static double one = 1.0, half=0.5, huge = 1.0e300; /* |x| in [log(maxdouble), overflowthresold] */ lx = *( (((*(unsigned*)&one)>>29)) + (unsigned*)&x); if (ix<0x408633CE || - (ix==0x408633ce)&&(lx<=(unsigned)0x8fb9f87d)) { + ((ix==0x408633ce)&&(lx<=(unsigned)0x8fb9f87d))) { w = __ieee754_exp(half*fabs(x)); t = half*w; return t*w; diff --git a/src/lisp/e_sinh.c b/src/lisp/e_sinh.c index 16671a9f9c718dc7dc4f10f044076ef206507170..84447418a8eba593e6809df9f53f3dac42aa61de 100644 --- a/src/lisp/e_sinh.c +++ b/src/lisp/e_sinh.c @@ -73,7 +73,7 @@ static double one = 1.0, shuge = 1.0e307; /* |x| in [log(maxdouble), overflowthresold] */ lx = *( (((*(unsigned*)&one)>>29)) + (unsigned*)&x); - if (ix<0x408633CE || (ix==0x408633ce)&&(lx<=(unsigned)0x8fb9f87d)) { + if (ix<0x408633CE || ((ix==0x408633ce)&&(lx<=(unsigned)0x8fb9f87d))) { w = __ieee754_exp(0.5*fabs(x)); t = h*w; return t*w;