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

* gdbtypes.c (create_range_type): If indextype has TYPE_FLAG_STUB

Browse Source 
set, set TYPE_FLAG_TARGET_STUB.
	(check_stub_type):  Recalculate TYPE_LENGTH for range type.
	* stabsread.c (read_range_type):  If index type number is followed
	by '=', back up, call read_type. and assume we have a true range.
	* gdbtypes.h (TYPE_FLAG_TARGET_STUB):  Update comment.
This fixes PR 6632.
This commit is contained in:
Per Bothner
1995-03-29 01:11:45 +00:00
parent 7d777b91ad
commit e55a579687
4 changed files with 39 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
gdb/stabsread.c
View File

@@ -3373,12 +3373,13 @@ read_range_type (pp, typenums, objfile)
int typenums[2];
struct objfile *objfile;
{
char *orig_pp = *pp;
int rangenums[2];
long n2, n3;
int n2bits, n3bits;
int self_subrange;
struct type *result_type;
struct type *index_type;
struct type *index_type = NULL;
/* First comes a type we are a subrange of.
In C it is usually 0, 1 or the type being defined. */
@@ -3389,6 +3390,12 @@ read_range_type (pp, typenums, objfile)
self_subrange = (rangenums[0] == typenums[0] &&
rangenums[1] == typenums[1]);
if (**pp == '=')
{
*pp = orig_pp;
index_type = read_type (pp, objfile);
}
/* A semicolon should now follow; skip it. */
if (**pp == ';')
(*pp)++;
@@ -3400,7 +3407,10 @@ read_range_type (pp, typenums, objfile)
if (n2bits == -1 || n3bits == -1)
return error_type (pp);
if (index_type)
goto handle_true_range;
/* If limits are huge, must be large integral type. */
if (n2bits != 0 || n3bits != 0)
{
@@ -3508,6 +3518,7 @@ read_range_type (pp, typenums, objfile)
/* We have a real range type on our hands. Allocate space and
return a real pointer. */
handle_true_range:
/* At this point I don't have the faintest idea how to deal with
a self_subrange type; I'm going to assume that this is used