2002-11-18 Andrew Cagney <ac131313@redhat.com>
[deliverable/binutils-gdb.git] / gdb / m68klinux-nat.c
index 75427e3d942bfc2ed90dcf634ebd0708db8215db..b2d3a6faa965cece37e0db54f0b6546b4893ddb5 100644 (file)
@@ -1,5 +1,7 @@
-/* Motorola m68k native support for Linux
-   Copyright 1996, 1998, 2000, 2001 Free Software Foundation, Inc.
+/* Motorola m68k native support for GNU/Linux.
+
+   Copyright 1996, 1998, 2000, 2001, 2002 Free Software Foundation,
+   Inc.
 
    This file is part of GDB.
 
@@ -381,7 +383,7 @@ fill_fpregset (elf_fpregset_t *fpregsetp, int regno)
   /* Fill in the floating-point control registers.  */
   for (i = FPC_REGNUM; i <= FPI_REGNUM; i++)
     if (regno == -1 || regno == i)
-      regcache_collect (regno, fpregsetp->fpcntl[regno - FPC_REGNUM]);
+      regcache_collect (regno, (char *) &fpregsetp->fpcntl[regno - FPC_REGNUM]);
 }
 
 #ifdef HAVE_PTRACE_GETREGS
@@ -445,7 +447,7 @@ fetch_inferior_registers (int regno)
       return;
     }
 
-  /* Linux LWP ID's are process ID's.  */
+  /* GNU/Linux LWP ID's are process ID's.  */
   if ((tid = TIDGET (inferior_ptid)) == 0)
     tid = PIDGET (inferior_ptid);              /* Not a threaded program.  */
 
@@ -500,7 +502,7 @@ store_inferior_registers (int regno)
       return;
     }
 
-  /* Linux LWP ID's are process ID's.  */
+  /* GNU/Linux LWP ID's are process ID's.  */
   if ((tid = TIDGET (inferior_ptid)) == 0)
     tid = PIDGET (inferior_ptid);      /* Not a threaded program.  */
 
@@ -546,7 +548,7 @@ store_inferior_registers (int regno)
      0 --- the general-purpose register set, in elf_gregset_t format
      2 --- the floating-point register set, in elf_fpregset_t format
 
-   REG_ADDR isn't used on Linux.  */
+   REG_ADDR isn't used on GNU/Linux.  */
 
 static void
 fetch_core_registers (char *core_reg_sect, unsigned core_reg_size,
@@ -592,42 +594,105 @@ kernel_u_size (void)
   return (sizeof (struct user));
 }
 \f
-/* Return non-zero if PC points into the signal trampoline.  */
+/* Check whether insn1 and insn2 are parts of a signal trampoline.  */
+
+#define IS_SIGTRAMP(insn1, insn2)                                      \
+  (/* addaw #20,sp; moveq #119,d0; trap #0 */                          \
+   (insn1 == 0xdefc0014 && insn2 == 0x70774e40)                                \
+   /* moveq #119,d0; trap #0 */                                                \
+   || insn1 == 0x70774e40)
+
+#define IS_RT_SIGTRAMP(insn1, insn2)                                   \
+  (/* movel #173,d0; trap #0 */                                                \
+   (insn1 == 0x203c0000 && insn2 == 0x00ad4e40)                                \
+   /* moveq #82,d0; notb d0; trap #0 */                                        \
+   || (insn1 == 0x70524600 && (insn2 >> 16) == 0x4e40))
+
+/* Return non-zero if PC points into the signal trampoline.  For the sake
+   of m68k_linux_frame_saved_pc we also distinguish between non-RT and RT
+   signal trampolines.  */
 
 int
