int nothrow_libfn_p (const_tree fn) { tree id; if (TREE_PUBLIC (fn) && DECL_EXTERNAL (fn) && DECL_NAMESPACE_SCOPE_P (fn) && DECL_EXTERN_C_P (fn)) /* OK */; else /* Can't be a C library function. */ return 0; /* Being a C library function, DECL_ASSEMBLER_NAME == DECL_NAME unless the system headers are playing rename tricks, and if they are, we don't want to be confused by them. */ id = DECL_NAME (fn); const struct libc_name_struct *s = libc_name::libc_name_p (IDENTIFIER_POINTER (id), IDENTIFIER_LENGTH (id)); if (s == NULL) return 0; switch (s->c_ver) { case 89: return 1; case 99: return !flag_iso || flag_isoc99; case 11: return !flag_iso || flag_isoc11; default: gcc_unreachable (); } }
static tree check_noexcept_r (tree *tp, int * /*walk_subtrees*/, void * /*data*/) { tree t = *tp; enum tree_code code = TREE_CODE (t); if ((code == CALL_EXPR && CALL_EXPR_FN (t)) || code == AGGR_INIT_EXPR) { /* We can only use the exception specification of the called function for determining the value of a noexcept expression; we can't use TREE_NOTHROW, as it might have a different value in another translation unit, creating ODR problems. We could use TREE_NOTHROW (t) for !TREE_PUBLIC fns, though... */ tree fn = (code == AGGR_INIT_EXPR ? AGGR_INIT_EXPR_FN (t) : CALL_EXPR_FN (t)); tree type = TREE_TYPE (fn); gcc_assert (POINTER_TYPE_P (type)); type = TREE_TYPE (type); STRIP_NOPS (fn); if (TREE_CODE (fn) == ADDR_EXPR) fn = TREE_OPERAND (fn, 0); if (TREE_CODE (fn) == FUNCTION_DECL) { /* We do use TREE_NOTHROW for ABI internals like __dynamic_cast, and for C library functions known not to throw. */ if (DECL_EXTERN_C_P (fn) && (DECL_ARTIFICIAL (fn) || nothrow_libfn_p (fn))) return TREE_NOTHROW (fn) ? NULL_TREE : fn; /* A call to a constexpr function is noexcept if the call is a constant expression. */ if (DECL_DECLARED_CONSTEXPR_P (fn) && is_sub_constant_expr (t)) return NULL_TREE; } if (!TYPE_NOTHROW_P (type)) return fn; } return NULL_TREE; }
int nothrow_libfn_p (const_tree fn) { tree id; if (TREE_PUBLIC (fn) && DECL_EXTERNAL (fn) && DECL_NAMESPACE_SCOPE_P (fn) && DECL_EXTERN_C_P (fn)) /* OK */; else /* Can't be a C library function. */ return 0; /* Being a C library function, DECL_ASSEMBLER_NAME == DECL_NAME unless the system headers are playing rename tricks, and if they are, we don't want to be confused by them. */ id = DECL_NAME (fn); return !!libc_name_p (IDENTIFIER_POINTER (id), IDENTIFIER_LENGTH (id)); }
/* c-pragma.c needs to query whether a decl has extern "C" linkage. */ bool has_c_linkage (const_tree decl) { return DECL_EXTERN_C_P (decl); }