* linux-s390-low.c (s390_breakpoint, s390_breakpoint_len): Define.

	(s390_get_pc, s390_set_pc, s390_breakpoint_at): New functions.
	(the_low_target): Add new members.

diff --git a/gdb/gdbserver/ChangeLog b/gdb/gdbserver/ChangeLog
index abb182adcfb8ebf075c6370a94a41c259b621a99..6c8fd3ae73d3da18401373df65349be5dc32f6fc 100644 (file)
--- a/gdb/gdbserver/ChangeLog
+++ b/gdb/gdbserver/ChangeLog
@@ -1,3 +1,9 @@
+2005-05-10  Ulrich Weigand  <uweigand@de.ibm.com>
+
+       * linux-s390-low.c (s390_breakpoint, s390_breakpoint_len): Define.
+       (s390_get_pc, s390_set_pc, s390_breakpoint_at): New functions.
+       (the_low_target): Add new members.
+
 2005-05-04  Daniel Jacobowitz  <dan@codesourcery.com>
 
        * proc-service.c (ps_lgetregs): Search all_processes instead of

diff --git a/gdb/gdbserver/linux-s390-low.c b/gdb/gdbserver/linux-s390-low.c
index d1a94fb791b0b30d8624e22ac00375ef58719bf7..724e092aa05d614b7dc6742c95ed5485cc6fb490 100644 (file)
--- a/gdb/gdbserver/linux-s390-low.c
+++ b/gdb/gdbserver/linux-s390-low.c
@@ -1,6 +1,6 @@
 /* GNU/Linux S/390 specific low level interface, for the remote server
    for GDB.
-   Copyright 2001, 2002
+   Copyright 2001, 2002, 2005
    Free Software Foundation, Inc.
 
    This file is part of GDB.
@@ -75,9 +75,51 @@ s390_cannot_store_register (int regno)
   return 0;
 }
 
+
+static const char s390_breakpoint[] = { 0, 1 };
+#define s390_breakpoint_len 2
+
+static CORE_ADDR
+s390_get_pc ()
+{
+  unsigned long pc;
+  collect_register_by_name ("pswa", &pc);
+#ifndef __s390x__
+  pc &= 0x7fffffff;
+#endif
+  return pc;
+}
+
+static void
+s390_set_pc (CORE_ADDR newpc)
+{
+  unsigned long pc = newpc;
+#ifndef __s390x__
+  pc |= 0x80000000;
+#endif
+  supply_register_by_name ("pswa", &pc);
+}
+
+static int
+s390_breakpoint_at (CORE_ADDR pc)
+{
+  unsigned char c[s390_breakpoint_len];
+  read_inferior_memory (pc, c, s390_breakpoint_len);
+  return memcmp (c, s390_breakpoint, s390_breakpoint_len) == 0;
+}
+
+
 struct linux_target_ops the_low_target = {
   s390_num_regs,
   s390_regmap,
   s390_cannot_fetch_register,
   s390_cannot_store_register,
+  s390_get_pc,
+  s390_set_pc,
+  s390_breakpoint,
+  s390_breakpoint_len,
+  NULL,
+  s390_breakpoint_len,
+  s390_breakpoint_at,
 };
+