-in_sigtramp (CORE_ADDR pc)
+m68k_linux_in_sigtramp (CORE_ADDR pc)
 {
   CORE_ADDR sp;
-  char buf[TARGET_SHORT_BIT / TARGET_CHAR_BIT];
-  int insn;
+  char buf[12];
+  unsigned long insn0, insn1, insn2;
 
-  sp = read_register (SP_REGNUM);
-  if (pc - 2 < sp)
+  if (read_memory_nobpt (pc - 4, buf, sizeof (buf)))
     return 0;
+  insn1 = extract_unsigned_integer (buf + 4, 4);
+  insn2 = extract_unsigned_integer (buf + 8, 4);
+  if (IS_SIGTRAMP (insn1, insn2))
+    return 1;
+  if (IS_RT_SIGTRAMP (insn1, insn2))
+    return 2;
 
-  if (read_memory_nobpt (pc, buf, sizeof (buf)))
-    return 0;
-  insn = extract_unsigned_integer (buf, sizeof (buf));
-  if (insn == 0xdefc           /* addaw #,sp */
-      || insn == 0x7077                /* moveq #119,d0 */
-      || insn == 0x4e40                /* trap #0 */
-      || insn == 0x203c /* movel #,d0 */ )
+  insn0 = extract_unsigned_integer (buf, 4);
+  if (IS_SIGTRAMP (insn0, insn1))
     return 1;
+  if (IS_RT_SIGTRAMP (insn0, insn1))
+    return 2;
 
-  if (read_memory_nobpt (pc - 2, buf, sizeof (buf)))
-    return 0;
-  insn = extract_unsigned_integer (buf, sizeof (buf));
-  if (insn == 0xdefc           /* addaw #,sp */
-      || insn == 0x7077                /* moveq #119,d0 */
-      || insn == 0x4e40                /* trap #0 */
-      || insn == 0x203c /* movel #,d0 */ )
+  insn0 = (insn0 << 16) | (insn1 >> 16);
+  insn1 = (insn1 << 16) | (insn2 >> 16);
+  if (IS_SIGTRAMP (insn0, insn1))
     return 1;
+  if (IS_RT_SIGTRAMP (insn0, insn1))
+    return 2;
 
   return 0;
 }
 
+/* Offset to saved PC in sigcontext, from <asm/sigcontext.h>.  */
+#define SIGCONTEXT_PC_OFFSET 26
+
+/* Offset to saved PC in ucontext, from <asm/ucontext.h>.  */
+#define UCONTEXT_PC_OFFSET 88
+
+/* Get saved user PC for sigtramp from sigcontext or ucontext.  */
+
+static CORE_ADDR
+m68k_linux_sigtramp_saved_pc (struct frame_info *frame)
+{
+  CORE_ADDR sigcontext_addr;
+  char buf[TARGET_PTR_BIT / TARGET_CHAR_BIT];
+  int ptrbytes = TARGET_PTR_BIT / TARGET_CHAR_BIT;
+  int sigcontext_offs = (2 * TARGET_INT_BIT) / TARGET_CHAR_BIT;
+
+  /* Get sigcontext address, it is the third parameter on the stack.  */
+  if (frame->next)
+    sigcontext_addr = read_memory_integer (FRAME_ARGS_ADDRESS (frame->next)
+                                          + FRAME_ARGS_SKIP
+                                          + sigcontext_offs,
+                                          ptrbytes);
+  else
+    sigcontext_addr = read_memory_integer (read_register (SP_REGNUM)
+                                          + sigcontext_offs,
+                                          ptrbytes);
+
+  /* Don't cause a memory_error when accessing sigcontext in case the
+     stack layout has changed or the stack is corrupt.  */
+  if (m68k_linux_in_sigtramp (frame->pc) == 2)
+    target_read_memory (sigcontext_addr + UCONTEXT_PC_OFFSET, buf, ptrbytes);
+  else
+    target_read_memory (sigcontext_addr + SIGCONTEXT_PC_OFFSET, buf, ptrbytes);
+  return extract_unsigned_integer (buf, ptrbytes);
+}
+
+/* Return the saved program counter for FRAME.  */
+
+CORE_ADDR
+m68k_linux_frame_saved_pc (struct frame_info *frame)
+{
+  if ((get_frame_type (frame) == SIGTRAMP_FRAME))
+    return m68k_linux_sigtramp_saved_pc (frame);
+
+  return read_memory_integer (frame->frame + 4, 4);
+}
 \f
-/* Register that we are able to handle Linux ELF core file formats.  */
+/* Register that we are able to handle GNU/Linux ELF core file
+   formats.  */
 
 static struct core_fns linux_elf_core_fns =
 {
@@ -639,7 +704,7 @@ static struct core_fns linux_elf_core_fns =
 };
 
 void
-_initialize_m68k_linux_nat ()
+_initialize_m68k_linux_nat (void)
 {
   add_core_fns (&linux_elf_core_fns);
 }
This page took 0.029462 seconds and 4 git commands to generate.