From c676d8274d8cea8f3eb8a35ef8def259f82b723d Mon Sep 17 00:00:00 2001 From: Jim Kingdon Date: Mon, 12 Dec 1994 21:21:10 +0000 Subject: [PATCH] * 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. --- gdb/ChangeLog | 10 ++++++++++ gdb/f-lang.c | 5 ++--- gdb/somread.c | 2 +- 3 files changed, 13 insertions(+), 4 deletions(-) diff --git a/gdb/ChangeLog b/gdb/ChangeLog index 6a157f631d..1bb15ab354 100644 --- a/gdb/ChangeLog +++ b/gdb/ChangeLog @@ -1,3 +1,13 @@ +Mon Dec 12 13:06:59 1994 Jim Kingdon + + * 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 77dce4f517..7a1f7142b6 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 d6d877f4d3..afb7642e9c 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); } -- 2.34.1