* gdb.fortran/types.exp: Escape brackets in expect patterns

[binutils.git] / gdb / mn10200-tdep.c

diff --git a/gdb/mn10200-tdep.c b/gdb/mn10200-tdep.c
index 630037306179f50683a0666f8c058dff64cb08ec..757f2bae37e2f682cccdd719618c806aeea943ff 100644 (file)
--- a/gdb/mn10200-tdep.c
+++ b/gdb/mn10200-tdep.c
@@ -123,7 +123,8 @@ mn10200_analyze_prologue (fi, pc)
   /* If we're in start, then give up.  */
   if (strcmp (name, "start") == 0)
     {
-      fi->status = NO_MORE_FRAMES;
+      if (fi)
+        fi->status = NO_MORE_FRAMES;
       return pc;
     }
 
@@ -327,7 +328,7 @@ mn10200_analyze_prologue (fi, pc)
        }
       
       /* Get the PC this instruction will branch to.  */
-      temp = (extract_signed_integer (buf, 2) + addr) & 0xffffff;
+      temp = (extract_signed_integer (buf, 2) + addr + 3) & 0xffffff;
 
       /* Get the name of the function at the target address.  */
       status = find_pc_partial_function (temp, &name, NULL, NULL);
@@ -368,7 +369,7 @@ mn10200_analyze_prologue (fi, pc)
        }
       
       /* Get the PC this instruction will branch to.  */
-      temp = (extract_signed_integer (buf, 3) + addr) & 0xffffff;
+      temp = (extract_signed_integer (buf, 3) + addr + 5) & 0xffffff;
 
       /* Get the name of the function at the target address.  */
       status = find_pc_partial_function (temp, &name, NULL, NULL);