1 /* Output xcoff-format symbol table information from GNU compiler.
2 Copyright (C) 1992, 1994 Free Software Foundation, Inc.
4 This file is part of GNU CC.
6 GNU CC is free software; you can redistribute it and/or modify
7 it under the terms of the GNU General Public License as published by
8 the Free Software Foundation; either version 2, or (at your option)
11 GNU CC is distributed in the hope that it will be useful,
12 but WITHOUT ANY WARRANTY; without even the implied warranty of
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 GNU General Public License for more details.
16 You should have received a copy of the GNU General Public License
17 along with GNU CC; see the file COPYING. If not, write to
18 the Free Software Foundation, 59 Temple Place - Suite 330,
19 Boston, MA 02111-1307, USA. */
22 /* Output xcoff-format symbol table data. The main functionality is contained
23 in dbxout.c. This file implements the sdbout-like parts of the xcoff
24 interface. Many functions are very similar to their counterparts in
27 /* Include this first, because it may define MIN and MAX. */
35 #ifdef XCOFF_DEBUGGING_INFO
37 /* This defines the C_* storage classes. */
38 #include <dbxstclass.h>
42 #if defined (USG) || defined (NO_STAB_H)
47 /* This is a GNU extension we need to reference in this file. */
53 /* Line number of beginning of current function, minus one.
54 Negative means not in a function or not using xcoff. */
56 int xcoff_begin_function_line
= -1;
58 /* Name of the current include file. */
60 char *xcoff_current_include_file
;
62 /* Name of the current function file. This is the file the `.bf' is
63 emitted from. In case a line is emitted from a different file,
64 (by including that file of course), then the line number will be
67 char *xcoff_current_function_file
;
69 /* Names of bss and data sections. These should be unique names for each
72 char *xcoff_bss_section_name
;
73 char *xcoff_private_data_section_name
;
74 char *xcoff_read_only_section_name
;
76 /* Last source file name mentioned in a NOTE insn. */
80 /* Macro definitions used below. */
82 #define ABS_OR_RELATIVE_LINENO(LINENO) \
83 (xcoff_current_include_file ? (LINENO) : (LINENO) - xcoff_begin_function_line)
85 /* Output source line numbers via ".line" rather than ".stabd". */
86 #define ASM_OUTPUT_SOURCE_LINE(FILE,LINENUM) \
88 if (xcoff_begin_function_line >= 0) \
89 fprintf (FILE, "\t.line\t%d\n", ABS_OR_RELATIVE_LINENO (LINENUM)); \
92 #define ASM_OUTPUT_LFB(FILE,LINENUM) \
94 if (xcoff_begin_function_line == -1) \
96 xcoff_begin_function_line = (LINENUM) - 1;\
97 fprintf (FILE, "\t.bf\t%d\n", (LINENUM)); \
99 xcoff_current_function_file \
100 = (xcoff_current_include_file \
101 ? xcoff_current_include_file : main_input_filename); \
104 #define ASM_OUTPUT_LFE(FILE,LINENUM) \
106 fprintf (FILE, "\t.ef\t%d\n", (LINENUM)); \
107 xcoff_begin_function_line = -1; \
110 #define ASM_OUTPUT_LBB(FILE,LINENUM,BLOCKNUM) \
111 fprintf (FILE, "\t.bb\t%d\n", ABS_OR_RELATIVE_LINENO (LINENUM))
113 #define ASM_OUTPUT_LBE(FILE,LINENUM,BLOCKNUM) \
114 fprintf (FILE, "\t.eb\t%d\n", ABS_OR_RELATIVE_LINENO (LINENUM))
116 /* Support routines for XCOFF debugging info. */
118 /* Assign NUMBER as the stabx type number for the type described by NAME.
119 Search all decls in the list SYMS to find the type NAME. */
122 assign_type_number (syms
, name
, number
)
129 for (decl
= syms
; decl
; decl
= TREE_CHAIN (decl
))
131 && strcmp (IDENTIFIER_POINTER (DECL_NAME (decl
)), name
) == 0)
133 TREE_ASM_WRITTEN (decl
) = 1;
134 TYPE_SYMTAB_ADDRESS (TREE_TYPE (decl
)) = number
;
138 /* Setup gcc primitive types to use the XCOFF built-in type numbers where
142 xcoff_output_standard_types (syms
)
145 /* Handle built-in C types here. */
147 assign_type_number (syms
, "int", (TARGET_64BIT
? -31 : -1));
148 assign_type_number (syms
, "char", -2);
149 assign_type_number (syms
, "short int", -3);
150 assign_type_number (syms
, "long int", (TARGET_64BIT
? -31 : -4));
151 assign_type_number (syms
, "unsigned char", -5);
152 assign_type_number (syms
, "signed char", -6);
153 assign_type_number (syms
, "short unsigned int", -7);
154 assign_type_number (syms
, "unsigned int", (TARGET_64BIT
? -32 : -8));
155 /* No such type "unsigned". */
156 assign_type_number (syms
, "long unsigned int", (TARGET_64BIT
? -32 : -10));
157 assign_type_number (syms
, "void", -11);
158 assign_type_number (syms
, "float", -12);
159 assign_type_number (syms
, "double", -13);
160 assign_type_number (syms
, "long double", -14);
161 /* Pascal and Fortran types run from -15 to -29. */
162 assign_type_number (syms
, "wchar", -30);
163 assign_type_number (syms
, "long long int", -31);
164 assign_type_number (syms
, "long long unsigned int", -32);
165 /* Additional Fortran types run from -33 to -37. */
167 /* ??? Should also handle built-in C++ and Obj-C types. There perhaps
168 aren't any that C doesn't already have. */
171 /* Print an error message for unrecognized stab codes. */
173 #define UNKNOWN_STAB(STR) \
175 fprintf(stderr, "Error, unknown stab %s: : 0x%x\n", STR, stab); \
179 /* Conversion routine from BSD stabs to AIX storage classes. */
182 stab_to_sclass (stab
)
191 UNKNOWN_STAB ("N_FNAME");
203 UNKNOWN_STAB ("N_MAIN");
211 UNKNOWN_STAB ("N_SSYM");
227 UNKNOWN_STAB ("N_SO");
231 UNKNOWN_STAB ("N_SOL");
235 UNKNOWN_STAB ("N_SLINE");
240 UNKNOWN_STAB ("N_DSLINE");
246 UNKNOWN_STAB ("N_BSLINE");
250 /* This has the same value as N_BSLINE. */
252 UNKNOWN_STAB ("N_BROWS");
258 UNKNOWN_STAB ("N_BINCL");
264 UNKNOWN_STAB ("N_EINCL");
270 UNKNOWN_STAB ("N_EXCL");
275 UNKNOWN_STAB ("N_LBRAC");
279 UNKNOWN_STAB ("N_RBRAC");
290 UNKNOWN_STAB ("N_LENG");
294 UNKNOWN_STAB ("N_PC");
299 UNKNOWN_STAB ("N_M2C");
305 UNKNOWN_STAB ("N_SCOPE");
310 UNKNOWN_STAB ("N_CATCH");
314 UNKNOWN_STAB ("default");
319 /* In XCOFF, we have to have this .bf before the function prologue.
320 Rely on the value of `dbx_begin_function_line' not to duplicate .bf. */
323 xcoffout_output_first_source_line (file
, last_linenum
)
327 ASM_OUTPUT_LFB (file
, last_linenum
);
328 dbxout_parms (DECL_ARGUMENTS (current_function_decl
));
329 ASM_OUTPUT_SOURCE_LINE (file
, last_linenum
);
332 /* Output debugging info to FILE to switch to sourcefile FILENAME.
333 INLINE_P is true if this is from an inlined function. */
336 xcoffout_source_file (file
, filename
, inline_p
)
342 && (xcoff_lastfile
== 0 || strcmp (filename
, xcoff_lastfile
)
343 || (inline_p
&& ! xcoff_current_include_file
)
344 || (! inline_p
&& xcoff_current_include_file
)))
346 if (xcoff_current_include_file
)
348 fprintf (file
, "\t.ei\t");
349 output_quoted_string (file
, xcoff_current_include_file
);
350 fprintf (file
, "\n");
351 xcoff_current_include_file
= NULL
;
353 if (strcmp (main_input_filename
, filename
) || inline_p
)
355 fprintf (file
, "\t.bi\t");
356 output_quoted_string (file
, filename
);
357 fprintf (file
, "\n");
358 xcoff_current_include_file
= filename
;
361 xcoff_lastfile
= filename
;
365 /* Output a line number symbol entry into output stream FILE,
366 for source file FILENAME and line number NOTE. */
369 xcoffout_source_line (file
, filename
, note
)
374 xcoffout_source_file (file
, filename
, RTX_INTEGRATED_P (note
));
376 ASM_OUTPUT_SOURCE_LINE (file
, NOTE_LINE_NUMBER (note
));
379 /* Output the symbols defined in block number DO_BLOCK.
380 Set NEXT_BLOCK_NUMBER to 0 before calling.
382 This function works by walking the tree structure of blocks,
383 counting blocks until it finds the desired block. */
385 static int do_block
= 0;
387 static int next_block_number
;
390 xcoffout_block (block
, depth
, args
)
397 /* Ignore blocks never expanded or otherwise marked as real. */
398 if (TREE_USED (block
))
400 /* When we reach the specified block, output its symbols. */
401 if (next_block_number
== do_block
)
403 /* Output the syms of the block. */
404 if (debug_info_level
!= DINFO_LEVEL_TERSE
|| depth
== 0)
405 dbxout_syms (BLOCK_VARS (block
));
407 dbxout_reg_parms (args
);
409 /* We are now done with the block. Don't go to inner blocks. */
412 /* If we are past the specified block, stop the scan. */
413 else if (next_block_number
>= do_block
)
418 /* Output the subblocks. */
419 xcoffout_block (BLOCK_SUBBLOCKS (block
), depth
+ 1, NULL_TREE
);
421 block
= BLOCK_CHAIN (block
);
425 /* Describe the beginning of an internal block within a function.
426 Also output descriptions of variables defined in this block.
428 N is the number of the block, by order of beginning, counting from 1,
429 and not counting the outermost (function top-level) block.
430 The blocks match the BLOCKs in DECL_INITIAL (current_function_decl),
431 if the count starts at 0 for the outermost one. */
434 xcoffout_begin_block (file
, line
, n
)
439 tree decl
= current_function_decl
;
442 /* The IBM AIX compiler does not emit a .bb for the function level scope,
443 so we avoid it here also. */
445 ASM_OUTPUT_LBB (file
, line
, n
);
448 next_block_number
= 0;
449 xcoffout_block (DECL_INITIAL (decl
), 0, DECL_ARGUMENTS (decl
));
452 /* Describe the end line-number of an internal block within a function. */
455 xcoffout_end_block (file
, line
, n
)
461 ASM_OUTPUT_LBE (file
, line
, n
);
464 /* Called at beginning of function (before prologue).
465 Declare function as needed for debugging. */
468 xcoffout_declare_function (file
, decl
, name
)
476 for (i
= 0; name
[i
]; ++i
)
480 n
= (char *) alloca (i
+ 1);
481 strncpy (n
, name
, i
);
487 /* Any pending .bi or .ei must occur before the .function pseudo op.
488 Otherwise debuggers will think that the function is in the previous
489 file and/or at the wrong line number. */
490 xcoffout_source_file (file
, DECL_SOURCE_FILE (decl
), 0);
491 dbxout_symbol (decl
, 0);
492 fprintf (file
, "\t.function .%s,.%s,16,044,FE..%s-.%s\n", n
, n
, n
, n
);
495 /* Called at beginning of function body (after prologue).
496 Record the function's starting line number, so we can output
497 relative line numbers for the other lines.
498 Record the file name that this function is contained in. */
501 xcoffout_begin_function (file
, last_linenum
)
505 ASM_OUTPUT_LFB (file
, last_linenum
);
508 /* Called at end of function (before epilogue).
509 Describe end of outermost block. */
512 xcoffout_end_function (file
, last_linenum
)
516 ASM_OUTPUT_LFE (file
, last_linenum
);
519 /* Output xcoff info for the absolute end of a function.
520 Called after the epilogue is output. */
523 xcoffout_end_epilogue (file
)
526 /* We need to pass the correct function size to .function, otherwise,
527 the xas assembler can't figure out the correct size for the function
528 aux entry. So, we emit a label after the last instruction which can
529 be used by the .function pseudo op to calculate the function size. */
531 char *fname
= XSTR (XEXP (DECL_RTL (current_function_decl
), 0), 0);
534 fprintf (file
, "FE..");
535 ASM_OUTPUT_LABEL (file
, fname
);
537 #endif /* XCOFF_DEBUGGING_INFO */