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