Initial revision

From-SVN: r455

gcc/xcoffout.h

+/* XCOFF definitions.  These are needed in dbxout.c, final.c,
+   and xcoffout.h.  */
+
+#define ASM_STABS_OP ".stabx"
+
+/* Tags and typedefs are C_DECL in XCOFF, not C_LSYM.  */
+
+#define DBX_DECL_STABS_CODE N_DECL
+
+/* Use the XCOFF predefined type numbers.  */
+
+/* ??? According to metin, typedef stabx must go in text control section,
+   but he did not make this changes everywhere where such typedef stabx
+   can be emitted, so it is really needed or not?  */
+
+#define DBX_OUTPUT_STANDARD_TYPES(SYMS)		\
+{						\
+  text_section ();				\
+  xcoff_output_standard_types (SYMS);		\
+}
+
+/* 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 (current_sym_code == N_STSYM || current_sym_code == N_LCSYM)	\
+    fprintf (asmfile, "\t.es\n");					\
+}
+
+/* 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_SYMBOL(SYM)					\
+{								\
+  if (current_sym_addr && current_sym_code == N_FUN)		\
+    fprintf (asmfile, "\",.");					\
+  else								\
+    fprintf (asmfile, "\",");					\
+  /* If we are writing a function name, we must ensure that	\
+     there is no storage-class suffix on the name.  */		\
+  if (current_sym_addr && current_sym_code == N_FUN		\
+      && GET_CODE (current_sym_addr) == SYMBOL_REF)		\
+    {								\
+      char *_p;							\
+      for (_p = XSTR (current_sym_addr, 0); *_p != '[' && *_p; _p++) \
+	fprintf (asmfile, "%c", *_p);				\
+    }								\
+  else if (current_sym_addr)					\
+    output_addr_const (asmfile, current_sym_addr);		\
+  else if (current_sym_code == N_GSYM)				\
+    fprintf (asmfile, "%s", IDENTIFIER_POINTER (DECL_NAME (SYM))); \
+  else								\
+    fprintf (asmfile, "%d", current_sym_value);			\
+  fprintf (asmfile, ",%d,0\n", stab_to_sclass (current_sym_code)); \
+}
+
+/* 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
+
+/* The line number of the beginning of the current function.
+   xcoffout.c needs this so that it can output relative linenumbers.  */
+
+extern int xcoff_begin_function_line;
+
+/* Name of the current include file.  */
+
+extern char *xcoff_current_include_file;
+
+/* Name of the current function file.  This is the file the `.bf' is
+   emitted from.  In case a line is emitted from a different file,
+   (by including that file of course), then the line number will be
+   absolute.  */
+
+extern char *xcoff_current_function_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_read_only_section_name;
+
+/* Don't write out path name for main source file.  */
+#define DBX_OUTPUT_MAIN_SOURCE_DIRECTORY(FILE,FILENAME)
+
+/* Write out main source file name using ".file" rather than ".stabs".  */
+#define DBX_OUTPUT_MAIN_SOURCE_FILENAME(FILE,FILENAME) \
+  fprintf (FILE, "\t.file\t\"%s\"\n", FILENAME);
+
+#define ABS_OR_RELATIVE_LINENO(LINENO)		\
+((xcoff_current_include_file			\
+  && xcoff_current_include_file != xcoff_current_function_file)	\
+ ? (LINENO) : (LINENO) - xcoff_begin_function_line)
+
+/* Output source line numbers via ".line" rather than ".stabd".  */
+#define ASM_OUTPUT_SOURCE_LINE(FILE,LINENUM) \
+  do {						\
+    if (xcoff_begin_function_line >= 0)		\
+      fprintf (FILE, "\t.line\t%d\n", ABS_OR_RELATIVE_LINENO (LINENUM)); \
+  } while (0)
+
+/* We don't want to emit source file names in dbx style. */
+#define DBX_OUTPUT_SOURCE_FILENAME(FILE, FILENAME)	\
+{							\
+  if (xcoff_current_include_file)			\
+    fprintf (FILE, "\t.ei\t\"%s\"\n", xcoff_current_include_file);\
+  if (strcmp (main_input_filename, FILENAME))		\
+    {							\
+      fprintf (FILE, "\t.bi\t\"%s\"\n", FILENAME);	\
+      xcoff_current_include_file = FILENAME;		\
+    }							\
+  else							\
+    xcoff_current_include_file = NULL;			\
+}
+
+/* If we are still in an include file, its end must be marked.  */
+#define DBX_OUTPUT_MAIN_SOURCE_FILE_END(FILE, FILENAME)	\
+{							\
+  if (xcoff_current_include_file)			\
+    {							\
+      fprintf ((FILE), "\t.ei\t\"%s\"\n",		\
+	       xcoff_current_include_file);		\
+      xcoff_current_include_file = NULL;		\
+    }							\
+}
+
+/* Do not break .stabs pseudos into continuations.  */
+#define DBX_CONTIN_LENGTH 0
+
+/* 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