From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: by sourceware.org (Postfix, from userid 7876) id 5D951385CFC0; Mon, 11 Apr 2022 12:08:49 +0000 (GMT) DKIM-Filter: OpenDKIM Filter v2.11.0 sourceware.org 5D951385CFC0 Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: quoted-printable From: Nils-Christian Kempke To: gdb-cvs@sourceware.org Subject: [binutils-gdb] gdb/fortran: reformat build_fortran_types in f-lang.c X-Act-Checkin: binutils-gdb X-Git-Author: Nils-Christian Kempke X-Git-Refname: refs/heads/master X-Git-Oldrev: 4e436fdabe216b5684b4efb6978843b2380fe32a X-Git-Newrev: ed9ec61174d955a1cb79f4b96dd5339d3e4013ca Message-Id: <20220411120849.5D951385CFC0@sourceware.org> Date: Mon, 11 Apr 2022 12:08:49 +0000 (GMT) X-BeenThere: gdb-cvs@sourceware.org X-Mailman-Version: 2.1.29 Precedence: list List-Id: Gdb-cvs mailing list List-Unsubscribe: , List-Archive: List-Help: List-Subscribe: , X-List-Received-Date: Mon, 11 Apr 2022 12:08:49 -0000 https://sourceware.org/git/gitweb.cgi?p=3Dbinutils-gdb.git;h=3Ded9ec61174d9= 55a1cb79f4b96dd5339d3e4013ca commit ed9ec61174d955a1cb79f4b96dd5339d3e4013ca Author: Nils-Christian Kempke Date: Mon Apr 11 14:06:55 2022 +0200 gdb/fortran: reformat build_fortran_types in f-lang.c =20 Add a few newlines after the type definitions and remove some unnecessary linebreaks. Diff: --- gdb/f-lang.c | 18 ++++++++---------- 1 file changed, 8 insertions(+), 10 deletions(-) diff --git a/gdb/f-lang.c b/gdb/f-lang.c index 3c3ca0c0d71..80846244dfb 100644 --- a/gdb/f-lang.c +++ b/gdb/f-lang.c @@ -1620,39 +1620,36 @@ build_fortran_types (struct gdbarch *gdbarch) =3D arch_boolean_type (gdbarch, TARGET_CHAR_BIT, 1, "logical*1"); =20 builtin_f_type->builtin_integer_s1 - =3D arch_integer_type (gdbarch, TARGET_CHAR_BIT, 0, - "integer*1"); + =3D arch_integer_type (gdbarch, TARGET_CHAR_BIT, 0, "integer*1"); =20 builtin_f_type->builtin_integer_s2 - =3D arch_integer_type (gdbarch, gdbarch_short_bit (gdbarch), 0, - "integer*2"); + =3D arch_integer_type (gdbarch, gdbarch_short_bit (gdbarch), 0, "integ= er*2"); =20 builtin_f_type->builtin_integer_s8 =3D arch_integer_type (gdbarch, gdbarch_long_long_bit (gdbarch), 0, "integer*8"); =20 builtin_f_type->builtin_logical_s2 - =3D arch_boolean_type (gdbarch, gdbarch_short_bit (gdbarch), 1, - "logical*2"); + =3D arch_boolean_type (gdbarch, gdbarch_short_bit (gdbarch), 1, "logic= al*2"); =20 builtin_f_type->builtin_logical_s8 =3D arch_boolean_type (gdbarch, gdbarch_long_long_bit (gdbarch), 1, "logical*8"); =20 builtin_f_type->builtin_integer - =3D arch_integer_type (gdbarch, gdbarch_int_bit (gdbarch), 0, - "integer"); + =3D arch_integer_type (gdbarch, gdbarch_int_bit (gdbarch), 0, "integer= "); =20 builtin_f_type->builtin_logical - =3D arch_boolean_type (gdbarch, gdbarch_int_bit (gdbarch), 1, - "logical*4"); + =3D arch_boolean_type (gdbarch, gdbarch_int_bit (gdbarch), 1, "logical= *4"); =20 builtin_f_type->builtin_real =3D arch_float_type (gdbarch, gdbarch_float_bit (gdbarch), "real", gdbarch_float_format (gdbarch)); + builtin_f_type->builtin_real_s8 =3D arch_float_type (gdbarch, gdbarch_double_bit (gdbarch), "real*8", gdbarch_double_format (gdbarch)); + auto fmt =3D gdbarch_floatformat_for_type (gdbarch, "real(kind=3D16)", 1= 28); if (fmt !=3D nullptr) builtin_f_type->builtin_real_s16 @@ -1667,6 +1664,7 @@ build_fortran_types (struct gdbarch *gdbarch) =20 builtin_f_type->builtin_complex =3D init_complex_type ("complex*4", builtin_f_type->builtin_real); + builtin_f_type->builtin_complex_s8 =3D init_complex_type ("complex*8", builtin_f_type->builtin_real_s8);