From mboxrd@z Thu Jan  1 00:00:00 1970
From: Jim Blandy <jimb@zwingli.cygnus.com>
To: gdb-patches@sources.redhat.com
Subject: PATCH: S/390: get return address properly when still in register
Date: Thu, 29 Nov 2001 09:39:00 -0000
Message-ID: <np3d2xh3ve.fsf@zwingli.cygnus.com>
X-SW-Source: 2001-11/msg00561.html
Message-ID: <20011129093900.mcEDK7bg0qJHGPAuFRfeWLZroR-UH_fldqn3GqSUESc@z>

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.

Index: gdb/s390-tdep.c
===================================================================
RCS file: /cvs/cvsfiles/devo/gdb/s390-tdep.c,v
retrieving revision 2.21
diff -c -r2.21 s390-tdep.c
*** gdb/s390-tdep.c	2001/11/28 03:41:53	2.21
--- gdb/s390-tdep.c	2001/11/29 04:59:51
***************
*** 901,906 ****
--- 901,908 ----
  					(fi->saved_regs[S390_RETADDR_REGNUM],
  					 S390_GPR_SIZE)));
  	    }
+           else
+             return read_register (S390_RETADDR_REGNUM);
  	}
      }
    return 0;