26c26
< /* $FreeBSD: head/contrib/gcc/config/i386/freebsd.h 95349 2002-04-24 04:49:34Z obrien $ */
---
> /* $FreeBSD: head/contrib/gcc/config/i386/freebsd.h 95810 2002-04-30 17:15:01Z obrien $ */
28,31c28,29
< #undef CPP_PREDEFINES
< #define CPP_PREDEFINES \
< "-Di386 -Acpu(i386) -Amachine(i386)" \
< FBSD_CPP_PREDEFINES
---
> #undef TARGET_VERSION
> #define TARGET_VERSION fprintf (stderr, " (i386 FreeBSD/ELF)");
34c32
< #define CC1_SPEC "\
---
> #define CC1_SPEC "%(cc1_cpu) %{profile:-p} \
122,134d119
< /* This is the pseudo-op used to generate a 32-bit word of data with a
< specific value in some section. */
<
< #undef INT_ASM_OP
< #define INT_ASM_OP ".long"
<
< /* Biggest alignment supported by the object file format of this
< machine. Use this macro to limit the alignment which can be
< specified using the `__attribute__ ((aligned (N)))' construct. If
< not defined, the default value is `BIGGEST_ALIGNMENT'. */
<
< #define MAX_OFILE_ALIGNMENT (32768*8)
<
157,158c142,143
< #undef TARGET_DEFAULT
< #define TARGET_DEFAULT \
---
> #undef TARGET_SUBTARGET_DEFAULT
> #define TARGET_SUBTARGET_DEFAULT \
190,211d174
< /* Indicate that jump tables go in the text section. This is
< necessary when compiling PIC code. */
< #undef JUMP_TABLES_IN_TEXT_SECTION
< #define JUMP_TABLES_IN_TEXT_SECTION (flag_pic)
<
< /* override the exception table positioning */
< #undef EXCEPTION_SECTION
< #define EXCEPTION_SECTION() \
< do { \
< if (TARGET_ELF) \
< { \
< named_section (NULL_TREE, ".gcc_except_table", 0); \
< } \
< else \
< { \
< if (flag_pic) \
< data_section (); \
< else \
< readonly_data_section (); \
< } \
< } while (0);
<
213,214c176
< #undef NO_PROFILE_COUNTERS
< #define NO_PROFILE_COUNTERS
---
> #define NO_PROFILE_COUNTERS 1
231,256c193
< #undef FUNCTION_PROFILER_EPILOGUE
< #define FUNCTION_PROFILER_EPILOGUE(FILE, DO_RTL) \
< do { \
< if (TARGET_PROFILER_EPILOGUE) \
< { \
< if (DO_RTL) \
< { \
< /* ".mexitcount" is specially handled in \
< ASM_HACK_SYMBOLREF () so that we don't need to handle \
< flag_pic or TARGET_AOUT here. */ \
< rtx xop; \
< xop = gen_rtx_MEM (FUNCTION_MODE, \
< gen_rtx_SYMBOL_REF (Pmode, ".mexitcount")); \
< emit_call_insn (gen_rtx (CALL, VOIDmode, xop, const0_rtx)); \
< } \
< else \
< { \
< /* XXX this !DO_RTL case is broken but not actually used. */ \
< char *_name = TARGET_AOUT ? "mcount" : ".mcount"; \
< if (flag_pic) \
< fprintf (FILE, "\tcall *%s@GOT(%%ebx)\n", _name); \
< else \
< fprintf (FILE, "\tcall %s\n", _name); \
< } \
< } \
< } while (0)
---
> #undef FUNCTION_PROFILER_EPILOGUE /* BDE will need to fix this. */
271,286d207
< /* Enable alias attribute support. */
< #undef SET_ASM_OP
< #define SET_ASM_OP ".set"
<
< /* This is how to begin an assembly language file.
< The .file command should always begin the output.
< ELF also needs a .version. */
<
< #undef ASM_FILE_START
< #define ASM_FILE_START(FILE) \
< do { \
< output_file_directive ((FILE), main_input_filename); \
< if (TARGET_ELF) \
< fprintf ((FILE), "\t.version\t\"01.01\"\n"); \
< } while (0)
<
292,294c213,215
< #define ASM_GENERATE_INTERNAL_LABEL(BUF, PREFIX, NUMBER) \
< sprintf ((BUF), "*%s%s%d", (TARGET_UNDERSCORES) ? "" : ".", \
< (PREFIX), (NUMBER))
---
> #define ASM_GENERATE_INTERNAL_LABEL(LABEL, PREFIX, NUM) \
> sprintf ((LABEL), "*%s%s%u", (TARGET_UNDERSCORES) ? "" : ".", \
> (PREFIX), (unsigned) (NUM))
301,303c222,224
< #define ASM_OUTPUT_INTERNAL_LABEL(FILE,PREFIX,NUM) \
< fprintf ((FILE), "%s%s%d:\n", (TARGET_UNDERSCORES) ? "" : ".", \
< (PREFIX), (NUM))
---
> #define ASM_OUTPUT_INTERNAL_LABEL(FILE, PREFIX, NUM) \
> fprintf ((FILE), "%s%s%u:\n", (TARGET_UNDERSCORES) ? "" : ".", \
> (PREFIX), (unsigned) (NUM))
328,336c249
< #undef ASM_HACK_SYMBOLREF_CODE
< #define ASM_HACK_SYMBOLREF_CODE(NAME, CODE) \
< do { \
< /* Part of hack to avoid writing lots of rtl in \
< FUNCTION_PROFILER_EPILOGUE (). */ \
< char *_name = (NAME); \
< if (*_name == '.' && strcmp(_name + 1, "mexitcount") == 0) \
< (CODE) = 'X'; \
< } while (0)
---
> #undef ASM_HACK_SYMBOLREF_CODE /* BDE will need to fix this. */
438,441c351,353
< /* These macros generate the special .type and .size directives which
< are used to set the corresponding fields of the linker symbol table
< entries in an ELF object file under SVR4. These macros also output
< the starting labels for the relevant functions/objects. */
---
> /* A C statement to output to the stdio stream FILE an assembler
> command to advance the location counter to a multiple of 1<<LOG
> bytes if it is within MAX_SKIP bytes.
443,445c355
< /* Write the extra assembler code needed to declare a function properly.
< Some svr4 assemblers need to also have something extra said about the
< function's return value. We allow for that here. */
---
> This is used to align code labels according to Intel recommendations. */
447,629c357,361
< #undef ASM_DECLARE_FUNCTION_NAME
< #define ASM_DECLARE_FUNCTION_NAME(FILE, NAME, DECL) \
< do { \
< fprintf (FILE, "\t%s\t ", TYPE_ASM_OP); \
< assemble_name (FILE, NAME); \
< putc (',', FILE); \
< fprintf (FILE, TYPE_OPERAND_FMT, "function"); \
< putc ('\n', FILE); \
< ASM_DECLARE_RESULT (FILE, DECL_RESULT (DECL)); \
< ASM_OUTPUT_LABEL(FILE, NAME); \
< } while (0)
<
< /* This is how to declare the size of a function. */
<
< #undef ASM_DECLARE_FUNCTION_SIZE
< #define ASM_DECLARE_FUNCTION_SIZE(FILE, FNAME, DECL) \
< do { \
< if (!flag_inhibit_size_directive) \
< { \
< char label[256]; \
< static int labelno; \
< labelno++; \
< ASM_GENERATE_INTERNAL_LABEL (label, "Lfe", labelno); \
< ASM_OUTPUT_INTERNAL_LABEL (FILE, "Lfe", labelno); \
< fprintf (FILE, "\t%s\t ", SIZE_ASM_OP); \
< assemble_name (FILE, (FNAME)); \
< fprintf (FILE, ","); \
< assemble_name (FILE, label); \
< fprintf (FILE, "-"); \
< assemble_name (FILE, (FNAME)); \
< putc ('\n', FILE); \
< } \
< } while (0)
<
<
< /* The routine used to output NUL terminated strings. We use a special
< version of this for most svr4 targets because doing so makes the
< generated assembly code more compact (and thus faster to assemble)
< as well as more readable, especially for targets like the i386
< (where the only alternative is to output character sequences as
< comma separated lists of numbers). */
<
< #undef ASM_OUTPUT_LIMITED_STRING
< #define ASM_OUTPUT_LIMITED_STRING(FILE, STR) \
< do { \
< register unsigned char *_limited_str = (unsigned char *) (STR); \
< register unsigned ch; \
< fprintf ((FILE), "\t%s\t\"", STRING_ASM_OP); \
< for (; (ch = *_limited_str); _limited_str++) \
< { \
< register int escape; \
< switch (escape = ESCAPES[ch]) \
< { \
< case 0: \
< putc (ch, (FILE)); \
< break; \
< case 1: \
< fprintf ((FILE), "\\%03o", ch); \
< break; \
< default: \
< putc ('\\', (FILE)); \
< putc (escape, (FILE)); \
< break; \
< } \
< } \
< fprintf ((FILE), "\"\n"); \
< } while (0)
<
< /* Switch into a generic section.
<
< We make the section read-only and executable for a function decl,
< read-only for a const data decl, and writable for a non-const data decl.
<
< If the section has already been defined, we must not
< emit the attributes here. The SVR4 assembler does not
< recognize section redefinitions.
< If DECL is NULL, no attributes are emitted. */
<
< #undef ASM_OUTPUT_SECTION_NAME
< #define ASM_OUTPUT_SECTION_NAME(FILE, DECL, NAME, RELOC) \
< do { \
< static struct section_info \
< { \
< struct section_info *next; \
< char *name; \
< enum sect_enum {SECT_RW, SECT_RO, SECT_EXEC} type; \
< } *sections; \
< struct section_info *s; \
< char *mode; \
< enum sect_enum type; \
< \
< for (s = sections; s; s = s->next) \
< if (!strcmp (NAME, s->name)) \
< break; \
< \
< if (DECL && TREE_CODE (DECL) == FUNCTION_DECL) \
< type = SECT_EXEC, mode = "ax"; \
< else if (DECL && DECL_READONLY_SECTION (DECL, RELOC)) \
< type = SECT_RO, mode = "a"; \
< else \
< type = SECT_RW, mode = "aw"; \
< \
< if (s == 0) \
< { \
< s = (struct section_info *) xmalloc (sizeof (struct section_info)); \
< s->name = xmalloc ((strlen (NAME) + 1) * sizeof (*NAME)); \
< strcpy (s->name, NAME); \
< s->type = type; \
< s->next = sections; \
< sections = s; \
< fprintf (FILE, ".section\t%s,\"%s\",@progbits\n", NAME, mode); \
< } \
< else \
< { \
< if (DECL && s->type != type) \
< error_with_decl (DECL, "%s causes a section type conflict"); \
< \
< fprintf (FILE, ".section\t%s\n", NAME); \
< } \
< } while (0)
<
< #undef MAKE_DECL_ONE_ONLY
< #define MAKE_DECL_ONE_ONLY(DECL) (DECL_WEAK (DECL) = 1)
< #undef UNIQUE_SECTION_P
< #define UNIQUE_SECTION_P(DECL) (DECL_ONE_ONLY (DECL))
< #undef UNIQUE_SECTION
< #define UNIQUE_SECTION(DECL,RELOC) \
< do { \
< int len; \
< char *name, *string, *prefix; \
< \
< name = IDENTIFIER_POINTER (DECL_ASSEMBLER_NAME (DECL)); \
< \
< if (! DECL_ONE_ONLY (DECL)) \
< { \
< prefix = "."; \
< if (TREE_CODE (DECL) == FUNCTION_DECL) \
< prefix = ".text."; \
< else if (DECL_READONLY_SECTION (DECL, RELOC)) \
< prefix = ".rodata."; \
< else \
< prefix = ".data."; \
< } \
< else if (TREE_CODE (DECL) == FUNCTION_DECL) \
< prefix = ".gnu.linkonce.t."; \
< else if (DECL_READONLY_SECTION (DECL, RELOC)) \
< prefix = ".gnu.linkonce.r."; \
< else \
< prefix = ".gnu.linkonce.d."; \
< \
< len = strlen (name) + strlen (prefix); \
< string = alloca (len + 1); \
< sprintf (string, "%s%s", prefix, name); \
< \
< DECL_SECTION_NAME (DECL) = build_string (len, string); \
< } while (0)
<
< /* A C statement or statements to switch to the appropriate
< section for output of DECL. DECL is either a `VAR_DECL' node
< or a constant of some sort. RELOC indicates whether forming
< the initial value of DECL requires link-time relocations. */
<
< #undef SELECT_SECTION
< #define SELECT_SECTION(DECL,RELOC) \
< { \
< if (flag_pic && RELOC) \
< data_section (); \
< else if (TREE_CODE (DECL) == STRING_CST) \
< { \
< if (! flag_writable_strings) \
< const_section (); \
< else \
< data_section (); \
< } \
< else if (TREE_CODE (DECL) == VAR_DECL) \
< { \
< if (! DECL_READONLY_SECTION (DECL, RELOC)) \
< data_section (); \
< else \
< const_section (); \
< } \
< else \
< const_section (); \
---
> #ifdef HAVE_GAS_MAX_SKIP_P2ALIGN
> #define ASM_OUTPUT_MAX_SKIP_ALIGN(FILE, LOG, MAX_SKIP) \
> if ((LOG) != 0) { \
> if ((MAX_SKIP) == 0) fprintf ((FILE), "\t.p2align %d\n", (LOG)); \
> else fprintf ((FILE), "\t.p2align %d,,%d\n", (LOG), (MAX_SKIP)); \
630a363
> #endif
632,651d364
< /* A C statement (sans semicolon) to output an element in the table of
< global constructors. */
< #undef ASM_OUTPUT_CONSTRUCTOR
< #define ASM_OUTPUT_CONSTRUCTOR(FILE, NAME) \
< do { \
< if (TARGET_ELF) \
< { \
< ctors_section (); \
< fprintf ((FILE), "%s ", INT_ASM_OP); \
< assemble_name ((FILE), (NAME)); \
< fprintf ((FILE), "\n"); \
< } \
< else \
< { \
< fprintf (asm_out_file, "%s \"%s__CTOR_LIST__\",22,0,0,", \
< ASM_STABS_OP, (TARGET_UNDERSCORES) ? "_" : ""); \
< assemble_name (asm_out_file, name); \
< fputc ('\n', asm_out_file); \
< } \
< } while (0)
653,683d365
< /* A C statement (sans semicolon) to output an element in the table of
< global destructors. */
< #undef ASM_OUTPUT_DESTRUCTOR
< #define ASM_OUTPUT_DESTRUCTOR(FILE, NAME) \
< do { \
< if (TARGET_ELF) \
< { \
< dtors_section (); \
< fprintf ((FILE), "%s ", INT_ASM_OP); \
< assemble_name ((FILE), (NAME)); \
< fprintf ((FILE), "\n"); \
< } \
< else \
< { \
< fprintf (asm_out_file, "%s \"%s__DTOR_LIST__\",22,0,0,", \
< ASM_STABS_OP, (TARGET_UNDERSCORES) ? "_" : ""); \
< assemble_name (asm_out_file, name); \
< fputc ('\n', asm_out_file); \
< } \
< } while (0)
<
< /* Define macro used to output shift-double opcodes when the shift
< count is in %cl. Some assemblers require %cl as an argument;
< some don't.
<
< *OLD* GAS requires the %cl argument, so override i386/unix.h. */
<
< #undef AS3_SHIFT_DOUBLE
< #define AS3_SHIFT_DOUBLE(a,b,c,d) AS3 (a,b,c,d)
<
<
694,774d375
< /* Copy this from the svr4 specifications... */
< /* Define the register numbers to be used in Dwarf debugging information.
< The SVR4 reference port C compiler uses the following register numbers
< in its Dwarf output code:
< 0 for %eax (gnu regno = 0)
< 1 for %ecx (gnu regno = 2)
< 2 for %edx (gnu regno = 1)
< 3 for %ebx (gnu regno = 3)
< 4 for %esp (gnu regno = 7)
< 5 for %ebp (gnu regno = 6)
< 6 for %esi (gnu regno = 4)
< 7 for %edi (gnu regno = 5)
< The following three DWARF register numbers are never generated by
< the SVR4 C compiler or by the GNU compilers, but SDB on x86/svr4
< believes these numbers have these meanings.
< 8 for %eip (no gnu equivalent)
< 9 for %eflags (no gnu equivalent)
< 10 for %trapno (no gnu equivalent)
< It is not at all clear how we should number the FP stack registers
< for the x86 architecture. If the version of SDB on x86/svr4 were
< a bit less brain dead with respect to floating-point then we would
< have a precedent to follow with respect to DWARF register numbers
< for x86 FP registers, but the SDB on x86/svr4 is so completely
< broken with respect to FP registers that it is hardly worth thinking
< of it as something to strive for compatibility with.
< The version of x86/svr4 SDB I have at the moment does (partially)
< seem to believe that DWARF register number 11 is associated with
< the x86 register %st(0), but that's about all. Higher DWARF
< register numbers don't seem to be associated with anything in
< particular, and even for DWARF regno 11, SDB only seems to under-
< stand that it should say that a variable lives in %st(0) (when
< asked via an `=' command) if we said it was in DWARF regno 11,
< but SDB still prints garbage when asked for the value of the
< variable in question (via a `/' command).
< (Also note that the labels SDB prints for various FP stack regs
< when doing an `x' command are all wrong.)
< Note that these problems generally don't affect the native SVR4
< C compiler because it doesn't allow the use of -O with -g and
< because when it is *not* optimizing, it allocates a memory
< location for each floating-point variable, and the memory
< location is what gets described in the DWARF AT_location
< attribute for the variable in question.
< Regardless of the severe mental illness of the x86/svr4 SDB, we
< do something sensible here and we use the following DWARF
< register numbers. Note that these are all stack-top-relative
< numbers.
< 11 for %st(0) (gnu regno = 8)
< 12 for %st(1) (gnu regno = 9)
< 13 for %st(2) (gnu regno = 10)
< 14 for %st(3) (gnu regno = 11)
< 15 for %st(4) (gnu regno = 12)
< 16 for %st(5) (gnu regno = 13)
< 17 for %st(6) (gnu regno = 14)
< 18 for %st(7) (gnu regno = 15)
< */
< #undef DWARF_DBX_REGISTER_NUMBER
< #define DWARF_DBX_REGISTER_NUMBER(n) \
< ((n) == 0 ? 0 \
< : (n) == 1 ? 2 \
< : (n) == 2 ? 1 \
< : (n) == 3 ? 3 \
< : (n) == 4 ? 6 \
< : (n) == 5 ? 7 \
< : (n) == 6 ? 5 \
< : (n) == 7 ? 4 \
< : ((n) >= FIRST_STACK_REG && (n) <= LAST_STACK_REG) ? (n)+3 \
< : (-1))
<
< /* Now what stabs expects in the register. */
< #undef STABS_DBX_REGISTER_NUMBER
< #define STABS_DBX_REGISTER_NUMBER(n) \
< ((n) == 0 ? 0 : \
< (n) == 1 ? 2 : \
< (n) == 2 ? 1 : \
< (n) == 3 ? 3 : \
< (n) == 4 ? 6 : \
< (n) == 5 ? 7 : \
< (n) == 6 ? 4 : \
< (n) == 7 ? 5 : \
< (n) + 4)
<
776c377,378
< #define DBX_REGISTER_NUMBER(n) ((write_symbols == DWARF2_DEBUG \
---
> #define DBX_REGISTER_NUMBER(n) (TARGET_64BIT ? dbx64_register_map[n] \
> : (write_symbols == DWARF2_DEBUG \
778,779c380,381
< ? DWARF_DBX_REGISTER_NUMBER(n) \
< : STABS_DBX_REGISTER_NUMBER(n))
---
> ? svr4_dbx_register_map[(n)] \
> : dbx_register_map[(n)])
786c388
< fprintf ((FILE), "\t.text\n\t.stabs \"\",%d,0,0,.Letext\n.Letext:\n", \
---
> fprintf ((FILE), "\t.text\n\t.stabs \"\",%d,0,0,%LLetext\n%LLetext:\n", \
< /* $FreeBSD: head/contrib/gcc/config/i386/freebsd.h 95349 2002-04-24 04:49:34Z obrien $ */
---
> /* $FreeBSD: head/contrib/gcc/config/i386/freebsd.h 95810 2002-04-30 17:15:01Z obrien $ */
28,31c28,29
< #undef CPP_PREDEFINES
< #define CPP_PREDEFINES \
< "-Di386 -Acpu(i386) -Amachine(i386)" \
< FBSD_CPP_PREDEFINES
---
> #undef TARGET_VERSION
> #define TARGET_VERSION fprintf (stderr, " (i386 FreeBSD/ELF)");
34c32
< #define CC1_SPEC "\
---
> #define CC1_SPEC "%(cc1_cpu) %{profile:-p} \
122,134d119
< /* This is the pseudo-op used to generate a 32-bit word of data with a
< specific value in some section. */
<
< #undef INT_ASM_OP
< #define INT_ASM_OP ".long"
<
< /* Biggest alignment supported by the object file format of this
< machine. Use this macro to limit the alignment which can be
< specified using the `__attribute__ ((aligned (N)))' construct. If
< not defined, the default value is `BIGGEST_ALIGNMENT'. */
<
< #define MAX_OFILE_ALIGNMENT (32768*8)
<
157,158c142,143
< #undef TARGET_DEFAULT
< #define TARGET_DEFAULT \
---
> #undef TARGET_SUBTARGET_DEFAULT
> #define TARGET_SUBTARGET_DEFAULT \
190,211d174
< /* Indicate that jump tables go in the text section. This is
< necessary when compiling PIC code. */
< #undef JUMP_TABLES_IN_TEXT_SECTION
< #define JUMP_TABLES_IN_TEXT_SECTION (flag_pic)
<
< /* override the exception table positioning */
< #undef EXCEPTION_SECTION
< #define EXCEPTION_SECTION() \
< do { \
< if (TARGET_ELF) \
< { \
< named_section (NULL_TREE, ".gcc_except_table", 0); \
< } \
< else \
< { \
< if (flag_pic) \
< data_section (); \
< else \
< readonly_data_section (); \
< } \
< } while (0);
<
213,214c176
< #undef NO_PROFILE_COUNTERS
< #define NO_PROFILE_COUNTERS
---
> #define NO_PROFILE_COUNTERS 1
231,256c193
< #undef FUNCTION_PROFILER_EPILOGUE
< #define FUNCTION_PROFILER_EPILOGUE(FILE, DO_RTL) \
< do { \
< if (TARGET_PROFILER_EPILOGUE) \
< { \
< if (DO_RTL) \
< { \
< /* ".mexitcount" is specially handled in \
< ASM_HACK_SYMBOLREF () so that we don't need to handle \
< flag_pic or TARGET_AOUT here. */ \
< rtx xop; \
< xop = gen_rtx_MEM (FUNCTION_MODE, \
< gen_rtx_SYMBOL_REF (Pmode, ".mexitcount")); \
< emit_call_insn (gen_rtx (CALL, VOIDmode, xop, const0_rtx)); \
< } \
< else \
< { \
< /* XXX this !DO_RTL case is broken but not actually used. */ \
< char *_name = TARGET_AOUT ? "mcount" : ".mcount"; \
< if (flag_pic) \
< fprintf (FILE, "\tcall *%s@GOT(%%ebx)\n", _name); \
< else \
< fprintf (FILE, "\tcall %s\n", _name); \
< } \
< } \
< } while (0)
---
> #undef FUNCTION_PROFILER_EPILOGUE /* BDE will need to fix this. */
271,286d207
< /* Enable alias attribute support. */
< #undef SET_ASM_OP
< #define SET_ASM_OP ".set"
<
< /* This is how to begin an assembly language file.
< The .file command should always begin the output.
< ELF also needs a .version. */
<
< #undef ASM_FILE_START
< #define ASM_FILE_START(FILE) \
< do { \
< output_file_directive ((FILE), main_input_filename); \
< if (TARGET_ELF) \
< fprintf ((FILE), "\t.version\t\"01.01\"\n"); \
< } while (0)
<
292,294c213,215
< #define ASM_GENERATE_INTERNAL_LABEL(BUF, PREFIX, NUMBER) \
< sprintf ((BUF), "*%s%s%d", (TARGET_UNDERSCORES) ? "" : ".", \
< (PREFIX), (NUMBER))
---
> #define ASM_GENERATE_INTERNAL_LABEL(LABEL, PREFIX, NUM) \
> sprintf ((LABEL), "*%s%s%u", (TARGET_UNDERSCORES) ? "" : ".", \
> (PREFIX), (unsigned) (NUM))
301,303c222,224
< #define ASM_OUTPUT_INTERNAL_LABEL(FILE,PREFIX,NUM) \
< fprintf ((FILE), "%s%s%d:\n", (TARGET_UNDERSCORES) ? "" : ".", \
< (PREFIX), (NUM))
---
> #define ASM_OUTPUT_INTERNAL_LABEL(FILE, PREFIX, NUM) \
> fprintf ((FILE), "%s%s%u:\n", (TARGET_UNDERSCORES) ? "" : ".", \
> (PREFIX), (unsigned) (NUM))
328,336c249
< #undef ASM_HACK_SYMBOLREF_CODE
< #define ASM_HACK_SYMBOLREF_CODE(NAME, CODE) \
< do { \
< /* Part of hack to avoid writing lots of rtl in \
< FUNCTION_PROFILER_EPILOGUE (). */ \
< char *_name = (NAME); \
< if (*_name == '.' && strcmp(_name + 1, "mexitcount") == 0) \
< (CODE) = 'X'; \
< } while (0)
---
> #undef ASM_HACK_SYMBOLREF_CODE /* BDE will need to fix this. */
438,441c351,353
< /* These macros generate the special .type and .size directives which
< are used to set the corresponding fields of the linker symbol table
< entries in an ELF object file under SVR4. These macros also output
< the starting labels for the relevant functions/objects. */
---
> /* A C statement to output to the stdio stream FILE an assembler
> command to advance the location counter to a multiple of 1<<LOG
> bytes if it is within MAX_SKIP bytes.
443,445c355
< /* Write the extra assembler code needed to declare a function properly.
< Some svr4 assemblers need to also have something extra said about the
< function's return value. We allow for that here. */
---
> This is used to align code labels according to Intel recommendations. */
447,629c357,361
< #undef ASM_DECLARE_FUNCTION_NAME
< #define ASM_DECLARE_FUNCTION_NAME(FILE, NAME, DECL) \
< do { \
< fprintf (FILE, "\t%s\t ", TYPE_ASM_OP); \
< assemble_name (FILE, NAME); \
< putc (',', FILE); \
< fprintf (FILE, TYPE_OPERAND_FMT, "function"); \
< putc ('\n', FILE); \
< ASM_DECLARE_RESULT (FILE, DECL_RESULT (DECL)); \
< ASM_OUTPUT_LABEL(FILE, NAME); \
< } while (0)
<
< /* This is how to declare the size of a function. */
<
< #undef ASM_DECLARE_FUNCTION_SIZE
< #define ASM_DECLARE_FUNCTION_SIZE(FILE, FNAME, DECL) \
< do { \
< if (!flag_inhibit_size_directive) \
< { \
< char label[256]; \
< static int labelno; \
< labelno++; \
< ASM_GENERATE_INTERNAL_LABEL (label, "Lfe", labelno); \
< ASM_OUTPUT_INTERNAL_LABEL (FILE, "Lfe", labelno); \
< fprintf (FILE, "\t%s\t ", SIZE_ASM_OP); \
< assemble_name (FILE, (FNAME)); \
< fprintf (FILE, ","); \
< assemble_name (FILE, label); \
< fprintf (FILE, "-"); \
< assemble_name (FILE, (FNAME)); \
< putc ('\n', FILE); \
< } \
< } while (0)
<
<
< /* The routine used to output NUL terminated strings. We use a special
< version of this for most svr4 targets because doing so makes the
< generated assembly code more compact (and thus faster to assemble)
< as well as more readable, especially for targets like the i386
< (where the only alternative is to output character sequences as
< comma separated lists of numbers). */
<
< #undef ASM_OUTPUT_LIMITED_STRING
< #define ASM_OUTPUT_LIMITED_STRING(FILE, STR) \
< do { \
< register unsigned char *_limited_str = (unsigned char *) (STR); \
< register unsigned ch; \
< fprintf ((FILE), "\t%s\t\"", STRING_ASM_OP); \
< for (; (ch = *_limited_str); _limited_str++) \
< { \
< register int escape; \
< switch (escape = ESCAPES[ch]) \
< { \
< case 0: \
< putc (ch, (FILE)); \
< break; \
< case 1: \
< fprintf ((FILE), "\\%03o", ch); \
< break; \
< default: \
< putc ('\\', (FILE)); \
< putc (escape, (FILE)); \
< break; \
< } \
< } \
< fprintf ((FILE), "\"\n"); \
< } while (0)
<
< /* Switch into a generic section.
<
< We make the section read-only and executable for a function decl,
< read-only for a const data decl, and writable for a non-const data decl.
<
< If the section has already been defined, we must not
< emit the attributes here. The SVR4 assembler does not
< recognize section redefinitions.
< If DECL is NULL, no attributes are emitted. */
<
< #undef ASM_OUTPUT_SECTION_NAME
< #define ASM_OUTPUT_SECTION_NAME(FILE, DECL, NAME, RELOC) \
< do { \
< static struct section_info \
< { \
< struct section_info *next; \
< char *name; \
< enum sect_enum {SECT_RW, SECT_RO, SECT_EXEC} type; \
< } *sections; \
< struct section_info *s; \
< char *mode; \
< enum sect_enum type; \
< \
< for (s = sections; s; s = s->next) \
< if (!strcmp (NAME, s->name)) \
< break; \
< \
< if (DECL && TREE_CODE (DECL) == FUNCTION_DECL) \
< type = SECT_EXEC, mode = "ax"; \
< else if (DECL && DECL_READONLY_SECTION (DECL, RELOC)) \
< type = SECT_RO, mode = "a"; \
< else \
< type = SECT_RW, mode = "aw"; \
< \
< if (s == 0) \
< { \
< s = (struct section_info *) xmalloc (sizeof (struct section_info)); \
< s->name = xmalloc ((strlen (NAME) + 1) * sizeof (*NAME)); \
< strcpy (s->name, NAME); \
< s->type = type; \
< s->next = sections; \
< sections = s; \
< fprintf (FILE, ".section\t%s,\"%s\",@progbits\n", NAME, mode); \
< } \
< else \
< { \
< if (DECL && s->type != type) \
< error_with_decl (DECL, "%s causes a section type conflict"); \
< \
< fprintf (FILE, ".section\t%s\n", NAME); \
< } \
< } while (0)
<
< #undef MAKE_DECL_ONE_ONLY
< #define MAKE_DECL_ONE_ONLY(DECL) (DECL_WEAK (DECL) = 1)
< #undef UNIQUE_SECTION_P
< #define UNIQUE_SECTION_P(DECL) (DECL_ONE_ONLY (DECL))
< #undef UNIQUE_SECTION
< #define UNIQUE_SECTION(DECL,RELOC) \
< do { \
< int len; \
< char *name, *string, *prefix; \
< \
< name = IDENTIFIER_POINTER (DECL_ASSEMBLER_NAME (DECL)); \
< \
< if (! DECL_ONE_ONLY (DECL)) \
< { \
< prefix = "."; \
< if (TREE_CODE (DECL) == FUNCTION_DECL) \
< prefix = ".text."; \
< else if (DECL_READONLY_SECTION (DECL, RELOC)) \
< prefix = ".rodata."; \
< else \
< prefix = ".data."; \
< } \
< else if (TREE_CODE (DECL) == FUNCTION_DECL) \
< prefix = ".gnu.linkonce.t."; \
< else if (DECL_READONLY_SECTION (DECL, RELOC)) \
< prefix = ".gnu.linkonce.r."; \
< else \
< prefix = ".gnu.linkonce.d."; \
< \
< len = strlen (name) + strlen (prefix); \
< string = alloca (len + 1); \
< sprintf (string, "%s%s", prefix, name); \
< \
< DECL_SECTION_NAME (DECL) = build_string (len, string); \
< } while (0)
<
< /* A C statement or statements to switch to the appropriate
< section for output of DECL. DECL is either a `VAR_DECL' node
< or a constant of some sort. RELOC indicates whether forming
< the initial value of DECL requires link-time relocations. */
<
< #undef SELECT_SECTION
< #define SELECT_SECTION(DECL,RELOC) \
< { \
< if (flag_pic && RELOC) \
< data_section (); \
< else if (TREE_CODE (DECL) == STRING_CST) \
< { \
< if (! flag_writable_strings) \
< const_section (); \
< else \
< data_section (); \
< } \
< else if (TREE_CODE (DECL) == VAR_DECL) \
< { \
< if (! DECL_READONLY_SECTION (DECL, RELOC)) \
< data_section (); \
< else \
< const_section (); \
< } \
< else \
< const_section (); \
---
> #ifdef HAVE_GAS_MAX_SKIP_P2ALIGN
> #define ASM_OUTPUT_MAX_SKIP_ALIGN(FILE, LOG, MAX_SKIP) \
> if ((LOG) != 0) { \
> if ((MAX_SKIP) == 0) fprintf ((FILE), "\t.p2align %d\n", (LOG)); \
> else fprintf ((FILE), "\t.p2align %d,,%d\n", (LOG), (MAX_SKIP)); \
630a363
> #endif
632,651d364
< /* A C statement (sans semicolon) to output an element in the table of
< global constructors. */
< #undef ASM_OUTPUT_CONSTRUCTOR
< #define ASM_OUTPUT_CONSTRUCTOR(FILE, NAME) \
< do { \
< if (TARGET_ELF) \
< { \
< ctors_section (); \
< fprintf ((FILE), "%s ", INT_ASM_OP); \
< assemble_name ((FILE), (NAME)); \
< fprintf ((FILE), "\n"); \
< } \
< else \
< { \
< fprintf (asm_out_file, "%s \"%s__CTOR_LIST__\",22,0,0,", \
< ASM_STABS_OP, (TARGET_UNDERSCORES) ? "_" : ""); \
< assemble_name (asm_out_file, name); \
< fputc ('\n', asm_out_file); \
< } \
< } while (0)
653,683d365
< /* A C statement (sans semicolon) to output an element in the table of
< global destructors. */
< #undef ASM_OUTPUT_DESTRUCTOR
< #define ASM_OUTPUT_DESTRUCTOR(FILE, NAME) \
< do { \
< if (TARGET_ELF) \
< { \
< dtors_section (); \
< fprintf ((FILE), "%s ", INT_ASM_OP); \
< assemble_name ((FILE), (NAME)); \
< fprintf ((FILE), "\n"); \
< } \
< else \
< { \
< fprintf (asm_out_file, "%s \"%s__DTOR_LIST__\",22,0,0,", \
< ASM_STABS_OP, (TARGET_UNDERSCORES) ? "_" : ""); \
< assemble_name (asm_out_file, name); \
< fputc ('\n', asm_out_file); \
< } \
< } while (0)
<
< /* Define macro used to output shift-double opcodes when the shift
< count is in %cl. Some assemblers require %cl as an argument;
< some don't.
<
< *OLD* GAS requires the %cl argument, so override i386/unix.h. */
<
< #undef AS3_SHIFT_DOUBLE
< #define AS3_SHIFT_DOUBLE(a,b,c,d) AS3 (a,b,c,d)
<
<
694,774d375
< /* Copy this from the svr4 specifications... */
< /* Define the register numbers to be used in Dwarf debugging information.
< The SVR4 reference port C compiler uses the following register numbers
< in its Dwarf output code:
< 0 for %eax (gnu regno = 0)
< 1 for %ecx (gnu regno = 2)
< 2 for %edx (gnu regno = 1)
< 3 for %ebx (gnu regno = 3)
< 4 for %esp (gnu regno = 7)
< 5 for %ebp (gnu regno = 6)
< 6 for %esi (gnu regno = 4)
< 7 for %edi (gnu regno = 5)
< The following three DWARF register numbers are never generated by
< the SVR4 C compiler or by the GNU compilers, but SDB on x86/svr4
< believes these numbers have these meanings.
< 8 for %eip (no gnu equivalent)
< 9 for %eflags (no gnu equivalent)
< 10 for %trapno (no gnu equivalent)
< It is not at all clear how we should number the FP stack registers
< for the x86 architecture. If the version of SDB on x86/svr4 were
< a bit less brain dead with respect to floating-point then we would
< have a precedent to follow with respect to DWARF register numbers
< for x86 FP registers, but the SDB on x86/svr4 is so completely
< broken with respect to FP registers that it is hardly worth thinking
< of it as something to strive for compatibility with.
< The version of x86/svr4 SDB I have at the moment does (partially)
< seem to believe that DWARF register number 11 is associated with
< the x86 register %st(0), but that's about all. Higher DWARF
< register numbers don't seem to be associated with anything in
< particular, and even for DWARF regno 11, SDB only seems to under-
< stand that it should say that a variable lives in %st(0) (when
< asked via an `=' command) if we said it was in DWARF regno 11,
< but SDB still prints garbage when asked for the value of the
< variable in question (via a `/' command).
< (Also note that the labels SDB prints for various FP stack regs
< when doing an `x' command are all wrong.)
< Note that these problems generally don't affect the native SVR4
< C compiler because it doesn't allow the use of -O with -g and
< because when it is *not* optimizing, it allocates a memory
< location for each floating-point variable, and the memory
< location is what gets described in the DWARF AT_location
< attribute for the variable in question.
< Regardless of the severe mental illness of the x86/svr4 SDB, we
< do something sensible here and we use the following DWARF
< register numbers. Note that these are all stack-top-relative
< numbers.
< 11 for %st(0) (gnu regno = 8)
< 12 for %st(1) (gnu regno = 9)
< 13 for %st(2) (gnu regno = 10)
< 14 for %st(3) (gnu regno = 11)
< 15 for %st(4) (gnu regno = 12)
< 16 for %st(5) (gnu regno = 13)
< 17 for %st(6) (gnu regno = 14)
< 18 for %st(7) (gnu regno = 15)
< */
< #undef DWARF_DBX_REGISTER_NUMBER
< #define DWARF_DBX_REGISTER_NUMBER(n) \
< ((n) == 0 ? 0 \
< : (n) == 1 ? 2 \
< : (n) == 2 ? 1 \
< : (n) == 3 ? 3 \
< : (n) == 4 ? 6 \
< : (n) == 5 ? 7 \
< : (n) == 6 ? 5 \
< : (n) == 7 ? 4 \
< : ((n) >= FIRST_STACK_REG && (n) <= LAST_STACK_REG) ? (n)+3 \
< : (-1))
<
< /* Now what stabs expects in the register. */
< #undef STABS_DBX_REGISTER_NUMBER
< #define STABS_DBX_REGISTER_NUMBER(n) \
< ((n) == 0 ? 0 : \
< (n) == 1 ? 2 : \
< (n) == 2 ? 1 : \
< (n) == 3 ? 3 : \
< (n) == 4 ? 6 : \
< (n) == 5 ? 7 : \
< (n) == 6 ? 4 : \
< (n) == 7 ? 5 : \
< (n) + 4)
<
776c377,378
< #define DBX_REGISTER_NUMBER(n) ((write_symbols == DWARF2_DEBUG \
---
> #define DBX_REGISTER_NUMBER(n) (TARGET_64BIT ? dbx64_register_map[n] \
> : (write_symbols == DWARF2_DEBUG \
778,779c380,381
< ? DWARF_DBX_REGISTER_NUMBER(n) \
< : STABS_DBX_REGISTER_NUMBER(n))
---
> ? svr4_dbx_register_map[(n)] \
> : dbx_register_map[(n)])
786c388
< fprintf ((FILE), "\t.text\n\t.stabs \"\",%d,0,0,.Letext\n.Letext:\n", \
---
> fprintf ((FILE), "\t.text\n\t.stabs \"\",%d,0,0,%LLetext\n%LLetext:\n", \