* s390-tdep.c (s390_frame_saved_pc_nofix): If the prologue didn't

save the return address register, assume that the return address
is still in there.

diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index 884d17df0bfa54b75b6482e58e6d2cfdaa8882d2..2d12545c118041ce25769bcd4705f29d96e026be 100644 (file)
--- a/gdb/ChangeLog
+++ b/gdb/ChangeLog
@@ -1,3 +1,9 @@
+2001-11-29  Jim Blandy  <jimb@redhat.com>
+
+       * s390-tdep.c (s390_frame_saved_pc_nofix): If the prologue didn't
+       save the return address register, assume that the return address
+       is still in there.
+
 2001-11-27  Andrew Cagney  <ac131313@redhat.com>
 
        * MAINTAINERS: Clarify obvious fix a little (as suggested by Eli

diff --git a/gdb/s390-tdep.c b/gdb/s390-tdep.c
index 61f4ae8939af6ec7e35eba4008169416ff08cb19..465780f04f3f99df2d83355f40e17961332ed818 100644 (file)
--- a/gdb/s390-tdep.c
+++ b/gdb/s390-tdep.c
@@ -901,6 +901,8 @@ s390_frame_saved_pc_nofix (struct frame_info *fi)
                                        (fi->saved_regs[S390_RETADDR_REGNUM],
                                         S390_GPR_SIZE)));
            }
+          else
+            return read_register (S390_RETADDR_REGNUM);
        }
     }
   return 0;