From: Richard Henderson <rth@redhat.com>
Date: Sun, 1 Jun 2003 16:04:50 +0000 (+0000)
Subject:         * dwarf2-frame.c (dwarf2_frame_cache): Handle retaddr_column
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=f3e0f90b5ddd9d2391a465142ca9f274cff8bc19;p=binutils-gdb.git

    * dwarf2-frame.c (dwarf2_frame_cache): Handle retaddr_column
        not overlapping PC_REGNUM.
---

diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index db2244b8655..121ba17acb2 100644
--- a/gdb/ChangeLog
+++ b/gdb/ChangeLog
@@ -1,3 +1,8 @@
+2003-06-01  Richard Henderson  <rth@redhat.com>
+
+        * dwarf2-frame.c (dwarf2_frame_cache): Handle retaddr_column
+        not overlapping PC_REGNUM.
+
 2003-06-01  Richard Henderson  <rth@redhat.com>
 
         * alpha-tdep.c (alpha_push_dummy_call): Transmography from
diff --git a/gdb/dwarf2-frame.c b/gdb/dwarf2-frame.c
index 7694218b904..f406e64ca31 100644
--- a/gdb/dwarf2-frame.c
+++ b/gdb/dwarf2-frame.c
@@ -550,9 +550,21 @@ dwarf2_frame_cache (struct frame_info *next_frame, void **this_cache)
 	cache->reg[regnum] = fs->regs.reg[reg];
     }
 
-  /* Stored the location of the return addess.  */
-  if (fs->retaddr_column < fs->regs.num_regs)
+  /* Store the location of the return addess.  If the return address
+     column (adjusted) is not the same as gdb's PC_REGNUM, then this
+     implies a copy from the ra column register.  */
+  if (fs->retaddr_column < fs->regs.num_regs
+      && fs->regs.reg[fs->retaddr_column].how != REG_UNSAVED)
     cache->reg[PC_REGNUM] = fs->regs.reg[fs->retaddr_column];
+  else
+    {
+      reg = DWARF2_REG_TO_REGNUM (fs->retaddr_column);
+      if (reg != PC_REGNUM)
+	{
+	  cache->reg[PC_REGNUM].loc.reg = reg;
+	  cache->reg[PC_REGNUM].how = REG_SAVED_REG;
+	}
+    }
 
   do_cleanups (old_chain);