+Mon Oct 25 22:49:34 1999 Kaveh R. Ghazi <ghazi@caip.rutgers.edu>
+
+ * dbxout.c (lastfile, cwd, dbxout_type_method_1,
+ dbxout_symbol_location, dbxout_symbol_name, dbxout_init,
+ dbxout_start_new_source_file, dbxout_source_file,
+ dbxout_source_line, dbxout_finish, dbxout_type_fields,
+ dbxout_type_methods, dbxout_symbol, dbxout_prepare_symbol):
+ Constify a char*.
+ (dbxout_types, dbxout_args, dbxout_symbol): Delete prototypes.
+ (dbxout_symbol): Mark parameter `local' with ATTRIBUTE_UNUSED.
+ (dbxout_block): Initialize variable `blocknum'.
+
+ * dbxout.h (dbxout_init, dbxout_finish,
+ dbxout_start_new_source_file, dbxout_source_file, dbxout_types,
+ dbxout_args, dbxout_source_line): Constify a char*.
+
+ * dwarfout.c (dwarf_tag_name, dwarf_attr_name,
+ dwarf_stack_op_name, dwarf_typemod_name, dwarf_fmt_byte_name,
+ dwarf_fund_type_name, name_attribute, stmt_list_attribute,
+ low_pc_attribute, high_pc_attribute, body_begin_attribute,
+ body_end_attribute, comp_dir_attribute, sf_names_attribute,
+ src_info_attribute, mac_info_attribute, producer_attribute,
+ lookup_filename, generate_macinfo_entry, fundamental_type_code,
+ dwarfout_line, dwarfout_start_new_source_file, dwarfout_define,
+ dwarfout_undef): Constify a char*.
+ (add_incomplete_type, retry_incomplete_types): Add prototypes.
+
+ * dwarfout.h (dwarfout_define, dwarfout_undef,
+ dwarfout_start_new_source_file, dwarfout_line): Constify a char*.
+
1999-10-25 Gavin Romig-Koch <gavin@cygnus.com>
* config/mips/mips.h (MIPS_ISA_DEFAULT): Insure it's defined.
/* Last source file name mentioned in a NOTE insn. */
-static char *lastfile;
+static const char *lastfile;
/* Current working directory. */
-static char *cwd;
+static const char *cwd;
enum typestatus {TYPE_UNSEEN, TYPE_XREF, TYPE_DEFINED};
#define CONTIN
#endif
-void dbxout_types ();
-void dbxout_args ();
-void dbxout_symbol ();
-
#if defined(ASM_OUTPUT_SECTION_NAME)
static void dbxout_function_end PROTO((void));
#endif
static void dbxout_continue PROTO((void));
#endif
static void dbxout_type_fields PROTO((tree));
-static void dbxout_type_method_1 PROTO((tree, char *));
+static void dbxout_type_method_1 PROTO((tree, const char *));
static void dbxout_type_methods PROTO((tree));
static void dbxout_range_type PROTO((tree));
static void dbxout_type PROTO((tree, int, int));
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_symbol_location PROTO((tree, tree, const char *, rtx));
+static void dbxout_symbol_name PROTO((tree, const char *, int));
static void dbxout_prepare_symbol PROTO((tree));
static void dbxout_finish_symbol PROTO((tree));
static void dbxout_block PROTO((tree, int, tree));
void
dbxout_init (asm_file, input_file_name, syms)
FILE *asm_file;
- char *input_file_name;
+ const char *input_file_name;
tree syms;
{
char ltext_label_name[100];
void
dbxout_start_new_source_file (filename)
- char *filename ATTRIBUTE_UNUSED;
+ const char *filename ATTRIBUTE_UNUSED;
{
#ifdef DBX_USE_BINCL
struct dbx_file *n = (struct dbx_file *) xmalloc (sizeof *n);
void
dbxout_source_file (file, filename)
FILE *file;
- char *filename;
+ const char *filename;
{
char ltext_label_name[100];
void
dbxout_source_line (file, filename, lineno)
FILE *file;
- char *filename;
+ const char *filename;
int lineno;
{
dbxout_source_file (file, filename);
void
dbxout_finish (file, filename)
FILE *file ATTRIBUTE_UNUSED;
- char *filename ATTRIBUTE_UNUSED;
+ const char *filename ATTRIBUTE_UNUSED;
{
#ifdef DBX_OUTPUT_MAIN_SOURCE_FILE_END
DBX_OUTPUT_MAIN_SOURCE_FILE_END (file, filename);
{
if (TREE_STATIC (tem) && use_gnu_debug_info_extensions)
{
- char *name = IDENTIFIER_POINTER (DECL_ASSEMBLER_NAME (tem));
+ const char *name =
+ IDENTIFIER_POINTER (DECL_ASSEMBLER_NAME (tem));
have_used_extensions = 1;
fprintf (asmfile, ":%s;", name);
CHARS (strlen (name));
static void
dbxout_type_method_1 (decl, debug_name)
tree decl;
- char *debug_name;
+ const char *debug_name;
{
char c1 = 'A', c2;
the class names, constructor names, and encodings for assembler
label names. For now, disable output of dbx info for them. */
{
- char *ptr = IDENTIFIER_POINTER (type_encoding);
+ const char *ptr = IDENTIFIER_POINTER (type_encoding);
/* This should use index. (mrs) */
while (*ptr && *ptr != '<') ptr++;
if (*ptr != 0)
{
/* This is the "mangled" name of the method.
It encodes the argument types. */
- char *debug_name = IDENTIFIER_POINTER (DECL_ASSEMBLER_NAME (fndecl));
+ const char *debug_name =
+ IDENTIFIER_POINTER (DECL_ASSEMBLER_NAME (fndecl));
int show_arg_types = 0;
CONTIN;
debug_name += IDENTIFIER_LENGTH (name);
if (debug_name[0] == '_' && debug_name[1] == '_')
{
- char *method_name = debug_name + 2;
- char *length_ptr = formatted_type_identifier_length;
+ const char *method_name = debug_name + 2;
+ const char *length_ptr =
+ formatted_type_identifier_length;
/* Get past const and volatile qualifiers. */
while (*method_name == 'C' || *method_name == 'V')
method_name++;
/* Detect constructors by their style of name mangling. */
else if (debug_name[0] == '_' && debug_name[1] == '_')
{
- char *ctor_name = debug_name + 2;
- char *length_ptr = formatted_type_identifier_length;
+ const char *ctor_name = debug_name + 2;
+ const char *length_ptr = formatted_type_identifier_length;
while (*ctor_name == 'C' || *ctor_name == 'V')
ctor_name++;
/* Skip digits for length of type_encoding. */
void
dbxout_symbol (decl, local)
tree decl;
- int local;
+ int local ATTRIBUTE_UNUSED;
{
tree type = TREE_TYPE (decl);
tree context = NULL_TREE;
if (TREE_PUBLIC (decl) == 0)
{
/* The sun4 assembler does not grok this. */
- char *name = IDENTIFIER_POINTER (DECL_NAME (decl));
+ const char *name = IDENTIFIER_POINTER (DECL_NAME (decl));
if (TREE_CODE (TREE_TYPE (decl)) == INTEGER_TYPE
|| TREE_CODE (TREE_TYPE (decl)) == ENUMERAL_TYPE)
{
static void
dbxout_symbol_location (decl, type, suffix, home)
tree decl, type;
- char *suffix;
+ const char *suffix;
rtx home;
{
int letter = 0;
static void
dbxout_symbol_name (decl, suffix, letter)
tree decl;
- char *suffix;
+ const char *suffix;
int letter;
{
/* 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. Note also that static member (variable) names DO NOT begin
with underscores in .stabs directives. */
- char *name = IDENTIFIER_POINTER (DECL_ASSEMBLER_NAME (decl));
+ const char *name = IDENTIFIER_POINTER (DECL_ASSEMBLER_NAME (decl));
if (name == 0)
name = "(anon)";
fprintf (asmfile, "%s \"%s%s:", ASM_STABS_OP, name,
tree decl ATTRIBUTE_UNUSED;
{
#ifdef WINNING_GDB
- char *filename = DECL_SOURCE_FILE (decl);
+ const char *filename = DECL_SOURCE_FILE (decl);
dbxout_source_file (asmfile, filename);
#endif
int depth;
tree args;
{
- int blocknum;
+ int blocknum = -1;
while (block)
{
the Free Software Foundation, 59 Temple Place - Suite 330,
Boston, MA 02111-1307, USA. */
-extern void dbxout_init PROTO ((FILE *, char *, tree));
-extern void dbxout_finish PROTO ((FILE *, char *));
+extern void dbxout_init PROTO ((FILE *, const char *, tree));
+extern void dbxout_finish PROTO ((FILE *, const char *));
-extern void dbxout_start_new_source_file PROTO ((char *));
+extern void dbxout_start_new_source_file PROTO ((const char *));
extern void dbxout_resume_previous_source_file PROTO ((void));
+extern void dbxout_source_file PROTO ((FILE *, const char *));
+extern void dbxout_types PROTO ((tree));
+extern void dbxout_args PROTO ((tree));
extern void dbxout_symbol PROTO ((tree, int));
extern void dbxout_parms PROTO ((tree));
extern void dbxout_reg_parms PROTO ((tree));
extern void dbxout_syms PROTO ((tree));
extern void dbxout_function PROTO ((tree));
-extern void dbxout_source_line PROTO ((FILE *, char*, int));
+extern void dbxout_source_line PROTO ((FILE *, const char *, int));
extern void dbxout_begin_function PROTO ((tree));
/* Forward declarations for functions defined in this file. */
-static char *dwarf_tag_name PROTO((unsigned));
-static char *dwarf_attr_name PROTO((unsigned));
-static char *dwarf_stack_op_name PROTO((unsigned));
-static char *dwarf_typemod_name PROTO((unsigned));
-static char *dwarf_fmt_byte_name PROTO((unsigned));
-static char *dwarf_fund_type_name PROTO((unsigned));
+static const char *dwarf_tag_name PROTO((unsigned));
+static const char *dwarf_attr_name PROTO((unsigned));
+static const char *dwarf_stack_op_name PROTO((unsigned));
+static const char *dwarf_typemod_name PROTO((unsigned));
+static const char *dwarf_fmt_byte_name PROTO((unsigned));
+static const char *dwarf_fund_type_name PROTO((unsigned));
static tree decl_ultimate_origin PROTO((tree));
static tree block_ultimate_origin PROTO((tree));
static tree decl_class_context PROTO((tree));
static void data_member_location_attribute PROTO((tree));
static void const_value_attribute PROTO((rtx));
static void location_or_const_value_attribute PROTO((tree));
-static inline void name_attribute PROTO((char *));
+static inline void name_attribute PROTO((const char *));
static inline void fund_type_attribute PROTO((unsigned));
static void mod_fund_type_attribute PROTO((tree, int, int));
static inline void user_def_type_attribute PROTO((tree));
static inline void bit_offset_attribute PROTO((tree));
static inline void bit_size_attribute PROTO((tree));
static inline void element_list_attribute PROTO((tree));
-static inline void stmt_list_attribute PROTO((char *));
-static inline void low_pc_attribute PROTO((char *));
-static inline void high_pc_attribute PROTO((char *));
-static inline void body_begin_attribute PROTO((char *));
-static inline void body_end_attribute PROTO((char *));
+static inline void stmt_list_attribute PROTO((const char *));
+static inline void low_pc_attribute PROTO((const char *));
+static inline void high_pc_attribute PROTO((const char *));
+static inline void body_begin_attribute PROTO((const char *));
+static inline void body_end_attribute PROTO((const char *));
static inline void language_attribute PROTO((unsigned));
static inline void member_attribute PROTO((tree));
#if 0
static inline void string_length_attribute PROTO((tree));
#endif
-static inline void comp_dir_attribute PROTO((char *));
-static inline void sf_names_attribute PROTO((char *));
-static inline void src_info_attribute PROTO((char *));
-static inline void mac_info_attribute PROTO((char *));
+static inline void comp_dir_attribute PROTO((const char *));
+static inline void sf_names_attribute PROTO((const char *));
+static inline void src_info_attribute PROTO((const char *));
+static inline void mac_info_attribute PROTO((const char *));
static inline void prototyped_attribute PROTO((tree));
-static inline void producer_attribute PROTO((char *));
+static inline void producer_attribute PROTO((const char *));
static inline void inline_attribute PROTO((tree));
static inline void containing_type_attribute PROTO((tree));
static inline void abstract_origin_attribute PROTO((tree));
static void output_decl PROTO((tree, tree));
static void shuffle_filename_entry PROTO((filename_entry *));
static void generate_new_sfname_entry PROTO((void));
-static unsigned lookup_filename PROTO((char *));
+static unsigned lookup_filename PROTO((const char *));
static void generate_srcinfo_entry PROTO((unsigned, unsigned));
-static void generate_macinfo_entry PROTO((char *, char *));
+static void generate_macinfo_entry PROTO((const char *, const char *));
static int is_pseudo_reg PROTO((rtx));
static tree type_main_variant PROTO((tree));
static int is_tagged_type PROTO((tree));
static int is_redundant_typedef PROTO((tree));
+static void add_incomplete_type PROTO((tree));
+static void retry_incomplete_types PROTO((void));
\f
/* Definitions of defaults for assembler-dependent names of various
pseudo-ops and section names.
|| code == QUAL_UNION_TYPE || code == ENUMERAL_TYPE);
}
-static char *
+static const char *
dwarf_tag_name (tag)
register unsigned tag;
{
}
}
-static char *
+static const char *
dwarf_attr_name (attr)
register unsigned attr;
{
}
}
-static char *
+static const char *
dwarf_stack_op_name (op)
register unsigned op;
{
}
}
-static char *
+static const char *
dwarf_typemod_name (mod)
register unsigned mod;
{
}
}
-static char *
+static const char *
dwarf_fmt_byte_name (fmt)
register unsigned fmt;
{
}
}
-static char *
+static const char *
dwarf_fund_type_name (ft)
register unsigned ft;
{
&& DECL_NAME (TYPE_NAME (type)) != 0
&& TREE_CODE (DECL_NAME (TYPE_NAME (type))) == IDENTIFIER_NODE)
{
- char *name = IDENTIFIER_POINTER (DECL_NAME (TYPE_NAME (type)));
+ const char *name =
+ IDENTIFIER_POINTER (DECL_NAME (TYPE_NAME (type)));
if (!strcmp (name, "unsigned char"))
return FT_unsigned_char;
&& DECL_NAME (TYPE_NAME (type)) != 0
&& TREE_CODE (DECL_NAME (TYPE_NAME (type))) == IDENTIFIER_NODE)
{
- char *name = IDENTIFIER_POINTER (DECL_NAME (TYPE_NAME (type)));
+ const char *name =
+ IDENTIFIER_POINTER (DECL_NAME (TYPE_NAME (type)));
/* Note that here we can run afowl of a serious bug in "classic"
svr4 SDB debuggers. They don't seem to understand the
static inline void
name_attribute (name_string)
- register char *name_string;
+ register const char *name_string;
{
if (name_string && *name_string)
{
static inline void
stmt_list_attribute (label)
- register char *label;
+ register const char *label;
{
ASM_OUTPUT_DWARF_ATTRIBUTE (asm_out_file, AT_stmt_list);
/* Don't use ASM_OUTPUT_DWARF_DATA4 here. */
static inline void
low_pc_attribute (asm_low_label)
- register char *asm_low_label;
+ register const char *asm_low_label;
{
ASM_OUTPUT_DWARF_ATTRIBUTE (asm_out_file, AT_low_pc);
ASM_OUTPUT_DWARF_ADDR (asm_out_file, asm_low_label);
static inline void
high_pc_attribute (asm_high_label)
- register char *asm_high_label;
+ register const char *asm_high_label;
{
ASM_OUTPUT_DWARF_ATTRIBUTE (asm_out_file, AT_high_pc);
ASM_OUTPUT_DWARF_ADDR (asm_out_file, asm_high_label);
static inline void
body_begin_attribute (asm_begin_label)
- register char *asm_begin_label;
+ register const char *asm_begin_label;
{
ASM_OUTPUT_DWARF_ATTRIBUTE (asm_out_file, AT_body_begin);
ASM_OUTPUT_DWARF_ADDR (asm_out_file, asm_begin_label);
static inline void
body_end_attribute (asm_end_label)
- register char *asm_end_label;
+ register const char *asm_end_label;
{
ASM_OUTPUT_DWARF_ATTRIBUTE (asm_out_file, AT_body_end);
ASM_OUTPUT_DWARF_ADDR (asm_out_file, asm_end_label);
static inline void
comp_dir_attribute (dirname)
- register char *dirname;
+ register const char *dirname;
{
ASM_OUTPUT_DWARF_ATTRIBUTE (asm_out_file, AT_comp_dir);
ASM_OUTPUT_DWARF_STRING_NEWLINE (asm_out_file, dirname);
static inline void
sf_names_attribute (sf_names_start_label)
- register char *sf_names_start_label;
+ register const char *sf_names_start_label;
{
ASM_OUTPUT_DWARF_ATTRIBUTE (asm_out_file, AT_sf_names);
/* Don't use ASM_OUTPUT_DWARF_DATA4 here. */
static inline void
src_info_attribute (src_info_start_label)
- register char *src_info_start_label;
+ register const char *src_info_start_label;
{
ASM_OUTPUT_DWARF_ATTRIBUTE (asm_out_file, AT_src_info);
/* Don't use ASM_OUTPUT_DWARF_DATA4 here. */
static inline void
mac_info_attribute (mac_info_start_label)
- register char *mac_info_start_label;
+ register const char *mac_info_start_label;
{
ASM_OUTPUT_DWARF_ATTRIBUTE (asm_out_file, AT_mac_info);
/* Don't use ASM_OUTPUT_DWARF_DATA4 here. */
static inline void
producer_attribute (producer)
- register char *producer;
+ register const char *producer;
{
ASM_OUTPUT_DWARF_ATTRIBUTE (asm_out_file, AT_producer);
ASM_OUTPUT_DWARF_STRING_NEWLINE (asm_out_file, producer);
static unsigned
lookup_filename (file_name)
- char *file_name;
+ const char *file_name;
{
register filename_entry *search_p;
register filename_entry *limit_p = &filename_table[ft_entries];
void
dwarfout_line (filename, line)
- register char *filename;
+ register const char *filename;
register unsigned line;
{
if (debug_info_level >= DINFO_LEVEL_NORMAL
}
{
- register char *tail = rindex (filename, '/');
+ register const char *tail = rindex (filename, '/');
if (tail != NULL)
filename = tail;
static void
generate_macinfo_entry (type_and_offset, string)
- register char *type_and_offset;
- register char *string;
+ register const char *type_and_offset;
+ register const char *string;
{
if (! use_gnu_debug_info_extensions)
return;
void
dwarfout_start_new_source_file (filename)
- register char *filename;
+ register const char *filename;
{
char label[MAX_ARTIFICIAL_LABEL_BYTES];
char type_and_offset[MAX_ARTIFICIAL_LABEL_BYTES*3];
void
dwarfout_define (lineno, buffer)
register unsigned lineno;
- register char *buffer;
+ register const char *buffer;
{
static int initialized = 0;
char type_and_offset[MAX_ARTIFICIAL_LABEL_BYTES*2];
void
dwarfout_undef (lineno, buffer)
register unsigned lineno;
- register char *buffer;
+ register const char *buffer;
{
char type_and_offset[MAX_ARTIFICIAL_LABEL_BYTES*2];
char *main_input_filename));
extern void dwarfout_finish PROTO ((void));
-extern void dwarfout_define PROTO ((unsigned, char *));
-extern void dwarfout_undef PROTO ((unsigned, char *));
+extern void dwarfout_define PROTO ((unsigned, const char *));
+extern void dwarfout_undef PROTO ((unsigned, const char *));
extern void dwarfout_file_scope_decl PROTO ((tree , int));
-extern void dwarfout_start_new_source_file PROTO ((char *));
+extern void dwarfout_start_new_source_file PROTO ((const char *));
extern void dwarfout_resume_previous_source_file PROTO((unsigned));
extern void dwarfout_begin_function PROTO ((void));
#ifdef RTX_CODE
extern void dwarfout_label PROTO ((rtx));
#endif
-extern void dwarfout_line PROTO ((char *, unsigned));
+extern void dwarfout_line PROTO ((const char *, unsigned));
projects / platform / upstream / gcc.git / commitdiff