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/f95-lang.c | |
| 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/f95-lang.c')
| -rw-r--r-- | gcc/fortran/f95-lang.c | 7 |
1 files changed, 0 insertions, 7 deletions
diff --git a/gcc/fortran/f95-lang.c b/gcc/fortran/f95-lang.c index 8c957d2..d00b7f0 100644 --- a/gcc/fortran/f95-lang.c +++ b/gcc/fortran/f95-lang.c @@ -856,13 +856,6 @@ gfc_init_builtin_functions (void) gfc_define_builtin ("__builtin_fmodf", mfunc_float[1], BUILT_IN_FMODF, "fmodf", true); - gfc_define_builtin ("__builtin_huge_vall", mfunc_longdouble[3], - BUILT_IN_HUGE_VALL, "__builtin_huge_vall", true); - gfc_define_builtin ("__builtin_huge_val", mfunc_double[3], - BUILT_IN_HUGE_VAL, "__builtin_huge_val", true); - gfc_define_builtin ("__builtin_huge_valf", mfunc_float[3], - BUILT_IN_HUGE_VALF, "__builtin_huge_valf", true); - /* lround{f,,l} and llround{f,,l} */ ftype = build_function_type_list (long_integer_type_node, float_type_node, NULL_TREE); |