From: Zack Weinberg <zack@codesourcery.com>
Date: Mon, 29 Sep 2003 22:14:01 +0000 (+0000)
Subject: trans.c (gigi): Use REAL_ARITHMETIC, not REAL_VALUE_ATOF, to initialize dconstp5... 
X-Git-Tag: releases/gcc-3.4.0~3400
X-Git-Url: http://git.ipfire.org/gitweb.cgi?a=commitdiff_plain;h=783be936d2f4928f74c6b8418bd17b21021ece86;p=thirdparty%2Fgcc.git

trans.c (gigi): Use REAL_ARITHMETIC, not REAL_VALUE_ATOF, to initialize dconstp5 and dconstmp5.

ada:
	* trans.c (gigi): Use REAL_ARITHMETIC, not REAL_VALUE_ATOF, to
	initialize dconstp5 and dconstmp5.

From-SVN: r71921
---

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 46e76fd30574..f1854785315d 100644
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,8 @@
+2003-09-29  Zack Weinberg  <zack@codesourcery.com>
+
+	* trans.c (gigi): Use REAL_ARITHMETIC, not REAL_VALUE_ATOF, to
+	initialize dconstp5 and dconstmp5.
+
 2003-09-28  Richard Henderson  <rth@redhat.com>
 
 	* trans.c (tree_transform): Update call to expand_asm_operands.
diff --git a/gcc/ada/trans.c b/gcc/ada/trans.c
index d666b2f10a64..2d0e9ffd54f7 100644
--- a/gcc/ada/trans.c
+++ b/gcc/ada/trans.c
@@ -196,8 +196,8 @@ gigi (gnat_root, max_gnat_node, number_name, nodes_ptr, next_node_ptr,
 
   gnu_except_ptr_stack = tree_cons (NULL_TREE, NULL_TREE, NULL_TREE);
 
-  dconstp5 = REAL_VALUE_ATOF ("0.5", DFmode);
-  dconstmp5 = REAL_VALUE_ATOF ("-0.5", DFmode);
+  REAL_ARITHMETIC (dconstp5, RDIV_EXPR, dconst1, dconst2);
+  REAL_ARITHMETIC (dconstmp5, RDIV_EXPR, dconstm1, dconst2);
 
   gnu_standard_long_long_float
     = gnat_to_gnu_entity (Base_Type (standard_long_long_float), NULL_TREE, 0);