]>
Commit | Line | Data |
---|---|---|
677f3fa8 | 1 | /* Common hooks for IBM S/390 and zSeries. |
a5544970 | 2 | Copyright (C) 1999-2019 Free Software Foundation, Inc. |
677f3fa8 JM |
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 | { | |
677f3fa8 JM |
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 | |
511ea153 | 35 | | PF_EXTIMM, |
677f3fa8 | 36 | /* z9-ec */ PF_IEEE_FLOAT | PF_ZARCH | PF_LONG_DISPLACEMENT |
511ea153 | 37 | | PF_EXTIMM | PF_DFP, |
677f3fa8 | 38 | /* z10 */ PF_IEEE_FLOAT | PF_ZARCH | PF_LONG_DISPLACEMENT |
511ea153 | 39 | | PF_EXTIMM | PF_DFP | PF_Z10, |
677f3fa8 | 40 | /* z196 */ PF_IEEE_FLOAT | PF_ZARCH | PF_LONG_DISPLACEMENT |
511ea153 | 41 | | PF_EXTIMM | PF_DFP | PF_Z10 | PF_Z196, |
22ac2c2f | 42 | /* zEC12 */ PF_IEEE_FLOAT | PF_ZARCH | PF_LONG_DISPLACEMENT |
511ea153 | 43 | | PF_EXTIMM | PF_DFP | PF_Z10 | PF_Z196 | PF_ZEC12 | PF_TX, |
55ac540c | 44 | /* z13 */ PF_IEEE_FLOAT | PF_ZARCH | PF_LONG_DISPLACEMENT |
511ea153 AK |
45 | | PF_EXTIMM | PF_DFP | PF_Z10 | PF_Z196 | PF_ZEC12 | PF_TX |
46 | | PF_Z13 | PF_VX, | |
e9e8efc9 | 47 | /* z14 */ PF_IEEE_FLOAT | PF_ZARCH | PF_LONG_DISPLACEMENT |
511ea153 AK |
48 | | PF_EXTIMM | PF_DFP | PF_Z10 | PF_Z196 | PF_ZEC12 | PF_TX |
49 | | PF_Z13 | PF_VX | PF_VXE | PF_Z14, | |
80f8cd77 | 50 | /* z15 */ PF_IEEE_FLOAT | PF_ZARCH | PF_LONG_DISPLACEMENT |
511ea153 | 51 | | PF_EXTIMM | PF_DFP | PF_Z10 | PF_Z196 | PF_ZEC12 | PF_TX |
80f8cd77 | 52 | | PF_Z13 | PF_VX | PF_VXE | PF_Z14 | PF_VXE2 | PF_Z15 |
677f3fa8 JM |
53 | }; |
54 | ||
55 | /* Change optimizations to be performed, depending on the | |
56 | optimization level. */ | |
57 | ||
58 | static const struct default_options s390_option_optimization_table[] = | |
59 | { | |
c881de02 | 60 | /* Enable -fsched-pressure by default when optimizing. */ |
aefa216b | 61 | { OPT_LEVELS_1_PLUS, OPT_fsched_pressure, NULL, 1 }, |
aefa216b | 62 | |
677f3fa8 JM |
63 | /* ??? There are apparently still problems with -fcaller-saves. */ |
64 | { OPT_LEVELS_ALL, OPT_fcaller_saves, NULL, 0 }, | |
65 | ||
66 | /* Use MVCLE instructions to decrease code size if requested. */ | |
67 | { OPT_LEVELS_SIZE, OPT_mmvcle, NULL, 1 }, | |
68 | ||
69 | { OPT_LEVELS_NONE, 0, NULL, 0 } | |
70 | }; | |
71 | ||
72 | /* Implement TARGET_OPTION_INIT_STRUCT. */ | |
73 | ||
74 | static void | |
75 | s390_option_init_struct (struct gcc_options *opts) | |
76 | { | |
77 | /* By default, always emit DWARF-2 unwind info. This allows debugging | |
78 | without maintaining a stack frame back-chain. */ | |
79 | opts->x_flag_asynchronous_unwind_tables = 1; | |
8c66130b IL |
80 | |
81 | /* Enable section anchors by default. */ | |
82 | opts->x_flag_section_anchors = 1; | |
677f3fa8 JM |
83 | } |
84 | ||
85 | /* Implement TARGET_HANDLE_OPTION. */ | |
86 | ||
ec47b086 DV |
87 | bool |
88 | s390_handle_option (struct gcc_options *opts ATTRIBUTE_UNUSED, | |
677f3fa8 JM |
89 | struct gcc_options *opts_set ATTRIBUTE_UNUSED, |
90 | const struct cl_decoded_option *decoded, | |
91 | location_t loc) | |
92 | { | |
93 | size_t code = decoded->opt_index; | |
677f3fa8 JM |
94 | int value = decoded->value; |
95 | ||
96 | switch (code) | |
97 | { | |
677f3fa8 | 98 | case OPT_mstack_guard_: |
ec47b086 | 99 | if (value != 0 && exact_log2 (value) == -1) |
677f3fa8 JM |
100 | error_at (loc, "stack guard value must be an exact power of 2"); |
101 | return true; | |
102 | ||
103 | case OPT_mstack_size_: | |
ec47b086 | 104 | if (value != 0 && exact_log2 (value) == -1) |
677f3fa8 JM |
105 | error_at (loc, "stack size must be an exact power of 2"); |
106 | return true; | |
107 | ||
677f3fa8 JM |
108 | default: |
109 | return true; | |
110 | } | |
111 | } | |
112 | ||
4cb4721f MK |
113 | /* -fsplit-stack uses a field in the TCB, available with glibc-2.23. |
114 | We don't verify it, since earlier versions just have padding at | |
115 | its place, which works just as well. */ | |
116 | ||
117 | static bool | |
118 | s390_supports_split_stack (bool report ATTRIBUTE_UNUSED, | |
119 | struct gcc_options *opts ATTRIBUTE_UNUSED) | |
120 | { | |
121 | return true; | |
122 | } | |
123 | ||
677f3fa8 JM |
124 | #undef TARGET_DEFAULT_TARGET_FLAGS |
125 | #define TARGET_DEFAULT_TARGET_FLAGS (TARGET_DEFAULT) | |
126 | ||
127 | #undef TARGET_HANDLE_OPTION | |
128 | #define TARGET_HANDLE_OPTION s390_handle_option | |
129 | ||
130 | #undef TARGET_OPTION_OPTIMIZATION_TABLE | |
131 | #define TARGET_OPTION_OPTIMIZATION_TABLE s390_option_optimization_table | |
132 | ||
133 | #undef TARGET_OPTION_INIT_STRUCT | |
134 | #define TARGET_OPTION_INIT_STRUCT s390_option_init_struct | |
135 | ||
4cb4721f MK |
136 | #undef TARGET_SUPPORTS_SPLIT_STACK |
137 | #define TARGET_SUPPORTS_SPLIT_STACK s390_supports_split_stack | |
138 | ||
677f3fa8 | 139 | struct gcc_targetm_common targetm_common = TARGETM_COMMON_INITIALIZER; |