gcc/common/config/rs6000/rs6000-common.c

   1 /* Common hooks for IBM RS/6000.
   2    Copyright (C) 1991-2018 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
   7    under the terms of the GNU General Public License as published
   8    by the Free Software Foundation; either version 3, or (at your
   9    option) any later version.
  10
  11    GCC is distributed in the hope that it will be useful, but WITHOUT
  12    ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
  13    or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public
  14    License 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 #include "params.h"
  30
  31 /* Implement TARGET_OPTION_OPTIMIZATION_TABLE.  */
  32 static const struct default_options rs6000_option_optimization_table[] =
  33   {
  34     /* Enable -fsched-pressure for first pass instruction scheduling.  */
  35     { OPT_LEVELS_1_PLUS, OPT_fsched_pressure, NULL, 1 },
  36     { OPT_LEVELS_NONE, 0, NULL, 0 }
  37   };
  38
  39 /* Implement TARGET_OPTION_INIT_STRUCT.  */
  40
  41 static void
  42 rs6000_option_init_struct (struct gcc_options *opts)
  43 {
  44   if (DEFAULT_ABI == ABI_DARWIN)
  45     /* The Darwin libraries never set errno, so we might as well
  46        avoid calling them when that's the only reason we would.  */
  47     opts->x_flag_errno_math = 0;
  48
  49   /* Enable section anchors by default.  */
  50   if (!TARGET_MACHO)
  51     opts->x_flag_section_anchors = 1;
  52 }
  53
  54 /* Implement TARGET_OPTION_DEFAULT_PARAMS.  */
  55
  56 static void
  57 rs6000_option_default_params (void)
  58 {
  59   /* Double growth factor to counter reduced min jump length.  */
  60   set_default_param_value (PARAM_MAX_GROW_COPY_BB_INSNS, 16);
  61 }
  62
  63 /* If not otherwise specified by a target, make 'long double' equivalent to
  64    'double'.  */
  65
  66 #ifndef RS6000_DEFAULT_LONG_DOUBLE_SIZE
  67 #define RS6000_DEFAULT_LONG_DOUBLE_SIZE 64
  68 #endif
  69
  70 /* Implement TARGET_HANDLE_OPTION.  */
  71
  72 static bool
  73 rs6000_handle_option (struct gcc_options *opts, struct gcc_options *opts_set,
  74                       const struct cl_decoded_option *decoded,
  75                       location_t loc)
  76 {
  77   enum fpu_type_t fpu_type = FPU_NONE;
  78   char *p, *q;
  79   size_t code = decoded->opt_index;
  80   const char *arg = decoded->arg;
  81   int value = decoded->value;
  82
  83   switch (code)
  84     {
  85     case OPT_mfull_toc:
  86       opts->x_rs6000_isa_flags &= ~OPTION_MASK_MINIMAL_TOC;
  87       opts->x_TARGET_NO_FP_IN_TOC = 0;
  88       opts->x_TARGET_NO_SUM_IN_TOC = 0;
  89       opts_set->x_rs6000_isa_flags |= OPTION_MASK_MINIMAL_TOC;
  90 #ifdef TARGET_USES_SYSV4_OPT
  91       /* Note, V.4 no longer uses a normal TOC, so make -mfull-toc, be
  92          just the same as -mminimal-toc.  */
  93       opts->x_rs6000_isa_flags |= OPTION_MASK_MINIMAL_TOC;
  94       opts_set->x_rs6000_isa_flags |= OPTION_MASK_MINIMAL_TOC;
  95 #endif
  96       break;
  97
  98 #ifdef TARGET_USES_SYSV4_OPT
  99     case OPT_mtoc:
 100       /* Make -mtoc behave like -mminimal-toc.  */
 101       opts->x_rs6000_isa_flags |= OPTION_MASK_MINIMAL_TOC;
 102       opts_set->x_rs6000_isa_flags |= OPTION_MASK_MINIMAL_TOC;
 103       break;
 104 #endif
 105
 106 #ifdef TARGET_USES_AIX64_OPT
 107     case OPT_maix64:
 108 #else
 109     case OPT_m64:
 110 #endif
 111       opts->x_rs6000_isa_flags |= OPTION_MASK_POWERPC64;
 112       opts->x_rs6000_isa_flags |= (~opts_set->x_rs6000_isa_flags
 113                                    & OPTION_MASK_PPC_GFXOPT);
 114       opts_set->x_rs6000_isa_flags |= OPTION_MASK_POWERPC64;
 115       break;
 116
 117 #ifdef TARGET_USES_AIX64_OPT
 118     case OPT_maix32:
 119 #else
 120     case OPT_m32:
 121 #endif
 122       opts->x_rs6000_isa_flags &= ~OPTION_MASK_POWERPC64;
 123       opts_set->x_rs6000_isa_flags |= OPTION_MASK_POWERPC64;
 124       break;
 125
 126     case OPT_mminimal_toc:
 127       if (value == 1)
 128         {
 129           opts->x_TARGET_NO_FP_IN_TOC = 0;
 130           opts->x_TARGET_NO_SUM_IN_TOC = 0;
 131         }
 132       break;
 133
 134     case OPT_mpowerpc_gpopt:
 135     case OPT_mpowerpc_gfxopt:
 136       break;
 137
 138     case OPT_mdebug_:
 139       p = ASTRDUP (arg);
 140       opts->x_rs6000_debug = 0;
 141
 142       while ((q = strtok (p, ",")) != NULL)
 143         {
 144           unsigned mask = 0;
 145           bool invert;
 146
 147           p = NULL;
 148           if (*q == '!')
 149             {
 150               invert = true;
 151               q++;
 152             }
 153           else
 154             invert = false;
 155
 156           if (! strcmp (q, "all"))
 157             mask = MASK_DEBUG_ALL;
 158           else if (! strcmp (q, "stack"))
 159             mask = MASK_DEBUG_STACK;
 160           else if (! strcmp (q, "arg"))
 161             mask = MASK_DEBUG_ARG;
 162           else if (! strcmp (q, "reg"))
 163             mask = MASK_DEBUG_REG;
 164           else if (! strcmp (q, "addr"))
 165             mask = MASK_DEBUG_ADDR;
 166           else if (! strcmp (q, "cost"))
 167             mask = MASK_DEBUG_COST;
 168           else if (! strcmp (q, "target"))
 169             mask = MASK_DEBUG_TARGET;
 170           else if (! strcmp (q, "builtin"))
 171             mask = MASK_DEBUG_BUILTIN;
 172           else
 173             error_at (loc, "unknown -mdebug-%s switch", q);
 174
 175           if (invert)
 176             opts->x_rs6000_debug &= ~mask;
 177           else
 178             opts->x_rs6000_debug |= mask;
 179         }
 180       break;
 181
 182 #ifdef TARGET_USES_SYSV4_OPT
 183     case OPT_mrelocatable:
 184       if (value == 1)
 185         {
 186           opts->x_rs6000_isa_flags |= OPTION_MASK_MINIMAL_TOC;
 187           opts_set->x_rs6000_isa_flags |= OPTION_MASK_MINIMAL_TOC;
 188           opts->x_TARGET_NO_FP_IN_TOC = 1;
 189         }
 190       break;
 191
 192     case OPT_mrelocatable_lib:
 193       if (value == 1)
 194         {
 195           opts->x_rs6000_isa_flags |= (OPTION_MASK_RELOCATABLE
 196                                        | OPTION_MASK_MINIMAL_TOC);
 197           opts_set->x_rs6000_isa_flags |= (OPTION_MASK_RELOCATABLE
 198                                            | OPTION_MASK_MINIMAL_TOC);
 199           opts->x_TARGET_NO_FP_IN_TOC = 1;
 200         }
 201       else
 202         {
 203           opts->x_rs6000_isa_flags &= ~OPTION_MASK_RELOCATABLE;
 204           opts_set->x_rs6000_isa_flags |= OPTION_MASK_RELOCATABLE;
 205         }
 206       break;
 207 #endif
 208
 209     case OPT_mlong_double_:
 210       if (value != 64 && value != 128)
 211         {
 212           error_at (loc, "unknown switch -mlong-double-%s", arg);
 213           opts->x_rs6000_long_double_type_size
 214             = RS6000_DEFAULT_LONG_DOUBLE_SIZE;
 215           return false;
 216         }
 217       break;
 218
 219     case OPT_msingle_float:
 220       if (!TARGET_SINGLE_FPU)
 221         warning_at (loc, 0,
 222                     "-msingle-float option equivalent to -mhard-float");
 223       /* -msingle-float implies -mno-double-float and TARGET_HARD_FLOAT. */
 224       opts->x_rs6000_double_float = 0;
 225       opts->x_rs6000_isa_flags &= ~OPTION_MASK_SOFT_FLOAT;
 226       opts_set->x_rs6000_isa_flags |= OPTION_MASK_SOFT_FLOAT;
 227       break;
 228
 229     case OPT_mdouble_float:
 230       /* -mdouble-float implies -msingle-float and TARGET_HARD_FLOAT. */
 231       opts->x_rs6000_single_float = 1;
 232       opts->x_rs6000_isa_flags &= ~OPTION_MASK_SOFT_FLOAT;
 233       opts_set->x_rs6000_isa_flags |= OPTION_MASK_SOFT_FLOAT;
 234       break;
 235
 236     case OPT_msimple_fpu:
 237       if (!TARGET_SINGLE_FPU)
 238         warning_at (loc, 0, "-msimple-fpu option ignored");
 239       break;
 240
 241     case OPT_mhard_float:
 242       /* -mhard_float implies -msingle-float and -mdouble-float. */
 243       opts->x_rs6000_single_float = opts->x_rs6000_double_float = 1;
 244       break;
 245
 246     case OPT_msoft_float:
 247       /* -msoft_float implies -mnosingle-float and -mnodouble-float. */
 248       opts->x_rs6000_single_float = opts->x_rs6000_double_float = 0;
 249       break;
 250
 251     case OPT_mfpu_:
 252       fpu_type = (enum fpu_type_t) value;
 253       if (fpu_type != FPU_NONE)
 254         {
 255           /* If -mfpu is not none, then turn off SOFT_FLOAT, turn on
 256              HARD_FLOAT. */
 257           opts->x_rs6000_isa_flags &= ~OPTION_MASK_SOFT_FLOAT;
 258           opts_set->x_rs6000_isa_flags |= OPTION_MASK_SOFT_FLOAT;
 259           opts->x_rs6000_xilinx_fpu = 1;
 260           if (fpu_type == FPU_SF_LITE || fpu_type == FPU_SF_FULL)
 261             opts->x_rs6000_single_float = 1;
 262           if (fpu_type == FPU_DF_LITE || fpu_type == FPU_DF_FULL)
 263             opts->x_rs6000_single_float = opts->x_rs6000_double_float = 1;
 264           if (fpu_type == FPU_SF_LITE || fpu_type == FPU_DF_LITE)
 265             opts->x_rs6000_simple_fpu = 1;
 266         }
 267       else
 268         {
 269           /* -mfpu=none is equivalent to -msoft-float.  */
 270           opts->x_rs6000_isa_flags |= OPTION_MASK_SOFT_FLOAT;
 271           opts_set->x_rs6000_isa_flags |= OPTION_MASK_SOFT_FLOAT;
 272           opts->x_rs6000_single_float = opts->x_rs6000_double_float = 0;
 273         }
 274       break;
 275
 276     case OPT_mrecip:
 277       opts->x_rs6000_recip_name = (value) ? "default" : "none";
 278       break;
 279     }
 280   return true;
 281 }
 282
 283 /* -fsplit-stack uses a field in the TCB, available with glibc-2.19.
 284    We also allow 2.18 because alignment padding guarantees that the
 285    space is available there too.  */
 286
 287 static bool
 288 rs6000_supports_split_stack (bool report,
 289                              struct gcc_options *opts ATTRIBUTE_UNUSED)
 290 {
 291 #ifndef TARGET_GLIBC_MAJOR
 292 #define TARGET_GLIBC_MAJOR 0
 293 #endif
 294 #ifndef TARGET_GLIBC_MINOR
 295 #define TARGET_GLIBC_MINOR 0
 296 #endif
 297   /* Note: Can't test DEFAULT_ABI here, it isn't set until later.  */
 298   if (TARGET_GLIBC_MAJOR * 1000 + TARGET_GLIBC_MINOR >= 2018
 299       && TARGET_64BIT
 300       && TARGET_ELF)
 301     return true;
 302
 303   if (report)
 304     error ("%<-fsplit-stack%> currently only supported on PowerPC64 GNU/Linux with glibc-2.18 or later");
 305   return false;
 306 }
 307
 308 #undef TARGET_HANDLE_OPTION
 309 #define TARGET_HANDLE_OPTION rs6000_handle_option
 310
 311 #undef TARGET_OPTION_INIT_STRUCT
 312 #define TARGET_OPTION_INIT_STRUCT rs6000_option_init_struct
 313
 314 #undef TARGET_OPTION_DEFAULT_PARAMS
 315 #define TARGET_OPTION_DEFAULT_PARAMS rs6000_option_default_params
 316
 317 #undef TARGET_OPTION_OPTIMIZATION_TABLE
 318 #define TARGET_OPTION_OPTIMIZATION_TABLE rs6000_option_optimization_table
 319
 320 #undef TARGET_SUPPORTS_SPLIT_STACK
 321 #define TARGET_SUPPORTS_SPLIT_STACK rs6000_supports_split_stack
 322
 323 struct gcc_targetm_common targetm_common = TARGETM_COMMON_INITIALIZER;