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 |
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; |