diff options
| author | Tom Tromey <tom@tromey.com> | 2023-03-13 11:30:08 -0600 |
|---|---|---|
| committer | Tom Tromey <tom@tromey.com> | 2023-03-18 11:12:38 -0600 |
| commit | 77c5f49648cc39d9e4b1bd0411998ec42375654b (patch) | |
| tree | 3408ebafaa9c105fddb231e71005171f4be8df26 /gdb/f-lang.c | |
| parent | 46c04ea32f7f259432a68b002a13cdea86f9f902 (diff) | |
| download | gdb-77c5f49648cc39d9e4b1bd0411998ec42375654b.zip gdb-77c5f49648cc39d9e4b1bd0411998ec42375654b.tar.gz gdb-77c5f49648cc39d9e4b1bd0411998ec42375654b.tar.bz2 | |
Unify arch_float_type and init_float_type
This unifies arch_float_type and init_float_type by using a type
allocator.
Reviewed-By: Simon Marchi <simon.marchi@efficios.com>
Diffstat (limited to 'gdb/f-lang.c')
| -rw-r--r-- | gdb/f-lang.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/gdb/f-lang.c b/gdb/f-lang.c index 482ae68..3fc4334 100644 --- a/gdb/f-lang.c +++ b/gdb/f-lang.c @@ -1759,20 +1759,20 @@ build_fortran_types (struct gdbarch *gdbarch) "integer*8"); builtin_f_type->builtin_real - = arch_float_type (gdbarch, gdbarch_float_bit (gdbarch), + = init_float_type (alloc, gdbarch_float_bit (gdbarch), "real*4", gdbarch_float_format (gdbarch)); builtin_f_type->builtin_real_s8 - = arch_float_type (gdbarch, gdbarch_double_bit (gdbarch), + = init_float_type (alloc, gdbarch_double_bit (gdbarch), "real*8", gdbarch_double_format (gdbarch)); auto fmt = gdbarch_floatformat_for_type (gdbarch, "real(kind=16)", 128); if (fmt != nullptr) builtin_f_type->builtin_real_s16 - = arch_float_type (gdbarch, 128, "real*16", fmt); + = init_float_type (alloc, 128, "real*16", fmt); else if (gdbarch_long_double_bit (gdbarch) == 128) builtin_f_type->builtin_real_s16 - = arch_float_type (gdbarch, gdbarch_long_double_bit (gdbarch), + = init_float_type (alloc, gdbarch_long_double_bit (gdbarch), "real*16", gdbarch_long_double_format (gdbarch)); else builtin_f_type->builtin_real_s16 |