* stabsread.c (read_range_type): Properly construct complex

type nodes.
This commit is contained in:
Jim Blandy 2000-11-10 23:18:16 +00:00
parent 506419459a
commit 1300f5dda8
2 changed files with 13 additions and 4 deletions

View File

@ -1,3 +1,8 @@
2000-11-10 Jim Blandy <jimb@redhat.com>
* stabsread.c (read_range_type): Properly construct complex
type nodes.
2000-11-10 Fernando Nasser <fnasser@totem.toronto.redhat.com>
* symtab.c (decode_line_1, total_number_of_methods, find_methods,

View File

@ -4593,14 +4593,18 @@ read_range_type (char **pp, int typenums[2], struct objfile *objfile)
if (n3 == 0 && n2 > 0)
{
struct type *float_type
= init_type (TYPE_CODE_FLT, n2, 0, NULL, objfile);
if (self_subrange)
{
return init_type (TYPE_CODE_COMPLEX, 2 * n2, 0, NULL, objfile);
struct type *complex_type =
init_type (TYPE_CODE_COMPLEX, 2 * n2, 0, NULL, objfile);
TYPE_TARGET_TYPE (complex_type) = float_type;
return complex_type;
}
else
{
return init_type (TYPE_CODE_FLT, n2, 0, NULL, objfile);
}
return float_type;
}
/* If the upper bound is -1, it must really be an unsigned int. */