OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

*** empty log message *** 

From-SVN: r540
This commit is contained in:
Michael Meissner 1992-03-20 22:24:48 +00:00
parent 2e494f7040
commit b372168cef
1 changed files with 99 additions and 94 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

193
gcc/dbxout.c
View File

@ -68,7 +68,6 @@ the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */
/* Include these first, because they may define MIN and MAX. */
#include <stdio.h>
#include <sys/param.h>
#include <errno.h>
#include "config.h"
@ -83,6 +82,10 @@ the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */
extern int errno;
#endif
#ifdef XCOFF_DEBUGGING_INFO
#include "xcoff.h"
#endif
#ifndef ASM_STABS_OP
#define ASM_STABS_OP ".stabs"
#endif
@ -91,6 +94,22 @@ extern int errno;
#define ASM_STABN_OP ".stabn"
#endif
#ifndef DBX_DECL_STABS_CODE
#define DBX_DECL_STABS_CODE N_LSYM
#endif
#ifndef DBX_STATIC_CONST_VAR_CODE
#define DBX_STATIC_CONST_VAR_CODE N_FUN
#endif
#ifndef DBX_REGPARM_STABS_CODE
#define DBX_REGPARM_STABS_CODE N_RSYM
#endif
#ifndef DBX_REGPARM_STABS_LETTER
#define DBX_REGPARM_STABS_LETTER 'P'
#endif
/* Nonzero means if the type has methods, only output debugging
information if methods are actually written to the asm file. */
@ -103,24 +122,12 @@ static int flag_minimal_debug = 1;
static int have_used_extensions = 0;
/* Virtually every UN*X system now in common use (except for pre-4.3-tahoe
BSD systems) now provides getcwd as called for by POSIX. Allow for
the few exceptions to the general rule here. */
#if !(defined (USG) || defined (VMS))
extern char *getwd ();
#define getcwd(buf,len) getwd(buf)
#define GUESSPATHLEN (MAXPATHLEN + 1)
#else /* (defined (USG) || defined (VMS)) */
extern char *getcwd ();
/* We actually use this as a starting point, not a limit. */
#define GUESSPATHLEN 100
#endif /* (defined (USG) || defined (VMS)) */
char *getpwd ();
/* Typical USG systems don't have stab.h, and they also have
no use for DBX-format debugging info. */
#ifdef DBX_DEBUGGING_INFO
#if defined (DBX_DEBUGGING_INFO) || defined (XCOFF_DEBUGGING_INFO)
#ifdef DEBUG_SYMS_TEXT
#define FORCE_TEXT text_section ();
@ -128,7 +135,7 @@ extern char *getcwd ();
#define FORCE_TEXT
#endif
#ifdef USG
#if defined (USG) || defined (MIPS)
#include "gstab.h" /* If doing DBX on sysV, use our own stab.h. */
#else
#include <stab.h> /* On BSD, use the system's stab.h. */
@ -174,7 +181,6 @@ static char *lastfile;
/* Current working directory. */
static char *cwd;
static enum {not_gotten, gotten, error_getting} cwd_status = not_gotten;
enum typestatus {TYPE_UNSEEN, TYPE_XREF, TYPE_DEFINED};
@ -280,7 +286,7 @@ abspath (rel_filename)
char *outp, *inp;
char *value;
/* Copy the filename (possibly preceeded by the current working
/* Copy the filename (possibly preceded by the current working
directory name) into the absolutization buffer. */
{
@ -298,7 +304,6 @@ abspath (rel_filename)
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. */
@ -385,41 +390,21 @@ dbxout_init (asm_file, input_file_name, syms)
ASM_GENERATE_INTERNAL_LABEL (ltext_label_name, "Ltext", 0);
/* Put the current working directory in an N_SO symbol. */
{
int size;
if (cwd_status == not_gotten)
{
char *value;
/* Read the working directory, avoiding arbitrary limit. */
size = GUESSPATHLEN;
while (1)
{
cwd = (char *) xmalloc (size);
value = getcwd (cwd, size);
if (value != 0 || errno != ERANGE)
break;
free (cwd);
size *= 2;
}
if (value != 0)
cwd_status = gotten;
else
cwd_status = error_getting;
}
if (cwd_status == gotten)
{
#ifndef DBX_WORKING_DIRECTORY /* Only some versions of DBX want this,
but GDB always does. */
if (use_gdb_dbx_extensions)
#endif
{
if (cwd || (cwd = getpwd ()))
{
#ifdef DBX_OUTPUT_MAIN_SOURCE_DIRECTORY
DBX_OUTPUT_MAIN_SOURCE_DIRECTORY (asmfile, cwd);
DBX_OUTPUT_MAIN_SOURCE_DIRECTORY (asmfile, cwd);
#else /* no DBX_OUTPUT_MAIN_SOURCE_DIRECTORY */
fprintf (asmfile, "%s \"%s/\",%d,0,0,%s\n", ASM_STABS_OP,
cwd, N_SO, &ltext_label_name[1]);
fprintf (asmfile, "%s \"%s/\",%d,0,0,%s\n", ASM_STABS_OP,
cwd, N_SO, &ltext_label_name[1]);
#endif /* no DBX_OUTPUT_MAIN_SOURCE_DIRECTORY */
}
}
}
}
#ifdef DBX_OUTPUT_MAIN_SOURCE_FILENAME
/* This should NOT be DBX_OUTPUT_SOURCE_FILENAME. That
@ -879,6 +864,11 @@ dbxout_type (type, full)
fprintf (asmfile, "%d", TYPE_SYMTAB_ADDRESS (type));
CHARS (3);
#ifdef DBX_TYPE_DEFINED
if (DBX_TYPE_DEFINED (type))
return;
#endif
/* If this type's definition has been output or is now being output,
that is all. */
@ -996,7 +986,10 @@ dbxout_type (type, full)
n_baseclasses = TREE_VEC_LENGTH (TYPE_BINFO_BASETYPES (type));
/* Output a structure type. */
if ((TYPE_NAME (type) != 0 && !full)
if ((TYPE_NAME (type) != 0
&& ! (TREE_CODE (TYPE_NAME (type)) == TYPE_DECL
&& DECL_IGNORED_P (TYPE_NAME (type)))
&& !full)
|| TYPE_SIZE (type) == 0)
{
/* If the type is just a cross reference, output one
@ -1076,7 +1069,7 @@ dbxout_type (type, full)
/* Write out the field declarations. */
dbxout_type_fields (type);
if (use_gdb_dbx_extensions)
if (use_gdb_dbx_extensions && TYPE_METHODS (type) != NULL_TREE)
{
have_used_extensions = 1;
dbxout_type_methods (type);
@ -1384,12 +1377,12 @@ dbxout_symbol (decl, local)
&& (TREE_CODE (type) == RECORD_TYPE
|| TREE_CODE (type) == UNION_TYPE)
&& (TYPE_NAME (type) == decl))
{
putc ('T', asmfile);
TREE_ASM_WRITTEN (TYPE_NAME (type)) = 1;
}
{
putc ('T', asmfile);
TREE_ASM_WRITTEN (TYPE_NAME (type)) = 1;
}
putc ('t', asmfile);
current_sym_code = N_LSYM;
current_sym_code = DBX_DECL_STABS_CODE;
dbxout_type (type, 1);
dbxout_finish_symbol (decl);
@ -1404,7 +1397,7 @@ dbxout_symbol (decl, local)
if (TREE_CODE (name) == TYPE_DECL)
name = DECL_NAME (name);
current_sym_code = N_LSYM;
current_sym_code = DBX_DECL_STABS_CODE;
current_sym_value = 0;
current_sym_addr = 0;
current_sym_nchars = 2 + IDENTIFIER_LENGTH (name);
@ -1538,7 +1531,7 @@ dbxout_symbol (decl, local)
else if (TREE_READONLY (decl) && ! TREE_THIS_VOLATILE (decl))
/* This is not quite right, but it's the closest
of all the codes that Unix defines. */
current_sym_code = N_FUN;
current_sym_code = DBX_STATIC_CONST_VAR_CODE;
else
{
/* Ultrix `as' seems to need this. */
@ -1616,6 +1609,24 @@ dbxout_symbol (decl, local)
We want the value of that CONST_INT. */
current_sym_value = DEBUGGER_AUTO_OFFSET (XEXP (DECL_RTL (decl), 0));
}
else if (GET_CODE (DECL_RTL (decl)) == MEM
&& GET_CODE (XEXP (DECL_RTL (decl), 0)) == CONST)
{
/* Handle an obscure case which can arise when optimizing and
when there are few available registers. (This is *always*
the case for i386/i486 targets). The DECL_RTL looks like
(MEM (CONST ...)) even though this variable is a local `auto'
or a local `register' variable. In effect, what has happened
is that the reload pass has seen that all assignments and
references for one such a local variable can be replaced by
equivalent assignments and references to some static storage
variable, thereby avoiding the need for a register. In such
cases we're forced to lie to debuggers and tell them that
this variable was itself `static'. */
current_sym_code = N_LCSYM;
letter = 'V';
current_sym_addr = XEXP (XEXP (DECL_RTL (decl), 0), 0);
}
else
/* Address might be a MEM, when DECL is a variable-sized object.
Or it might be const0_rtx, meaning previous passes
@ -1624,6 +1635,11 @@ dbxout_symbol (decl, local)
/* Ok, start a symtab entry and output the variable name. */
FORCE_TEXT;
#ifdef DBX_STATIC_BLOCK_START
DBX_STATIC_BLOCK_START (asmfile, current_sym_code);
#endif
/* One slight hitch: if this is a VAR_DECL which is a static
class member, we must put out the mangled name instead of the
DECL_NAME. */
@ -1635,10 +1651,12 @@ dbxout_symbol (decl, local)
{
name = IDENTIFIER_POINTER (DECL_ASSEMBLER_NAME (decl));
#if 0 /* Tiemann says get rid of this. */
/* Adding 1 here only works on systems
which flush an initial underscore. */
if (name[0] == '_')
name += 1;
#endif
}
else
name = IDENTIFIER_POINTER (DECL_NAME (decl));
@ -1647,6 +1665,10 @@ dbxout_symbol (decl, local)
if (letter) putc (letter, asmfile);
dbxout_type (type, 0);
dbxout_finish_symbol (decl);
#ifdef DBX_STATIC_BLOCK_END
DBX_STATIC_BLOCK_END (asmfile, current_sym_code);
#endif
break;
}
}
@ -1666,22 +1688,27 @@ static void
dbxout_finish_symbol (sym)
tree sym;
{
#ifdef DBX_FINISH_SYMBOL
DBX_FINISH_SYMBOL (sym);
#else
int line = 0;
#ifdef WINNING_GDB
if (sym != 0)
line = DECL_SOURCE_LINE (sym);
#endif
fprintf (asmfile, "\",%d,0,%d,", current_sym_code, line);
if (current_sym_addr)
output_addr_const (asmfile, current_sym_addr);
else
fprintf (asmfile, "%d", current_sym_value);
putc ('\n', asmfile);
#endif
}
/* Output definitions of all the decls in a chain. */
static void
void
dbxout_syms (syms)
tree syms;
{
@ -1704,7 +1731,7 @@ dbxout_syms (syms)
/* Output definitions, referring to storage in the parmlist,
of all the parms in PARMS, which is a chain of PARM_DECL nodes. */
static void
void
dbxout_parms (parms)
tree parms;
{
@ -1794,9 +1821,11 @@ dbxout_parms (parms)
else if (GET_CODE (DECL_RTL (parms)) == REG)
{
rtx best_rtl;
char regparm_letter;
/* Parm passed in registers and lives in registers or nowhere. */
current_sym_code = N_RSYM;
current_sym_code = DBX_REGPARM_STABS_CODE;
regparm_letter = DBX_REGPARM_STABS_LETTER;
current_sym_addr = 0;
/* If parm lives in a register, use that register;
@ -1816,13 +1845,15 @@ dbxout_parms (parms)
if (DECL_NAME (parms))
{
current_sym_nchars = 2 + IDENTIFIER_LENGTH (DECL_NAME (parms));
fprintf (asmfile, "%s \"%s:P", ASM_STABS_OP,
IDENTIFIER_POINTER (DECL_NAME (parms)));
fprintf (asmfile, "%s \"%s:%c", ASM_STABS_OP,
IDENTIFIER_POINTER (DECL_NAME (parms)),
regparm_letter);
}
else
{
current_sym_nchars = 8;
fprintf (asmfile, "%s \"(anon):P", ASM_STABS_OP);
fprintf (asmfile, "%s \"(anon):%c", ASM_STABS_OP,
regparm_letter);
}
dbxout_type (DECL_ARG_TYPE (parms), 0);
@ -1879,7 +1910,7 @@ dbxout_parms (parms)
PARMS is a chain of PARM_DECL nodes. */
static void
void
dbxout_reg_parms (parms)
tree parms;
{
@ -2045,8 +2076,7 @@ dbxout_block (block, depth, args)
#ifdef DBX_OUTPUT_CATCH
DBX_OUTPUT_CATCH (asmfile, decl, buf);
#else
fprintf (asmfile, "%s \"%s:C1\",%d,0,0,",
ASM_STABS_OP,
fprintf (asmfile, "%s \"%s:C1\",%d,0,0,", ASM_STABS_OP,
IDENTIFIER_POINTER (DECL_NAME (decl)), N_CATCH);
assemble_name (asmfile, buf);
fprintf (asmfile, "\n");
@ -2132,29 +2162,4 @@ dbxout_function (decl)
DBX_OUTPUT_FUNCTION_END (asmfile, decl);
#endif
}
#else /* not DBX_DEBUGGING_INFO */
void
dbxout_init (asm_file, input_file_name)
FILE *asm_file;
char *input_file_name;
{}
void
dbxout_symbol (decl, local)
tree decl;
int local;
{}
void
dbxout_types (types)
register tree types;
{}
void
dbxout_function (decl)
tree decl;
{}
#endif /* DBX_DEBUGGING_INFO */