| /* Common hooks for IBM S/390 and zSeries. |
| Copyright (C) 1999-2021 Free Software Foundation, Inc. |
| |
| This file is part of GCC. |
| |
| GCC is free software; you can redistribute it and/or modify it under |
| the terms of the GNU General Public License as published by the Free |
| Software Foundation; either version 3, or (at your option) any later |
| version. |
| |
| GCC is distributed in the hope that it will be useful, but WITHOUT ANY |
| WARRANTY; without even the implied warranty of MERCHANTABILITY or |
| FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License |
| for more details. |
| |
| You should have received a copy of the GNU General Public License |
| along with GCC; see the file COPYING3. If not see |
| <http://www.gnu.org/licenses/>. */ |
| |
| #include "config.h" |
| #include "system.h" |
| #include "coretypes.h" |
| #include "diagnostic-core.h" |
| #include "tm.h" |
| #include "common/common-target.h" |
| #include "common/common-target-def.h" |
| #include "opts.h" |
| #include "flags.h" |
| |
| EXPORTED_CONST int processor_flags_table[] = |
| { |
| /* z900 */ PF_IEEE_FLOAT | PF_ZARCH, |
| /* z990 */ PF_IEEE_FLOAT | PF_ZARCH | PF_LONG_DISPLACEMENT, |
| /* z9-109 */ PF_IEEE_FLOAT | PF_ZARCH | PF_LONG_DISPLACEMENT |
| | PF_EXTIMM, |
| /* z9-ec */ PF_IEEE_FLOAT | PF_ZARCH | PF_LONG_DISPLACEMENT |
| | PF_EXTIMM | PF_DFP, |
| /* z10 */ PF_IEEE_FLOAT | PF_ZARCH | PF_LONG_DISPLACEMENT |
| | PF_EXTIMM | PF_DFP | PF_Z10, |
| /* z196 */ PF_IEEE_FLOAT | PF_ZARCH | PF_LONG_DISPLACEMENT |
| | PF_EXTIMM | PF_DFP | PF_Z10 | PF_Z196, |
| /* zEC12 */ PF_IEEE_FLOAT | PF_ZARCH | PF_LONG_DISPLACEMENT |
| | PF_EXTIMM | PF_DFP | PF_Z10 | PF_Z196 | PF_ZEC12 | PF_TX, |
| /* z13 */ PF_IEEE_FLOAT | PF_ZARCH | PF_LONG_DISPLACEMENT |
| | PF_EXTIMM | PF_DFP | PF_Z10 | PF_Z196 | PF_ZEC12 | PF_TX |
| | PF_Z13 | PF_VX, |
| /* z14 */ PF_IEEE_FLOAT | PF_ZARCH | PF_LONG_DISPLACEMENT |
| | PF_EXTIMM | PF_DFP | PF_Z10 | PF_Z196 | PF_ZEC12 | PF_TX |
| | PF_Z13 | PF_VX | PF_VXE | PF_Z14, |
| /* z15 */ PF_IEEE_FLOAT | PF_ZARCH | PF_LONG_DISPLACEMENT |
| | PF_EXTIMM | PF_DFP | PF_Z10 | PF_Z196 | PF_ZEC12 | PF_TX |
| | PF_Z13 | PF_VX | PF_VXE | PF_Z14 | PF_VXE2 | PF_Z15, |
| /* arch14 */ PF_IEEE_FLOAT | PF_ZARCH | PF_LONG_DISPLACEMENT |
| | PF_EXTIMM | PF_DFP | PF_Z10 | PF_Z196 | PF_ZEC12 | PF_TX |
| | PF_Z13 | PF_VX | PF_VXE | PF_Z14 | PF_VXE2 | PF_Z15 |
| | PF_NNPA | PF_ARCH14 |
| }; |
| |
| /* Change optimizations to be performed, depending on the |
| optimization level. */ |
| |
| static const struct default_options s390_option_optimization_table[] = |
| { |
| /* Enable -fsched-pressure by default when optimizing. */ |
| { OPT_LEVELS_1_PLUS, OPT_fsched_pressure, NULL, 1 }, |
| |
| /* ??? There are apparently still problems with -fcaller-saves. */ |
| { OPT_LEVELS_ALL, OPT_fcaller_saves, NULL, 0 }, |
| |
| /* Use MVCLE instructions to decrease code size if requested. */ |
| { OPT_LEVELS_SIZE, OPT_mmvcle, NULL, 1 }, |
| |
| { OPT_LEVELS_NONE, 0, NULL, 0 } |
| }; |
| |
| /* Implement TARGET_OPTION_INIT_STRUCT. */ |
| |
| static void |
| s390_option_init_struct (struct gcc_options *opts) |
| { |
| /* By default, always emit DWARF-2 unwind info. This allows debugging |
| without maintaining a stack frame back-chain. */ |
| opts->x_flag_asynchronous_unwind_tables = 1; |
| |
| /* Enable section anchors by default. */ |
| opts->x_flag_section_anchors = 1; |
| } |
| |
| /* Implement TARGET_HANDLE_OPTION. */ |
| |
| 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) |
| { |
| size_t code = decoded->opt_index; |
| int value = decoded->value; |
| |
| switch (code) |
| { |
| case OPT_mstack_guard_: |
| if (value != 0 && exact_log2 (value) == -1) |
| error_at (loc, "stack guard value must be an exact power of 2"); |
| return true; |
| |
| case OPT_mstack_size_: |
| if (value != 0 && exact_log2 (value) == -1) |
| error_at (loc, "stack size must be an exact power of 2"); |
| return true; |
| |
| default: |
| return true; |
| } |
| } |
| |
| /* -fsplit-stack uses a field in the TCB, available with glibc-2.23. |
| We don't verify it, since earlier versions just have padding at |
| its place, which works just as well. */ |
| |
| static bool |
| s390_supports_split_stack (bool report ATTRIBUTE_UNUSED, |
| struct gcc_options *opts ATTRIBUTE_UNUSED) |
| { |
| return true; |
| } |
| |
| #undef TARGET_DEFAULT_TARGET_FLAGS |
| #define TARGET_DEFAULT_TARGET_FLAGS (TARGET_DEFAULT) |
| |
| #undef TARGET_HANDLE_OPTION |
| #define TARGET_HANDLE_OPTION s390_handle_option |
| |
| #undef TARGET_OPTION_OPTIMIZATION_TABLE |
| #define TARGET_OPTION_OPTIMIZATION_TABLE s390_option_optimization_table |
| |
| #undef TARGET_OPTION_INIT_STRUCT |
| #define TARGET_OPTION_INIT_STRUCT s390_option_init_struct |
| |
| #undef TARGET_SUPPORTS_SPLIT_STACK |
| #define TARGET_SUPPORTS_SPLIT_STACK s390_supports_split_stack |
| |
| struct gcc_targetm_common targetm_common = TARGETM_COMMON_INITIALIZER; |