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