This is the mail archive of the
fortran@gcc.gnu.org
mailing list for the GNU Fortran project.
Re: [patch. libfortran] PR33225 Per kind write float patch update, fixed
- From: "François-Xavier Coudert" <fxcoudert at gmail dot com>
- To: "Jerry DeLisle" <jvdelisle at verizon dot net>
- Cc: "Fortran List" <fortran at gcc dot gnu dot org>, gcc-patches <gcc-patches at gcc dot gnu dot org>
- Date: Tue, 4 Sep 2007 11:16:00 +0100
- Subject: Re: [patch. libfortran] PR33225 Per kind write float patch update, fixed
- Dkim-signature: a=rsa-sha1; c=relaxed/relaxed; d=gmail.com; s=beta; h=domainkey-signature:received:received:message-id:date:from:to:subject:cc:in-reply-to:mime-version:content-type:content-transfer-encoding:content-disposition:references; b=N0A0pu9ct5t/QvKP7NQO2XAGyCk9ZQbEhLaMtJQ72F/YDIKov87FqT7VlVjEp23Blpcb8p1ydwHP0B0nW0CmQuQ/lJ4dWG1KFj5J54jmURK+uugaLKquTUoKfNsqq2+JKgn9zZYSmcBkiYVPjWa+7ZarI88jSDlXiHxXXVV69pU=
- Domainkey-signature: a=rsa-sha1; c=nofws; d=gmail.com; s=beta; h=received:message-id:date:from:to:subject:cc:in-reply-to:mime-version:content-type:content-transfer-encoding:content-disposition:references; b=SGcyf0Yx1CpJNu6ZRtgCdujpAVAMan8oCirNka2/937HY8ENm866iopZsc27yRBnEFY3QVb+7Y3OJkTyROIzWneVU8Me/LJu6M2aw0icFFuWH8PYAlV3JzRWtluVfJ7TSFst3Ev2lk8DIZgNoGtipt0Jgy7e3AKBxooP7HvO3SE=
- References: <46DCEEDB.4010004@verizon.net>
> 2007-09-03 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.
Of course, I'm weary to approve that patch seeing that I didn't catch
the error in your previous patch, but: OK to commit.
FX