[patch] euse patch

isnan.patch (text/plain), 591 bytes, created by harry broeken on 2020-10-03 14:39:14 UTC

diff --git a/f2.c b/f2.c
index 4c8dc28..1cc2412 100644
--- a/f2.c
+++ b/f2.c
@@ -112,7 +112,7 @@ static void jtfmt1(J jt,B e,I m,I d,C*s,I t,C*wv){D y;
    y=*(D*)wv; y=y?y:0.0;  /* -0 to 0 */
    if     (!memcmp(wv,&inf, SZD))strcpy(jt->th2buf,e?"  _" :' '==*s?" _" :"_" );
    else if(!memcmp(wv,&infm,SZD))strcpy(jt->th2buf,e?" __" :' '==*s?" __":"__");
-   else if(_isnan(*wv)          )strcpy(jt->th2buf,e?"  _.":' '==*s?" _.":"_.");
+   else if(_isnan(*(D*)wv)          )strcpy(jt->th2buf,e?"  _.":' '==*s?" _.":"_.");
    else sprintf(jt->th2buf,s,y);
 }}   /* format one number */