| /* Common hooks for IBM RS/6000. |
| Copyright (C) 1991-2013 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" |
| #include "params.h" |
| |
| /* Implement TARGET_OPTION_OPTIMIZATION_TABLE. */ |
| static const struct default_options rs6000_option_optimization_table[] = |
| { |
| { OPT_LEVELS_1_PLUS, OPT_fomit_frame_pointer, NULL, 1 }, |
| { OPT_LEVELS_NONE, 0, NULL, 0 } |
| }; |
| |
| /* Implement TARGET_OPTION_INIT_STRUCT. */ |
| |
| static void |
| rs6000_option_init_struct (struct gcc_options *opts) |
| { |
| if (DEFAULT_ABI == ABI_DARWIN) |
| /* The Darwin libraries never set errno, so we might as well |
| avoid calling them when that's the only reason we would. */ |
| opts->x_flag_errno_math = 0; |
| |
| /* Enable section anchors by default. */ |
| if (!TARGET_MACHO) |
| opts->x_flag_section_anchors = 1; |
| } |
| |
| /* Implement TARGET_OPTION_DEFAULT_PARAMS. */ |
| |
| static void |
| rs6000_option_default_params (void) |
| { |
| /* Double growth factor to counter reduced min jump length. */ |
| set_default_param_value (PARAM_MAX_GROW_COPY_BB_INSNS, 16); |
| } |
| |
| /* If not otherwise specified by a target, make 'long double' equivalent to |
| 'double'. */ |
| |
| #ifndef RS6000_DEFAULT_LONG_DOUBLE_SIZE |
| #define RS6000_DEFAULT_LONG_DOUBLE_SIZE 64 |
| #endif |
| |
| /* Implement TARGET_HANDLE_OPTION. */ |
| |
| static bool |
| rs6000_handle_option (struct gcc_options *opts, struct gcc_options *opts_set, |
| const struct cl_decoded_option *decoded, |
| location_t loc) |
| { |
| enum fpu_type_t fpu_type = FPU_NONE; |
| char *p, *q; |
| size_t code = decoded->opt_index; |
| const char *arg = decoded->arg; |
| int value = decoded->value; |
| |
| switch (code) |
| { |
| case OPT_mfull_toc: |
| opts->x_rs6000_isa_flags &= ~OPTION_MASK_MINIMAL_TOC; |
| opts->x_TARGET_NO_FP_IN_TOC = 0; |
| opts->x_TARGET_NO_SUM_IN_TOC = 0; |
| opts_set->x_rs6000_isa_flags |= OPTION_MASK_MINIMAL_TOC; |
| #ifdef TARGET_USES_SYSV4_OPT |
| /* Note, V.4 no longer uses a normal TOC, so make -mfull-toc, be |
| just the same as -mminimal-toc. */ |
| opts->x_rs6000_isa_flags |= OPTION_MASK_MINIMAL_TOC; |
| opts_set->x_rs6000_isa_flags |= OPTION_MASK_MINIMAL_TOC; |
| #endif |
| break; |
| |
| #ifdef TARGET_USES_SYSV4_OPT |
| case OPT_mtoc: |
| /* Make -mtoc behave like -mminimal-toc. */ |
| opts->x_rs6000_isa_flags |= OPTION_MASK_MINIMAL_TOC; |
| opts_set->x_rs6000_isa_flags |= OPTION_MASK_MINIMAL_TOC; |
| break; |
| #endif |
| |
| #ifdef TARGET_USES_AIX64_OPT |
| case OPT_maix64: |
| #else |
| case OPT_m64: |
| #endif |
| opts->x_rs6000_isa_flags |= OPTION_MASK_POWERPC64; |
| opts->x_rs6000_isa_flags |= (~opts_set->x_rs6000_isa_flags |
| & OPTION_MASK_PPC_GFXOPT); |
| opts_set->x_rs6000_isa_flags |= OPTION_MASK_POWERPC64; |
| break; |
| |
| #ifdef TARGET_USES_AIX64_OPT |
| case OPT_maix32: |
| #else |
| case OPT_m32: |
| #endif |
| opts->x_rs6000_isa_flags &= ~OPTION_MASK_POWERPC64; |
| opts_set->x_rs6000_isa_flags |= OPTION_MASK_POWERPC64; |
| break; |
| |
| case OPT_mminimal_toc: |
| if (value == 1) |
| { |
| opts->x_TARGET_NO_FP_IN_TOC = 0; |
| opts->x_TARGET_NO_SUM_IN_TOC = 0; |
| } |
| break; |
| |
| case OPT_mpowerpc_gpopt: |
| case OPT_mpowerpc_gfxopt: |
| break; |
| |
| case OPT_mdebug_: |
| p = ASTRDUP (arg); |
| opts->x_rs6000_debug = 0; |
| |
| while ((q = strtok (p, ",")) != NULL) |
| { |
| unsigned mask = 0; |
| bool invert; |
| |
| p = NULL; |
| if (*q == '!') |
| { |
| invert = true; |
| q++; |
| } |
| else |
| invert = false; |
| |
| if (! strcmp (q, "all")) |
| mask = MASK_DEBUG_ALL; |
| else if (! strcmp (q, "stack")) |
| mask = MASK_DEBUG_STACK; |
| else if (! strcmp (q, "arg")) |
| mask = MASK_DEBUG_ARG; |
| else if (! strcmp (q, "reg")) |
| mask = MASK_DEBUG_REG; |
| else if (! strcmp (q, "addr")) |
| mask = MASK_DEBUG_ADDR; |
| else if (! strcmp (q, "cost")) |
| mask = MASK_DEBUG_COST; |
| else if (! strcmp (q, "target")) |
| mask = MASK_DEBUG_TARGET; |
| else if (! strcmp (q, "builtin")) |
| mask = MASK_DEBUG_BUILTIN; |
| else |
| error_at (loc, "unknown -mdebug-%s switch", q); |
| |
| if (invert) |
| opts->x_rs6000_debug &= ~mask; |
| else |
| opts->x_rs6000_debug |= mask; |
| } |
| break; |
| |
| #ifdef TARGET_USES_SYSV4_OPT |
| case OPT_mrelocatable: |
| if (value == 1) |
| { |
| opts->x_rs6000_isa_flags |= OPTION_MASK_MINIMAL_TOC; |
| opts_set->x_rs6000_isa_flags |= OPTION_MASK_MINIMAL_TOC; |
| opts->x_TARGET_NO_FP_IN_TOC = 1; |
| } |
| break; |
| |
| case OPT_mrelocatable_lib: |
| if (value == 1) |
| { |
| opts->x_rs6000_isa_flags |= (OPTION_MASK_RELOCATABLE |
| | OPTION_MASK_MINIMAL_TOC); |
| opts_set->x_rs6000_isa_flags |= (OPTION_MASK_RELOCATABLE |
| | OPTION_MASK_MINIMAL_TOC); |
| opts->x_TARGET_NO_FP_IN_TOC = 1; |
| } |
| else |
| { |
| opts->x_rs6000_isa_flags &= ~OPTION_MASK_RELOCATABLE; |
| opts_set->x_rs6000_isa_flags |= OPTION_MASK_RELOCATABLE; |
| } |
| break; |
| #endif |
| |
| case OPT_mabi_altivec: |
| /* Enabling the AltiVec ABI turns off the SPE ABI. */ |
| opts->x_rs6000_spe_abi = 0; |
| break; |
| |
| case OPT_mabi_spe: |
| opts->x_rs6000_altivec_abi = 0; |
| break; |
| |
| case OPT_mlong_double_: |
| if (value != 64 && value != 128) |
| { |
| error_at (loc, "unknown switch -mlong-double-%s", arg); |
| opts->x_rs6000_long_double_type_size |
| = RS6000_DEFAULT_LONG_DOUBLE_SIZE; |
| return false; |
| } |
| break; |
| |
| case OPT_msingle_float: |
| if (!TARGET_SINGLE_FPU) |
| warning_at (loc, 0, |
| "-msingle-float option equivalent to -mhard-float"); |
| /* -msingle-float implies -mno-double-float and TARGET_HARD_FLOAT. */ |
| opts->x_rs6000_double_float = 0; |
| opts->x_rs6000_isa_flags &= ~OPTION_MASK_SOFT_FLOAT; |
| opts_set->x_rs6000_isa_flags |= OPTION_MASK_SOFT_FLOAT; |
| break; |
| |
| case OPT_mdouble_float: |
| /* -mdouble-float implies -msingle-float and TARGET_HARD_FLOAT. */ |
| opts->x_rs6000_single_float = 1; |
| opts->x_rs6000_isa_flags &= ~OPTION_MASK_SOFT_FLOAT; |
| opts_set->x_rs6000_isa_flags |= OPTION_MASK_SOFT_FLOAT; |
| break; |
| |
| case OPT_msimple_fpu: |
| if (!TARGET_SINGLE_FPU) |
| warning_at (loc, 0, "-msimple-fpu option ignored"); |
| break; |
| |
| case OPT_mhard_float: |
| /* -mhard_float implies -msingle-float and -mdouble-float. */ |
| opts->x_rs6000_single_float = opts->x_rs6000_double_float = 1; |
| break; |
| |
| case OPT_msoft_float: |
| /* -msoft_float implies -mnosingle-float and -mnodouble-float. */ |
| opts->x_rs6000_single_float = opts->x_rs6000_double_float = 0; |
| break; |
| |
| case OPT_mfpu_: |
| fpu_type = (enum fpu_type_t) value; |
| if (fpu_type != FPU_NONE) |
| { |
| /* If -mfpu is not none, then turn off SOFT_FLOAT, turn on |
| HARD_FLOAT. */ |
| opts->x_rs6000_isa_flags &= ~OPTION_MASK_SOFT_FLOAT; |
| opts_set->x_rs6000_isa_flags |= OPTION_MASK_SOFT_FLOAT; |
| opts->x_rs6000_xilinx_fpu = 1; |
| if (fpu_type == FPU_SF_LITE || fpu_type == FPU_SF_FULL) |
| opts->x_rs6000_single_float = 1; |
| if (fpu_type == FPU_DF_LITE || fpu_type == FPU_DF_FULL) |
| opts->x_rs6000_single_float = opts->x_rs6000_double_float = 1; |
| if (fpu_type == FPU_SF_LITE || fpu_type == FPU_DF_LITE) |
| opts->x_rs6000_simple_fpu = 1; |
| } |
| else |
| { |
| /* -mfpu=none is equivalent to -msoft-float. */ |
| opts->x_rs6000_isa_flags |= OPTION_MASK_SOFT_FLOAT; |
| opts_set->x_rs6000_isa_flags |= OPTION_MASK_SOFT_FLOAT; |
| opts->x_rs6000_single_float = opts->x_rs6000_double_float = 0; |
| } |
| break; |
| |
| case OPT_mrecip: |
| opts->x_rs6000_recip_name = (value) ? "default" : "none"; |
| break; |
| } |
| return true; |
| } |
| |
| #undef TARGET_HANDLE_OPTION |
| #define TARGET_HANDLE_OPTION rs6000_handle_option |
| |
| #undef TARGET_OPTION_INIT_STRUCT |
| #define TARGET_OPTION_INIT_STRUCT rs6000_option_init_struct |
| |
| #undef TARGET_OPTION_DEFAULT_PARAMS |
| #define TARGET_OPTION_DEFAULT_PARAMS rs6000_option_default_params |
| |
| #undef TARGET_OPTION_OPTIMIZATION_TABLE |
| #define TARGET_OPTION_OPTIMIZATION_TABLE rs6000_option_optimization_table |
| |
| struct gcc_targetm_common targetm_common = TARGETM_COMMON_INITIALIZER; |