xcoffout.h revision 52284
1/* XCOFF definitions. These are needed in dbxout.c, final.c, 2 and xcoffout.h. 3 Copyright (C) 1998 Free Software Foundation, Inc. 4 5This file is part of GNU CC. 6 7GNU CC is free software; you can redistribute it and/or modify 8it under the terms of the GNU General Public License as published by 9the Free Software Foundation; either version 2, or (at your option) 10any later version. 11 12GNU CC is distributed in the hope that it will be useful, 13but WITHOUT ANY WARRANTY; without even the implied warranty of 14MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 15GNU General Public License for more details. 16 17You should have received a copy of the GNU General Public License 18along with GNU CC; see the file COPYING. If not, write to 19the Free Software Foundation, 59 Temple Place - Suite 330, 20Boston, MA 02111-1307, USA. */ 21 22 23#define ASM_STABS_OP ".stabx" 24 25/* Tags and typedefs are C_DECL in XCOFF, not C_LSYM. */ 26 27#define DBX_TYPE_DECL_STABS_CODE N_DECL 28 29/* Use the XCOFF predefined type numbers. */ 30 31/* ??? According to metin, typedef stabx must go in text control section, 32 but he did not make this changes everywhere where such typedef stabx 33 can be emitted, so it is really needed or not? */ 34 35#define DBX_OUTPUT_STANDARD_TYPES(SYMS) \ 36{ \ 37 text_section (); \ 38 xcoff_output_standard_types (SYMS); \ 39} 40 41/* Any type with a negative type index has already been output. */ 42 43#define DBX_TYPE_DEFINED(TYPE) (TYPE_SYMTAB_ADDRESS (TYPE) < 0) 44 45/* Must use N_STSYM for static const variables (those in the text section) 46 instead of N_FUN. */ 47 48#define DBX_STATIC_CONST_VAR_CODE N_STSYM 49 50/* For static variables, output code to define the start of a static block. 51 52 ??? The IBM rs6000/AIX assembler has a bug that causes bss block debug 53 info to be occasionally lost. A simple example is this: 54 int a; static int b; 55 The commands `gcc -g -c tmp.c; dump -t tmp.o' gives 56[10] m 0x00000016 1 0 0x8f 0x0000 .bs 57[11] m 0x00000000 1 0 0x90 0x0000 .es 58... 59[21] m 0x00000000 -2 0 0x85 0x0000 b:S-1 60 which is wrong. The `b:S-1' must be between the `.bs' and `.es'. 61 We can apparently work around the problem by forcing the text section 62 (even if we are already in the text section) immediately before outputting 63 the `.bs'. This should be fixed in the next major AIX release (3.3?). */ 64 65#define DBX_STATIC_BLOCK_START(ASMFILE,CODE) \ 66{ \ 67 if ((CODE) == N_STSYM) \ 68 fprintf ((ASMFILE), "\t.bs\t%s[RW]\n", xcoff_private_data_section_name);\ 69 else if ((CODE) == N_LCSYM) \ 70 { \ 71 fprintf ((ASMFILE), "%s\n", TEXT_SECTION_ASM_OP); \ 72 fprintf ((ASMFILE), "\t.bs\t%s\n", xcoff_bss_section_name); \ 73 } \ 74} 75 76/* For static variables, output code to define the end of a static block. */ 77 78#define DBX_STATIC_BLOCK_END(ASMFILE,CODE) \ 79{ \ 80 if ((CODE) == N_STSYM || (CODE) == N_LCSYM) \ 81 fputs ("\t.es\n", (ASMFILE)); \ 82} 83 84/* We must use N_RPYSM instead of N_RSYM for register parameters. */ 85 86#define DBX_REGPARM_STABS_CODE N_RPSYM 87 88/* We must use 'R' instead of 'P' for register parameters. */ 89 90#define DBX_REGPARM_STABS_LETTER 'R' 91 92/* Define our own finish symbol function, since xcoff stabs have their 93 own different format. */ 94 95#define DBX_FINISH_SYMBOL(SYM) \ 96{ \ 97 if (current_sym_addr && current_sym_code == N_FUN) \ 98 fprintf (asmfile, "\",."); \ 99 else \ 100 fprintf (asmfile, "\","); \ 101 /* If we are writing a function name, we must ensure that \ 102 there is no storage-class suffix on the name. */ \ 103 if (current_sym_addr && current_sym_code == N_FUN \ 104 && GET_CODE (current_sym_addr) == SYMBOL_REF) \ 105 { \ 106 char *_p = XSTR (current_sym_addr, 0); \ 107 if (*_p == '*') \ 108 fprintf (asmfile, "%s", _p+1); \ 109 else \ 110 for (; *_p != '[' && *_p; _p++) \ 111 fprintf (asmfile, "%c", *_p); \ 112 } \ 113 else if (current_sym_addr) \ 114 output_addr_const (asmfile, current_sym_addr); \ 115 else if (current_sym_code == N_GSYM) \ 116 assemble_name (asmfile, XSTR (XEXP (DECL_RTL (sym), 0), 0)); \ 117 else \ 118 fprintf (asmfile, "%d", current_sym_value); \ 119 fprintf (asmfile, ",%d,0\n", stab_to_sclass (current_sym_code)); \ 120} 121 122/* These are IBM XCOFF extensions we need to reference in dbxout.c 123 and xcoffout.c. */ 124 125/* AIX XCOFF uses this for typedefs. This can have any value, since it is 126 only used for translation into a C_DECL storage class. */ 127#ifndef N_DECL 128#define N_DECL 0x8c 129#endif 130/* AIX XCOFF uses this for parameters passed in registers. This can have 131 any value, since it is only used for translation into a C_RPSYM storage 132 class. */ 133#ifndef N_RPSYM 134#define N_RPSYM 0x8e 135#endif 136 137/* Name of the current include file. */ 138 139extern char *xcoff_current_include_file; 140 141/* Names of bss and data sections. These should be unique names for each 142 compilation unit. */ 143 144extern char *xcoff_bss_section_name; 145extern char *xcoff_private_data_section_name; 146extern char *xcoff_read_only_section_name; 147 148/* Last source file name mentioned in a NOTE insn. */ 149 150extern char *xcoff_lastfile; 151 152/* Don't write out path name for main source file. */ 153#define DBX_OUTPUT_MAIN_SOURCE_DIRECTORY(FILE,FILENAME) 154 155/* Write out main source file name using ".file" rather than ".stabs". 156 We don't actually do this here, because the assembler gets confused if there 157 is more than one .file directive. ASM_FILE_START in config/rs6000/rs6000.h 158 is already emitting a .file directory, so we don't output one here also. 159 Initialize xcoff_lastfile. */ 160#define DBX_OUTPUT_MAIN_SOURCE_FILENAME(FILE,FILENAME) \ 161 xcoff_lastfile = (FILENAME) 162 163/* If we are still in an include file, its end must be marked. */ 164#define DBX_OUTPUT_MAIN_SOURCE_FILE_END(FILE, FILENAME) \ 165{ \ 166 if (xcoff_current_include_file) \ 167 { \ 168 fputs ("\t.ei\t", (FILE)); \ 169 output_quoted_string ((FILE), xcoff_current_include_file); \ 170 putc ('\n', (FILE)); \ 171 xcoff_current_include_file = NULL; \ 172 } \ 173} 174 175/* Do not break .stabs pseudos into continuations. */ 176#define DBX_CONTIN_LENGTH 0 177 178/* Don't try to use the `x' type-cross-reference character in DBX data. 179 Also has the consequence of putting each struct, union or enum 180 into a separate .stabs, containing only cross-refs to the others. */ 181#define DBX_NO_XREFS 182 183/* We must put stabs in the text section. If we don't the assembler 184 won't handle them correctly; it will sometimes put stabs where gdb 185 can't find them. */ 186 187#define DEBUG_SYMS_TEXT 188 189/* Prototype functions in xcoffout.c. */ 190 191extern int stab_to_sclass PROTO ((int)); 192#ifdef BUFSIZ 193extern void xcoffout_begin_function PROTO ((FILE *, int)); 194extern void xcoffout_begin_block PROTO ((FILE *, int, int)); 195extern void xcoffout_end_epilogue PROTO ((FILE *)); 196extern void xcoffout_end_function PROTO ((FILE *, int)); 197extern void xcoffout_end_block PROTO ((FILE *, int, int)); 198#endif /* BUFSIZ */ 199 200#ifdef TREE_CODE 201extern void xcoff_output_standard_types PROTO ((tree)); 202#ifdef BUFSIZ 203extern void xcoffout_declare_function PROTO ((FILE *, tree, char *)); 204#endif /* BUFSIZ */ 205#endif /* TREE_CODE */ 206 207#ifdef RTX_CODE 208#ifdef BUFSIZ 209extern void xcoffout_source_line PROTO ((FILE *, char *, rtx)); 210#endif /* BUFSIZ */ 211#endif /* RTX_CODE */ 212