1 | /* Output xcoff-format symbol table information from GNU compiler. |
---|
2 | Copyright (C) 1992, 1994, 1995, 1997 Free Software Foundation, Inc. |
---|
3 | |
---|
4 | This file is part of GNU CC. |
---|
5 | |
---|
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) |
---|
9 | any later version. |
---|
10 | |
---|
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. |
---|
15 | |
---|
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. */ |
---|
20 | |
---|
21 | |
---|
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 |
---|
25 | sdbout.c. */ |
---|
26 | |
---|
27 | #include "config.h" |
---|
28 | #include <stdio.h> |
---|
29 | #include "tree.h" |
---|
30 | #include "rtl.h" |
---|
31 | #include "flags.h" |
---|
32 | |
---|
33 | #ifdef XCOFF_DEBUGGING_INFO |
---|
34 | |
---|
35 | /* This defines the C_* storage classes. */ |
---|
36 | #include <dbxstclass.h> |
---|
37 | |
---|
38 | #include "xcoffout.h" |
---|
39 | |
---|
40 | #if defined (USG) || defined (NO_STAB_H) |
---|
41 | #include "gstab.h" |
---|
42 | #else |
---|
43 | #include <stab.h> |
---|
44 | |
---|
45 | /* This is a GNU extension we need to reference in this file. */ |
---|
46 | #ifndef N_CATCH |
---|
47 | #define N_CATCH 0x54 |
---|
48 | #endif |
---|
49 | #endif |
---|
50 | |
---|
51 | /* Line number of beginning of current function, minus one. |
---|
52 | Negative means not in a function or not using xcoff. */ |
---|
53 | |
---|
54 | static int xcoff_begin_function_line = -1; |
---|
55 | static int xcoff_inlining = 0; |
---|
56 | |
---|
57 | /* Name of the current include file. */ |
---|
58 | |
---|
59 | char *xcoff_current_include_file; |
---|
60 | |
---|
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 |
---|
64 | absolute. */ |
---|
65 | |
---|
66 | static char *xcoff_current_function_file; |
---|
67 | |
---|
68 | /* Names of bss and data sections. These should be unique names for each |
---|
69 | compilation unit. */ |
---|
70 | |
---|
71 | char *xcoff_bss_section_name; |
---|
72 | char *xcoff_private_data_section_name; |
---|
73 | char *xcoff_read_only_section_name; |
---|
74 | |
---|
75 | /* Last source file name mentioned in a NOTE insn. */ |
---|
76 | |
---|
77 | char *xcoff_lastfile; |
---|
78 | |
---|
79 | /* Macro definitions used below. */ |
---|
80 | |
---|
81 | #define ABS_OR_RELATIVE_LINENO(LINENO) \ |
---|
82 | ((xcoff_inlining) ? (LINENO) : (LINENO) - xcoff_begin_function_line) |
---|
83 | |
---|
84 | /* Output source line numbers via ".line" rather than ".stabd". */ |
---|
85 | #define ASM_OUTPUT_SOURCE_LINE(FILE,LINENUM) \ |
---|
86 | do { \ |
---|
87 | if (xcoff_begin_function_line >= 0) \ |
---|
88 | fprintf (FILE, "\t.line\t%d\n", ABS_OR_RELATIVE_LINENO (LINENUM)); \ |
---|
89 | } while (0) |
---|
90 | |
---|
91 | #define ASM_OUTPUT_LFB(FILE,LINENUM) \ |
---|
92 | { \ |
---|
93 | if (xcoff_begin_function_line == -1) \ |
---|
94 | { \ |
---|
95 | xcoff_begin_function_line = (LINENUM) - 1;\ |
---|
96 | fprintf (FILE, "\t.bf\t%d\n", (LINENUM)); \ |
---|
97 | } \ |
---|
98 | xcoff_current_function_file \ |
---|
99 | = (xcoff_current_include_file \ |
---|
100 | ? xcoff_current_include_file : main_input_filename); \ |
---|
101 | } |
---|
102 | |
---|
103 | #define ASM_OUTPUT_LFE(FILE,LINENUM) \ |
---|
104 | do { \ |
---|
105 | fprintf (FILE, "\t.ef\t%d\n", (LINENUM)); \ |
---|
106 | xcoff_begin_function_line = -1; \ |
---|
107 | } while (0) |
---|
108 | |
---|
109 | #define ASM_OUTPUT_LBB(FILE,LINENUM,BLOCKNUM) \ |
---|
110 | fprintf (FILE, "\t.bb\t%d\n", ABS_OR_RELATIVE_LINENO (LINENUM)) |
---|
111 | |
---|
112 | #define ASM_OUTPUT_LBE(FILE,LINENUM,BLOCKNUM) \ |
---|
113 | fprintf (FILE, "\t.eb\t%d\n", ABS_OR_RELATIVE_LINENO (LINENUM)) |
---|
114 | |
---|
115 | static void assign_type_number PROTO((tree, char *, int)); |
---|
116 | static void xcoffout_block PROTO((tree, int, tree)); |
---|
117 | |
---|
118 | /* Support routines for XCOFF debugging info. */ |
---|
119 | |
---|
120 | /* Assign NUMBER as the stabx type number for the type described by NAME. |
---|
121 | Search all decls in the list SYMS to find the type NAME. */ |
---|
122 | |
---|
123 | static void |
---|
124 | assign_type_number (syms, name, number) |
---|
125 | tree syms; |
---|
126 | char *name; |
---|
127 | int number; |
---|
128 | { |
---|
129 | tree decl; |
---|
130 | |
---|
131 | for (decl = syms; decl; decl = TREE_CHAIN (decl)) |
---|
132 | if (DECL_NAME (decl) |
---|
133 | && strcmp (IDENTIFIER_POINTER (DECL_NAME (decl)), name) == 0) |
---|
134 | { |
---|
135 | TREE_ASM_WRITTEN (decl) = 1; |
---|
136 | TYPE_SYMTAB_ADDRESS (TREE_TYPE (decl)) = number; |
---|
137 | } |
---|
138 | } |
---|
139 | |
---|
140 | /* Setup gcc primitive types to use the XCOFF built-in type numbers where |
---|
141 | possible. */ |
---|
142 | |
---|
143 | void |
---|
144 | xcoff_output_standard_types (syms) |
---|
145 | tree syms; |
---|
146 | { |
---|
147 | /* Handle built-in C types here. */ |
---|
148 | |
---|
149 | assign_type_number (syms, "int", -1); |
---|
150 | assign_type_number (syms, "char", -2); |
---|
151 | assign_type_number (syms, "short int", -3); |
---|
152 | assign_type_number (syms, "long int", (TARGET_64BIT ? -31 : -4)); |
---|
153 | assign_type_number (syms, "unsigned char", -5); |
---|
154 | assign_type_number (syms, "signed char", -6); |
---|
155 | assign_type_number (syms, "short unsigned int", -7); |
---|
156 | assign_type_number (syms, "unsigned int", -8); |
---|
157 | /* No such type "unsigned". */ |
---|
158 | assign_type_number (syms, "long unsigned int", (TARGET_64BIT ? -32 : -10)); |
---|
159 | assign_type_number (syms, "void", -11); |
---|
160 | assign_type_number (syms, "float", -12); |
---|
161 | assign_type_number (syms, "double", -13); |
---|
162 | assign_type_number (syms, "long double", -14); |
---|
163 | /* Pascal and Fortran types run from -15 to -29. */ |
---|
164 | assign_type_number (syms, "wchar", -30); |
---|
165 | assign_type_number (syms, "long long int", -31); |
---|
166 | assign_type_number (syms, "long long unsigned int", -32); |
---|
167 | /* Additional Fortran types run from -33 to -37. */ |
---|
168 | |
---|
169 | /* ??? Should also handle built-in C++ and Obj-C types. There perhaps |
---|
170 | aren't any that C doesn't already have. */ |
---|
171 | } |
---|
172 | |
---|
173 | /* Print an error message for unrecognized stab codes. */ |
---|
174 | |
---|
175 | #define UNKNOWN_STAB(STR) \ |
---|
176 | do { \ |
---|
177 | fprintf(stderr, "Error, unknown stab %s: : 0x%x\n", STR, stab); \ |
---|
178 | fflush (stderr); \ |
---|
179 | } while (0) |
---|
180 | |
---|
181 | /* Conversion routine from BSD stabs to AIX storage classes. */ |
---|
182 | |
---|
183 | int |
---|
184 | stab_to_sclass (stab) |
---|
185 | int stab; |
---|
186 | { |
---|
187 | switch (stab) |
---|
188 | { |
---|
189 | case N_GSYM: |
---|
190 | return C_GSYM; |
---|
191 | |
---|
192 | case N_FNAME: |
---|
193 | UNKNOWN_STAB ("N_FNAME"); |
---|
194 | abort(); |
---|
195 | |
---|
196 | case N_FUN: |
---|
197 | return C_FUN; |
---|
198 | |
---|
199 | case N_STSYM: |
---|
200 | case N_LCSYM: |
---|
201 | return C_STSYM; |
---|
202 | |
---|
203 | #ifdef N_MAIN |
---|
204 | case N_MAIN: |
---|
205 | UNKNOWN_STAB ("N_MAIN"); |
---|
206 | abort (); |
---|
207 | #endif |
---|
208 | |
---|
209 | case N_RSYM: |
---|
210 | return C_RSYM; |
---|
211 | |
---|
212 | case N_SSYM: |
---|
213 | UNKNOWN_STAB ("N_SSYM"); |
---|
214 | abort (); |
---|
215 | |
---|
216 | case N_RPSYM: |
---|
217 | return C_RPSYM; |
---|
218 | |
---|
219 | case N_PSYM: |
---|
220 | return C_PSYM; |
---|
221 | case N_LSYM: |
---|
222 | return C_LSYM; |
---|
223 | case N_DECL: |
---|
224 | return C_DECL; |
---|
225 | case N_ENTRY: |
---|
226 | return C_ENTRY; |
---|
227 | |
---|
228 | case N_SO: |
---|
229 | UNKNOWN_STAB ("N_SO"); |
---|
230 | abort (); |
---|
231 | |
---|
232 | case N_SOL: |
---|
233 | UNKNOWN_STAB ("N_SOL"); |
---|
234 | abort (); |
---|
235 | |
---|
236 | case N_SLINE: |
---|
237 | UNKNOWN_STAB ("N_SLINE"); |
---|
238 | abort (); |
---|
239 | |
---|
240 | #ifdef N_DSLINE |
---|
241 | case N_DSLINE: |
---|
242 | UNKNOWN_STAB ("N_DSLINE"); |
---|
243 | abort (); |
---|
244 | #endif |
---|
245 | |
---|
246 | #ifdef N_BSLINE |
---|
247 | case N_BSLINE: |
---|
248 | UNKNOWN_STAB ("N_BSLINE"); |
---|
249 | abort (); |
---|
250 | #endif |
---|
251 | #if 0 |
---|
252 | /* This has the same value as N_BSLINE. */ |
---|
253 | case N_BROWS: |
---|
254 | UNKNOWN_STAB ("N_BROWS"); |
---|
255 | abort (); |
---|
256 | #endif |
---|
257 | |
---|
258 | #ifdef N_BINCL |
---|
259 | case N_BINCL: |
---|
260 | UNKNOWN_STAB ("N_BINCL"); |
---|
261 | abort (); |
---|
262 | #endif |
---|
263 | |
---|
264 | #ifdef N_EINCL |
---|
265 | case N_EINCL: |
---|
266 | UNKNOWN_STAB ("N_EINCL"); |
---|
267 | abort (); |
---|
268 | #endif |
---|
269 | |
---|
270 | #ifdef N_EXCL |
---|
271 | case N_EXCL: |
---|
272 | UNKNOWN_STAB ("N_EXCL"); |
---|
273 | abort (); |
---|
274 | #endif |
---|
275 | |
---|
276 | case N_LBRAC: |
---|
277 | UNKNOWN_STAB ("N_LBRAC"); |
---|
278 | abort (); |
---|
279 | |
---|
280 | case N_RBRAC: |
---|
281 | UNKNOWN_STAB ("N_RBRAC"); |
---|
282 | abort (); |
---|
283 | |
---|
284 | case N_BCOMM: |
---|
285 | return C_BCOMM; |
---|
286 | case N_ECOMM: |
---|
287 | return C_ECOMM; |
---|
288 | case N_ECOML: |
---|
289 | return C_ECOML; |
---|
290 | |
---|
291 | case N_LENG: |
---|
292 | UNKNOWN_STAB ("N_LENG"); |
---|
293 | abort (); |
---|
294 | |
---|
295 | case N_PC: |
---|
296 | UNKNOWN_STAB ("N_PC"); |
---|
297 | abort (); |
---|
298 | |
---|
299 | #ifdef N_M2C |
---|
300 | case N_M2C: |
---|
301 | UNKNOWN_STAB ("N_M2C"); |
---|
302 | abort (); |
---|
303 | #endif |
---|
304 | |
---|
305 | #ifdef N_SCOPE |
---|
306 | case N_SCOPE: |
---|
307 | UNKNOWN_STAB ("N_SCOPE"); |
---|
308 | abort (); |
---|
309 | #endif |
---|
310 | |
---|
311 | case N_CATCH: |
---|
312 | UNKNOWN_STAB ("N_CATCH"); |
---|
313 | abort (); |
---|
314 | |
---|
315 | default: |
---|
316 | UNKNOWN_STAB ("default"); |
---|
317 | abort (); |
---|
318 | } |
---|
319 | } |
---|
320 | |
---|
321 | /* Output debugging info to FILE to switch to sourcefile FILENAME. |
---|
322 | INLINE_P is true if this is from an inlined function. */ |
---|
323 | |
---|
324 | void |
---|
325 | xcoffout_source_file (file, filename, inline_p) |
---|
326 | FILE *file; |
---|
327 | char *filename; |
---|
328 | int inline_p; |
---|
329 | { |
---|
330 | if (filename |
---|
331 | && (xcoff_lastfile == 0 || strcmp (filename, xcoff_lastfile) |
---|
332 | || (inline_p && ! xcoff_inlining) |
---|
333 | || (! inline_p && xcoff_inlining))) |
---|
334 | { |
---|
335 | if (xcoff_current_include_file) |
---|
336 | { |
---|
337 | fprintf (file, "\t.ei\t"); |
---|
338 | output_quoted_string (file, xcoff_current_include_file); |
---|
339 | fprintf (file, "\n"); |
---|
340 | xcoff_current_include_file = NULL; |
---|
341 | } |
---|
342 | xcoff_inlining=inline_p; |
---|
343 | if (strcmp (main_input_filename, filename) || inline_p) |
---|
344 | { |
---|
345 | fprintf (file, "\t.bi\t"); |
---|
346 | output_quoted_string (file, filename); |
---|
347 | fprintf (file, "\n"); |
---|
348 | xcoff_current_include_file = filename; |
---|
349 | } |
---|
350 | |
---|
351 | xcoff_lastfile = filename; |
---|
352 | } |
---|
353 | } |
---|
354 | |
---|
355 | /* Output a line number symbol entry into output stream FILE, |
---|
356 | for source file FILENAME and line number NOTE. */ |
---|
357 | |
---|
358 | void |
---|
359 | xcoffout_source_line (file, filename, note) |
---|
360 | FILE *file; |
---|
361 | char *filename; |
---|
362 | rtx note; |
---|
363 | { |
---|
364 | xcoffout_source_file (file, filename, RTX_INTEGRATED_P (note)); |
---|
365 | |
---|
366 | ASM_OUTPUT_SOURCE_LINE (file, NOTE_LINE_NUMBER (note)); |
---|
367 | } |
---|
368 | |
---|
369 | /* Output the symbols defined in block number DO_BLOCK. |
---|
370 | Set NEXT_BLOCK_NUMBER to 0 before calling. |
---|
371 | |
---|
372 | This function works by walking the tree structure of blocks, |
---|
373 | counting blocks until it finds the desired block. */ |
---|
374 | |
---|
375 | static int do_block = 0; |
---|
376 | |
---|
377 | static int next_block_number; |
---|
378 | |
---|
379 | static void |
---|
380 | xcoffout_block (block, depth, args) |
---|
381 | register tree block; |
---|
382 | int depth; |
---|
383 | tree args; |
---|
384 | { |
---|
385 | while (block) |
---|
386 | { |
---|
387 | /* Ignore blocks never expanded or otherwise marked as real. */ |
---|
388 | if (TREE_USED (block)) |
---|
389 | { |
---|
390 | /* When we reach the specified block, output its symbols. */ |
---|
391 | if (next_block_number == do_block) |
---|
392 | { |
---|
393 | /* Output the syms of the block. */ |
---|
394 | if (debug_info_level != DINFO_LEVEL_TERSE || depth == 0) |
---|
395 | dbxout_syms (BLOCK_VARS (block)); |
---|
396 | if (args) |
---|
397 | dbxout_reg_parms (args); |
---|
398 | |
---|
399 | /* We are now done with the block. Don't go to inner blocks. */ |
---|
400 | return; |
---|
401 | } |
---|
402 | /* If we are past the specified block, stop the scan. */ |
---|
403 | else if (next_block_number >= do_block) |
---|
404 | return; |
---|
405 | |
---|
406 | next_block_number++; |
---|
407 | |
---|
408 | /* Output the subblocks. */ |
---|
409 | xcoffout_block (BLOCK_SUBBLOCKS (block), depth + 1, NULL_TREE); |
---|
410 | } |
---|
411 | block = BLOCK_CHAIN (block); |
---|
412 | } |
---|
413 | } |
---|
414 | |
---|
415 | /* Describe the beginning of an internal block within a function. |
---|
416 | Also output descriptions of variables defined in this block. |
---|
417 | |
---|
418 | N is the number of the block, by order of beginning, counting from 1, |
---|
419 | and not counting the outermost (function top-level) block. |
---|
420 | The blocks match the BLOCKs in DECL_INITIAL (current_function_decl), |
---|
421 | if the count starts at 0 for the outermost one. */ |
---|
422 | |
---|
423 | void |
---|
424 | xcoffout_begin_block (file, line, n) |
---|
425 | FILE *file; |
---|
426 | int line; |
---|
427 | int n; |
---|
428 | { |
---|
429 | tree decl = current_function_decl; |
---|
430 | |
---|
431 | |
---|
432 | /* The IBM AIX compiler does not emit a .bb for the function level scope, |
---|
433 | so we avoid it here also. */ |
---|
434 | if (n != 1) |
---|
435 | ASM_OUTPUT_LBB (file, line, n); |
---|
436 | |
---|
437 | do_block = n; |
---|
438 | next_block_number = 0; |
---|
439 | xcoffout_block (DECL_INITIAL (decl), 0, DECL_ARGUMENTS (decl)); |
---|
440 | } |
---|
441 | |
---|
442 | /* Describe the end line-number of an internal block within a function. */ |
---|
443 | |
---|
444 | void |
---|
445 | xcoffout_end_block (file, line, n) |
---|
446 | FILE *file; |
---|
447 | int line; |
---|
448 | int n; |
---|
449 | { |
---|
450 | if (n != 1) |
---|
451 | ASM_OUTPUT_LBE (file, line, n); |
---|
452 | } |
---|
453 | |
---|
454 | /* Called at beginning of function (before prologue). |
---|
455 | Declare function as needed for debugging. */ |
---|
456 | |
---|
457 | void |
---|
458 | xcoffout_declare_function (file, decl, name) |
---|
459 | FILE *file; |
---|
460 | tree decl; |
---|
461 | char *name; |
---|
462 | { |
---|
463 | char *n = name; |
---|
464 | int i; |
---|
465 | |
---|
466 | if (*n == '*') |
---|
467 | n++; |
---|
468 | else |
---|
469 | for (i = 0; name[i]; ++i) |
---|
470 | { |
---|
471 | if (name[i] == '[') |
---|
472 | { |
---|
473 | n = (char *) alloca (i + 1); |
---|
474 | strncpy (n, name, i); |
---|
475 | n[i] = '\0'; |
---|
476 | break; |
---|
477 | } |
---|
478 | } |
---|
479 | |
---|
480 | /* Any pending .bi or .ei must occur before the .function pseudo op. |
---|
481 | Otherwise debuggers will think that the function is in the previous |
---|
482 | file and/or at the wrong line number. */ |
---|
483 | xcoffout_source_file (file, DECL_SOURCE_FILE (decl), 0); |
---|
484 | dbxout_symbol (decl, 0); |
---|
485 | fprintf (file, "\t.function .%s,.%s,16,044,FE..%s-.%s\n", n, n, n, n); |
---|
486 | } |
---|
487 | |
---|
488 | /* Called at beginning of function body (after prologue). |
---|
489 | Record the function's starting line number, so we can output |
---|
490 | relative line numbers for the other lines. |
---|
491 | Record the file name that this function is contained in. */ |
---|
492 | |
---|
493 | void |
---|
494 | xcoffout_begin_function (file, last_linenum) |
---|
495 | FILE *file; |
---|
496 | int last_linenum; |
---|
497 | { |
---|
498 | ASM_OUTPUT_LFB (file, last_linenum); |
---|
499 | dbxout_parms (DECL_ARGUMENTS (current_function_decl)); |
---|
500 | ASM_OUTPUT_SOURCE_LINE (file, last_linenum); |
---|
501 | } |
---|
502 | |
---|
503 | /* Called at end of function (before epilogue). |
---|
504 | Describe end of outermost block. */ |
---|
505 | |
---|
506 | void |
---|
507 | xcoffout_end_function (file, last_linenum) |
---|
508 | FILE *file; |
---|
509 | int last_linenum; |
---|
510 | { |
---|
511 | ASM_OUTPUT_LFE (file, last_linenum); |
---|
512 | } |
---|
513 | |
---|
514 | /* Output xcoff info for the absolute end of a function. |
---|
515 | Called after the epilogue is output. */ |
---|
516 | |
---|
517 | void |
---|
518 | xcoffout_end_epilogue (file) |
---|
519 | FILE *file; |
---|
520 | { |
---|
521 | /* We need to pass the correct function size to .function, otherwise, |
---|
522 | the xas assembler can't figure out the correct size for the function |
---|
523 | aux entry. So, we emit a label after the last instruction which can |
---|
524 | be used by the .function pseudo op to calculate the function size. */ |
---|
525 | |
---|
526 | char *fname = XSTR (XEXP (DECL_RTL (current_function_decl), 0), 0); |
---|
527 | if (*fname == '*') |
---|
528 | ++fname; |
---|
529 | fprintf (file, "FE.."); |
---|
530 | ASM_OUTPUT_LABEL (file, fname); |
---|
531 | } |
---|
532 | #endif /* XCOFF_DEBUGGING_INFO */ |
---|