diff options
| -rw-r--r-- | gdb/ChangeLog | 10 | ||||
| -rw-r--r-- | gdb/f-lang.c | 5 | ||||
| -rw-r--r-- | gdb/somread.c | 2 |
3 files changed, 13 insertions, 4 deletions
diff --git a/gdb/ChangeLog b/gdb/ChangeLog index 6a157f6..1bb15ab 100644 --- a/gdb/ChangeLog +++ b/gdb/ChangeLog @@ -1,3 +1,13 @@ +Mon Dec 12 13:06:59 1994 Jim Kingdon <kingdon@deneb.cygnus.com> + + * f-lang.c: Remove duplicate declaration of + builtin_type_f_integer, and only include it in the f_builtin_types + once. + + * somread.c (som_symfile_read): Just assign to objfile->obj_private, + not OBJ_UNWIND_INFO. Assigning to a cast is a GCC-ism which + the HP compiler doesn't like. + Mon Dec 12 12:22:21 1994 Stu Grossman (grossman@cygnus.com) * gdbtk.c: New tcl commands: gdb_fetch_registers, diff --git a/gdb/f-lang.c b/gdb/f-lang.c index 77dce4f..7a1f714 100644 --- a/gdb/f-lang.c +++ b/gdb/f-lang.c @@ -373,10 +373,10 @@ static const struct op_print f_op_print_tab[] = { { NULL, 0, 0, 0 } }; -/* The built-in types of F77. */ +/* The built-in types of F77. FIXME: integer*4 is missing, plain + logical is missing (builtin_type_logical is logical*4). */ struct type *builtin_type_f_character; -struct type *builtin_type_f_integer; struct type *builtin_type_f_logical; struct type *builtin_type_f_logical_s1; struct type *builtin_type_f_logical_s2; @@ -393,7 +393,6 @@ struct type *builtin_type_f_void; struct type ** const (f_builtin_types[]) = { &builtin_type_f_character, - &builtin_type_f_integer, &builtin_type_f_logical, &builtin_type_f_logical_s1, &builtin_type_f_logical_s2, diff --git a/gdb/somread.c b/gdb/somread.c index d6d877f..afb7642 100644 --- a/gdb/somread.c +++ b/gdb/somread.c @@ -349,7 +349,7 @@ som_symfile_read (objfile, section_offsets, mainline) install_minimal_symbols (objfile); /* Force hppa-tdep.c to re-read the unwind descriptors. */ - OBJ_UNWIND_INFO (objfile) = NULL; + objfile->obj_private = NULL; do_cleanups (back_to); } |