diff options
Diffstat (limited to 'contrib/gcc/f/target.c')
-rw-r--r-- | contrib/gcc/f/target.c | 15 |
1 files changed, 5 insertions, 10 deletions
diff --git a/contrib/gcc/f/target.c b/contrib/gcc/f/target.c index 82ae955..1626112 100644 --- a/contrib/gcc/f/target.c +++ b/contrib/gcc/f/target.c @@ -76,6 +76,7 @@ the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA #include "lex.h" #include "malloc.h" #include "real.h" +#include "toplev.h" /* Externals defined here. */ @@ -104,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) @@ -2243,8 +2239,7 @@ ffetarget_real1 (ffetargetReal1 *value, ffelexToken integer, #undef dotoktxt if (sz > ARRAY_SIZE (ffetarget_string_)) - p = ptr = (char *) malloc_new_ks (malloc_pool_image (), "ffetarget_real1", - sz); + p = ptr = malloc_new_ks (malloc_pool_image (), "ffetarget_real1", sz); #define dotoktxt(x) if (x != NULL) \ { \ @@ -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); } @@ -2326,7 +2321,7 @@ ffetarget_real2 (ffetargetReal2 *value, ffelexToken integer, #undef dotoktxt if (sz > ARRAY_SIZE (ffetarget_string_)) - p = ptr = (char *) malloc_new_ks (malloc_pool_image (), "ffetarget_real1", sz); + p = ptr = malloc_new_ks (malloc_pool_image (), "ffetarget_real1", sz); #define dotoktxt(x) if (x != NULL) \ { \ @@ -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); } |