1 /* Generic stabs parsing for gas.
2 Copyright 1989, 1990, 1991, 1993, 1995, 1996, 1997, 1998, 2000, 2001
3 Free Software Foundation, Inc.
5 This file is part of GAS, the GNU Assembler.
7 GAS is free software; you can redistribute it and/or modify
8 it under the terms of the GNU General Public License as
9 published by the Free Software Foundation; either version 2,
10 or (at your option) any later version.
12 GAS is distributed in the hope that it will be useful, but
13 WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See
15 the GNU General Public License for more details.
17 You should have received a copy of the GNU General Public License
18 along with GAS; see the file COPYING. If not, write to the Free
19 Software Foundation, 59 Temple Place - Suite 330, Boston, MA
27 /* We need this, despite the apparent object format dependency, since
28 it defines stab types, which all object formats can use now. */
30 #include "aout/stab_gnu.h"
32 /* Holds whether the assembler is generating stabs line debugging
33 information or not. Potentially used by md_cleanup function. */
35 int outputting_stabs_line_debug
= 0;
37 static void s_stab_generic
PARAMS ((int, char *, char *));
38 static void generate_asm_file
PARAMS ((int, char *));
40 /* Allow backends to override the names used for the stab sections. */
41 #ifndef STAB_SECTION_NAME
42 #define STAB_SECTION_NAME ".stab"
45 #ifndef STAB_STRING_SECTION_NAME
46 #define STAB_STRING_SECTION_NAME ".stabstr"
49 /* Non-zero if we're in the middle of a .func function, in which case
50 stabs_generate_asm_lineno emits function relative line number stabs.
51 Otherwise it emits line number stabs with absolute addresses. Note that
52 both cases only apply to assembler code assembled with -gstabs. */
53 static int in_dot_func_p
;
55 /* Label at start of current function if in_dot_func_p != 0. */
56 static const char *current_function_label
;
59 * Handle .stabX directives, which used to be open-coded.
60 * So much creeping featurism overloaded the semantics that we decided
61 * to put all .stabX thinking in one place. Here.
63 * We try to make any .stabX directive legal. Other people's AS will often
64 * do assembly-time consistency checks: eg assigning meaning to n_type bits
65 * and "protecting" you from setting them to certain values. (They also zero
66 * certain bits before emitting symbols. Tut tut.)
68 * If an expression is not absolute we either gripe or use the relocation
69 * information. Other people's assemblers silently forget information they
70 * don't need and invent information they need that you didn't supply.
74 * Build a string dictionary entry for a .stabX symbol.
75 * The symbol is added to the .<secname>str section.
78 #ifndef SEPARATE_STAB_SECTIONS
79 #define SEPARATE_STAB_SECTIONS 0
83 get_stab_string_offset (string
, stabstr_secname
)
85 const char *stabstr_secname
;
94 if (! SEPARATE_STAB_SECTIONS
)
97 length
= strlen (string
);
100 save_subseg
= now_subseg
;
102 /* Create the stab string section. */
103 seg
= subseg_new (stabstr_secname
, 0);
105 retval
= seg_info (seg
)->stabu
.stab_string_size
;
108 /* Make sure the first string is empty. */
111 retval
= seg_info (seg
)->stabu
.stab_string_size
= 1;
113 bfd_set_section_flags (stdoutput
, seg
, SEC_READONLY
| SEC_DEBUGGING
);
114 if (seg
->name
== stabstr_secname
)
115 seg
->name
= xstrdup (stabstr_secname
);
120 { /* Ordinary case. */
121 p
= frag_more (length
+ 1);
124 seg_info (seg
)->stabu
.stab_string_size
+= length
+ 1;
129 subseg_set (save_seg
, save_subseg
);
135 #ifndef OBJ_PROCESS_STAB
136 #define OBJ_PROCESS_STAB(SEG,W,S,T,O,D) aout_process_stab(W,S,T,O,D)
139 /* Here instead of obj-aout.c because other formats use it too. */
141 aout_process_stab (what
, string
, type
, other
, desc
)
144 int type
, other
, desc
;
146 /* Put the stab information in the symbol table. */
149 /* Create the symbol now, but only insert it into the symbol chain
150 after any symbols mentioned in the value expression get into the
151 symbol chain. This is to avoid "continuation symbols" (where one
152 ends in "\" and the debug info is continued in the next .stabs
153 directive) from being separated by other random symbols. */
154 symbol
= symbol_create (string
, undefined_section
, 0,
155 (struct frag
*) NULL
);
156 if (what
== 's' || what
== 'n')
158 /* Pick up the value from the input line. */
159 symbol_set_frag (symbol
, &zero_address_frag
);
164 /* .stabd sets the name to NULL. Why? */
165 S_SET_NAME (symbol
, NULL
);
166 symbol_set_frag (symbol
, frag_now
);
167 S_SET_VALUE (symbol
, (valueT
) frag_now_fix ());
170 symbol_append (symbol
, symbol_lastP
, &symbol_rootP
, &symbol_lastP
);
172 S_SET_TYPE (symbol
, type
);
173 S_SET_OTHER (symbol
, other
);
174 S_SET_DESC (symbol
, desc
);
178 /* This can handle different kinds of stabs (s,n,d) and different
179 kinds of stab sections. */
182 s_stab_generic (what
, stab_secname
, stabstr_secname
)
185 char *stabstr_secname
;
188 char *string
, *saved_string_obstack_end
;
193 /* The general format is:
194 .stabs "STRING",TYPE,OTHER,DESC,VALUE
195 .stabn TYPE,OTHER,DESC,VALUE
196 .stabd TYPE,OTHER,DESC
197 At this point input_line_pointer points after the pseudo-op and
198 any trailing whitespace. The argument what is one of 's', 'n' or
199 'd' indicating which type of .stab this is. */
204 saved_string_obstack_end
= 0;
210 string
= demand_copy_C_string (&length
);
211 /* FIXME: We should probably find some other temporary storage
212 for string, rather than leaking memory if someone else
213 happens to use the notes obstack. */
214 saved_string_obstack_end
= notes
.next_free
;
216 if (*input_line_pointer
== ',')
217 input_line_pointer
++;
220 as_warn (_(".stabs: Missing comma"));
221 ignore_rest_of_line ();
226 if (get_absolute_expression_and_terminator (&longint
) != ',')
228 as_warn (_(".stab%c: Missing comma"), what
);
229 ignore_rest_of_line ();
234 if (get_absolute_expression_and_terminator (&longint
) != ',')
236 as_warn (_(".stab%c: Missing comma"), what
);
237 ignore_rest_of_line ();
242 desc
= get_absolute_expression ();
243 if (what
== 's' || what
== 'n')
245 if (*input_line_pointer
!= ',')
247 as_warn (_(".stab%c: Missing comma"), what
);
248 ignore_rest_of_line ();
251 input_line_pointer
++;
257 /* Solaris on PowerPC has decided that .stabd can take 4 arguments, so if we were
258 given 4 arguments, make it a .stabn */
259 else if (what
== 'd')
261 char *save_location
= input_line_pointer
;
264 if (*input_line_pointer
== ',')
266 input_line_pointer
++;
270 input_line_pointer
= save_location
;
281 listing_source_line ((unsigned int) desc
);
285 listing_source_file (string
);
289 #endif /* ! NO_LISTING */
291 /* We have now gathered the type, other, and desc information. For
292 .stabs or .stabn, input_line_pointer is now pointing at the
295 if (SEPARATE_STAB_SECTIONS
)
296 /* Output the stab information in a separate section. This is used
297 at least for COFF and ELF. */
299 segT saved_seg
= now_seg
;
300 subsegT saved_subseg
= now_subseg
;
301 fragS
*saved_frag
= frag_now
;
307 static segT cached_sec
;
308 static char *cached_secname
;
310 dot
= frag_now_fix ();
312 #ifdef md_flush_pending_output
313 md_flush_pending_output ();
316 if (cached_secname
&& !strcmp (cached_secname
, stab_secname
))
323 seg
= subseg_new (stab_secname
, 0);
325 free (cached_secname
);
326 cached_secname
= xstrdup (stab_secname
);
330 if (! seg_info (seg
)->hadone
)
333 bfd_set_section_flags (stdoutput
, seg
,
334 SEC_READONLY
| SEC_RELOC
| SEC_DEBUGGING
);
336 #ifdef INIT_STAB_SECTION
337 INIT_STAB_SECTION (seg
);
339 seg_info (seg
)->hadone
= 1;
342 stroff
= get_stab_string_offset (string
, stabstr_secname
);
345 /* Release the string, if nobody else has used the obstack. */
346 if (saved_string_obstack_end
== notes
.next_free
)
347 obstack_free (¬es
, string
);
350 /* At least for now, stabs in a special stab section are always
351 output as 12 byte blocks of information. */
353 md_number_to_chars (p
, (valueT
) stroff
, 4);
354 md_number_to_chars (p
+ 4, (valueT
) type
, 1);
355 md_number_to_chars (p
+ 5, (valueT
) other
, 1);
356 md_number_to_chars (p
+ 6, (valueT
) desc
, 2);
358 if (what
== 's' || what
== 'n')
360 /* Pick up the value from the input line. */
362 input_line_pointer
--;
370 /* Arrange for a value representing the current location. */
371 fake
= FAKE_LABEL_NAME
;
372 symbol
= symbol_new (fake
, saved_seg
, dot
, saved_frag
);
375 exp
.X_add_symbol
= symbol
;
376 exp
.X_add_number
= 0;
381 #ifdef OBJ_PROCESS_STAB
382 OBJ_PROCESS_STAB (seg
, what
, string
, type
, other
, desc
);
385 subseg_set (saved_seg
, saved_subseg
);
389 #ifdef OBJ_PROCESS_STAB
390 OBJ_PROCESS_STAB (0, what
, string
, type
, other
, desc
);
396 demand_empty_rest_of_line ();
399 /* Regular stab directive. */
405 s_stab_generic (what
, STAB_SECTION_NAME
, STAB_STRING_SECTION_NAME
);
408 /* "Extended stabs", used in Solaris only now. */
415 char *stab_secname
, *stabstr_secname
;
416 static char *saved_secname
, *saved_strsecname
;
418 /* @@ MEMORY LEAK: This allocates a copy of the string, but in most
419 cases it will be the same string, so we could release the storage
420 back to the obstack it came from. */
421 stab_secname
= demand_copy_C_string (&length
);
423 if (*input_line_pointer
== ',')
424 input_line_pointer
++;
427 as_bad (_("comma missing in .xstabs"));
428 ignore_rest_of_line ();
432 /* To get the name of the stab string section, simply add "str" to
433 the stab section name. */
434 if (saved_secname
== 0 || strcmp (saved_secname
, stab_secname
))
436 stabstr_secname
= (char *) xmalloc (strlen (stab_secname
) + 4);
437 strcpy (stabstr_secname
, stab_secname
);
438 strcat (stabstr_secname
, "str");
441 free (saved_secname
);
442 free (saved_strsecname
);
444 saved_secname
= stab_secname
;
445 saved_strsecname
= stabstr_secname
;
447 s_stab_generic (what
, saved_secname
, saved_strsecname
);
452 /* Frob invented at RMS' request. Set the n_desc of a symbol. */
456 int ignore ATTRIBUTE_UNUSED
;
464 name
= input_line_pointer
;
465 c
= get_symbol_end ();
466 p
= input_line_pointer
;
469 if (*input_line_pointer
!= ',')
472 as_bad (_("Expected comma after name \"%s\""), name
);
474 ignore_rest_of_line ();
478 input_line_pointer
++;
479 temp
= get_absolute_expression ();
481 symbolP
= symbol_find_or_make (name
);
483 S_SET_DESC (symbolP
, temp
);
485 demand_empty_rest_of_line ();
488 #endif /* defined (S_SET_DESC) */
490 /* Generate stabs debugging information to denote the main source file. */
493 stabs_generate_asm_file ()
498 as_where (&file
, &lineno
);
499 generate_asm_file (N_SO
, file
);
502 /* Generate stabs debugging information to denote the source file.
503 TYPE is one of N_SO, N_SOL. */
506 generate_asm_file (type
, file
)
510 static char *last_file
;
511 static int label_count
;
516 char *endp
= file
+ strlen (file
);
519 if (last_file
!= NULL
520 && strcmp (last_file
, file
) == 0)
523 /* Rather than try to do this in some efficient fashion, we just
524 generate a string and then parse it again. That lets us use the
525 existing stabs hook, which expect to see a string, rather than
526 inventing new ones. */
527 hold
= input_line_pointer
;
529 sprintf (sym
, "%sF%d", FAKE_LABEL_NAME
, label_count
);
532 /* Allocate enough space for the file name (possibly extended with
533 doubled up backslashes), the symbol name, and the other characters
534 that make up a stabs file directive. */
535 bufp
= buf
= xmalloc (2 * strlen (file
) + strlen (sym
) + 12);
541 char *bslash
= strchr (tmp
, '\\');
542 int len
= (bslash
? (bslash
- tmp
+ 1) : strlen (tmp
));
544 /* Double all backslashes, since demand_copy_C_string (used by
545 s_stab to extract the part in quotes) will try to replace them as
546 escape sequences. backslash may appear in a filespec. */
547 strncpy (bufp
, tmp
, len
);
556 sprintf (bufp
, "\",%d,0,0,%s\n", type
, sym
);
558 input_line_pointer
= buf
;
562 if (last_file
!= NULL
)
564 last_file
= xstrdup (file
);
568 input_line_pointer
= hold
;
571 /* Generate stabs debugging information for the current line. This is
572 used to produce debugging information for an assembler file. */
575 stabs_generate_asm_lineno ()
577 static int label_count
;
584 /* Let the world know that we are in the middle of generating a
585 piece of stabs line debugging information. */
586 outputting_stabs_line_debug
= 1;
588 /* Rather than try to do this in some efficient fashion, we just
589 generate a string and then parse it again. That lets us use the
590 existing stabs hook, which expect to see a string, rather than
591 inventing new ones. */
593 hold
= input_line_pointer
;
595 as_where (&file
, &lineno
);
597 generate_asm_file (N_SOL
, file
);
599 sprintf (sym
, "%sL%d", FAKE_LABEL_NAME
, label_count
);
604 buf
= (char *) alloca (100 + strlen (current_function_label
));
605 sprintf (buf
, "%d,0,%d,%s-%s\n", N_SLINE
, lineno
,
606 sym
, current_function_label
);
610 buf
= (char *) alloca (100);
611 sprintf (buf
, "%d,0,%d,%s\n", N_SLINE
, lineno
, sym
);
613 input_line_pointer
= buf
;
617 input_line_pointer
= hold
;
618 outputting_stabs_line_debug
= 0;
621 /* Emit a function stab.
622 All assembler functions are assumed to have return type `void'. */
625 stabs_generate_asm_func (funcname
, startlabname
)
626 const char *funcname
;
627 const char *startlabname
;
629 static int void_emitted_p
;
630 char *hold
= input_line_pointer
;
635 if (! void_emitted_p
)
637 input_line_pointer
= "\"void:t1=1\",128,0,0,0";
642 as_where (&file
, &lineno
);
643 asprintf (&buf
, "\"%s:F1\",%d,0,%d,%s",
644 funcname
, N_FUN
, lineno
+ 1, startlabname
);
645 input_line_pointer
= buf
;
649 input_line_pointer
= hold
;
650 current_function_label
= xstrdup (startlabname
);
654 /* Emit a stab to record the end of a function. */
657 stabs_generate_asm_endfunc (funcname
, startlabname
)
658 const char *funcname ATTRIBUTE_UNUSED
;
659 const char *startlabname
;
661 static int label_count
;
662 char *hold
= input_line_pointer
;
666 sprintf (sym
, "%sendfunc%d", FAKE_LABEL_NAME
, label_count
);
670 asprintf (&buf
, "\"\",%d,0,0,%s-%s", N_FUN
, sym
, startlabname
);
671 input_line_pointer
= buf
;
675 input_line_pointer
= hold
;
677 current_function_label
= NULL
;