[thirdparty/gcc.git] / gcc / common / config / rs6000 / rs6000-common.cc

/* Common hooks for IBM RS/6000.
   Copyright (C) 1991-2024 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"

/* Implement TARGET_OPTION_OPTIMIZATION_TABLE.  */
static const struct default_options rs6000_option_optimization_table[] =
  {
    /* Split multi-word types early.  */
    { OPT_LEVELS_ALL, OPT_fsplit_wide_types_early, NULL, 1 },
    /* Enable -fsched-pressure for first pass instruction scheduling.  */
    { OPT_LEVELS_1_PLUS, OPT_fsched_pressure, NULL, 1 },
    /* Enable -free for zero extension and sign extension elimination.*/
    { OPT_LEVELS_2_PLUS, OPT_free, NULL, 1 },
    /* Enable -munroll-only-small-loops with -funroll-loops to unroll small
       loops at -O2 and above by default.  */
    { OPT_LEVELS_2_PLUS_SPEED_ONLY, OPT_funroll_loops, NULL, 1 },
    { OPT_LEVELS_2_PLUS_SPEED_ONLY, OPT_munroll_only_small_loops, NULL, 1 },

    /* -frename-registers leads to non-optimal codegen and performance
       on rs6000, turn it off by default.  */
    { OPT_LEVELS_ALL, OPT_frename_registers, NULL, 0 },

    /* Double growth factor to counter reduced min jump length.  */
    { OPT_LEVELS_ALL, OPT__param_max_grow_copy_bb_insns_, NULL, 16 },
    { 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;

  /* By default, always emit DWARF-2 unwind info.  This allows debugging
     without maintaining a stack frame back-chain.  It also allows the
     debugger to find out where on-entry register values are stored at any
     point in a function, without having to analyze the executable code (which
     isn't even possible to do in the general case).  */
#ifdef OBJECT_FORMAT_ELF
  opts->x_flag_asynchronous_unwind_tables = 1;
#endif
}

/* 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)
{
  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 |= (~opts_set->x_rs6000_isa_flags
				   & OPTION_MASK_PPC_GFXOPT);
      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_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_mabi_ibmlongdouble:
    case OPT_mabi_ieeelongdouble:
      if (opts->x_rs6000_long_double_type_size == 64)
	{
	  error_at (loc, "option %<%s%> requires %<-mlong-double-128%>",
		    decoded->orig_option_with_args_text);
	  return true;
	}
      break;

    case OPT_mrecip:
      opts->x_rs6000_recip_name = (value) ? "default" : "none";
      break;
    }
  return true;
}

/* -fsplit-stack uses a field in the TCB, available with glibc-2.19.
   We also allow 2.18 because alignment padding guarantees that the
   space is available there too.  */

static bool
rs6000_supports_split_stack (bool report,
			     struct gcc_options *opts ATTRIBUTE_UNUSED)
{
#ifndef TARGET_GLIBC_MAJOR
#define TARGET_GLIBC_MAJOR 0
#endif
#ifndef TARGET_GLIBC_MINOR
#define TARGET_GLIBC_MINOR 0
#endif
  /* Note: Can't test DEFAULT_ABI here, it isn't set until later.  */
  if (TARGET_GLIBC_MAJOR * 1000 + TARGET_GLIBC_MINOR >= 2018
      && TARGET_64BIT
      && TARGET_ELF)
    return true;

  if (report)
    error ("%<-fsplit-stack%> currently only supported on PowerPC64 GNU/Linux with glibc-2.18 or later");
  return false;
}

#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_OPTIMIZATION_TABLE
#define TARGET_OPTION_OPTIMIZATION_TABLE rs6000_option_optimization_table

#undef TARGET_SUPPORTS_SPLIT_STACK
#define TARGET_SUPPORTS_SPLIT_STACK rs6000_supports_split_stack

struct gcc_targetm_common targetm_common = TARGETM_COMMON_INITIALIZER;
Commit	Line	Data
677f3fa8	1	/* Common hooks for IBM RS/6000.
a945c346	2	Copyright (C) 1991-2024 Free Software Foundation, Inc.
677f3fa8 JM	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
	30	/* Implement TARGET_OPTION_OPTIMIZATION_TABLE. */
	31	static const struct default_options rs6000_option_optimization_table[] =
	32	{
b18081df SB	33	/* Split multi-word types early. */
b18081df SB	34	{ OPT_LEVELS_ALL, OPT_fsplit_wide_types_early, NULL, 1 },
35f4cbd4 PH	35	/* Enable -fsched-pressure for first pass instruction scheduling. */
35f4cbd4 PH	36	{ OPT_LEVELS_1_PLUS, OPT_fsched_pressure, NULL, 1 },
9417b304 AKA	37	/* Enable -free for zero extension and sign extension elimination.*/
9417b304 AKA	38	{ OPT_LEVELS_2_PLUS, OPT_free, NULL, 1 },
48f65795 JG	39	/* Enable -munroll-only-small-loops with -funroll-loops to unroll small
	40	loops at -O2 and above by default. */
	41	{ OPT_LEVELS_2_PLUS_SPEED_ONLY, OPT_funroll_loops, NULL, 1 },
	42	{ OPT_LEVELS_2_PLUS_SPEED_ONLY, OPT_munroll_only_small_loops, NULL, 1 },
47c39faa	43
	44	/* -frename-registers leads to non-optimal codegen and performance
	45	on rs6000, turn it off by default. */
48f65795	46	{ OPT_LEVELS_ALL, OPT_frename_registers, NULL, 0 },
8100e93b ML	47
	48	/* Double growth factor to counter reduced min jump length. */
	49	{ OPT_LEVELS_ALL, OPT__param_max_grow_copy_bb_insns_, NULL, 16 },
677f3fa8 JM	50	{ OPT_LEVELS_NONE, 0, NULL, 0 }
	51	};
	52
	53	/* Implement TARGET_OPTION_INIT_STRUCT. */
	54
	55	static void
	56	rs6000_option_init_struct (struct gcc_options *opts)
	57	{
	58	if (DEFAULT_ABI == ABI_DARWIN)
	59	/* The Darwin libraries never set errno, so we might as well
	60	avoid calling them when that's the only reason we would. */
	61	opts->x_flag_errno_math = 0;
	62
	63	/* Enable section anchors by default. */
	64	if (!TARGET_MACHO)
	65	opts->x_flag_section_anchors = 1;
0359465c SB	66
	67	/* By default, always emit DWARF-2 unwind info. This allows debugging
	68	without maintaining a stack frame back-chain. It also allows the
	69	debugger to find out where on-entry register values are stored at any
	70	point in a function, without having to analyze the executable code (which
	71	isn't even possible to do in the general case). */
	72	#ifdef OBJECT_FORMAT_ELF
	73	opts->x_flag_asynchronous_unwind_tables = 1;
	74	#endif
677f3fa8 JM	75	}
	76
	77	/* If not otherwise specified by a target, make 'long double' equivalent to
	78	'double'. */
	79
	80	#ifndef RS6000_DEFAULT_LONG_DOUBLE_SIZE
	81	#define RS6000_DEFAULT_LONG_DOUBLE_SIZE 64
	82	#endif
	83
	84	/* Implement TARGET_HANDLE_OPTION. */
	85
	86	static bool
	87	rs6000_handle_option (struct gcc_options opts, struct gcc_options opts_set,
	88	const struct cl_decoded_option *decoded,
	89	location_t loc)
	90	{
677f3fa8 JM	91	char p, q;
	92	size_t code = decoded->opt_index;
	93	const char *arg = decoded->arg;
	94	int value = decoded->value;
	95
	96	switch (code)
	97	{
677f3fa8	98	case OPT_mfull_toc:
4d967549	99	opts->x_rs6000_isa_flags &= ~OPTION_MASK_MINIMAL_TOC;
677f3fa8 JM	100	opts->x_TARGET_NO_FP_IN_TOC = 0;
677f3fa8 JM	101	opts->x_TARGET_NO_SUM_IN_TOC = 0;
4d967549	102	opts_set->x_rs6000_isa_flags \|= OPTION_MASK_MINIMAL_TOC;
677f3fa8 JM	103	#ifdef TARGET_USES_SYSV4_OPT
	104	/* Note, V.4 no longer uses a normal TOC, so make -mfull-toc, be
	105	just the same as -mminimal-toc. */
4d967549 MM	106	opts->x_rs6000_isa_flags \|= OPTION_MASK_MINIMAL_TOC;
4d967549 MM	107	opts_set->x_rs6000_isa_flags \|= OPTION_MASK_MINIMAL_TOC;
677f3fa8 JM	108	#endif
	109	break;
	110
	111	#ifdef TARGET_USES_SYSV4_OPT
	112	case OPT_mtoc:
	113	/* Make -mtoc behave like -mminimal-toc. */
4d967549 MM	114	opts->x_rs6000_isa_flags \|= OPTION_MASK_MINIMAL_TOC;
4d967549 MM	115	opts_set->x_rs6000_isa_flags \|= OPTION_MASK_MINIMAL_TOC;
677f3fa8 JM	116	break;
	117	#endif
	118
	119	#ifdef TARGET_USES_AIX64_OPT
	120	case OPT_maix64:
	121	#else
	122	case OPT_m64:
	123	#endif
4d967549 MM	124	opts->x_rs6000_isa_flags \|= (~opts_set->x_rs6000_isa_flags
4d967549 MM	125	& OPTION_MASK_PPC_GFXOPT);
677f3fa8 JM	126	break;
	127
	128	case OPT_mminimal_toc:
	129	if (value == 1)
	130	{
	131	opts->x_TARGET_NO_FP_IN_TOC = 0;
	132	opts->x_TARGET_NO_SUM_IN_TOC = 0;
	133	}
	134	break;
	135
677f3fa8 JM	136	case OPT_mpowerpc_gpopt:
677f3fa8 JM	137	case OPT_mpowerpc_gfxopt:
677f3fa8 JM	138	break;
	139
	140	case OPT_mdebug_:
	141	p = ASTRDUP (arg);
	142	opts->x_rs6000_debug = 0;
	143
	144	while ((q = strtok (p, ",")) != NULL)
	145	{
	146	unsigned mask = 0;
	147	bool invert;
	148
	149	p = NULL;
	150	if (*q == '!')
	151	{
	152	invert = true;
	153	q++;
	154	}
	155	else
	156	invert = false;
	157
	158	if (! strcmp (q, "all"))
	159	mask = MASK_DEBUG_ALL;
	160	else if (! strcmp (q, "stack"))
	161	mask = MASK_DEBUG_STACK;
	162	else if (! strcmp (q, "arg"))
	163	mask = MASK_DEBUG_ARG;
	164	else if (! strcmp (q, "reg"))
	165	mask = MASK_DEBUG_REG;
	166	else if (! strcmp (q, "addr"))
	167	mask = MASK_DEBUG_ADDR;
	168	else if (! strcmp (q, "cost"))
	169	mask = MASK_DEBUG_COST;
	170	else if (! strcmp (q, "target"))
	171	mask = MASK_DEBUG_TARGET;
7fa14a01 MM	172	else if (! strcmp (q, "builtin"))
7fa14a01 MM	173	mask = MASK_DEBUG_BUILTIN;
677f3fa8	174	else
a3f9f006	175	error_at (loc, "unknown %<-mdebug-%s%> switch", q);
677f3fa8 JM	176
	177	if (invert)
	178	opts->x_rs6000_debug &= ~mask;
	179	else
	180	opts->x_rs6000_debug \|= mask;
	181	}
	182	break;
	183
	184	#ifdef TARGET_USES_SYSV4_OPT
	185	case OPT_mrelocatable:
	186	if (value == 1)
	187	{
4d967549 MM	188	opts->x_rs6000_isa_flags \|= OPTION_MASK_MINIMAL_TOC;
4d967549 MM	189	opts_set->x_rs6000_isa_flags \|= OPTION_MASK_MINIMAL_TOC;
677f3fa8 JM	190	opts->x_TARGET_NO_FP_IN_TOC = 1;
	191	}
	192	break;
	193
	194	case OPT_mrelocatable_lib:
	195	if (value == 1)
	196	{
4d967549 MM	197	opts->x_rs6000_isa_flags \|= (OPTION_MASK_RELOCATABLE
	198	\| OPTION_MASK_MINIMAL_TOC);
	199	opts_set->x_rs6000_isa_flags \|= (OPTION_MASK_RELOCATABLE
	200	\| OPTION_MASK_MINIMAL_TOC);
677f3fa8 JM	201	opts->x_TARGET_NO_FP_IN_TOC = 1;
	202	}
	203	else
	204	{
4d967549 MM	205	opts->x_rs6000_isa_flags &= ~OPTION_MASK_RELOCATABLE;
4d967549 MM	206	opts_set->x_rs6000_isa_flags \|= OPTION_MASK_RELOCATABLE;
677f3fa8 JM	207	}
	208	break;
	209	#endif
	210
677f3fa8 JM	211	case OPT_mlong_double_:
	212	if (value != 64 && value != 128)
	213	{
a3f9f006	214	error_at (loc, "unknown switch %<-mlong-double-%s%>", arg);
677f3fa8 JM	215	opts->x_rs6000_long_double_type_size
	216	= RS6000_DEFAULT_LONG_DOUBLE_SIZE;
	217	return false;
	218	}
	219	break;
	220
cb16bc3b PB	221	case OPT_mabi_ibmlongdouble:
	222	case OPT_mabi_ieeelongdouble:
	223	if (opts->x_rs6000_long_double_type_size == 64)
	224	{
	225	error_at (loc, "option %<%s%> requires %<-mlong-double-128%>",
	226	decoded->orig_option_with_args_text);
	227	return true;
	228	}
	229	break;
	230
677f3fa8 JM	231	case OPT_mrecip:
	232	opts->x_rs6000_recip_name = (value) ? "default" : "none";
	233	break;
	234	}
	235	return true;
	236	}
	237
0f0fd745 AM	238	/* -fsplit-stack uses a field in the TCB, available with glibc-2.19.
	239	We also allow 2.18 because alignment padding guarantees that the
	240	space is available there too. */
	241
	242	static bool
	243	rs6000_supports_split_stack (bool report,
	244	struct gcc_options *opts ATTRIBUTE_UNUSED)
	245	{
	246	#ifndef TARGET_GLIBC_MAJOR
	247	#define TARGET_GLIBC_MAJOR 0
	248	#endif
	249	#ifndef TARGET_GLIBC_MINOR
	250	#define TARGET_GLIBC_MINOR 0
	251	#endif
	252	/* Note: Can't test DEFAULT_ABI here, it isn't set until later. */
	253	if (TARGET_GLIBC_MAJOR * 1000 + TARGET_GLIBC_MINOR >= 2018
	254	&& TARGET_64BIT
	255	&& TARGET_ELF)
	256	return true;
	257
	258	if (report)
	259	error ("%<-fsplit-stack%> currently only supported on PowerPC64 GNU/Linux with glibc-2.18 or later");
	260	return false;
	261	}
	262
677f3fa8 JM	263	#undef TARGET_HANDLE_OPTION
	264	#define TARGET_HANDLE_OPTION rs6000_handle_option
	265
	266	#undef TARGET_OPTION_INIT_STRUCT
	267	#define TARGET_OPTION_INIT_STRUCT rs6000_option_init_struct
	268
	269	#undef TARGET_OPTION_OPTIMIZATION_TABLE
	270	#define TARGET_OPTION_OPTIMIZATION_TABLE rs6000_option_optimization_table
	271
0f0fd745 AM	272	#undef TARGET_SUPPORTS_SPLIT_STACK
	273	#define TARGET_SUPPORTS_SPLIT_STACK rs6000_supports_split_stack
	274
677f3fa8	275	struct gcc_targetm_common targetm_common = TARGETM_COMMON_INITIALIZER;