1 /* Common hooks for IBM S/390 and zSeries.
2 Copyright (C) 1999-2022 Free Software Foundation, Inc.
3
4 This file is part of GCC.
5
6 GCC is free software; you can redistribute it and/or modify it under
7 the terms of the GNU General Public License as published by the Free
8 Software Foundation; either version 3, or (at your option) any later
9 version.
10
11 GCC is distributed in the hope that it will be useful, but WITHOUT ANY
12 WARRANTY; without even the implied warranty of MERCHANTABILITY or
13 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
14 for more details.
15
16 You should have received a copy of the GNU General Public License
17 along with GCC; see the file COPYING3. If not see
18 <http://www.gnu.org/licenses/>. */
19
20 #include "config.h"
21 #include "system.h"
22 #include "coretypes.h"
23 #include "diagnostic-core.h"
24 #include "tm.h"
25 #include "common/common-target.h"
26 #include "common/common-target-def.h"
27 #include "opts.h"
28 #include "flags.h"
29
30 EXPORTED_CONST int processor_flags_table[] =
31 {
32 /* z900 */ PF_IEEE_FLOAT | PF_ZARCH,
33 /* z990 */ PF_IEEE_FLOAT | PF_ZARCH | PF_LONG_DISPLACEMENT,
34 /* z9-109 */ PF_IEEE_FLOAT | PF_ZARCH | PF_LONG_DISPLACEMENT
35 | PF_EXTIMM,
36 /* z9-ec */ PF_IEEE_FLOAT | PF_ZARCH | PF_LONG_DISPLACEMENT
37 | PF_EXTIMM | PF_DFP,
38 /* z10 */ PF_IEEE_FLOAT | PF_ZARCH | PF_LONG_DISPLACEMENT
39 | PF_EXTIMM | PF_DFP | PF_Z10,
40 /* z196 */ PF_IEEE_FLOAT | PF_ZARCH | PF_LONG_DISPLACEMENT
41 | PF_EXTIMM | PF_DFP | PF_Z10 | PF_Z196,
42 /* zEC12 */ PF_IEEE_FLOAT | PF_ZARCH | PF_LONG_DISPLACEMENT
43 | PF_EXTIMM | PF_DFP | PF_Z10 | PF_Z196 | PF_ZEC12 | PF_TX,
44 /* z13 */ PF_IEEE_FLOAT | PF_ZARCH | PF_LONG_DISPLACEMENT
45 | PF_EXTIMM | PF_DFP | PF_Z10 | PF_Z196 | PF_ZEC12 | PF_TX
46 | PF_Z13 | PF_VX,
47 /* z14 */ PF_IEEE_FLOAT | PF_ZARCH | PF_LONG_DISPLACEMENT
48 | PF_EXTIMM | PF_DFP | PF_Z10 | PF_Z196 | PF_ZEC12 | PF_TX
49 | PF_Z13 | PF_VX | PF_VXE | PF_Z14,
50 /* z15 */ PF_IEEE_FLOAT | PF_ZARCH | PF_LONG_DISPLACEMENT
51 | PF_EXTIMM | PF_DFP | PF_Z10 | PF_Z196 | PF_ZEC12 | PF_TX
52 | PF_Z13 | PF_VX | PF_VXE | PF_Z14 | PF_VXE2 | PF_Z15,
53 /* z16 */ PF_IEEE_FLOAT | PF_ZARCH | PF_LONG_DISPLACEMENT
54 | PF_EXTIMM | PF_DFP | PF_Z10 | PF_Z196 | PF_ZEC12 | PF_TX
55 | PF_Z13 | PF_VX | PF_VXE | PF_Z14 | PF_VXE2 | PF_Z15
56 | PF_NNPA | PF_Z16
57 };
58
59 /* Change optimizations to be performed, depending on the
60 optimization level. */
61
62 static const struct default_options s390_option_optimization_table[] =
63 {
64 /* Enable -fsched-pressure by default when optimizing. */
65 { OPT_LEVELS_1_PLUS, OPT_fsched_pressure, NULL, 1 },
66
67 /* ??? There are apparently still problems with -fcaller-saves. */
68 { OPT_LEVELS_ALL, OPT_fcaller_saves, NULL, 0 },
69
70 /* Use MVCLE instructions to decrease code size if requested. */
71 { OPT_LEVELS_SIZE, OPT_mmvcle, NULL, 1 },
72
73 { OPT_LEVELS_NONE, 0, NULL, 0 }
74 };
75
76 /* Implement TARGET_OPTION_INIT_STRUCT. */
77
78 static void
s390_option_init_struct(struct gcc_options * opts)79 s390_option_init_struct (struct gcc_options *opts)
80 {
81 /* By default, always emit DWARF-2 unwind info. This allows debugging
82 without maintaining a stack frame back-chain. */
83 opts->x_flag_asynchronous_unwind_tables = 1;
84
85 /* Enable section anchors by default. */
86 opts->x_flag_section_anchors = 1;
87 }
88
89 /* Implement TARGET_HANDLE_OPTION. */
90
91 bool
s390_handle_option(struct gcc_options * opts ATTRIBUTE_UNUSED,struct gcc_options * opts_set ATTRIBUTE_UNUSED,const struct cl_decoded_option * decoded,location_t loc)92 s390_handle_option (struct gcc_options *opts ATTRIBUTE_UNUSED,
93 struct gcc_options *opts_set ATTRIBUTE_UNUSED,
94 const struct cl_decoded_option *decoded,
95 location_t loc)
96 {
97 size_t code = decoded->opt_index;
98 int value = decoded->value;
99
100 switch (code)
101 {
102 case OPT_mstack_guard_:
103 if (value != 0 && exact_log2 (value) == -1)
104 error_at (loc, "stack guard value must be an exact power of 2");
105 return true;
106
107 case OPT_mstack_size_:
108 if (value != 0 && exact_log2 (value) == -1)
109 error_at (loc, "stack size must be an exact power of 2");
110 return true;
111
112 default:
113 return true;
114 }
115 }
116
117 /* -fsplit-stack uses a field in the TCB, available with glibc-2.23.
118 We don't verify it, since earlier versions just have padding at
119 its place, which works just as well. For other libc implementations
120 we disable the feature entirely to avoid corrupting the TCB. */
121
122 static bool
s390_supports_split_stack(bool report,struct gcc_options * opts ATTRIBUTE_UNUSED)123 s390_supports_split_stack (bool report,
124 struct gcc_options *opts ATTRIBUTE_UNUSED)
125 {
126 #ifdef OPTION_GLIBC_P
127 if (OPTION_GLIBC_P (opts))
128 return true;
129 #endif
130
131 if (report)
132 error ("%<-fsplit-stack%> currently only supported on GNU/Linux");
133 return false;
134 }
135
136 #undef TARGET_DEFAULT_TARGET_FLAGS
137 #define TARGET_DEFAULT_TARGET_FLAGS (TARGET_DEFAULT)
138
139 #undef TARGET_HANDLE_OPTION
140 #define TARGET_HANDLE_OPTION s390_handle_option
141
142 #undef TARGET_OPTION_OPTIMIZATION_TABLE
143 #define TARGET_OPTION_OPTIMIZATION_TABLE s390_option_optimization_table
144
145 #undef TARGET_OPTION_INIT_STRUCT
146 #define TARGET_OPTION_INIT_STRUCT s390_option_init_struct
147
148 #undef TARGET_SUPPORTS_SPLIT_STACK
149 #define TARGET_SUPPORTS_SPLIT_STACK s390_supports_split_stack
150
151 struct gcc_targetm_common targetm_common = TARGETM_COMMON_INITIALIZER;
152