Skip to content

R
riscv-gcc-1
Commit 0fd4ac72 by Kaveh R. Ghazi Committed by Kaveh Ghazi
Options

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

From-SVN: r69991
parent 822ed7f8
Showing with 6 additions and 7 deletions
gcc/f/ChangeLog
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> 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 * com.c data.c expr.c fini.c g77spec.c global.c lab.c lex.c name.c
......
gcc/f/com.c
...@@ -11818,13 +11818,8 @@ ffecom_init_0 (void) ...@@ -11818,13 +11818,8 @@ ffecom_init_0 (void)
ffecom_float_zero_ = build_real (float_type_node, dconst0); ffecom_float_zero_ = build_real (float_type_node, dconst0);
ffecom_double_zero_ = build_real (double_type_node, dconst0); ffecom_double_zero_ = build_real (double_type_node, dconst0);
{ ffecom_float_half_ = build_real (float_type_node, dconsthalf);
REAL_VALUE_TYPE point_5; ffecom_double_half_ = build_real (double_type_node, dconsthalf);
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);
}
/* Do "extern int xargc;". */ /* Do "extern int xargc;". */
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment