From 3b7ea188c0457b2e70bdefc8cb53a790e7e9b296 Mon Sep 17 00:00:00 2001 From: Francois-Xavier Coudert Date: Thu, 9 Oct 2014 09:47:25 +0000 Subject: f95-lang.c (gfc_init_builtin_functions): Add more floating-point built-ins. * f95-lang.c (gfc_init_builtin_functions): Add more floating-point built-ins. * mathbuiltins.def (OTHER_BUILTIN): Define built-ins for logb, remainder, rint and signbit. * trans-decl.c (save_fp_state, restore_fp_state): Move to trans-intrinsic.c (gfc_generate_function_code): Use new names for these two functions. * trans-expr.c (gfc_conv_function_expr): Catch IEEE functions to emit code from the front-end. * trans-intrinsic.c (gfc_save_fp_state, gfc_restore_fp_state, conv_ieee_function_args, conv_intrinsic_ieee_builtin, conv_intrinsic_ieee_is_normal, conv_intrinsic_ieee_is_negative, conv_intrinsic_ieee_logb_rint, conv_intrinsic_ieee_rem, conv_intrinsic_ieee_next_after, conv_intrinsic_ieee_scalb, conv_intrinsic_ieee_copy_sign, gfc_conv_ieee_arithmetic_function): New functions. * trans.h (gfc_conv_ieee_arithmetic_function, gfc_save_fp_state, gfc_restore_fp_state): New prototypes. * ieee/ieee_helper.c (ieee_is_finite_*, ieee_is_nan_*, ieee_is_negative_*, ieee_is_normal_*, ieee_copy_sign_*, ieee_unordered_*, ieee_logb_*, ieee_rint_*, ieee_scalb_*, ieee_rem_*, ieee_next_after_*): Remove functions. * gfortran.map (GFORTRAN_1.5): Remove corresponding symbols. From-SVN: r216036 --- gcc/fortran/trans.h | 8 ++++++++ 1 file changed, 8 insertions(+) (limited to 'gcc/fortran/trans.h') diff --git a/gcc/fortran/trans.h b/gcc/fortran/trans.h index 03136e6..70719e4 100644 --- a/gcc/fortran/trans.h +++ b/gcc/fortran/trans.h @@ -437,6 +437,10 @@ tree size_of_string_in_bytes (int, tree); /* Intrinsic procedure handling. */ tree gfc_conv_intrinsic_subroutine (gfc_code *); void gfc_conv_intrinsic_function (gfc_se *, gfc_expr *); +bool gfc_conv_ieee_arithmetic_function (gfc_se *, gfc_expr *); +tree gfc_save_fp_state (stmtblock_t *); +void gfc_restore_fp_state (stmtblock_t *, tree); + /* Does an intrinsic map directly to an external library call This is true for array-returning intrinsics, unless @@ -792,6 +796,10 @@ extern GTY(()) tree gfor_fndecl_sc_kind; extern GTY(()) tree gfor_fndecl_si_kind; extern GTY(()) tree gfor_fndecl_sr_kind; +/* IEEE-related. */ +extern GTY(()) tree gfor_fndecl_ieee_procedure_entry; +extern GTY(()) tree gfor_fndecl_ieee_procedure_exit; + /* True if node is an integer constant. */ #define INTEGER_CST_P(node) (TREE_CODE(node) == INTEGER_CST) -- cgit v1.1