gcc/common/config/s390/s390-common.c

   1 /* Common hooks for IBM S/390 and zSeries.
   2    Copyright (C) 1999-2020 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   };
  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   {
  60     /* Enable -fsched-pressure by default when optimizing.  */
  61     { OPT_LEVELS_1_PLUS, OPT_fsched_pressure, NULL, 1 },
  62
  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;
  80
  81   /* Enable section anchors by default.  */
  82   opts->x_flag_section_anchors = 1;
  83 }
  84
  85 /* Implement TARGET_HANDLE_OPTION.  */
  86
  87 bool
  88 s390_handle_option (struct gcc_options *opts ATTRIBUTE_UNUSED,
  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;
  94   int value = decoded->value;
  95
  96   switch (code)
  97     {
  98     case OPT_mstack_guard_:
  99       if (value != 0 && exact_log2 (value) == -1)
 100         error_at (loc, "stack guard value must be an exact power of 2");
 101       return true;
 102
 103     case OPT_mstack_size_:
 104       if (value != 0 && exact_log2 (value) == -1)
 105         error_at (loc, "stack size must be an exact power of 2");
 106       return true;
 107
 108     default:
 109       return true;
 110     }
 111 }
 112
 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
 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
 136 #undef TARGET_SUPPORTS_SPLIT_STACK
 137 #define TARGET_SUPPORTS_SPLIT_STACK s390_supports_split_stack
 138
 139 struct gcc_targetm_common targetm_common = TARGETM_COMMON_INITIALIZER;