diff options
| author | Kaveh R. Ghazi <ghazi@caip.rutgers.edu> | 2003-07-31 05:49:14 +0000 |
|---|---|---|
| committer | Kaveh Ghazi <ghazi@gcc.gnu.org> | 2003-07-31 05:49:14 +0000 |
| commit | 0fd4ac72a2468d1cdaa524b2d4d9a7b2394dd3c2 (patch) | |
| tree | 0def27d049e90fe2ba6910ce1fc9ea70832e4718 /gcc | |
| parent | 822ed7f80687ba1060f3620f20878642a2b89e78 (diff) | |
| download | gcc-0fd4ac72a2468d1cdaa524b2d4d9a7b2394dd3c2.zip gcc-0fd4ac72a2468d1cdaa524b2d4d9a7b2394dd3c2.tar.gz gcc-0fd4ac72a2468d1cdaa524b2d4d9a7b2394dd3c2.tar.bz2 | |
* com.c (ffecom_init_0): Use `dconsthalf'.
From-SVN: r69991
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/f/ChangeLog | 4 | ||||
| -rw-r--r-- | gcc/f/com.c | 9 |
2 files changed, 6 insertions, 7 deletions
diff --git a/gcc/f/ChangeLog b/gcc/f/ChangeLog index 1333be2..99ffa7f 100644 --- a/gcc/f/ChangeLog +++ b/gcc/f/ChangeLog @@ -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 diff --git a/gcc/f/com.c b/gcc/f/com.c index aec04b6..a6a9bf9 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;". */ |