Toolchain/binutils-gdb
1
0
Fork 0
forked from Imagelibrary/binutils-gdb
Code Pull Requests Activity

* c-exp.y (exp): Add production to support direct creation

Browse Source 
of array constants using the obvious syntax.
	* c-valprint.c (c_val_print):  Set printed string length.
	* dwarfread.c (read_tag_string_type):  New prototype and
	function that handles TAG_string_type DIEs.
	* dwarfread.c (process_dies):  Add case for TAG_string_type
	that calls new read_tag_string_type function.
	* expprint.c (print_subexp):  Add support for OP_ARRAY.
	* gdbtypes.c (create_range_type, create_array_type):  Inherit
	objfile from the index type.
	**** start-sanitize-chill ****
	* ch-typeprint.c (chill_print_type):  Add case for
	TYPE_CODE_STRING.
	* ch-valprint.c (chill_val_print):  Fix case for
	TYPE_CODE_STRING.
	**** end-sanitize-chill ****
This commit is contained in:
Fred Fish
1993-01-19 23:00:19 +00:00
parent fa2b89f103
commit ec16f7015b
6 changed files with 95 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

60
gdb/dwarfread.c
View File

@@ -522,6 +522,9 @@ dwarf_read_array_type PARAMS ((struct dieinfo *));
static void
read_tag_pointer_type PARAMS ((struct dieinfo *dip));
static void
read_tag_string_type PARAMS ((struct dieinfo *dip));
static void
read_subroutine_type PARAMS ((struct dieinfo *, char *, char *));
@@ -1524,6 +1527,60 @@ read_tag_pointer_type (dip)
/*
LOCAL FUNCTION
read_tag_string_type -- read TAG_string_type DIE
SYNOPSIS
static void read_tag_string_type (struct dieinfo *dip)
DESCRIPTION
Extract all information from a TAG_string_type DIE and add to
the user defined type vector. It isn't really a user defined
type, but it behaves like one, with other DIE's using an
AT_user_def_type attribute to reference it.
*/
static void
read_tag_string_type (dip)
struct dieinfo *dip;
{
struct type *utype;
struct type *indextype;
struct type *rangetype;
unsigned long lowbound = 0;
unsigned long highbound;
if ((utype = lookup_utype (dip -> die_ref)) != NULL)
{
/* Ack, someone has stuck a type in the slot we want. Complain
about it. */
complain (&dup_user_type_definition, DIE_ID, DIE_NAME);
}
else
{
if (dip -> has_at_byte_size)
{
/* A fixed bounds string */
highbound = dip -> at_byte_size - 1;
}
else
{
/* A varying length string. Stub for now. (FIXME) */
highbound = 1;
}
indextype = dwarf_fundamental_type (current_objfile, FT_INTEGER);
rangetype = create_range_type ((struct type *) NULL, indextype,
lowbound, highbound);
utype = create_string_type ((struct type *) NULL, rangetype);
alloc_utype (dip -> die_ref, utype);
}
}
/*
LOCAL FUNCTION
read_subroutine_type -- process TAG_subroutine_type dies
@@ -2011,6 +2068,9 @@ process_dies (thisdie, enddie, objfile)
case TAG_pointer_type:
read_tag_pointer_type (&di);
break;
case TAG_string_type:
read_tag_string_type (&di);
break;
default:
new_symbol (&di, objfile);
break;