diff options
| author | Francois-Xavier Coudert <fxcoudert@gcc.gnu.org> | 2010-09-11 16:34:20 +0000 |
|---|---|---|
| committer | François-Xavier Coudert <fxcoudert@gcc.gnu.org> | 2010-09-11 16:34:20 +0000 |
| commit | a67189d4904ebdae45829558f5ddd6f628e5c910 (patch) | |
| tree | 615287f513f3d8f71931077bb3135b6eaeffadc3 /gcc/fortran/trans-const.h | |
| parent | 616f12900dccc06a528586f8c7f969012d1e50a1 (diff) | |
| download | gcc-a67189d4904ebdae45829558f5ddd6f628e5c910.zip gcc-a67189d4904ebdae45829558f5ddd6f628e5c910.tar.gz gcc-a67189d4904ebdae45829558f5ddd6f628e5c910.tar.bz2 | |
mathbuiltins.def: Do not defined huge_val built-in.
* mathbuiltins.def: Do not defined huge_val built-in.
* trans-const.c (gfc_build_inf_or_huge): New function.
* trans-const.h (gfc_build_inf_or_huge): New prototype.
* f95-lang.c (gfc_init_builtin_functions): Don't defined
huge_val built-ins.
* trans-intrinsic.c (gfc_build_intrinsic_lib_fndecls): We don't
have functions of type (*) (void) anymore.
(gfc_conv_intrinsic_minmaxloc): Call gfc_build_inf_or_huge.
(gfc_conv_intrinsic_nearest): Call gfc_build_inf_or_huge instead
of generating a call to huge_val().
From-SVN: r164216
Diffstat (limited to 'gcc/fortran/trans-const.h')
| -rw-r--r-- | gcc/fortran/trans-const.h | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/gcc/fortran/trans-const.h b/gcc/fortran/trans-const.h index 6cc71c5..8f56711 100644 --- a/gcc/fortran/trans-const.h +++ b/gcc/fortran/trans-const.h @@ -27,6 +27,10 @@ void gfc_conv_tree_to_mpz (mpz_t, tree); tree gfc_conv_mpfr_to_tree (mpfr_t, int, int); void gfc_conv_tree_to_mpfr (mpfr_ptr, tree); +/* Build a tree containing a real infinity (or HUGE if infinities are + not supported for the given type. */ +tree gfc_build_inf_or_huge (tree, int); + /* Build a tree for a constant. Must be an EXPR_CONSTANT gfc_expr. For CHARACTER literal constants, the caller still has to set the string length as a separate operation. */ |