* c-exp.y (enum token_flags): New.

[deliverable/binutils-gdb.git] / gdb / sparc-linux-tdep.c

diff --git a/gdb/sparc-linux-tdep.c b/gdb/sparc-linux-tdep.c
index 858d0ce70914eca13726b5f03a5334ab1f177518..63c12e304f8032a8ac0e32fc874b2f776b2aa8b3 100644 (file)
--- a/gdb/sparc-linux-tdep.c
+++ b/gdb/sparc-linux-tdep.c
@@ -1,6 +1,6 @@
 /* Target-dependent code for GNU/Linux SPARC.
 
-   Copyright (C) 2003, 2004, 2005, 2007, 2008 Free Software Foundation, Inc.
+   Copyright (C) 2003-2005, 2007-2012 Free Software Foundation, Inc.
 
    This file is part of GDB.
 
@@ -31,6 +31,11 @@
 #include "symtab.h"
 #include "trad-frame.h"
 #include "tramp-frame.h"
+#include "xml-syscall.h"
+#include "linux-tdep.h"
+
+/* The syscall's XML filename for sparc 32-bit.  */
+#define XML_SYSCALL_FILENAME_SPARC32 "syscalls/sparc-linux.xml"
 
 #include "sparc-tdep.h"
 
@@ -135,9 +140,12 @@ sparc32_linux_step_trap (struct frame_info *frame, unsigned long insn)
     {
       ULONGEST sc_num = get_frame_register_unsigned (frame, SPARC_G1_REGNUM);
 
-      /* __NR_rt_sigreturn is 101 and __NR_sigreturn is 216  */
+      /* __NR_rt_sigreturn is 101 and __NR_sigreturn is 216.  */
       if (sc_num == 101 || sc_num == 216)
        {
+         struct gdbarch *gdbarch = get_frame_arch (frame);
+         enum bfd_endian byte_order = gdbarch_byte_order (gdbarch);
+
          ULONGEST sp, pc_offset;
 
          sp = get_frame_register_unsigned (frame, SPARC_SP_REGNUM);
@@ -157,7 +165,7 @@ sparc32_linux_step_trap (struct frame_info *frame, unsigned long insn)
          if (sc_num == 101)
            pc_offset += 128;
 
-         return read_memory_unsigned_integer (sp + pc_offset, 4);
+         return read_memory_unsigned_integer (sp + pc_offset, 4, byte_order);
        }
     }
 
@@ -184,7 +192,8 @@ sparc32_linux_supply_core_gregset (const struct regset *regset,
                                   struct regcache *regcache,
                                   int regnum, const void *gregs, size_t len)
 {
-  sparc32_supply_gregset (&sparc32_linux_core_gregset, regcache, regnum, gregs);
+  sparc32_supply_gregset (&sparc32_linux_core_gregset,
+                         regcache, regnum, gregs);
 }
 
 static void
@@ -192,7 +201,8 @@ sparc32_linux_collect_core_gregset (const struct regset *regset,
                                    const struct regcache *regcache,
                                    int regnum, void *gregs, size_t len)
 {
-  sparc32_collect_gregset (&sparc32_linux_core_gregset, regcache, regnum, gregs);
+  sparc32_collect_gregset (&sparc32_linux_core_gregset,
+                          regcache, regnum, gregs);
 }
 
 static void
@@ -211,6 +221,53 @@ sparc32_linux_collect_core_fpregset (const struct regset *regset,
   sparc32_collect_fpregset (regcache, regnum, fpregs);
 }
 
+/* Set the program counter for process PTID to PC.  */
+
+#define PSR_SYSCALL    0x00004000
+
+static void
+sparc_linux_write_pc (struct regcache *regcache, CORE_ADDR pc)
+{
+  struct gdbarch_tdep *tdep = gdbarch_tdep (get_regcache_arch (regcache));
+  ULONGEST psr;
+
+  regcache_cooked_write_unsigned (regcache, tdep->pc_regnum, pc);
+  regcache_cooked_write_unsigned (regcache, tdep->npc_regnum, pc + 4);
+
+  /* Clear the "in syscall" bit to prevent the kernel from
+     messing with the PCs we just installed, if we happen to be
+     within an interrupted system call that the kernel wants to
+     restart.
+
+     Note that after we return from the dummy call, the PSR et al.
+     registers will be automatically restored, and the kernel
+     continues to restart the system call at this point.  */
+  regcache_cooked_read_unsigned (regcache, SPARC32_PSR_REGNUM, &psr);
+  psr &= ~PSR_SYSCALL;
+  regcache_cooked_write_unsigned (regcache, SPARC32_PSR_REGNUM, psr);
+}
+
+static LONGEST
+sparc32_linux_get_syscall_number (struct gdbarch *gdbarch,
+                                 ptid_t ptid)
+{
+  struct regcache *regcache = get_thread_regcache (ptid);
+  enum bfd_endian byte_order = gdbarch_byte_order (gdbarch);
+  /* The content of a register.  */
+  gdb_byte buf[4];
+  /* The result.  */
+  LONGEST ret;
+
+  /* Getting the system call number from the register.
+     When dealing with the sparc architecture, this information
+     is stored at the %g1 register.  */
+  regcache_cooked_read (regcache, SPARC_G1_REGNUM, buf);
+
+  ret = extract_signed_integer (buf, 4, byte_order);
+
+  return ret;
+}
+
 \f
 
 static void
@@ -218,6 +275,8 @@ sparc32_linux_init_abi (struct gdbarch_info info, struct gdbarch *gdbarch)
 {
   struct gdbarch_tdep *tdep = gdbarch_tdep (gdbarch);
 
+  linux_init_abi (info, gdbarch);
+
   tdep->gregset = regset_alloc (gdbarch, sparc32_linux_supply_core_gregset,
                                sparc32_linux_collect_core_gregset);
   tdep->sizeof_gregset = 152;
@@ -238,10 +297,6 @@ sparc32_linux_init_abi (struct gdbarch_info info, struct gdbarch *gdbarch)
      prologue analysis.  */
   tdep->plt_entry_size = 12;
 
-  /* GNU/Linux doesn't support the 128-bit `long double' from the psABI.  */
-  set_gdbarch_long_double_bit (gdbarch, 64);
-  set_gdbarch_long_double_format (gdbarch, floatformats_ieee_double);
-
   /* Enable TLS support.  */
   set_gdbarch_fetch_tls_load_module_address (gdbarch,
                                              svr4_fetch_objfile_link_map);
@@ -250,7 +305,14 @@ sparc32_linux_init_abi (struct gdbarch_info info, struct gdbarch *gdbarch)
   tdep->step_trap = sparc32_linux_step_trap;
 
   /* Hook in the DWARF CFI frame unwinder.  */
-  frame_unwind_append_sniffer (gdbarch, dwarf2_frame_sniffer);
+  dwarf2_append_unwinders (gdbarch);
+
+  set_gdbarch_write_pc (gdbarch, sparc_linux_write_pc);
+
+  /* Functions for 'catch syscall'.  */
+  set_xml_syscall_file_name (XML_SYSCALL_FILENAME_SPARC32);
+  set_gdbarch_get_syscall_number (gdbarch,
+                                  sparc32_linux_get_syscall_number);
 }
 
 /* Provide a prototype to silence -Wmissing-prototypes.  */