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