1 /* Output xcoff-format symbol table information from GNU compiler.
2 Copyright (C) 1992 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, 675 Mass Ave, Cambridge, MA 02139, USA. */
21 /* Output xcoff-format symbol table data. The main functionality is contained
22 in dbxout.c. This file implements the sdbout-like parts of the xcoff
23 interface. Many functions are very similar to their counterparts in
26 /* Include this first, because it may define MIN and MAX. */
34 #ifdef XCOFF_DEBUGGING_INFO
36 /* This defines the C_* storage classes. */
37 #include <dbxstclass.h>
41 #if defined (USG) || defined (NO_STAB_H)
46 /* This is a GNU extension we need to reference in this file. */
52 /* Line number of beginning of current function, minus one.
53 Negative means not in a function or not using xcoff. */
55 int xcoff_begin_function_line
= -1;
57 /* Name of the current include file. */
59 char *xcoff_current_include_file
;
61 /* Name of the current function file. This is the file the `.bf' is
62 emitted from. In case a line is emitted from a different file,
63 (by including that file of course), then the line number will be
66 char *xcoff_current_function_file
;
68 /* Names of bss and data sections. These should be unique names for each
71 char *xcoff_bss_section_name
;
72 char *xcoff_private_data_section_name
;
73 char *xcoff_read_only_section_name
;
75 /* Last source file name mentioned in a NOTE insn. */
79 /* Macro definitions used below. */
81 #define ABS_OR_RELATIVE_LINENO(LINENO) \
82 (xcoff_current_include_file ? (LINENO) : (LINENO) - xcoff_begin_function_line)
84 /* Output source line numbers via ".line" rather than ".stabd". */
85 #define ASM_OUTPUT_SOURCE_LINE(FILE,LINENUM) \
87 if (xcoff_begin_function_line >= 0) \
88 fprintf (FILE, "\t.line\t%d\n", ABS_OR_RELATIVE_LINENO (LINENUM)); \
91 #define ASM_OUTPUT_LFB(FILE,LINENUM) \
93 if (xcoff_begin_function_line == -1) \
95 xcoff_begin_function_line = (LINENUM) - 1;\
96 fprintf (FILE, "\t.bf\t%d\n", (LINENUM)); \
98 xcoff_current_function_file \
99 = (xcoff_current_include_file \
100 ? xcoff_current_include_file : main_input_filename); \
103 #define ASM_OUTPUT_LFE(FILE,LINENUM) \
105 fprintf (FILE, "\t.ef\t%d\n", (LINENUM)); \
106 xcoff_begin_function_line = -1; \
109 #define ASM_OUTPUT_LBB(FILE,LINENUM,BLOCKNUM) \
110 fprintf (FILE, "\t.bb\t%d\n", ABS_OR_RELATIVE_LINENO (LINENUM))
112 #define ASM_OUTPUT_LBE(FILE,LINENUM,BLOCKNUM) \
113 fprintf (FILE, "\t.eb\t%d\n", ABS_OR_RELATIVE_LINENO (LINENUM))
115 /* Support routines for XCOFF debugging info. */
117 /* Assign NUMBER as the stabx type number for the type described by NAME.
118 Search all decls in the list SYMS to find the type NAME. */
121 assign_type_number (syms
, name
, number
)
128 for (decl
= syms
; decl
; decl
= TREE_CHAIN (decl
))
130 && strcmp (IDENTIFIER_POINTER (DECL_NAME (decl
)), name
) == 0)
132 TREE_ASM_WRITTEN (decl
) = 1;
133 TYPE_SYMTAB_ADDRESS (TREE_TYPE (decl
)) = number
;
137 /* Setup gcc primitive types to use the XCOFF built-in type numbers where
141 xcoff_output_standard_types (syms
)
144 /* Handle built-in C types here. */
146 assign_type_number (syms
, "int", -1);
147 assign_type_number (syms
, "char", -2);
148 assign_type_number (syms
, "short int", -3);
149 assign_type_number (syms
, "long int", -4);
150 assign_type_number (syms
, "unsigned char", -5);
151 assign_type_number (syms
, "signed char", -6);
152 assign_type_number (syms
, "short unsigned int", -7);
153 assign_type_number (syms
, "unsigned int", -8);
154 /* No such type "unsigned". */
155 assign_type_number (syms
, "long unsigned int", -10);
156 assign_type_number (syms
, "void", -11);
157 assign_type_number (syms
, "float", -12);
158 assign_type_number (syms
, "double", -13);
159 assign_type_number (syms
, "long double", -14);
160 /* Pascal and Fortran types run from -15 to -29. */
161 /* No such type "wchar". */
163 /* "long long int", and "long long unsigned int", are not handled here,
164 because there are no predefined types that match them. */
166 /* ??? Should also handle built-in C++ and Obj-C types. There perhaps
167 aren't any that C doesn't already have. */
170 /* Print an error message for unrecognized stab codes. */
172 #define UNKNOWN_STAB(STR) \
174 fprintf(stderr, "Error, unknown stab %s: : 0x%x\n", STR, stab); \
178 /* Conversion routine from BSD stabs to AIX storage classes. */
181 stab_to_sclass (stab
)
190 UNKNOWN_STAB ("N_FNAME");
202 UNKNOWN_STAB ("N_MAIN");
210 UNKNOWN_STAB ("N_SSYM");
226 UNKNOWN_STAB ("N_SO");
230 UNKNOWN_STAB ("N_SOL");
234 UNKNOWN_STAB ("N_SLINE");
239 UNKNOWN_STAB ("N_DSLINE");
245 UNKNOWN_STAB ("N_BSLINE");
249 /* This has the same value as N_BSLINE. */
251 UNKNOWN_STAB ("N_BROWS");
257 UNKNOWN_STAB ("N_BINCL");
263 UNKNOWN_STAB ("N_EINCL");
269 UNKNOWN_STAB ("N_EXCL");
274 UNKNOWN_STAB ("N_LBRAC");
278 UNKNOWN_STAB ("N_RBRAC");
289 UNKNOWN_STAB ("N_LENG");
293 UNKNOWN_STAB ("N_PC");
298 UNKNOWN_STAB ("N_M2C");
304 UNKNOWN_STAB ("N_SCOPE");
309 UNKNOWN_STAB ("N_CATCH");
313 UNKNOWN_STAB ("default");
318 /* In XCOFF, we have to have this .bf before the function prologue.
319 Rely on the value of `dbx_begin_function_line' not to duplicate .bf. */
322 xcoffout_output_first_source_line (file
, last_linenum
)
326 ASM_OUTPUT_LFB (file
, last_linenum
);
327 dbxout_parms (DECL_ARGUMENTS (current_function_decl
));
328 ASM_OUTPUT_SOURCE_LINE (file
, last_linenum
);
331 /* Output debugging info to FILE to switch to sourcefile FILENAME.
332 INLINE_P is true if this is from an inlined function. */
335 xcoffout_source_file (file
, filename
, inline_p
)
341 && (xcoff_lastfile
== 0 || strcmp (filename
, xcoff_lastfile
)
342 || (inline_p
&& ! xcoff_current_include_file
)
343 || (! inline_p
&& xcoff_current_include_file
)))
345 if (xcoff_current_include_file
)
347 fprintf (file
, "\t.ei\t");
348 output_quoted_string (file
, xcoff_current_include_file
);
349 fprintf (file
, "\n");
350 xcoff_current_include_file
= NULL
;
352 if (strcmp (main_input_filename
, filename
) || inline_p
)
354 fprintf (file
, "\t.bi\t");
355 output_quoted_string (file
, filename
);
356 fprintf (file
, "\n");
357 xcoff_current_include_file
= filename
;
360 xcoff_lastfile
= filename
;
364 /* Output a line number symbol entry into output stream FILE,
365 for source file FILENAME and line number NOTE. */
368 xcoffout_source_line (file
, filename
, note
)
373 xcoffout_source_file (file
, filename
, RTX_INTEGRATED_P (note
));
375 ASM_OUTPUT_SOURCE_LINE (file
, NOTE_LINE_NUMBER (note
));
378 /* Output the symbols defined in block number DO_BLOCK.
379 Set NEXT_BLOCK_NUMBER to 0 before calling.
381 This function works by walking the tree structure of blocks,
382 counting blocks until it finds the desired block. */
384 static int do_block
= 0;
386 static int next_block_number
;
389 xcoffout_block (block
, depth
, args
)
396 /* Ignore blocks never expanded or otherwise marked as real. */
397 if (TREE_USED (block
))
399 /* When we reach the specified block, output its symbols. */
400 if (next_block_number
== do_block
)
402 /* Output the syms of the block. */
403 if (debug_info_level
!= DINFO_LEVEL_TERSE
|| depth
== 0)
404 dbxout_syms (BLOCK_VARS (block
));
406 dbxout_reg_parms (args
);
408 /* We are now done with the block. Don't go to inner blocks. */
411 /* If we are past the specified block, stop the scan. */
412 else if (next_block_number
>= do_block
)
417 /* Output the subblocks. */
418 xcoffout_block (BLOCK_SUBBLOCKS (block
), depth
+ 1, NULL_TREE
);
420 block
= BLOCK_CHAIN (block
);
424 /* Describe the beginning of an internal block within a function.
425 Also output descriptions of variables defined in this block.
427 N is the number of the block, by order of beginning, counting from 1,
428 and not counting the outermost (function top-level) block.
429 The blocks match the BLOCKs in DECL_INITIAL (current_function_decl),
430 if the count starts at 0 for the outermost one. */
433 xcoffout_begin_block (file
, line
, n
)
438 tree decl
= current_function_decl
;
441 /* The IBM AIX compiler does not emit a .bb for the function level scope,
442 so we avoid it here also. */
444 ASM_OUTPUT_LBB (file
, line
, n
);
447 next_block_number
= 0;
448 xcoffout_block (DECL_INITIAL (decl
), 0, DECL_ARGUMENTS (decl
));
451 /* Describe the end line-number of an internal block within a function. */
454 xcoffout_end_block (file
, line
, n
)
460 ASM_OUTPUT_LBE (file
, line
, n
);
463 /* Called at beginning of function (before prologue).
464 Declare function as needed for debugging. */
467 xcoffout_declare_function (file
, decl
, name
)
475 for (i
= 0; name
[i
]; ++i
)
479 n
= (char *) alloca (i
+ 1);
480 strncpy (n
, name
, i
);
486 /* Any pending .bi or .ei must occur before the .function psuedo op.
487 Otherwise debuggers will think that the function is in the previous
488 file and/or at the wrong line number. */
489 xcoffout_source_file (file
, DECL_SOURCE_FILE (decl
), 0);
490 dbxout_symbol (decl
, 0);
491 fprintf (file
, "\t.function .%s,.%s,16,044,FE..%s-.%s\n", n
, n
, n
, n
);
494 /* Called at beginning of function body (after prologue).
495 Record the function's starting line number, so we can output
496 relative line numbers for the other lines.
497 Record the file name that this function is contained in. */
500 xcoffout_begin_function (file
, last_linenum
)
504 ASM_OUTPUT_LFB (file
, last_linenum
);
507 /* Called at end of function (before epilogue).
508 Describe end of outermost block. */
511 xcoffout_end_function (file
, last_linenum
)
515 ASM_OUTPUT_LFE (file
, last_linenum
);
518 /* Output xcoff info for the absolute end of a function.
519 Called after the epilogue is output. */
522 xcoffout_end_epilogue (file
)
525 /* We need to pass the correct function size to .function, otherwise,
526 the xas assembler can't figure out the correct size for the function
527 aux entry. So, we emit a label after the last instruction which can
528 be used by the .function pseudo op to calculate the function size. */
530 char *fname
= XSTR (XEXP (DECL_RTL (current_function_decl
), 0), 0);
533 fprintf (file
, "FE..");
534 ASM_OUTPUT_LABEL (file
, fname
);
536 #endif /* XCOFF_DEBUGGING_INFO */