/[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.5 by camm, Fri May 17 04:23:15 2002 UTC revision 1.6 by camm, Thu Jun 13 00:09:05 2002 UTC
# Line 22  Foundation, 675 Mass Ave, Cambridge, MA Line 22  Foundation, 675 Mass Ave, Cambridge, MA
22          print.d          print.d
23  */  */
24    
25    #define _GNU_SOURCE
26  #include "include.h"  #include "include.h"
27    
28  #define LINE_LENGTH line_length  #define LINE_LENGTH line_length
# Line 297  int *ep; Line 297  int *ep;
297          int i;          int i;
298    
299  #ifdef IEEEFLOAT  #ifdef IEEEFLOAT
300          if ((*((int *)&d +HIND) & 0x7ff00000) == 0x7ff00000)  /*      if ((*((int *)&d +HIND) & 0x7ff00000) == 0x7ff00000)*/
301            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.5  
changed lines
  Added in v.1.6

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