X-Git-Url: http://drtracing.org/?a=blobdiff_plain;f=gas%2Fstabs.c;h=6ddbdada15c3d4c7bf2fccbf8ca5e06eba10e662;hb=7243d0118af6f72e3e72db1eb66941fec4530963;hp=bdeae10d10d7d94ab7c5271b4e5b15be71ea5661;hpb=d1a6c2428d38a8a36727df7f693d784854172701;p=deliverable%2Fbinutils-gdb.git diff --git a/gas/stabs.c b/gas/stabs.c index bdeae10d10..6ddbdada15 100644 --- a/gas/stabs.c +++ b/gas/stabs.c @@ -1,25 +1,25 @@ /* Generic stabs parsing for gas. - Copyright 1989, 1990, 1991, 1993, 1995, 1996, 1997, 1998, 2000, 2001 - Free Software Foundation, Inc. + Copyright (C) 1989-2018 Free Software Foundation, Inc. -This file is part of GAS, the GNU Assembler. + This file is part of GAS, the GNU Assembler. -GAS is free software; you can redistribute it and/or modify -it under the terms of the GNU General Public License as -published by the Free Software Foundation; either version 2, -or (at your option) any later version. + GAS is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as + published by the Free Software Foundation; either version 3, + or (at your option) any later version. -GAS is distributed in the hope that it will be useful, but -WITHOUT ANY WARRANTY; without even the implied warranty of -MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See -the GNU General Public License for more details. + GAS is distributed in the hope that it will be useful, but + WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See + the GNU General Public License for more details. -You should have received a copy of the GNU General Public License -along with GAS; see the file COPYING. If not, write to the Free -Software Foundation, 59 Temple Place - Suite 330, Boston, MA -02111-1307, USA. */ + You should have received a copy of the GNU General Public License + along with GAS; see the file COPYING. If not, write to the Free + Software Foundation, 51 Franklin Street - Fifth Floor, Boston, MA + 02110-1301, USA. */ #include "as.h" +#include "filenames.h" #include "obstack.h" #include "subsegs.h" #include "ecoff.h" @@ -34,8 +34,8 @@ Software Foundation, 59 Temple Place - Suite 330, Boston, MA int outputting_stabs_line_debug = 0; -static void s_stab_generic PARAMS ((int, char *, char *)); -static void generate_asm_file PARAMS ((int, char *)); +static void s_stab_generic (int, const char *, const char *); +static void generate_asm_file (int, const char *); /* Allow backends to override the names used for the stab sections. */ #ifndef STAB_SECTION_NAME @@ -46,13 +46,13 @@ static void generate_asm_file PARAMS ((int, char *)); #define STAB_STRING_SECTION_NAME ".stabstr" #endif -/* Non-zero if we're in the middle of a .func function, in which case +/* True if we're in the middle of a .func function, in which case stabs_generate_asm_lineno emits function relative line number stabs. Otherwise it emits line number stabs with absolute addresses. Note that both cases only apply to assembler code assembled with -gstabs. */ -static int in_dot_func_p; +static bfd_boolean in_dot_func_p = FALSE; -/* Label at start of current function if in_dot_func_p != 0. */ +/* Label at start of current function if in_dot_func_p != FALSE. */ static const char *current_function_label; /* @@ -80,9 +80,7 @@ static const char *current_function_label; #endif unsigned int -get_stab_string_offset (string, stabstr_secname) - const char *string; - const char *stabstr_secname; +get_stab_string_offset (const char *string, const char *stabstr_secname) { unsigned int length; unsigned int retval; @@ -109,11 +107,9 @@ get_stab_string_offset (string, stabstr_secname) p = frag_more (1); *p = 0; retval = seg_info (seg)->stabu.stab_string_size = 1; -#ifdef BFD_ASSEMBLER bfd_set_section_flags (stdoutput, seg, SEC_READONLY | SEC_DEBUGGING); if (seg->name == stabstr_secname) seg->name = xstrdup (stabstr_secname); -#endif } if (length > 0) @@ -138,10 +134,7 @@ get_stab_string_offset (string, stabstr_secname) /* Here instead of obj-aout.c because other formats use it too. */ void -aout_process_stab (what, string, type, other, desc) - int what; - const char *string; - int type, other, desc; +aout_process_stab (int what, const char *string, int type, int other, int desc) { /* Put the stab information in the symbol table. */ symbolS *symbol; @@ -152,11 +145,10 @@ aout_process_stab (what, string, type, other, desc) ends in "\" and the debug info is continued in the next .stabs directive) from being separated by other random symbols. */ symbol = symbol_create (string, undefined_section, 0, - (struct frag *) NULL); + &zero_address_frag); if (what == 's' || what == 'n') { /* Pick up the value from the input line. */ - symbol_set_frag (symbol, &zero_address_frag); pseudo_set (symbol); } else @@ -169,6 +161,8 @@ aout_process_stab (what, string, type, other, desc) symbol_append (symbol, symbol_lastP, &symbol_rootP, &symbol_lastP); + symbol_get_bfdsym (symbol)->flags |= BSF_DEBUGGING; + S_SET_TYPE (symbol, type); S_SET_OTHER (symbol, other); S_SET_DESC (symbol, desc); @@ -179,13 +173,13 @@ aout_process_stab (what, string, type, other, desc) kinds of stab sections. */ static void -s_stab_generic (what, stab_secname, stabstr_secname) - int what; - char *stab_secname; - char *stabstr_secname; +s_stab_generic (int what, + const char * stab_secname, + const char * stabstr_secname) { long longint; - char *string, *saved_string_obstack_end; + const char *string; + char *saved_string_obstack_end; int type; int other; int desc; @@ -208,6 +202,12 @@ s_stab_generic (what, stab_secname, stabstr_secname) int length; string = demand_copy_C_string (&length); + if (string == NULL) + { + as_warn (_(".stab%c: missing string"), what); + ignore_rest_of_line (); + return; + } /* FIXME: We should probably find some other temporary storage for string, rather than leaking memory if someone else happens to use the notes obstack. */ @@ -240,6 +240,14 @@ s_stab_generic (what, stab_secname, stabstr_secname) other = longint; desc = get_absolute_expression (); + + if ((desc > 0xffff) || (desc < -0x8000)) + /* This could happen for example with a source file with a huge + number of lines. The only cure is to use a different debug + format, probably DWARF. */ + as_warn (_(".stab%c: description field '%x' too big, try a different debug format"), + what, desc); + if (what == 's' || what == 'n') { if (*input_line_pointer != ',') @@ -329,10 +337,8 @@ s_stab_generic (what, stab_secname, stabstr_secname) if (! seg_info (seg)->hadone) { -#ifdef BFD_ASSEMBLER bfd_set_section_flags (stdoutput, seg, SEC_READONLY | SEC_RELOC | SEC_DEBUGGING); -#endif #ifdef INIT_STAB_SECTION INIT_STAB_SECTION (seg); #endif @@ -363,13 +369,11 @@ s_stab_generic (what, stab_secname, stabstr_secname) } else { - const char *fake; symbolS *symbol; expressionS exp; /* Arrange for a value representing the current location. */ - fake = FAKE_LABEL_NAME; - symbol = symbol_new (fake, saved_seg, dot, saved_frag); + symbol = symbol_temp_new (saved_seg, dot, saved_frag); exp.X_op = O_symbol; exp.X_add_symbol = symbol; @@ -399,8 +403,7 @@ s_stab_generic (what, stab_secname, stabstr_secname) /* Regular stab directive. */ void -s_stab (what) - int what; +s_stab (int what) { s_stab_generic (what, STAB_SECTION_NAME, STAB_STRING_SECTION_NAME); } @@ -408,8 +411,7 @@ s_stab (what) /* "Extended stabs", used in Solaris only now. */ void -s_xstab (what) - int what; +s_xstab (int what) { int length; char *stab_secname, *stabstr_secname; @@ -433,9 +435,7 @@ s_xstab (what) the stab section name. */ if (saved_secname == 0 || strcmp (saved_secname, stab_secname)) { - stabstr_secname = (char *) xmalloc (strlen (stab_secname) + 4); - strcpy (stabstr_secname, stab_secname); - strcat (stabstr_secname, "str"); + stabstr_secname = concat (stab_secname, "str", (char *) NULL); if (saved_secname) { free (saved_secname); @@ -452,8 +452,7 @@ s_xstab (what) /* Frob invented at RMS' request. Set the n_desc of a symbol. */ void -s_desc (ignore) - int ignore ATTRIBUTE_UNUSED; +s_desc (int ignore ATTRIBUTE_UNUSED) { char *name; char c; @@ -461,11 +460,10 @@ s_desc (ignore) symbolS *symbolP; int temp; - name = input_line_pointer; - c = get_symbol_end (); + c = get_symbol_name (&name); p = input_line_pointer; *p = c; - SKIP_WHITESPACE (); + SKIP_WHITESPACE_AFTER_NAME (); if (*input_line_pointer != ',') { *p = 0; @@ -490,12 +488,23 @@ s_desc (ignore) /* Generate stabs debugging information to denote the main source file. */ void -stabs_generate_asm_file () +stabs_generate_asm_file (void) { - char *file; + const char *file; unsigned int lineno; - as_where (&file, &lineno); + file = as_where (&lineno); + if (use_gnu_debug_info_extensions) + { + const char *dir; + char *dir2; + + dir = remap_debug_filename (getpwd ()); + dir2 = concat (dir, "/", NULL); + generate_asm_file (N_SO, dir2); + free (dir2); + xfree ((char *) dir); + } generate_asm_file (N_SO, file); } @@ -503,48 +512,43 @@ stabs_generate_asm_file () TYPE is one of N_SO, N_SOL. */ static void -generate_asm_file (type, file) - int type; - char *file; +generate_asm_file (int type, const char *file) { static char *last_file; static int label_count; - char *hold; char sym[30]; char *buf; - char *tmp = file; - char *endp = file + strlen (file); - char *bufp = buf; + const char *tmp = file; + const char *file_endp = file + strlen (file); + char *bufp; if (last_file != NULL - && strcmp (last_file, file) == 0) + && filename_cmp (last_file, file) == 0) return; /* Rather than try to do this in some efficient fashion, we just generate a string and then parse it again. That lets us use the existing stabs hook, which expect to see a string, rather than inventing new ones. */ - hold = input_line_pointer; - sprintf (sym, "%sF%d", FAKE_LABEL_NAME, label_count); ++label_count; /* Allocate enough space for the file name (possibly extended with doubled up backslashes), the symbol name, and the other characters that make up a stabs file directive. */ - bufp = buf = xmalloc (2 * strlen (file) + strlen (sym) + 12); + bufp = buf = XNEWVEC (char, 2 * strlen (file) + strlen (sym) + 12); *bufp++ = '"'; - while (tmp < endp) + while (tmp < file_endp) { - char *bslash = strchr (tmp, '\\'); - size_t len = (bslash) ? (size_t) (bslash - tmp + 1) : strlen (tmp); + const char *bslash = strchr (tmp, '\\'); + size_t len = bslash != NULL ? bslash - tmp + 1 : file_endp - tmp; /* Double all backslashes, since demand_copy_C_string (used by s_stab to extract the part in quotes) will try to replace them as escape sequences. backslash may appear in a filespec. */ - strncpy (bufp, tmp, len); + memcpy (bufp, tmp, len); tmp += len; bufp += len; @@ -555,8 +559,10 @@ generate_asm_file (type, file) sprintf (bufp, "\",%d,0,0,%s\n", type, sym); - input_line_pointer = buf; + temp_ilp (buf); s_stab ('s'); + restore_ilp (); + colon (sym); if (last_file != NULL) @@ -564,19 +570,16 @@ generate_asm_file (type, file) last_file = xstrdup (file); free (buf); - - input_line_pointer = hold; } /* Generate stabs debugging information for the current line. This is used to produce debugging information for an assembler file. */ void -stabs_generate_asm_lineno () +stabs_generate_asm_lineno (void) { static int label_count; - char *hold; - char *file; + const char *file; unsigned int lineno; char *buf; char sym[30]; @@ -589,19 +592,17 @@ stabs_generate_asm_lineno () existing stabs hook, which expect to see a string, rather than inventing new ones. */ - hold = input_line_pointer; - - as_where (&file, &lineno); + file = as_where (&lineno); /* Don't emit sequences of stabs for the same line. */ if (prev_file == NULL) { - /* First time thru. */ + /* First time through. */ prev_file = xstrdup (file); prev_lineno = lineno; } else if (lineno == prev_lineno - && strcmp (file, prev_file) == 0) + && filename_cmp (file, prev_file) == 0) { /* Same file/line as last time. */ return; @@ -610,7 +611,7 @@ stabs_generate_asm_lineno () { /* Remember file/line for next time. */ prev_lineno = lineno; - if (strcmp (file, prev_file) != 0) + if (filename_cmp (file, prev_file) != 0) { free (prev_file); prev_file = xstrdup (file); @@ -628,65 +629,65 @@ stabs_generate_asm_lineno () if (in_dot_func_p) { - buf = (char *) alloca (100 + strlen (current_function_label)); + buf = XNEWVEC (char, 100 + strlen (current_function_label)); sprintf (buf, "%d,0,%d,%s-%s\n", N_SLINE, lineno, sym, current_function_label); } else { - buf = (char *) alloca (100); + buf = XNEWVEC (char, 100); sprintf (buf, "%d,0,%d,%s\n", N_SLINE, lineno, sym); } - input_line_pointer = buf; + + temp_ilp (buf); s_stab ('n'); + restore_ilp (); + colon (sym); - input_line_pointer = hold; outputting_stabs_line_debug = 0; + free (buf); } /* Emit a function stab. All assembler functions are assumed to have return type `void'. */ void -stabs_generate_asm_func (funcname, startlabname) - const char *funcname; - const char *startlabname; +stabs_generate_asm_func (const char *funcname, const char *startlabname) { - static int void_emitted_p; - char *hold = input_line_pointer; + static bfd_boolean void_emitted_p = FALSE; char *buf; - char *file; unsigned int lineno; if (! void_emitted_p) { - input_line_pointer = "\"void:t1=1\",128,0,0,0"; + temp_ilp ((char *) "\"void:t1=1\",128,0,0,0"); s_stab ('s'); - void_emitted_p = 1; + restore_ilp (); + void_emitted_p = TRUE; } - as_where (&file, &lineno); - asprintf (&buf, "\"%s:F1\",%d,0,%d,%s", - funcname, N_FUN, lineno + 1, startlabname); - input_line_pointer = buf; + as_where (&lineno); + if (asprintf (&buf, "\"%s:F1\",%d,0,%d,%s", + funcname, N_FUN, lineno + 1, startlabname) == -1) + as_fatal ("%s", xstrerror (errno)); + + temp_ilp (buf); s_stab ('s'); + restore_ilp (); free (buf); - input_line_pointer = hold; current_function_label = xstrdup (startlabname); - in_dot_func_p = 1; + in_dot_func_p = TRUE; } /* Emit a stab to record the end of a function. */ void -stabs_generate_asm_endfunc (funcname, startlabname) - const char *funcname ATTRIBUTE_UNUSED; - const char *startlabname; +stabs_generate_asm_endfunc (const char *funcname ATTRIBUTE_UNUSED, + const char *startlabname) { static int label_count; - char *hold = input_line_pointer; char *buf; char sym[30]; @@ -694,12 +695,14 @@ stabs_generate_asm_endfunc (funcname, startlabname) ++label_count; colon (sym); - asprintf (&buf, "\"\",%d,0,0,%s-%s", N_FUN, sym, startlabname); - input_line_pointer = buf; + if (asprintf (&buf, "\"\",%d,0,0,%s-%s", N_FUN, sym, startlabname) == -1) + as_fatal ("%s", xstrerror (errno)); + + temp_ilp (buf); s_stab ('s'); + restore_ilp (); free (buf); - input_line_pointer = hold; - in_dot_func_p = 0; + in_dot_func_p = FALSE; current_function_label = NULL; }