Add prototypes for all static functions.
(adspath): Delete; never used and has numerous parse errors. From-SVN: r12042
This commit is contained in:
parent
b423779d2d
commit
29de0a5c2f
137
gcc/dbxout.c
137
gcc/dbxout.c
|
@ -154,6 +154,8 @@ static int have_used_extensions = 0;
|
||||||
|
|
||||||
static int source_label_number = 1;
|
static int source_label_number = 1;
|
||||||
|
|
||||||
|
static int scope_labelno = 0;
|
||||||
|
|
||||||
char *getpwd ();
|
char *getpwd ();
|
||||||
|
|
||||||
/* Typical USG systems don't have stab.h, and they also have
|
/* Typical USG systems don't have stab.h, and they also have
|
||||||
|
@ -322,123 +324,26 @@ static int current_sym_nchars;
|
||||||
void dbxout_types ();
|
void dbxout_types ();
|
||||||
void dbxout_args ();
|
void dbxout_args ();
|
||||||
void dbxout_symbol ();
|
void dbxout_symbol ();
|
||||||
static void dbxout_type_name ();
|
|
||||||
static void dbxout_type ();
|
static void dbxout_function_end PROTO((void));
|
||||||
static void dbxout_typedefs ();
|
static void dbxout_typedefs PROTO((tree));
|
||||||
static void dbxout_symbol_name ();
|
static void dbxout_type_index PROTO((tree));
|
||||||
static void dbxout_symbol_location ();
|
static void dbxout_continue PROTO((void));
|
||||||
static void dbxout_prepare_symbol ();
|
static void dbxout_type_fields PROTO((tree));
|
||||||
static void dbxout_finish_symbol ();
|
static void dbxout_type_method_1 PROTO((tree, char *));
|
||||||
static void dbxout_type_index ();
|
static void dbxout_type_methods PROTO((tree));
|
||||||
static void dbxout_continue ();
|
static void dbxout_range_type PROTO((tree));
|
||||||
static void print_int_cst_octal ();
|
static void dbxout_type PROTO((tree, int, int));
|
||||||
static void print_octal ();
|
static void print_int_cst_octal PROTO((tree));
|
||||||
|
static void print_octal PROTO((unsigned HOST_WIDE_INT, int));
|
||||||
|
static void dbxout_type_name PROTO((tree));
|
||||||
|
static void dbxout_symbol_location PROTO((tree, tree, char *, rtx));
|
||||||
|
static void dbxout_symbol_name PROTO((tree, char *, int));
|
||||||
|
static void dbxout_prepare_symbol PROTO((tree));
|
||||||
|
static void dbxout_finish_symbol PROTO((tree));
|
||||||
|
static void dbxout_block PROTO((tree, int, tree));
|
||||||
|
static void dbxout_really_begin_function PROTO((tree));
|
||||||
|
|
||||||
#if 0 /* Not clear we will actually need this. */
|
|
||||||
|
|
||||||
/* Return the absolutized filename for the given relative
|
|
||||||
filename. Note that if that filename is already absolute, it may
|
|
||||||
still be returned in a modified form because this routine also
|
|
||||||
eliminates redundant slashes and single dots and eliminates double
|
|
||||||
dots to get a shortest possible filename from the given input
|
|
||||||
filename. The absolutization of relative filenames is made by
|
|
||||||
assuming that the given filename is to be taken as relative to
|
|
||||||
the first argument (cwd) or to the current directory if cwd is
|
|
||||||
NULL. */
|
|
||||||
|
|
||||||
static char *
|
|
||||||
abspath (rel_filename)
|
|
||||||
char *rel_filename;
|
|
||||||
{
|
|
||||||
/* Setup the current working directory as needed. */
|
|
||||||
char *abs_buffer
|
|
||||||
= (char *) alloca (strlen (cwd) + strlen (rel_filename) + 1);
|
|
||||||
char *endp = abs_buffer;
|
|
||||||
char *outp, *inp;
|
|
||||||
char *value;
|
|
||||||
|
|
||||||
/* Copy the filename (possibly preceded by the current working
|
|
||||||
directory name) into the absolutization buffer. */
|
|
||||||
|
|
||||||
{
|
|
||||||
char *src_p;
|
|
||||||
|
|
||||||
if (rel_filename[0] != '/')
|
|
||||||
{
|
|
||||||
src_p = cwd;
|
|
||||||
while (*endp++ = *src_p++)
|
|
||||||
continue;
|
|
||||||
*(endp-1) = '/'; /* overwrite null */
|
|
||||||
}
|
|
||||||
src_p = rel_filename;
|
|
||||||
while (*endp++ = *src_p++)
|
|
||||||
continue;
|
|
||||||
if (endp[-1] == '/')
|
|
||||||
*endp = '\0';
|
|
||||||
|
|
||||||
/* Now make a copy of abs_buffer into abs_buffer, shortening the
|
|
||||||
filename (by taking out slashes and dots) as we go. */
|
|
||||||
|
|
||||||
outp = inp = abs_buffer;
|
|
||||||
*outp++ = *inp++; /* copy first slash */
|
|
||||||
for (;;)
|
|
||||||
{
|
|
||||||
if (!inp[0])
|
|
||||||
break;
|
|
||||||
else if (inp[0] == '/' && outp[-1] == '/')
|
|
||||||
{
|
|
||||||
inp++;
|
|
||||||
continue;
|
|
||||||
}
|
|
||||||
else if (inp[0] == '.' && outp[-1] == '/')
|
|
||||||
{
|
|
||||||
if (!inp[1])
|
|
||||||
break;
|
|
||||||
else if (inp[1] == '/')
|
|
||||||
{
|
|
||||||
inp += 2;
|
|
||||||
continue;
|
|
||||||
}
|
|
||||||
else if ((inp[1] == '.') && (inp[2] == 0 || inp[2] == '/'))
|
|
||||||
{
|
|
||||||
inp += (inp[2] == '/') ? 3 : 2;
|
|
||||||
outp -= 2;
|
|
||||||
while (outp >= abs_buffer && *outp != '/')
|
|
||||||
outp--;
|
|
||||||
if (outp < abs_buffer)
|
|
||||||
{
|
|
||||||
/* Catch cases like /.. where we try to backup to a
|
|
||||||
point above the absolute root of the logical file
|
|
||||||
system. */
|
|
||||||
|
|
||||||
fprintf (stderr, "%s: invalid file name: %s\n",
|
|
||||||
pname, rel_filename);
|
|
||||||
exit (1);
|
|
||||||
}
|
|
||||||
*++outp = '\0';
|
|
||||||
continue;
|
|
||||||
}
|
|
||||||
}
|
|
||||||
*outp++ = *inp++;
|
|
||||||
}
|
|
||||||
|
|
||||||
/* On exit, make sure that there is a trailing null, and make sure that
|
|
||||||
the last character of the returned string is *not* a slash. */
|
|
||||||
|
|
||||||
*outp = '\0';
|
|
||||||
if (outp[-1] == '/')
|
|
||||||
*--outp = '\0';
|
|
||||||
|
|
||||||
/* Make a copy (in the heap) of the stuff left in the absolutization
|
|
||||||
buffer and return a pointer to the copy. */
|
|
||||||
|
|
||||||
value = (char *) oballoc (strlen (abs_buffer) + 1);
|
|
||||||
strcpy (value, abs_buffer);
|
|
||||||
return value;
|
|
||||||
}
|
|
||||||
#endif /* 0 */
|
|
||||||
|
|
||||||
static int scope_labelno = 0;
|
|
||||||
static void
|
static void
|
||||||
dbxout_function_end ()
|
dbxout_function_end ()
|
||||||
{
|
{
|
||||||
|
|
Loading…
Reference in New Issue