* corelow.c (core_close): Clear inferior_pid only if there is

	an open core_bfd.

	* cp-valprint.c (cp_print_value_fields):  Pass correct address
	to val_print, not 0.

	From Andreas Schwab (schwab@issan.informatik.uni-dortmund.de):
	* eval.c (evaluate_subexp_standard) [case BINOP_REPEAT]: Chase
	typedefs before checking for integral type of right operand.

diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index bea4a5c..f0ce558 100644 (file)
--- a/gdb/ChangeLog
+++ b/gdb/ChangeLog
@@ -1,3 +1,15 @@
+Sun Oct 20 04:38:39 1996  Peter Schauer  (pes@regent.e-technik.tu-muenchen.de)
+
+       * corelow.c (core_close):  Clear inferior_pid only if there is
+       an open core_bfd.
+
+       * cp-valprint.c (cp_print_value_fields):  Pass correct address
+       to val_print, not 0.
+
+       From Andreas Schwab (schwab@issan.informatik.uni-dortmund.de):
+       * eval.c (evaluate_subexp_standard) [case BINOP_REPEAT]: Chase
+       typedefs before checking for integral type of right operand.
+
 Fri Oct 18 17:26:22 1996  Mark Alexander  <marka@cygnus.com>
 
        * mdebugread.c (parse_symbol): Fix crash when malloc has

diff --git a/gdb/corelow.c b/gdb/corelow.c
index 1bbc47c..c3ddebb 100644 (file)
--- a/gdb/corelow.c
+++ b/gdb/corelow.c
@@ -1,5 +1,5 @@
 /* Core dump and executable file functions below target vector, for GDB.
-   Copyright 1986, 1987, 1989, 1991, 1992, 1993, 1994, 1995
+   Copyright 1986, 1987, 1989, 1991, 1992, 1993, 1994, 1995, 1996
    Free Software Foundation, Inc.
 
 This file is part of GDB.
@@ -80,10 +80,10 @@ core_close (quitting)
 {
   char *name;
 
-  inferior_pid = 0;            /* Avoid confusion from thread stuff */
-
   if (core_bfd)
     {
+      inferior_pid = 0;                /* Avoid confusion from thread stuff */
+
       name = bfd_get_filename (core_bfd);
       if (!bfd_close (core_bfd))
        warning ("cannot close \"%s\": %s",

diff --git a/gdb/cp-valprint.c b/gdb/cp-valprint.c
index 48f4905..b2015c7 100644 (file)
--- a/gdb/cp-valprint.c
+++ b/gdb/cp-valprint.c
@@ -351,7 +351,8 @@ cp_print_value_fields (type, valaddr, address, stream, format, recurse, pretty,
                {
                   val_print (TYPE_FIELD_TYPE (type, i), 
                              valaddr + TYPE_FIELD_BITPOS (type, i) / 8,
-                             0, stream, format, 0, recurse + 1, pretty);
+                             address + TYPE_FIELD_BITPOS (type, i) / 8,
+                             stream, format, 0, recurse + 1, pretty);
                }
            }
          annotate_field_end ();