/[gcl]/gcl/o/print.d
ViewVC logotype

Diff of /gcl/o/print.d

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.7 by camm, Wed Jun 19 19:50:02 2002 UTC revision 1.8 by camm, Thu Jun 20 03:38:41 2002 UTC
# Line 298  int *ep; Line 298  int *ep;
298    
299  #ifdef IEEEFLOAT  #ifdef IEEEFLOAT
300  /*      if ((*((int *)&d +HIND) & 0x7ff00000) == 0x7ff00000)*/  /*      if ((*((int *)&d +HIND) & 0x7ff00000) == 0x7ff00000)*/
301          if (!isfinite(d))          if (!ISFINITE(d))
302             {if (sSAprint_nansA->s.s_dbind !=Cnil)             {if (sSAprint_nansA->s.s_dbind !=Cnil)
303                {sprintf(s, "%e",d);                {sprintf(s, "%e",d);
304                 *sp = 2;                 *sp = 2;

Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26