target.c (FFETARGET_ATOF_): Delete.

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.

From-SVN: r71922

gcc/f/ChangeLog

+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

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);
   }
 

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))