formatReal()-bug (or Is there anybody out there w/o IEEE754?)

[Thomas Hoffmann]

On a system with IEEE_754 undefined, I run into an bug, when the value
of an element of the first argument (e.g., x[0]) of formatReal() is NA:

1. (format.c:235) if (!R_FINITE ..) gives nanflag=1 (!naflag remains 0)
2. (format.c:272..288) *m gets an value of -2147483643 (from the format 
                       fiddling, should not matter to us)
3. (format.c:289) because naflag is zero, m does not get the value of
                  R_print.na_width and we get back the unbelievable value 
                  from 2.

This crashes R in commands as 
	as.vector(NA,mode="double")
.

(Please reply to my mail address too, because I do not read r-devel regularly).
-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-
r-devel mailing list -- Read http://www.ci.tuwien.ac.at/~hornik/R/R-FAQ.html
Send "info", "help", or "[un]subscribe"
(in the "body", not the subject !)  To: r-devel-request@stat.math.ethz.ch
_._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._