contrib/gcc/xcoffout.h

   1 /* XCOFF definitions.  These are needed in dbxout.c, final.c,
   2    and xcoffout.h.
   3    Copyright (C) 1998 Free Software Foundation, Inc.
   4
   5 This file is part of GNU CC.
   6
   7 GNU CC is free software; you can redistribute it and/or modify
   8 it under the terms of the GNU General Public License as published by
   9 the Free Software Foundation; either version 2, or (at your option)
  10 any later version.
  11
  12 GNU CC is distributed in the hope that it will be useful,
  13 but WITHOUT ANY WARRANTY; without even the implied warranty of
  14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  15 GNU General Public License for more details.
  16
  17 You should have received a copy of the GNU General Public License
  18 along with GNU CC; see the file COPYING.  If not, write to
  19 the Free Software Foundation, 59 Temple Place - Suite 330,
  20 Boston, 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
 139 extern char *xcoff_current_include_file;
 140
 141 /* Names of bss and data sections.  These should be unique names for each
 142    compilation unit.  */
 143
 144 extern char *xcoff_bss_section_name;
 145 extern char *xcoff_private_data_section_name;
 146 extern char *xcoff_read_only_section_name;
 147
 148 /* Last source file name mentioned in a NOTE insn.  */
 149
 150 extern 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
 191 extern int stab_to_sclass                       PROTO ((int));
 192 #ifdef BUFSIZ
 193 extern void xcoffout_begin_function             PROTO ((FILE *, int));
 194 extern void xcoffout_begin_block                PROTO ((FILE *, int, int));
 195 extern void xcoffout_end_epilogue               PROTO ((FILE *));
 196 extern void xcoffout_end_function               PROTO ((FILE *, int));
 197 extern void xcoffout_end_block                  PROTO ((FILE *, int, int));
 198 #endif /* BUFSIZ */
 199
 200 #ifdef TREE_CODE
 201 extern void xcoff_output_standard_types         PROTO ((tree));
 202 #ifdef BUFSIZ
 203 extern void xcoffout_declare_function           PROTO ((FILE *, tree, char *));
 204 #endif /* BUFSIZ */
 205 #endif /* TREE_CODE */
 206
 207 #ifdef RTX_CODE
 208 #ifdef BUFSIZ
 209 extern void xcoffout_source_line                PROTO ((FILE *, char *, rtx));
 210 #endif /* BUFSIZ */
 211 #endif /* RTX_CODE */