static void
vax_output_function_prologue (FILE * file, HOST_WIDE_INT size)
{
int regno;
int mask = 0;
for (regno = 0; regno < FIRST_PSEUDO_REGISTER; regno++)
if (regs_ever_live[regno] && !call_used_regs[regno])
mask |= 1 << regno;
fprintf (file, "\t.word 0x%x\n", mask);
if (dwarf2out_do_frame ())
{
const char *label = dwarf2out_cfi_label ();
int offset = 0;
for (regno = FIRST_PSEUDO_REGISTER-1; regno >= 0; --regno)
if (regs_ever_live[regno] && !call_used_regs[regno])
dwarf2out_reg_save (label, regno, offset -= 4);
dwarf2out_reg_save (label, PC_REGNUM, offset -= 4);
dwarf2out_reg_save (label, FRAME_POINTER_REGNUM, offset -= 4);
dwarf2out_reg_save (label, ARG_POINTER_REGNUM, offset -= 4);
dwarf2out_def_cfa (label, FRAME_POINTER_REGNUM, -(offset - 4));
}
size -= STARTING_FRAME_OFFSET;
if (size >= 64)
asm_fprintf (file, "\tmovab %wd(%Rsp),%Rsp\n", -size);
else if (size)
asm_fprintf (file, "\tsubl2 $%wd,%Rsp\n", size);
}
static void
vax_output_mi_thunk (FILE * file,
tree thunk ATTRIBUTE_UNUSED,
HOST_WIDE_INT delta,
HOST_WIDE_INT vcall_offset ATTRIBUTE_UNUSED,
tree function)
{
fprintf (file, "\t.word 0x0ffc\n\taddl2 $" HOST_WIDE_INT_PRINT_DEC, delta);
asm_fprintf (file, ",4(%Rap)\n");
fprintf (file, "\tjmp ");
assemble_name (file, XSTR (XEXP (DECL_RTL (function), 0), 0));
fprintf (file, "+2\n");
}
void
foo (int i, int i1, int i2, unsigned int u, double d, char *s, void *p,
int *n, short int *hn, long int l, unsigned long int ul,
long int *ln, long double ld, wint_t lc, wchar_t *ls, llong ll,
ullong ull, unsigned int *un, const int *cn, signed char *ss,
unsigned char *us, const signed char *css, unsigned int u1,
unsigned int u2)
{
/* Acceptable C90 specifiers, flags and modifiers. */
asm_fprintf ("%%");
asm_fprintf ("%d%i%o%u%x%X%c%s%%", i, i, u, u, u, u, i, s);
asm_fprintf ("%ld%li%lo%lu%lx%lX", l, l, ul, ul, ul, ul);
asm_fprintf ("%lld%lli%llo%llu%llx%llX", ll, ll, ull, ull, ull, ull);
asm_fprintf ("%-d%-i%-o%-u%-x%-X%-c%-s", i, i, u, u, u, u, i, s);
asm_fprintf ("% d% i\n", i, i);
asm_fprintf ("%#o%#x%#X", u, u, u);
asm_fprintf ("%08d%08i%08o%08u%08x%08X", i, i, u, u, u, u);
asm_fprintf ("%d\n", i);
asm_fprintf ("%+d\n", i);
asm_fprintf ("%3d\n", i);
asm_fprintf ("%-3d\n", i);
asm_fprintf ("%.7d\n", i);
asm_fprintf ("%+9.4d\n", i);
asm_fprintf ("%.3ld\n", l);
asm_fprintf ("%d %lu\n", i, ul);
/* Extensions provided in asm_fprintf. */
asm_fprintf ("%O%R%I%L%U%@");
asm_fprintf ("%r", i);
asm_fprintf ("%wd%wi%wo%wu%wx%wX", ll, ll, ull, ull, ull, ull);
/* Standard specifiers not accepted in asm_fprintf. */
asm_fprintf ("%f\n", d); /* { dg-warning "format" "float" } */
asm_fprintf ("%e\n", d); /* { dg-warning "format" "float" } */
asm_fprintf ("%E\n", d); /* { dg-warning "format" "float" } */
asm_fprintf ("%g\n", d); /* { dg-warning "format" "float" } */
asm_fprintf ("%G\n", d); /* { dg-warning "format" "float" } */
asm_fprintf ("%p\n", p); /* { dg-warning "format" "pointer" } */
asm_fprintf ("%n\n", n); /* { dg-warning "format" "counter" } */
asm_fprintf ("%hd\n", i); /* { dg-warning "format" "conversion" } */
/* Various tests of bad argument types. */
asm_fprintf ("%d", l); /* { dg-warning "format" "bad argument types" } */
asm_fprintf ("%wd", l); /* { dg-warning "format" "bad argument types" } */
asm_fprintf ("%d", ll); /* { dg-warning "format" "bad argument types" } */
asm_fprintf ("%*d\n", i1, i); /* { dg-warning "format" "bad * argument types" } */
asm_fprintf ("%.*d\n", i2, i); /* { dg-warning "format" "bad * argument types" } */
asm_fprintf ("%*.*ld\n", i1, i2, l); /* { dg-warning "format" "bad * argument types" } */
asm_fprintf ("%ld", i); /* { dg-warning "format" "bad argument types" } */
asm_fprintf ("%s", n); /* { dg-warning "format" "bad argument types" } */
/* Wrong number of arguments. */
asm_fprintf ("%d%d", i); /* { dg-warning "arguments" "wrong number of args" } */
asm_fprintf ("%d", i, i); /* { dg-warning "arguments" "wrong number of args" } */
/* Miscellaneous bogus constructions. */
asm_fprintf (""); /* { dg-warning "zero-length" "warning for empty format" } */
asm_fprintf ("\0"); /* { dg-warning "embedded" "warning for embedded NUL" } */
asm_fprintf ("%d\0", i); /* { dg-warning "embedded" "warning for embedded NUL" } */
asm_fprintf ("%d\0%d", i, i); /* { dg-warning "embedded|too many" "warning for embedded NUL" } */
asm_fprintf (NULL); /* { dg-warning "null" "null format string warning" } */
asm_fprintf ("%"); /* { dg-warning "trailing" "trailing % warning" } */
asm_fprintf ("%++d", i); /* { dg-warning "repeated" "repeated flag warning" } */
asm_fprintf ((const char *)L"foo"); /* { dg-warning "wide" "wide string" } */
asm_fprintf ("%s", (char *)0); /* { dg-warning "null" "%s with NULL" } */
/* Make sure we still get warnings for regular printf. */
printf ("%d\n", ll); /* { dg-warning "format" "bad argument types" } */
}
static void arm_output_c_attributes(void)
{
/* Tag_ABI_PCS_wchar_t. */
asm_fprintf (asm_out_file, "\t.eabi_attribute 18, %d\n",
(int)(TYPE_PRECISION (wchar_type_node) / BITS_PER_UNIT));
}