2007-08-27 Jerry DeLisle <jvdelisle@gcc.gnu.org>
authorjvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4>
Tue, 28 Aug 2007 00:56:05 +0000 (00:56 +0000)
committerjvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4>
Tue, 28 Aug 2007 00:56:05 +0000 (00:56 +0000)
commit16366a2359f76db2d0efffbfa6abc14cac4f1f11
tree451fe572569ba81d76ead54039ae68f2726492e6
parent5be0a7f45b3172dd60e9607cd5280e72860a8eeb
2007-08-27  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

* io/write.c (stdbool.h): Add include. (sign_t): Move typedef to
new file write_float.def. Include write_float.def.
(extract_real): Delete. (calculate_sign): Delete.
(calculate_exp): Delete. (calculate_G_format): Delete.
(output_float): Delete. (write_float): Delete.
* io/write_float.def (calculate_sign): Added.
(output_float): Refactored to be independent of kind and added to this
file for inclusion. (write_infnan): New function to write "Infinite" or
"NaN" depending on flags passed, independent of kind.
(CALCULATE_EXP): New macro to build kind specific functions. Use it.
(OUTPUT_FLOAT_FMT_G): New macro, likewise. Use it.
(DTOA, DTOAL): Macros to implement "decimal to ascii".
(WRITE_FLOAT): New macro for kind specific write_float functions.
(write_float): Revised function to determine kind and use WRITE_FLOAT
to implement kind specific output.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@127846 138bc75d-0d04-0410-961f-82ee72b054a4
libgfortran/ChangeLog
libgfortran/io/write.c
libgfortran/io/write_float.def [new file with mode: 0644]