aboutsummaryrefslogtreecommitdiff
path: root/gcc/fortran/f95-lang.c
diff options
context:
space:
mode:
authorRichard Biener <rguenther@suse.de>2015-10-29 08:16:44 +0000
committerRichard Biener <rguenth@gcc.gnu.org>2015-10-29 08:16:44 +0000
commit384aedfcf16640be3b3250743304207f63d4cde9 (patch)
tree15cf66a3f3a85b75ab2acbfb36e08ca55b54cb55 /gcc/fortran/f95-lang.c
parent73eb5e9ee140383c7dcbf57f88b57a4e92ded46d (diff)
downloadgcc-384aedfcf16640be3b3250743304207f63d4cde9.zip
gcc-384aedfcf16640be3b3250743304207f63d4cde9.tar.gz
gcc-384aedfcf16640be3b3250743304207f63d4cde9.tar.bz2
gimple-match-head.c (gimple_simplify): Remove premature checking of builtin_decl_implicit of function calls we simplify.
2015-10-29 Richard Biener <rguenther@suse.de> * gimple-match-head.c (gimple_simplify): Remove premature checking of builtin_decl_implicit of function calls we simplify. fortran/ * f95-lang.c: Properly build variadic types for classification and comparison builtins. From-SVN: r229515
Diffstat (limited to 'gcc/fortran/f95-lang.c')
-rw-r--r--gcc/fortran/f95-lang.c6
1 files changed, 2 insertions, 4 deletions
diff --git a/gcc/fortran/f95-lang.c b/gcc/fortran/f95-lang.c
index 67b0bac..fdb396d 100644
--- a/gcc/fortran/f95-lang.c
+++ b/gcc/fortran/f95-lang.c
@@ -988,8 +988,7 @@ gfc_init_builtin_functions (void)
/* Type-generic floating-point classification built-ins. */
- ftype = build_function_type_list (integer_type_node,
- void_type_node, NULL_TREE);
+ ftype = build_function_type (integer_type_node, NULL_TREE);
gfc_define_builtin ("__builtin_isfinite", ftype, BUILT_IN_ISFINITE,
"__builtin_isfinite", ATTR_CONST_NOTHROW_LEAF_LIST);
gfc_define_builtin ("__builtin_isinf", ftype, BUILT_IN_ISINF,
@@ -1003,8 +1002,7 @@ gfc_init_builtin_functions (void)
gfc_define_builtin ("__builtin_signbit", ftype, BUILT_IN_SIGNBIT,
"__builtin_signbit", ATTR_CONST_NOTHROW_LEAF_LIST);
- ftype = build_function_type_list (integer_type_node, void_type_node,
- void_type_node, NULL_TREE);
+ ftype = build_function_type (integer_type_node, NULL_TREE);
gfc_define_builtin ("__builtin_isless", ftype, BUILT_IN_ISLESS,
"__builtin_isless", ATTR_CONST_NOTHROW_LEAF_LIST);
gfc_define_builtin ("__builtin_islessequal", ftype, BUILT_IN_ISLESSEQUAL,