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

2002-03-20 Daniel Jacobowitz <drow@mvista.com>

Browse Source 
Fix PR gdb/422.
        * c-lang.c (c_create_fundamental_type): Handle FT_COMPLEX,
        FT_DBL_PREC_COMPLEX, and FT_EXT_PREC_COMPLEX.
        * dwarf2read.c (read_base_type): Set TYPE_TARGET_TYPE for
        complex types.
        * stabsread.c (rs6000_builtin_type): Likewise.
        (read_sun_floating_type): Likewise.
This commit is contained in:
Daniel Jacobowitz
2002-03-21 00:53:44 +00:00
parent ae5742ba51
commit f65ca430eb
4 changed files with 57 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
gdb/stabsread.c
View File

@@ -2978,10 +2978,14 @@ rs6000_builtin_type (int typenum)
case 25:
/* Complex type consisting of two IEEE single precision values. */
rettype = init_type (TYPE_CODE_COMPLEX, 8, 0, "complex", NULL);
TYPE_TARGET_TYPE (rettype) = init_type (TYPE_CODE_FLT, 4, 0, "float",
NULL);
break;
case 26:
/* Complex type consisting of two IEEE double precision values. */
rettype = init_type (TYPE_CODE_COMPLEX, 16, 0, "double complex", NULL);
TYPE_TARGET_TYPE (rettype) = init_type (TYPE_CODE_FLT, 8, 0, "double",
NULL);
break;
case 27:
rettype = init_type (TYPE_CODE_INT, 1, 0, "integer*1", NULL);
@@ -4491,6 +4495,7 @@ read_sun_floating_type (char **pp, int typenums[2], struct objfile *objfile)
int nbits;
int details;
int nbytes;
struct type *rettype;
/* The first number has more details about the type, for example
FN_COMPLEX. */
@@ -4505,9 +4510,12 @@ read_sun_floating_type (char **pp, int typenums[2], struct objfile *objfile)
if (details == NF_COMPLEX || details == NF_COMPLEX16
|| details == NF_COMPLEX32)
/* This is a type we can't handle, but we do know the size.
We also will be able to give it a name. */
return init_type (TYPE_CODE_COMPLEX, nbytes, 0, NULL, objfile);
{
rettype = init_type (TYPE_CODE_COMPLEX, nbytes, 0, NULL, objfile);
TYPE_TARGET_TYPE (rettype)
= init_type (TYPE_CODE_FLT, nbytes / 2, 0, NULL, objfile);
return rettype;
}
return init_type (TYPE_CODE_FLT, nbytes, 0, NULL, objfile);
}