| /* XCOFF definitions. These are needed in dbxout.c, final.c, |
| and xcoffout.h. |
| Copyright (C) 1998-2017 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/>. */ |
| |
| #ifndef GCC_XCOFFOUT_H |
| #define GCC_XCOFFOUT_H |
| |
| /* Tags and typedefs are C_DECL in XCOFF, not C_LSYM. */ |
| |
| #define DBX_TYPE_DECL_STABS_CODE N_DECL |
| |
| /* Use the XCOFF predefined type numbers. */ |
| |
| #define DBX_ASSIGN_FUNDAMENTAL_TYPE_NUMBER(TYPE) \ |
| xcoff_assign_fundamental_type_number (TYPE) |
| |
| /* Any type with a negative type index has already been output. */ |
| |
| #define DBX_TYPE_DEFINED(TYPE) (TYPE_SYMTAB_ADDRESS (TYPE) < 0) |
| |
| /* Must use N_STSYM for static const variables (those in the text section) |
| instead of N_FUN. */ |
| |
| #define DBX_STATIC_CONST_VAR_CODE N_STSYM |
| |
| /* For static variables, output code to define the start of a static block. */ |
| |
| #define DBX_STATIC_BLOCK_START(ASMFILE,CODE) \ |
| { \ |
| if ((CODE) == N_STSYM) \ |
| fprintf ((ASMFILE), "\t.bs\t%s[RW]\n", xcoff_private_data_section_name);\ |
| else if ((CODE) == N_LCSYM) \ |
| fprintf ((ASMFILE), "\t.bs\t%s\n", xcoff_bss_section_name); \ |
| } |
| |
| /* For static variables, output code to define the end of a static block. */ |
| |
| #define DBX_STATIC_BLOCK_END(ASMFILE,CODE) \ |
| { \ |
| if ((CODE) == N_STSYM || (CODE) == N_LCSYM) \ |
| fputs ("\t.es\n", (ASMFILE)); \ |
| } |
| |
| /* We must use N_RPYSM instead of N_RSYM for register parameters. */ |
| |
| #define DBX_REGPARM_STABS_CODE N_RPSYM |
| |
| /* We must use 'R' instead of 'P' for register parameters. */ |
| |
| #define DBX_REGPARM_STABS_LETTER 'R' |
| |
| /* Define our own finish symbol function, since xcoff stabs have their |
| own different format. */ |
| |
| #define DBX_FINISH_STABS(SYM, CODE, LINE, ADDR, LABEL, NUMBER) do { \ |
| if (ADDR) \ |
| { \ |
| /* If we are writing a function name, we must emit a dot in \ |
| order to refer to the function code, not its descriptor. */ \ |
| if (CODE == N_FUN) \ |
| putc ('.', asm_out_file); \ |
| \ |
| /* If we are writing a function name, we must ensure that \ |
| there is no storage-class suffix on the name. */ \ |
| if (CODE == N_FUN && GET_CODE (ADDR) == SYMBOL_REF) \ |
| { \ |
| const char *_p = XSTR (ADDR, 0); \ |
| if (*_p == '*') \ |
| fputs (_p+1, asm_out_file); \ |
| else \ |
| for (; *_p != '[' && *_p; _p++) \ |
| putc (*_p != '$' ? *_p : '_', asm_out_file); \ |
| } \ |
| else \ |
| output_addr_const (asm_out_file, ADDR); \ |
| } \ |
| /* Another special case: N_GSYM always gets the symbol name, \ |
| whether or not LABEL or NUMBER are set. */ \ |
| else if (CODE == N_GSYM) \ |
| assemble_name (asm_out_file, XSTR (XEXP (DECL_RTL (SYM), 0), 0)); \ |
| else if (LABEL) \ |
| assemble_name (asm_out_file, LABEL); \ |
| else \ |
| dbxout_int (NUMBER); \ |
| putc (',', asm_out_file); \ |
| dbxout_int (stab_to_sclass (CODE)); \ |
| fputs (",0\n", asm_out_file); \ |
| } while (0) |
| |
| /* These are IBM XCOFF extensions we need to reference in dbxout.c |
| and xcoffout.c. */ |
| |
| /* AIX XCOFF uses this for typedefs. This can have any value, since it is |
| only used for translation into a C_DECL storage class. */ |
| #ifndef N_DECL |
| #define N_DECL 0x8c |
| #endif |
| /* AIX XCOFF uses this for parameters passed in registers. This can have |
| any value, since it is only used for translation into a C_RPSYM storage |
| class. */ |
| #ifndef N_RPSYM |
| #define N_RPSYM 0x8e |
| #endif |
| |
| /* Name of the current include file. */ |
| |
| extern const char *xcoff_current_include_file; |
| |
| /* Names of bss and data sections. These should be unique names for each |
| compilation unit. */ |
| |
| extern char *xcoff_bss_section_name; |
| extern char *xcoff_private_data_section_name; |
| extern char *xcoff_private_rodata_section_name; |
| extern char *xcoff_tls_data_section_name; |
| extern char *xcoff_tbss_section_name; |
| extern char *xcoff_read_only_section_name; |
| |
| /* Last source file name mentioned in a NOTE insn. */ |
| |
| extern const char *xcoff_lastfile; |
| |
| /* Don't write out path name for main source file. */ |
| #define NO_DBX_MAIN_SOURCE_DIRECTORY 1 |
| |
| /* Write out main source file name using ".file" rather than ".stabs". |
| We don't actually do this here, because the assembler gets confused if there |
| is more than one .file directive. rs6000_xcoff_file_start is already |
| emitting a .file directory, so we don't output one here also. |
| Initialize xcoff_lastfile. */ |
| #define DBX_OUTPUT_MAIN_SOURCE_FILENAME(FILE,FILENAME) \ |
| xcoff_lastfile = (FILENAME) |
| |
| /* If we are still in an include file, its end must be marked. */ |
| #define DBX_OUTPUT_MAIN_SOURCE_FILE_END(FILE, FILENAME) \ |
| do { \ |
| if (xcoff_current_include_file) \ |
| { \ |
| fputs ("\t.ei\t", (FILE)); \ |
| output_quoted_string ((FILE), xcoff_current_include_file); \ |
| putc ('\n', (FILE)); \ |
| xcoff_current_include_file = NULL; \ |
| } \ |
| } while (0) |
| |
| /* Do not emit any marker for XCOFF until assembler allows XFT_CV. */ |
| #define NO_DBX_GCC_MARKER |
| |
| /* XCOFF32 maximum length is 64K; XLC limits to 16K. */ |
| #define DBX_CONTIN_LENGTH 16384 |
| |
| /* XLC uses '?' as continuation character. */ |
| #define DBX_CONTIN_CHAR '?' |
| |
| /* Don't try to use the `x' type-cross-reference character in DBX data. |
| Also has the consequence of putting each struct, union or enum |
| into a separate .stabs, containing only cross-refs to the others. */ |
| #define DBX_NO_XREFS |
| |
| /* We must put stabs in the text section. If we don't the assembler |
| won't handle them correctly; it will sometimes put stabs where gdb |
| can't find them. */ |
| |
| #define DEBUG_SYMS_TEXT |
| |
| /* Prototype functions in xcoffout.c. */ |
| |
| extern int stab_to_sclass (int); |
| extern void xcoffout_begin_prologue (unsigned int, unsigned int, const char *); |
| extern void xcoffout_begin_block (unsigned, unsigned); |
| extern void xcoffout_end_epilogue (unsigned int, const char *); |
| extern void xcoffout_end_function (unsigned int); |
| extern void xcoffout_end_block (unsigned, unsigned); |
| extern int xcoff_assign_fundamental_type_number (tree); |
| extern void xcoffout_declare_function (FILE *, tree, const char *); |
| extern void xcoffout_source_line (unsigned int, unsigned int, const char *, |
| int, bool); |
| |
| #endif /* GCC_XCOFFOUT_H */ |