git
/
gcc
mirror of git://gcc.gnu.org/git/gcc.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

* com.c (ffecom_init_0): Use `dconsthalf'. 

From-SVN: r69991
This commit is contained in:
Kaveh R. Ghazi 2003-07-31 05:49:14 +00:00 committed by Kaveh Ghazi
parent 822ed7f806
commit 0fd4ac72a2
2 changed files with 6 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
gcc/f/ChangeLog
View File

@ -1,3 +1,7 @@
Thu Jul 31 01:47:27 2003 Kaveh R. Ghazi <ghazi@caip.rutgers.edu>
* com.c (ffecom_init_0): Use `dconsthalf'.
Sat Jul 19 12:03:03 2003 Kaveh R. Ghazi <ghazi@caip.rutgers.edu>
* com.c data.c expr.c fini.c g77spec.c global.c lab.c lex.c name.c

9
gcc/f/com.c
View File

@ -11818,13 +11818,8 @@ ffecom_init_0 (void)
ffecom_float_zero_ = build_real (float_type_node, dconst0);
ffecom_double_zero_ = build_real (double_type_node, dconst0);
{
REAL_VALUE_TYPE point_5;
REAL_ARITHMETIC (point_5, RDIV_EXPR, dconst1, dconst2);
ffecom_float_half_ = build_real (float_type_node, point_5);
ffecom_double_half_ = build_real (double_type_node, point_5);
}
ffecom_float_half_ = build_real (float_type_node, dconsthalf);
ffecom_double_half_ = build_real (double_type_node, dconsthalf);
/* Do "extern int xargc;". */