From: Kaveh R. Ghazi Date: Thu, 31 Jul 2003 05:49:14 +0000 (+0000) Subject: * com.c (ffecom_init_0): Use `dconsthalf'. X-Git-Tag: releases/gcc-3.4.0~4503 X-Git-Url: http://git.ipfire.org/gitweb.cgi?a=commitdiff_plain;h=0fd4ac72a2468d1cdaa524b2d4d9a7b2394dd3c2;p=thirdparty%2Fgcc.git * com.c (ffecom_init_0): Use `dconsthalf'. From-SVN: r69991 --- diff --git a/gcc/f/ChangeLog b/gcc/f/ChangeLog index 1333be2d7212..99ffa7f4754f 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 aec04b6c5381..a6a9bf9061bb 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;". */