1 /* Definitions of target machine for GNU compiler, for IBM S/390. 2 Copyright (C) 2000-2021 Free Software Foundation, Inc. 3 4 Contributed by Hartmut Penner (hpenner@de.ibm.com) 5 6 This file is part of GCC. 7 8 GCC is free software; you can redistribute it and/or modify it under 9 the terms of the GNU General Public License as published by the Free 10 Software Foundation; either version 3, or (at your option) any later 11 version. 12 13 GCC is distributed in the hope that it will be useful, but WITHOUT ANY 14 WARRANTY; without even the implied warranty of MERCHANTABILITY or 15 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License 16 for more details. 17 18 You should have received a copy of the GNU General Public License 19 along with GCC; see the file COPYING3. If not see 20 <http://www.gnu.org/licenses/>. */ 21 22 23 24 /* Prototypes of functions used for constraint evaluation in 25 constraints.c. */ 26 27 extern int s390_mem_constraint (const char *str, rtx op); 28 extern int s390_O_constraint_str (const char c, HOST_WIDE_INT value); 29 extern int s390_N_constraint_str (const char *str, HOST_WIDE_INT value); 30 extern int s390_float_const_zero_p (rtx value); 31 extern bool s390_check_symref_alignment (rtx addr, HOST_WIDE_INT alignment); 32 33 34 /* In s390-common.c. */ 35 extern bool s390_handle_option (struct gcc_options *opts ATTRIBUTE_UNUSED, 36 struct gcc_options *opts_set ATTRIBUTE_UNUSED, 37 const struct cl_decoded_option *decoded, 38 location_t loc); 39 40 /* Declare functions in s390.c. */ 41 42 extern HOST_WIDE_INT s390_initial_elimination_offset (int, int); 43 extern void s390_emit_prologue (void); 44 extern void s390_emit_epilogue (bool); 45 extern void s390_expand_split_stack_prologue (void); 46 extern bool s390_can_use_simple_return_insn (void); 47 extern bool s390_can_use_return_insn (void); 48 extern void s390_function_profiler (FILE *, int); 49 extern void s390_set_has_landing_pad_p (bool); 50 extern bool s390_hard_regno_rename_ok (unsigned int, unsigned int); 51 extern int s390_class_max_nregs (enum reg_class, machine_mode); 52 extern bool s390_function_arg_vector (machine_mode, const_tree); 53 extern bool s390_return_addr_from_memory(void); 54 extern bool s390_fma_allowed_p (machine_mode); 55 #if S390_USE_TARGET_ATTRIBUTE 56 extern tree s390_valid_target_attribute_tree (tree args, 57 struct gcc_options *opts, 58 const struct gcc_options 59 *opts_set, bool is_pragma); 60 extern void s390_activate_target_options (tree new_tree); 61 extern void 62 s390_asm_output_function_prefix (FILE *asm_out_file, 63 const char *fnname ATTRIBUTE_UNUSED); 64 extern void 65 s390_asm_declare_function_size (FILE *asm_out_file, 66 const char *fnname ATTRIBUTE_UNUSED, tree decl); 67 #endif 68 69 #ifdef RTX_CODE 70 extern int s390_extra_constraint_str (rtx, int, const char *); 71 extern int s390_const_ok_for_constraint_p (HOST_WIDE_INT, int, const char *); 72 extern int s390_const_double_ok_for_constraint_p (rtx, int, const char *); 73 extern int s390_single_part (rtx, machine_mode, machine_mode, int); 74 extern unsigned HOST_WIDE_INT s390_extract_part (rtx, machine_mode, int); 75 extern bool s390_contiguous_bitmask_p (unsigned HOST_WIDE_INT, bool, int, int *, int *); 76 extern bool s390_contiguous_bitmask_vector_p (rtx, int *, int *); 77 extern bool s390_bytemask_vector_p (rtx, unsigned *); 78 extern bool s390_split_ok_p (rtx, rtx, machine_mode, int); 79 extern bool s390_overlap_p (rtx, rtx, HOST_WIDE_INT); 80 extern bool s390_offset_p (rtx, rtx, rtx); 81 extern bool s390_rel_address_ok_p (rtx); 82 extern int tls_symbolic_operand (rtx); 83 84 extern bool s390_match_ccmode (rtx_insn *, machine_mode); 85 extern machine_mode s390_tm_ccmode (rtx, rtx, bool); 86 extern machine_mode s390_select_ccmode (enum rtx_code, rtx, rtx); 87 extern rtx s390_emit_compare (enum rtx_code, rtx, rtx); 88 extern rtx_insn *s390_emit_jump (rtx, rtx); 89 extern bool symbolic_reference_mentioned_p (rtx); 90 extern bool tls_symbolic_reference_mentioned_p (rtx); 91 extern bool legitimate_la_operand_p (rtx); 92 extern bool preferred_la_operand_p (rtx, rtx); 93 extern int legitimate_pic_operand_p (rtx); 94 extern bool legitimate_reload_constant_p (rtx); 95 extern rtx legitimize_pic_address (rtx, rtx); 96 extern rtx legitimize_reload_address (rtx, machine_mode, int, int); 97 extern enum reg_class s390_secondary_input_reload_class (enum reg_class, 98 machine_mode, 99 rtx); 100 extern enum reg_class s390_secondary_output_reload_class (enum reg_class, 101 machine_mode, 102 rtx); 103 extern void s390_reload_larl_operand (rtx , rtx , rtx); 104 extern void s390_reload_symref_address (rtx , rtx , rtx , bool); 105 extern void s390_expand_plus_operand (rtx, rtx, rtx); 106 extern void emit_symbolic_move (rtx *); 107 extern void s390_load_address (rtx, rtx); 108 extern bool s390_expand_cpymem (rtx, rtx, rtx); 109 extern void s390_expand_setmem (rtx, rtx, rtx); 110 extern bool s390_expand_cmpmem (rtx, rtx, rtx, rtx); 111 extern void s390_expand_vec_strlen (rtx, rtx, rtx); 112 extern void s390_expand_vec_movstr (rtx, rtx, rtx); 113 extern bool s390_expand_addcc (enum rtx_code, rtx, rtx, rtx, rtx, rtx); 114 extern bool s390_expand_insv (rtx, rtx, rtx, rtx); 115 extern void s390_expand_cs (machine_mode, rtx, rtx, rtx, rtx, rtx, bool); 116 extern void s390_expand_atomic_exchange_tdsi (rtx, rtx, rtx); 117 extern void s390_expand_atomic (machine_mode, enum rtx_code, 118 rtx, rtx, rtx, bool); 119 extern void s390_expand_tbegin (rtx, rtx, rtx, bool); 120 extern void s390_expand_vec_compare (rtx, enum rtx_code, rtx, rtx); 121 extern void s390_expand_vec_compare_cc (rtx, enum rtx_code, rtx, rtx, bool); 122 extern enum rtx_code s390_reverse_condition (machine_mode, enum rtx_code); 123 extern void s390_expand_vcond (rtx, rtx, rtx, enum rtx_code, rtx, rtx); 124 extern void s390_expand_vec_init (rtx, rtx); 125 extern rtx s390_build_signbit_mask (machine_mode); 126 extern rtx s390_return_addr_rtx (int, rtx); 127 extern rtx s390_back_chain_rtx (void); 128 extern rtx_insn *s390_emit_call (rtx, rtx, rtx, rtx); 129 extern void s390_expand_logical_operator (enum rtx_code, 130 machine_mode, rtx *); 131 extern bool s390_logical_operator_ok_p (rtx *); 132 extern void s390_narrow_logical_operator (enum rtx_code, rtx *, rtx *); 133 extern void s390_split_access_reg (rtx, rtx *, rtx *); 134 135 extern void print_operand_address (FILE *, rtx); 136 extern void print_operand (FILE *, rtx, int); 137 extern void s390_output_pool_entry (rtx, machine_mode, unsigned int); 138 extern bool s390_const_int_pool_entry_p (rtx, HOST_WIDE_INT *); 139 extern int s390_label_align (rtx_insn *); 140 extern int s390_agen_dep_p (rtx_insn *, rtx_insn *); 141 extern rtx_insn *s390_load_got (void); 142 extern rtx s390_get_thread_pointer (void); 143 extern void s390_emit_tpf_eh_return (rtx); 144 extern bool s390_legitimate_address_without_index_p (rtx); 145 extern bool s390_decompose_addrstyle_without_index (rtx, rtx *, 146 HOST_WIDE_INT *); 147 extern bool s390_valid_shift_count (rtx op, HOST_WIDE_INT required_mask = 63); 148 extern int s390_branch_condition_mask (rtx); 149 extern int s390_compare_and_branch_condition_mask (rtx); 150 extern bool s390_extzv_shift_ok (int, int, unsigned HOST_WIDE_INT); 151 extern void s390_asm_output_function_label (FILE *, const char *, tree); 152 extern void s390_output_split_stack_data (rtx, rtx, rtx, rtx); 153 154 enum s390_indirect_branch_type 155 { 156 s390_indirect_branch_type_jump = 0, 157 s390_indirect_branch_type_call, 158 s390_indirect_branch_type_return 159 }; 160 extern void s390_indirect_branch_via_thunk (unsigned int regno, 161 unsigned int return_addr_regno, 162 rtx comparison_operator, 163 enum s390_indirect_branch_type type); 164 extern void s390_indirect_branch_via_inline_thunk (rtx execute_target); 165 #endif /* RTX_CODE */ 166 167 /* s390-c.c routines */ 168 extern void s390_cpu_cpp_builtins (struct cpp_reader *); 169 extern void s390_register_target_pragmas (void); 170 171 /* Routines for s390-c.c */ 172 extern bool s390_const_operand_ok (tree, int, int, tree); 173 174 /* s390-d.c routines */ 175 extern void s390_d_target_versions (void); 176 extern void s390_d_register_target_info (void); 177 178 /* Pass management. */ 179 namespace gcc { class context; } 180 class rtl_opt_pass; 181 182 extern rtl_opt_pass *make_pass_s390_early_mach (gcc::context *ctxt); 183