yggdrasil/binutils-gdb
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

gdb, fortran: Fix quad floating-point type for ifort compiler.

Browse Source 
I fixed this a while ago for ifx, one of the two Intel compilers, in
8d624a9d80.

Apparently I missed that the older ifort Intel compiler actually emits
slightly different debug info again:

0x0000007a:   DW_TAG_base_type
                DW_AT_byte_size	(0x20)
                DW_AT_encoding	(DW_ATE_complex_float)
                DW_AT_name	("COMPLEX(16)")

0x00000081:   DW_TAG_base_type
                DW_AT_byte_size	(0x10)
                DW_AT_encoding	(DW_ATE_float)
                DW_AT_name	("REAL(16)")

This fixes two failures in gdb.fortran/complex.exp with ifort.

Approved-By: Tom Tromey <tom@tromey.com>
This commit is contained in:
Felix Willgerodt
2023-02-13 11:02:23 +01:00
parent c22a747283
commit ecbc5c4f90
1 changed files with 3 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files
gdb/i386-tdep.c
+3 -1
View File
@@ -8238,12 +8238,14 @@ i386_floatformat_for_type (struct gdbarch *gdbarch,
|| strcmp (name, "_Float128") == 0
|| strcmp (name, "complex _Float128") == 0
|| strcmp (name, "complex(kind=16)") == 0
|| strcmp (name, "COMPLEX(16)") == 0
|| strcmp (name, "complex*32") == 0
|| strcmp (name, "COMPLEX*32") == 0
|| strcmp (name, "quad complex") == 0
|| strcmp (name, "real(kind=16)") == 0
|| strcmp (name, "real*16") == 0
|| strcmp (name, "REAL*16") == 0)
|| strcmp (name, "REAL*16") == 0
|| strcmp (name, "REAL(16)") == 0)
return floatformats_ieee_quad;
return default_floatformat_for_type (gdbarch, name, len);