gcc/common/config/s390/s390-common.cc

   1 /* Common hooks for IBM S/390 and zSeries.
   2    Copyright (C) 1999-2023 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     /* Enable -munroll-only-small-loops with -funroll-loops to unroll small
  68        loops at -O2 and above by default.  */
  69     { OPT_LEVELS_2_PLUS_SPEED_ONLY, OPT_funroll_loops, NULL, 1 },
  70     { OPT_LEVELS_2_PLUS_SPEED_ONLY, OPT_munroll_only_small_loops, NULL, 1 },
  71
  72     /* ??? There are apparently still problems with -fcaller-saves.  */
  73     { OPT_LEVELS_ALL, OPT_fcaller_saves, NULL, 0 },
  74
  75     /* Use MVCLE instructions to decrease code size if requested.  */
  76     { OPT_LEVELS_SIZE, OPT_mmvcle, NULL, 1 },
  77
  78     { OPT_LEVELS_NONE, 0, NULL, 0 }
  79   };
  80
  81 /* Implement TARGET_OPTION_INIT_STRUCT.  */
  82
  83 static void
  84 s390_option_init_struct (struct gcc_options *opts)
  85 {
  86   /* By default, always emit DWARF-2 unwind info.  This allows debugging
  87      without maintaining a stack frame back-chain.  */
  88   opts->x_flag_asynchronous_unwind_tables = 1;
  89
  90   /* Enable section anchors by default.  */
  91   opts->x_flag_section_anchors = 1;
  92 }
  93
  94 /* Implement TARGET_HANDLE_OPTION.  */
  95
  96 bool
  97 s390_handle_option (struct gcc_options *opts ATTRIBUTE_UNUSED,
  98                     struct gcc_options *opts_set ATTRIBUTE_UNUSED,
  99                     const struct cl_decoded_option *decoded,
 100                     location_t loc)
 101 {
 102   size_t code = decoded->opt_index;
 103   int value = decoded->value;
 104
 105   switch (code)
 106     {
 107     case OPT_mstack_guard_:
 108       if (value != 0 && exact_log2 (value) == -1)
 109         error_at (loc, "stack guard value must be an exact power of 2");
 110       return true;
 111
 112     case OPT_mstack_size_:
 113       if (value != 0 && exact_log2 (value) == -1)
 114         error_at (loc, "stack size must be an exact power of 2");
 115       return true;
 116
 117     default:
 118       return true;
 119     }
 120 }
 121
 122 /* -fsplit-stack uses a field in the TCB, available with glibc-2.23.
 123    We don't verify it, since earlier versions just have padding at
 124    its place, which works just as well.  For other libc implementations
 125    we disable the feature entirely to avoid corrupting the TCB.  */
 126
 127 static bool
 128 s390_supports_split_stack (bool report,
 129                            struct gcc_options *opts ATTRIBUTE_UNUSED)
 130 {
 131 #ifdef OPTION_GLIBC_P
 132   if (OPTION_GLIBC_P (opts))
 133     return true;
 134 #endif
 135
 136   if (report)
 137     error ("%<-fsplit-stack%> currently only supported on GNU/Linux");
 138   return false;
 139 }
 140
 141 #undef TARGET_DEFAULT_TARGET_FLAGS
 142 #define TARGET_DEFAULT_TARGET_FLAGS (TARGET_DEFAULT)
 143
 144 #undef TARGET_HANDLE_OPTION
 145 #define TARGET_HANDLE_OPTION s390_handle_option
 146
 147 #undef TARGET_OPTION_OPTIMIZATION_TABLE
 148 #define TARGET_OPTION_OPTIMIZATION_TABLE s390_option_optimization_table
 149
 150 #undef TARGET_OPTION_INIT_STRUCT
 151 #define TARGET_OPTION_INIT_STRUCT s390_option_init_struct
 152
 153 #undef TARGET_SUPPORTS_SPLIT_STACK
 154 #define TARGET_SUPPORTS_SPLIT_STACK s390_supports_split_stack
 155
 156 struct gcc_targetm_common targetm_common = TARGETM_COMMON_INITIALIZER;