@@ -2628,6 +2628,32 @@ classify_argument (machine_mode mode, const_tree type,
return n;
}
+/* Set the integer register REGNO bit in int_parameter_registers. */
+
+static void
+set_int_parameter_registers_bit (int regno)
+{
+ if (LEGACY_INT_REGNO_P (regno))
+ cfun->machine->int_parameter_registers |= 1 << regno;
+ else
+ cfun->machine->int_parameter_registers
+ |= 1 << (regno - FIRST_REX_INT_REG + 8);
+}
+
+/* Return true if the integer register REGNO bit in
+ int_parameter_registers is set. */
+
+static bool
+test_int_parameter_registers_bit (int regno)
+{
+ if (LEGACY_INT_REGNO_P (regno))
+ return (cfun->machine->int_parameter_registers
+ & (1 << regno)) != 0;
+ else
+ return (cfun->machine->int_parameter_registers
+ & (1 << (regno - FIRST_REX_INT_REG + 8))) != 0;
+}
+
/* Examine the argument and return set number of register required in each
class. Return true iff parameter should be passed in memory. */
@@ -2763,6 +2789,8 @@ construct_container (machine_mode mode, machine_mode orig_mode,
{
case X86_64_INTEGER_CLASS:
case X86_64_INTEGERSI_CLASS:
+ if (!in_return)
+ set_int_parameter_registers_bit (intreg[0]);
return gen_rtx_REG (mode, intreg[0]);
case X86_64_SSE_CLASS:
case X86_64_SSEHF_CLASS:
@@ -2821,6 +2849,11 @@ construct_container (machine_mode mode, machine_mode orig_mode,
if (mode == BLKmode)
{
/* Use TImode for BLKmode values in 2 integer registers. */
+ if (!in_return)
+ {
+ set_int_parameter_registers_bit (intreg[0]);
+ set_int_parameter_registers_bit (intreg[1]);
+ }
exp[0] = gen_rtx_EXPR_LIST (VOIDmode,
gen_rtx_REG (TImode, intreg[0]),
GEN_INT (0));
@@ -2829,7 +2862,11 @@ construct_container (machine_mode mode, machine_mode orig_mode,
return ret;
}
else
- return gen_rtx_REG (mode, intreg[0]);
+ {
+ if (!in_return)
+ set_int_parameter_registers_bit (intreg[0]);
+ return gen_rtx_REG (mode, intreg[0]);
+ }
}
/* Otherwise figure out the entries of the PARALLEL. */
@@ -2860,6 +2897,8 @@ construct_container (machine_mode mode, machine_mode orig_mode,
= gen_rtx_EXPR_LIST (VOIDmode,
gen_rtx_REG (tmpmode, *intreg),
GEN_INT (i*8));
+ if (!in_return)
+ set_int_parameter_registers_bit (*intreg);
intreg++;
break;
case X86_64_SSEHF_CLASS:
@@ -3241,6 +3280,7 @@ pass_in_reg:
if (regno == AX_REG)
regno = CX_REG;
}
+ set_int_parameter_registers_bit (regno);
return gen_rtx_REG (mode, regno);
}
break;
@@ -22749,6 +22789,37 @@ current_fentry_section (const char **name)
return true;
}
+/* Return an caller-saved register, which isn't used for parameter
+ passing, at entry for profile. */
+
+static int
+x86_64_select_profile_regnum (bool r11_ok ATTRIBUTE_UNUSED)
+{
+ /* Use %r10 if it isn't used by DRAP. */
+ if (!crtl->drap_reg || REGNO (crtl->drap_reg) != R10_REG)
+ return R10_REG;
+
+ int i;
+ for (i = 0; i < FIRST_PSEUDO_REGISTER; i++)
+ if (GENERAL_REGNO_P (i)
+ && i != R10_REG
+#ifdef NO_PROFILE_COUNTERS
+ && (r11_ok || i != R11_REG)
+#else
+ && i != R11_REG
+#endif
+ && (!REX2_INT_REGNO_P (i) || TARGET_APX_EGPR)
+ && !fixed_regs[i]
+ && call_used_regs[i]
+ && !test_int_parameter_registers_bit (i))
+ return i;
+
+ sorry ("no register available for profiling %<-mcmodel=large%s%>",
+ ix86_cmodel == CM_LARGE_PIC ? " -fPIC" : "");
+
+ return INVALID_REGNUM;
+}
+
/* Output assembler code to FILE to increment profiler label # LABELNO
for profiling a function entry. */
void
@@ -22783,42 +22854,60 @@ x86_function_profiler (FILE *file, int labelno ATTRIBUTE_UNUSED)
fprintf (file, "\tleaq\t%sP%d(%%rip), %%r11\n", LPREFIX, labelno);
#endif
+ int scratch;
+ const char *reg_prefix;
+ const char *reg;
+
if (!TARGET_PECOFF)
{
switch (ix86_cmodel)
{
case CM_LARGE:
- /* NB: R10 is caller-saved. Although it can be used as a
- static chain register, it is preserved when calling
- mcount for nested functions. */
+ scratch = x86_64_select_profile_regnum (true);
+ reg = hi_reg_name[scratch];
+ reg_prefix = LEGACY_INT_REGNO_P (scratch) ? "r" : "";
if (ASSEMBLER_DIALECT == ASM_INTEL)
- fprintf (file, "1:\tmovabs\tr10, OFFSET FLAT:%s\n"
- "\tcall\tr10\n", mcount_name);
+ fprintf (file,
+ "1:\tmovabs\t%s%s, OFFSET FLAT:%s\n"
+ "\tcall\t%s%s\n",
+ reg_prefix, reg, mcount_name, reg_prefix, reg);
else
- fprintf (file, "1:\tmovabsq\t$%s, %%r10\n\tcall\t*%%r10\n",
- mcount_name);
+ fprintf (file,
+ "1:\tmovabsq\t$%s, %%%s%s\n\tcall\t*%%%s%s\n",
+ mcount_name, reg_prefix, reg, reg_prefix, reg);
break;
case CM_LARGE_PIC:
#ifdef NO_PROFILE_COUNTERS
+ scratch = x86_64_select_profile_regnum (false);
+ reg = hi_reg_name[scratch];
+ reg_prefix = LEGACY_INT_REGNO_P (scratch) ? "r" : "";
if (ASSEMBLER_DIALECT == ASM_INTEL)
{
fprintf (file, "1:movabs\tr11, "
"OFFSET FLAT:_GLOBAL_OFFSET_TABLE_-1b\n");
- fprintf (file, "\tlea\tr10, 1b[rip]\n");
- fprintf (file, "\tadd\tr10, r11\n");
+ fprintf (file, "\tlea\t%s%s, 1b[rip]\n",
+ reg_prefix, reg);
+ fprintf (file, "\tadd\t%s%s, r11\n",
+ reg_prefix, reg);
fprintf (file, "\tmovabs\tr11, OFFSET FLAT:%s@PLTOFF\n",
mcount_name);
- fprintf (file, "\tadd\tr10, r11\n");
- fprintf (file, "\tcall\tr10\n");
+ fprintf (file, "\tadd\t%s%s, r11\n",
+ reg_prefix, reg);
+ fprintf (file, "\tcall\t%s%s\n",
+ reg_prefix, reg);
break;
}
fprintf (file,
"1:\tmovabsq\t$_GLOBAL_OFFSET_TABLE_-1b, %%r11\n");
- fprintf (file, "\tleaq\t1b(%%rip), %%r10\n");
- fprintf (file, "\taddq\t%%r11, %%r10\n");
+ fprintf (file, "\tleaq\t1b(%%rip), %%%s%s\n",
+ reg_prefix, reg);
+ fprintf (file, "\taddq\t%%r11, %%%s%s\n",
+ reg_prefix, reg);
fprintf (file, "\tmovabsq\t$%s@PLTOFF, %%r11\n", mcount_name);
- fprintf (file, "\taddq\t%%r11, %%r10\n");
- fprintf (file, "\tcall\t*%%r10\n");
+ fprintf (file, "\taddq\t%%r11, %%%s%s\n",
+ reg_prefix, reg);
+ fprintf (file, "\tcall\t*%%%s%s\n",
+ reg_prefix, reg);
#else
sorry ("profiling %<-mcmodel=large%> with PIC is not supported");
#endif
@@ -2847,6 +2847,11 @@ struct GTY(()) machine_function {
/* True if red zone is used. */
BOOL_BITFIELD red_zone_used : 1;
+ /* Bit mask for integer registers used for parameter passing.
+ The lower 8 bits are for legacy registers and the upper
+ 8 bits are for r8-r15. */
+ unsigned int int_parameter_registers : 16;
+
/* The largest alignment, in bytes, of stack slot actually used. */
unsigned int max_used_stack_alignment;
new file mode 100644
@@ -0,0 +1,49 @@
+/* { dg-do run { target { lp64 && fpic } } } */
+/* { dg-options "-O2 -fno-pic -fprofile -mcmodel=large" } */
+
+#include <stdarg.h>
+
+__attribute__((noipa,noclone,noinline))
+void
+bar (int a1, int a2, int a3, int a4, int a5, int a6,
+ char *x, char *y, int *z)
+{
+ if (a1 != 1)
+ __builtin_abort ();
+ if (a2 != 2)
+ __builtin_abort ();
+ if (a3 != 3)
+ __builtin_abort ();
+ if (a4 != 4)
+ __builtin_abort ();
+ if (a5 != 5)
+ __builtin_abort ();
+ if (a6 != 6)
+ __builtin_abort ();
+ x[0] = 42;
+ y[0] = 42;
+ if (z[0] != 16)
+ __builtin_abort ();
+}
+
+__attribute__((noipa,noclone,noinline))
+void
+foo (int c, int d, int e, int f, int g, int h, int z, ...)
+{
+ typedef char B[32];
+ B b __attribute__((aligned (32)));
+ va_list ap;
+ va_start (ap, z);
+ int x = va_arg (ap, int);
+ if (x != 38)
+ __builtin_abort ();
+ bar (c, d, e, f, g, h, &b[0], __builtin_alloca (z), &z);
+ va_end (ap);
+}
+
+int
+main ()
+{
+ foo (1, 2, 3, 4, 5, 6, 16, 38);
+ return 0;
+}
new file mode 100644
@@ -0,0 +1,41 @@
+/* { dg-do run { target { lp64 && fpic } } } */
+/* { dg-options "-O2 -fpic -fprofile -mcmodel=large" } */
+
+__attribute__((noipa,noclone,noinline))
+void
+bar (int a1, int a2, int a3, int a4, int a5, int a6,
+ char *x, char *y, int *z)
+{
+ if (a1 != 1)
+ __builtin_abort ();
+ if (a2 != 2)
+ __builtin_abort ();
+ if (a3 != 3)
+ __builtin_abort ();
+ if (a4 != 4)
+ __builtin_abort ();
+ if (a5 != 5)
+ __builtin_abort ();
+ if (a6 != 6)
+ __builtin_abort ();
+ x[0] = 42;
+ y[0] = 42;
+ if (z[0] != 16)
+ __builtin_abort ();
+}
+
+__attribute__((noipa,noclone,noinline))
+void
+foo (int c, int d, int e, int f, int g, int h, int z)
+{
+ typedef char B[32];
+ B b __attribute__((aligned (32)));
+ bar (c, d, e, f, g, h, &b[0], __builtin_alloca (z), &z);
+}
+
+int
+main ()
+{
+ foo (1, 2, 3, 4, 5, 6, 16);
+ return 0;
+}
new file mode 100644
@@ -0,0 +1,24 @@
+/* { dg-do run { target { lp64 && avx_runtime } } } */
+/* { dg-options "-O2 -fprofile -mcmodel=large -mavx" } */
+
+__attribute__((noipa,noclone,noinline))
+_BitInt(511)
+foo(_BitInt(7) a, _BitInt(511) b)
+{
+ ({
+ volatile _BitInt(511) d = (-b / a);
+ if (d != -1)
+ __builtin_abort();
+ d;
+ });
+ return b;
+}
+
+int
+main(void)
+{
+ _BitInt(511) x = foo(5, 5);
+ if (x != 5)
+ __builtin_abort();
+ return 0;
+}