From: zack <zack@138bc75d-0d04-0410-961f-82ee72b054a4>
Date: Mon, 29 Sep 2003 22:21:15 +0000 (+0000)
Subject: f:
X-Git-Url: http://git.sourceforge.jp/view?a=commitdiff_plain;h=5bd20ed7fffc3a1d689cbda59db2282b86bc6fda;p=pf3gnuchains%2Fgcc-fork.git

f:
	* target.c (FFETARGET_ATOF_): Delete.
	(ffetarget_real1, ffetarget_real2): Use real_from_string directly.
	* target.h (FFETARGET_REAL_VALUE_FROM_INT_,
	FFETARGET_REAL_VALUE_FROM_LONGLONG_): Use mode_for_size,
	don't refer to SFmode or DFmode directly.


git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@71922 138bc75d-0d04-0410-961f-82ee72b054a4
---

diff --git a/gcc/f/ChangeLog b/gcc/f/ChangeLog
index e97a71097c7..720bfa0db91 100644
--- a/gcc/f/ChangeLog
+++ b/gcc/f/ChangeLog
@@ -1,3 +1,11 @@
+2003-09-29  Zack Weinberg  <zack@codesourcery.com>
+
+	* target.c (FFETARGET_ATOF_): Delete.
+	(ffetarget_real1, ffetarget_real2): Use real_from_string directly.
+	* target.h (FFETARGET_REAL_VALUE_FROM_INT_,
+	FFETARGET_REAL_VALUE_FROM_LONGLONG_): Use mode_for_size,
+	don't refer to SFmode or DFmode directly.
+
 2003-09-28  Richard Henderson  <rth@redhat.com>
 
 	* com.c (duplicate_decls): Copy DECL_SOURCE_LOCATION, not
diff --git a/gcc/f/target.c b/gcc/f/target.c
index 98760469831..16261120e24 100644
--- a/gcc/f/target.c
+++ b/gcc/f/target.c
@@ -105,11 +105,6 @@ static void ffetarget_print_char_ (FILE *f, unsigned char c);
 
 /* Internal macros. */
 
-#ifdef REAL_VALUE_ATOF
-#define FFETARGET_ATOF_(p,m) REAL_VALUE_ATOF ((p),(m))
-#else
-#define FFETARGET_ATOF_(p,m) atof ((p))
-#endif
 
 
 /* ffetarget_print_char_ -- Print a single character (in apostrophe context)
@@ -2279,7 +2274,7 @@ ffetarget_real1 (ffetargetReal1 *value, ffelexToken integer,
 
   {
     REAL_VALUE_TYPE rv;
-    rv = FFETARGET_ATOF_ (ptr, SFmode);
+    real_from_string (&rv, ptr);
     ffetarget_make_real1 (value, rv);
   }
 
@@ -2367,7 +2362,7 @@ ffetarget_real2 (ffetargetReal2 *value, ffelexToken integer,
 
   {
     REAL_VALUE_TYPE rv;
-    rv = FFETARGET_ATOF_ (ptr, DFmode);
+    real_from_string (&rv, ptr);
     ffetarget_make_real2 (value, rv);
   }
 
diff --git a/gcc/f/target.h b/gcc/f/target.h
index eff6ab9df40..8ec73addc85 100644
--- a/gcc/f/target.h
+++ b/gcc/f/target.h
@@ -579,13 +579,13 @@ void *ffetarget_memcpy_ (void *dst, void *src, size_t len);
 #define FFETARGET_REAL_VALUE_FROM_INT_(resr, lf, kt)		\
   REAL_VALUE_FROM_INT (resr, (HOST_WIDE_INT) lf,		\
                        (HOST_WIDE_INT) ((lf < 0) ? -1 : 0),	\
-		       ((kt == 1) ? SFmode : DFmode))
+                       mode_for_size (kt == 1 ? 32 : 64, MODE_FLOAT, 0))
 
 #if HOST_BITS_PER_LONGLONG > HOST_BITS_PER_WIDE_INT
 #define FFETARGET_REAL_VALUE_FROM_LONGLONG_(resr, lf, kt)		\
   REAL_VALUE_FROM_INT (resr, (HOST_WIDE_INT) lf,			\
 		       (HOST_WIDE_INT) (lf >> HOST_BITS_PER_WIDE_INT),	\
-		       ((kt == 1) ? SFmode : DFmode))
+                       mode_for_size (kt == 1 ? 32 : 64, MODE_FLOAT, 0))
 #define FFETARGET_LONGLONG_FROM_INTS_(hi, lo)		\
   (((long long int) hi << HOST_BITS_PER_WIDE_INT)	\
    | (long long int) ((unsigned HOST_WIDE_INT) lo))