diff options
Diffstat (limited to 'gcc/c-common.c')
| -rw-r--r-- | gcc/c-common.c | 130 |
1 files changed, 65 insertions, 65 deletions
diff --git a/gcc/c-common.c b/gcc/c-common.c index 4c0ce27..3e0b539 100644 --- a/gcc/c-common.c +++ b/gcc/c-common.c @@ -1086,7 +1086,7 @@ fname_as_string (int pretty_p) } if (current_function_decl) - name = (*lang_hooks.decl_printable_name) (current_function_decl, vrb); + name = lang_hooks.decl_printable_name (current_function_decl, vrb); return name; } @@ -2646,15 +2646,15 @@ c_common_truthvalue_conversion (tree expr) case COMPLEX_EXPR: return build_binary_op ((TREE_SIDE_EFFECTS (TREE_OPERAND (expr, 1)) ? TRUTH_OR_EXPR : TRUTH_ORIF_EXPR), - (*lang_hooks.truthvalue_conversion) (TREE_OPERAND (expr, 0)), - (*lang_hooks.truthvalue_conversion) (TREE_OPERAND (expr, 1)), + lang_hooks.truthvalue_conversion (TREE_OPERAND (expr, 0)), + lang_hooks.truthvalue_conversion (TREE_OPERAND (expr, 1)), 0); case NEGATE_EXPR: case ABS_EXPR: case FLOAT_EXPR: /* These don't change whether an object is nonzero or zero. */ - return (*lang_hooks.truthvalue_conversion) (TREE_OPERAND (expr, 0)); + return lang_hooks.truthvalue_conversion (TREE_OPERAND (expr, 0)); case LROTATE_EXPR: case RROTATE_EXPR: @@ -2662,15 +2662,15 @@ c_common_truthvalue_conversion (tree expr) we can't ignore them if their second arg has side-effects. */ if (TREE_SIDE_EFFECTS (TREE_OPERAND (expr, 1))) return build (COMPOUND_EXPR, truthvalue_type_node, TREE_OPERAND (expr, 1), - (*lang_hooks.truthvalue_conversion) (TREE_OPERAND (expr, 0))); + lang_hooks.truthvalue_conversion (TREE_OPERAND (expr, 0))); else - return (*lang_hooks.truthvalue_conversion) (TREE_OPERAND (expr, 0)); + return lang_hooks.truthvalue_conversion (TREE_OPERAND (expr, 0)); case COND_EXPR: /* Distribute the conversion into the arms of a COND_EXPR. */ return fold (build (COND_EXPR, truthvalue_type_node, TREE_OPERAND (expr, 0), - (*lang_hooks.truthvalue_conversion) (TREE_OPERAND (expr, 1)), - (*lang_hooks.truthvalue_conversion) (TREE_OPERAND (expr, 2)))); + lang_hooks.truthvalue_conversion (TREE_OPERAND (expr, 1)), + lang_hooks.truthvalue_conversion (TREE_OPERAND (expr, 2)))); case CONVERT_EXPR: /* Don't cancel the effect of a CONVERT_EXPR from a REFERENCE_TYPE, @@ -2683,7 +2683,7 @@ c_common_truthvalue_conversion (tree expr) /* If this is widening the argument, we can ignore it. */ if (TYPE_PRECISION (TREE_TYPE (expr)) >= TYPE_PRECISION (TREE_TYPE (TREE_OPERAND (expr, 0)))) - return (*lang_hooks.truthvalue_conversion) (TREE_OPERAND (expr, 0)); + return lang_hooks.truthvalue_conversion (TREE_OPERAND (expr, 0)); break; case MINUS_EXPR: @@ -2732,8 +2732,8 @@ c_common_truthvalue_conversion (tree expr) return (build_binary_op ((TREE_SIDE_EFFECTS (expr) ? TRUTH_OR_EXPR : TRUTH_ORIF_EXPR), - (*lang_hooks.truthvalue_conversion) (build_unary_op (REALPART_EXPR, t, 0)), - (*lang_hooks.truthvalue_conversion) (build_unary_op (IMAGPART_EXPR, t, 0)), + lang_hooks.truthvalue_conversion (build_unary_op (REALPART_EXPR, t, 0)), + lang_hooks.truthvalue_conversion (build_unary_op (IMAGPART_EXPR, t, 0)), 0)); } @@ -3099,43 +3099,43 @@ c_common_nodes_and_builtins (void) /* These are types that c_common_type_for_size and c_common_type_for_mode use. */ - (*lang_hooks.decls.pushdecl) (build_decl (TYPE_DECL, NULL_TREE, - intQI_type_node)); - (*lang_hooks.decls.pushdecl) (build_decl (TYPE_DECL, NULL_TREE, - intHI_type_node)); - (*lang_hooks.decls.pushdecl) (build_decl (TYPE_DECL, NULL_TREE, - intSI_type_node)); - (*lang_hooks.decls.pushdecl) (build_decl (TYPE_DECL, NULL_TREE, - intDI_type_node)); + lang_hooks.decls.pushdecl (build_decl (TYPE_DECL, NULL_TREE, + intQI_type_node)); + lang_hooks.decls.pushdecl (build_decl (TYPE_DECL, NULL_TREE, + intHI_type_node)); + lang_hooks.decls.pushdecl (build_decl (TYPE_DECL, NULL_TREE, + intSI_type_node)); + lang_hooks.decls.pushdecl (build_decl (TYPE_DECL, NULL_TREE, + intDI_type_node)); #if HOST_BITS_PER_WIDE_INT >= 64 - (*lang_hooks.decls.pushdecl) (build_decl (TYPE_DECL, - get_identifier ("__int128_t"), - intTI_type_node)); + lang_hooks.decls.pushdecl (build_decl (TYPE_DECL, + get_identifier ("__int128_t"), + intTI_type_node)); #endif - (*lang_hooks.decls.pushdecl) (build_decl (TYPE_DECL, NULL_TREE, - unsigned_intQI_type_node)); - (*lang_hooks.decls.pushdecl) (build_decl (TYPE_DECL, NULL_TREE, - unsigned_intHI_type_node)); - (*lang_hooks.decls.pushdecl) (build_decl (TYPE_DECL, NULL_TREE, - unsigned_intSI_type_node)); - (*lang_hooks.decls.pushdecl) (build_decl (TYPE_DECL, NULL_TREE, - unsigned_intDI_type_node)); + lang_hooks.decls.pushdecl (build_decl (TYPE_DECL, NULL_TREE, + unsigned_intQI_type_node)); + lang_hooks.decls.pushdecl (build_decl (TYPE_DECL, NULL_TREE, + unsigned_intHI_type_node)); + lang_hooks.decls.pushdecl (build_decl (TYPE_DECL, NULL_TREE, + unsigned_intSI_type_node)); + lang_hooks.decls.pushdecl (build_decl (TYPE_DECL, NULL_TREE, + unsigned_intDI_type_node)); #if HOST_BITS_PER_WIDE_INT >= 64 - (*lang_hooks.decls.pushdecl) (build_decl (TYPE_DECL, - get_identifier ("__uint128_t"), - unsigned_intTI_type_node)); + lang_hooks.decls.pushdecl (build_decl (TYPE_DECL, + get_identifier ("__uint128_t"), + unsigned_intTI_type_node)); #endif /* Create the widest literal types. */ widest_integer_literal_type_node = make_signed_type (HOST_BITS_PER_WIDE_INT * 2); - (*lang_hooks.decls.pushdecl) (build_decl (TYPE_DECL, NULL_TREE, - widest_integer_literal_type_node)); + lang_hooks.decls.pushdecl (build_decl (TYPE_DECL, NULL_TREE, + widest_integer_literal_type_node)); widest_unsigned_literal_type_node = make_unsigned_type (HOST_BITS_PER_WIDE_INT * 2); - (*lang_hooks.decls.pushdecl) (build_decl (TYPE_DECL, NULL_TREE, - widest_unsigned_literal_type_node)); + lang_hooks.decls.pushdecl (build_decl (TYPE_DECL, NULL_TREE, + widest_unsigned_literal_type_node)); /* `unsigned long' is the standard type for sizeof. Note that stddef.h uses `unsigned long', @@ -3151,16 +3151,16 @@ c_common_nodes_and_builtins (void) record_builtin_type (RID_DOUBLE, NULL, double_type_node); record_builtin_type (RID_MAX, "long double", long_double_type_node); - (*lang_hooks.decls.pushdecl) (build_decl (TYPE_DECL, - get_identifier ("complex int"), - complex_integer_type_node)); - (*lang_hooks.decls.pushdecl) (build_decl (TYPE_DECL, - get_identifier ("complex float"), - complex_float_type_node)); - (*lang_hooks.decls.pushdecl) (build_decl (TYPE_DECL, - get_identifier ("complex double"), - complex_double_type_node)); - (*lang_hooks.decls.pushdecl) + lang_hooks.decls.pushdecl (build_decl (TYPE_DECL, + get_identifier ("complex int"), + complex_integer_type_node)); + lang_hooks.decls.pushdecl (build_decl (TYPE_DECL, + get_identifier ("complex float"), + complex_float_type_node)); + lang_hooks.decls.pushdecl (build_decl (TYPE_DECL, + get_identifier ("complex double"), + complex_double_type_node)); + lang_hooks.decls.pushdecl (build_decl (TYPE_DECL, get_identifier ("complex long double"), complex_long_double_type_node)); @@ -3184,12 +3184,12 @@ c_common_nodes_and_builtins (void) if (g77_integer_type_node != NULL_TREE) { - (*lang_hooks.decls.pushdecl) (build_decl (TYPE_DECL, - get_identifier ("__g77_integer"), - g77_integer_type_node)); - (*lang_hooks.decls.pushdecl) (build_decl (TYPE_DECL, - get_identifier ("__g77_uinteger"), - g77_uinteger_type_node)); + lang_hooks.decls.pushdecl (build_decl (TYPE_DECL, + get_identifier ("__g77_integer"), + g77_integer_type_node)); + lang_hooks.decls.pushdecl (build_decl (TYPE_DECL, + get_identifier ("__g77_uinteger"), + g77_uinteger_type_node)); } if (TYPE_PRECISION (float_type_node) * 2 @@ -3209,12 +3209,12 @@ c_common_nodes_and_builtins (void) if (g77_longint_type_node != NULL_TREE) { - (*lang_hooks.decls.pushdecl) (build_decl (TYPE_DECL, - get_identifier ("__g77_longint"), - g77_longint_type_node)); - (*lang_hooks.decls.pushdecl) (build_decl (TYPE_DECL, - get_identifier ("__g77_ulongint"), - g77_ulongint_type_node)); + lang_hooks.decls.pushdecl (build_decl (TYPE_DECL, + get_identifier ("__g77_longint"), + g77_longint_type_node)); + lang_hooks.decls.pushdecl (build_decl (TYPE_DECL, + get_identifier ("__g77_ulongint"), + g77_ulongint_type_node)); } record_builtin_type (RID_VOID, NULL, void_type_node); @@ -3281,15 +3281,15 @@ c_common_nodes_and_builtins (void) = TREE_TYPE (identifier_global_value (get_identifier (PTRDIFF_TYPE))); unsigned_ptrdiff_type_node = c_common_unsigned_type (ptrdiff_type_node); - (*lang_hooks.decls.pushdecl) + lang_hooks.decls.pushdecl (build_decl (TYPE_DECL, get_identifier ("__builtin_va_list"), va_list_type_node)); - (*lang_hooks.decls.pushdecl) + lang_hooks.decls.pushdecl (build_decl (TYPE_DECL, get_identifier ("__builtin_ptrdiff_t"), ptrdiff_type_node)); - (*lang_hooks.decls.pushdecl) + lang_hooks.decls.pushdecl (build_decl (TYPE_DECL, get_identifier ("__builtin_size_t"), sizetype)); @@ -4629,7 +4629,7 @@ handle_mode_attribute (tree *node, tree name, tree args ATTRIBUTE_UNUSED, if (mode == VOIDmode) error ("unknown machine mode `%s'", p); - else if (0 == (typefm = (*lang_hooks.types.type_for_mode) + else if (0 == (typefm = lang_hooks.types.type_for_mode (mode, TREE_UNSIGNED (type)))) error ("no data type for mode `%s'", p); else if ((TREE_CODE (type) == POINTER_TYPE @@ -5194,8 +5194,8 @@ handle_vector_size_attribute (tree *node, tree name, tree args, { tree index, array, rt, list_node; - new_type = (*lang_hooks.types.type_for_mode) (new_mode, - TREE_UNSIGNED (type)); + new_type = lang_hooks.types.type_for_mode (new_mode, + TREE_UNSIGNED (type)); if (!new_type) { |