* breakpoint.h (enum enable): New enum shlib_disabled for

[deliverable/binutils-gdb.git] / gdb / hppab-nat.c

diff --git a/gdb/hppab-nat.c b/gdb/hppab-nat.c
index 990c952660fb56208c4d587292f0ddcadb3c2976..57360f3fd640ef3b4fcfd6ca93f65d3783d4e1d7 100644 (file)
--- a/gdb/hppab-nat.c
+++ b/gdb/hppab-nat.c
@@ -20,7 +20,7 @@ GNU General Public License for more details.
 
 You should have received a copy of the GNU General Public License
 along with this program; if not, write to the Free Software
-Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.  */
+Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.  */
 
 #include "defs.h"
 #include "inferior.h"
@@ -105,38 +105,111 @@ store_inferior_registers (regno)
      int regno;
 {
   register unsigned int regaddr;
+  char buf[80];
   extern char registers[];
   register int i;
-
   unsigned int offset = U_REGS_OFFSET;
+  int scratch;
 
   if (regno >= 0)
     {
+      if (CANNOT_STORE_REGISTER (regno))
+       return;
       regaddr = register_addr (regno, offset);
-      for (i = 0; i < REGISTER_RAW_SIZE (regno); i += sizeof(int))
-       {
-         errno = 0;
-         ptrace (PT_WUREGS, inferior_pid, (PTRACE_ARG3_TYPE) regaddr,
-                 *(int *) &registers[REGISTER_BYTE (regno) + i]);
-         if (errno != 0)
-           {
-             char *err = safe_strerror (errno);
-             char *msg = alloca (strlen (err) + 128);
-             sprintf (msg, "writing register %s: %s", reg_names[regno], err);
-             warning (msg);
-           }
-         regaddr += sizeof(int);
-       }
+      errno = 0;
+      if (regno == PCOQ_HEAD_REGNUM || regno == PCOQ_TAIL_REGNUM)
+        {
+          scratch = *(int *) &registers[REGISTER_BYTE (regno)] | 0x3;
+          ptrace (PT_WUREGS, inferior_pid, (PTRACE_ARG3_TYPE) regaddr,
+                  scratch);
+          if (errno != 0)
+            {
+             /* Error, even if attached.  Failing to write these two
+                registers is pretty serious.  */
+              sprintf (buf, "writing register number %d", regno);
+              perror_with_name (buf);
+            }
+        }
+      else
+       for (i = 0; i < REGISTER_RAW_SIZE (regno); i += sizeof(int))
+         {
+           errno = 0;
+           ptrace (PT_WUREGS, inferior_pid, (PTRACE_ARG3_TYPE) regaddr,
+                   *(int *) &registers[REGISTER_BYTE (regno) + i]);
+           if (errno != 0)
+             {
+               /* Warning, not error, in case we are attached; sometimes the
+                  kernel doesn't let us at the registers.  */
+               char *err = safe_strerror (errno);
+               char *msg = alloca (strlen (err) + 128);
+               sprintf (msg, "writing register %s: %s",
+                        reg_names[regno], err);
+               warning (msg);
+               return;
+             }
+           regaddr += sizeof(int);
+         }
     }
   else
-    {
-      for (regno = 0; regno < NUM_REGS; regno++)
-       {
-         if (CANNOT_STORE_REGISTER (regno))
-           continue;
-         store_inferior_registers (regno);
-       }
-    }
-  return;
+    for (regno = 0; regno < NUM_REGS; regno++)
+      store_inferior_registers (regno);
 }
 
+/* PT_PROT is specific to the PA BSD kernel and isn't documented
+   anywhere (except here).  
+
+   PT_PROT allows one to enable/disable the data memory break bit
+   for pages of memory in an inferior process.  This bit is used
+   to cause "Data memory break traps" to occur when the appropriate
+   page is written to.
+
+   The arguments are as follows:
+
+      PT_PROT -- The ptrace action to perform.
+
+      INFERIOR_PID -- The pid of the process who's page table entries
+      will be modified.
+
+      PT_ARGS -- The *address* of a 3 word block of memory which has
+      additional information:
+
+        word 0 -- The start address to watch.  This should be a page-aligned
+       address.
+
+       word 1 -- The ending address to watch.  Again, this should be a 
+       page aligned address.
+
+       word 2 -- Nonzero to enable the data memory break bit on the
+       given address range or zero to disable the data memory break
+       bit on the given address range.
+
+  This call may fail if the given addresses are not valid in the inferior
+  process.  This most often happens when restarting a program which
+  as watchpoints inserted on heap or stack memory.  */
+       
+#define PT_PROT 21
+
+int
+hppa_set_watchpoint (addr, len, flag)
+     int addr, len, flag;
+{
+  int pt_args[3];
+  pt_args[0] = addr;
+  pt_args[1] = addr + len;
+  pt_args[2] = flag;
+
+  /* Mask off the lower 12 bits since we want to work on a page basis.  */
+  pt_args[0] >>= 12; 
+  pt_args[1] >>= 12; 
+
+  /* Rounding adjustments.  */
+  pt_args[1] -= pt_args[0]; 
+  pt_args[1]++; 
+
+  /* Put the lower 12 bits back as zero.  */
+  pt_args[0] <<= 12; 
+  pt_args[1] <<= 12; 
+
+  /* Do it.  */
+  return ptrace (PT_PROT, inferior_pid, (PTRACE_ARG3_TYPE) pt_args, 0);
+}