From 0fd4ac72a2468d1cdaa524b2d4d9a7b2394dd3c2 Mon Sep 17 00:00:00 2001 From: "Kaveh R. Ghazi" Date: Thu, 31 Jul 2003 05:49:14 +0000 Subject: [PATCH] * com.c (ffecom_init_0): Use `dconsthalf'. From-SVN: r69991 --- gcc/f/ChangeLog | 4 ++++ gcc/f/com.c | 9 ++------- 2 files changed, 6 insertions(+), 7 deletions(-) diff --git a/gcc/f/ChangeLog b/gcc/f/ChangeLog index 1333be2d721..99ffa7f4754 100644 --- a/gcc/f/ChangeLog +++ b/gcc/f/ChangeLog @@ -1,3 +1,7 @@ +Thu Jul 31 01:47:27 2003 Kaveh R. Ghazi + + * com.c (ffecom_init_0): Use `dconsthalf'. + Sat Jul 19 12:03:03 2003 Kaveh R. Ghazi * com.c data.c expr.c fini.c g77spec.c global.c lab.c lex.c name.c diff --git a/gcc/f/com.c b/gcc/f/com.c index aec04b6c538..a6a9bf9061b 100644 --- a/gcc/f/com.c +++ b/gcc/f/com.c @@ -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;". */ -- 2.30.2