diff options
| author | Ulrich Weigand <uweigand@de.ibm.com> | 2007-10-30 21:51:34 +0000 |
|---|---|---|
| committer | Ulrich Weigand <uweigand@de.ibm.com> | 2007-10-30 21:51:34 +0000 |
| commit | bb09620c178c29d93f4eec4169a289d336337de5 (patch) | |
| tree | 2bfba4b7257961de255fc696f97f9612737edbb6 /gdb | |
| parent | 8f4f3fbe31e52ff8d866167c822bc8ab0815c9ca (diff) | |
| download | gdb-bb09620c178c29d93f4eec4169a289d336337de5.zip gdb-bb09620c178c29d93f4eec4169a289d336337de5.tar.gz gdb-bb09620c178c29d93f4eec4169a289d336337de5.tar.bz2 | |
2007-10-30 Markus Deuling <deuling@de.ibm.com>
* f-lang.c (build_fortran_types): Replace current_gdbarch by gdbarch.
Diffstat (limited to 'gdb')
| -rw-r--r-- | gdb/ChangeLog | 4 | ||||
| -rw-r--r-- | gdb/f-lang.c | 20 |
2 files changed, 14 insertions, 10 deletions
diff --git a/gdb/ChangeLog b/gdb/ChangeLog index 3ae908c..691fb7a 100644 --- a/gdb/ChangeLog +++ b/gdb/ChangeLog @@ -1,5 +1,9 @@ 2007-10-30 Markus Deuling <deuling@de.ibm.com> + * f-lang.c (build_fortran_types): Replace current_gdbarch by gdbarch. + +2007-10-30 Markus Deuling <deuling@de.ibm.com> + * core-regset.c (fetch_core_registers): Use get_regcache_arch to get at the current architecture by regcache. diff --git a/gdb/f-lang.c b/gdb/f-lang.c index 0006ff8..ad6835e 100644 --- a/gdb/f-lang.c +++ b/gdb/f-lang.c @@ -530,45 +530,45 @@ build_fortran_types (struct gdbarch *gdbarch) builtin_f_type->builtin_integer_s2 = init_type (TYPE_CODE_INT, - gdbarch_short_bit (current_gdbarch) / TARGET_CHAR_BIT, + gdbarch_short_bit (gdbarch) / TARGET_CHAR_BIT, 0, "integer*2", (struct objfile *) NULL); builtin_f_type->builtin_logical_s2 = init_type (TYPE_CODE_BOOL, - gdbarch_short_bit (current_gdbarch) / TARGET_CHAR_BIT, + gdbarch_short_bit (gdbarch) / TARGET_CHAR_BIT, TYPE_FLAG_UNSIGNED, "logical*2", (struct objfile *) NULL); builtin_f_type->builtin_integer = init_type (TYPE_CODE_INT, - gdbarch_int_bit (current_gdbarch) / TARGET_CHAR_BIT, + gdbarch_int_bit (gdbarch) / TARGET_CHAR_BIT, 0, "integer", (struct objfile *) NULL); builtin_f_type->builtin_logical = init_type (TYPE_CODE_BOOL, - gdbarch_int_bit (current_gdbarch) / TARGET_CHAR_BIT, + gdbarch_int_bit (gdbarch) / TARGET_CHAR_BIT, TYPE_FLAG_UNSIGNED, "logical*4", (struct objfile *) NULL); builtin_f_type->builtin_real = init_type (TYPE_CODE_FLT, - gdbarch_float_bit (current_gdbarch) / TARGET_CHAR_BIT, + gdbarch_float_bit (gdbarch) / TARGET_CHAR_BIT, 0, "real", (struct objfile *) NULL); builtin_f_type->builtin_real_s8 = init_type (TYPE_CODE_FLT, - gdbarch_double_bit (current_gdbarch) / TARGET_CHAR_BIT, + gdbarch_double_bit (gdbarch) / TARGET_CHAR_BIT, 0, "real*8", (struct objfile *) NULL); builtin_f_type->builtin_real_s16 = init_type (TYPE_CODE_FLT, - gdbarch_long_double_bit (current_gdbarch) / TARGET_CHAR_BIT, + gdbarch_long_double_bit (gdbarch) / TARGET_CHAR_BIT, 0, "real*16", (struct objfile *) NULL); builtin_f_type->builtin_complex_s8 = init_type (TYPE_CODE_COMPLEX, - 2 * gdbarch_float_bit (current_gdbarch) / TARGET_CHAR_BIT, + 2 * gdbarch_float_bit (gdbarch) / TARGET_CHAR_BIT, 0, "complex*8", (struct objfile *) NULL); TYPE_TARGET_TYPE (builtin_f_type->builtin_complex_s8) @@ -576,7 +576,7 @@ build_fortran_types (struct gdbarch *gdbarch) builtin_f_type->builtin_complex_s16 = init_type (TYPE_CODE_COMPLEX, - 2 * gdbarch_double_bit (current_gdbarch) / TARGET_CHAR_BIT, + 2 * gdbarch_double_bit (gdbarch) / TARGET_CHAR_BIT, 0, "complex*16", (struct objfile *) NULL); TYPE_TARGET_TYPE (builtin_f_type->builtin_complex_s16) @@ -587,7 +587,7 @@ build_fortran_types (struct gdbarch *gdbarch) builtin_f_type->builtin_complex_s32 = init_type (TYPE_CODE_COMPLEX, - 2 * gdbarch_long_double_bit (current_gdbarch) / TARGET_CHAR_BIT, + 2 * gdbarch_long_double_bit (gdbarch) / TARGET_CHAR_BIT, 0, "complex*32", (struct objfile *) NULL); TYPE_TARGET_TYPE (builtin_f_type->builtin_complex_s32) |