1 /* This code used to crash fold_convert due to PRE
2 wanting to fold_convert from a REAL_TYPE to an INTEGER_TYPE. */
3 typedef unsigned int uint32_t;
13 _Jv_strtod_r (struct _Jv_reent
*ptr
, char **se
)
16 double aadj
, aadj1
, adj
;
18 union double_union rv
, *bs
= ((void *) 0), *delta
= ((void *) 0);
20 ovfl
:ptr
->_errno
= 34;
22 (((uint32_t) 0xfffffL
) | ((uint32_t) 0x100000L
) * (1024 + 1023 - 1));
24 if ((aadj
= _Jv_ratio (delta
, bs
)) <= 2.)
33 (rv
.i
[1]) -= 53 * ((uint32_t) 0x100000L
);
34 adj
= aadj1
* _Jv_ulp (rv
.d
);
36 if (((rv
.i
[1]) & ((uint32_t) 0x7ff00000L
)) >=
37 ((uint32_t) 0x100000L
) * (1024 + 1023 - 53))