* generic/gdbtk-cmds.c (gdb_update_mem): Use target_read.

diff --git a/gdb/gdbtk/ChangeLog b/gdb/gdbtk/ChangeLog
index 0bca9a2..d7ccec1 100644 (file)
--- a/gdb/gdbtk/ChangeLog
+++ b/gdb/gdbtk/ChangeLog
@@ -1,3 +1,7 @@
+2006-08-25  Maciej W. Rozycki  <macro@mips.com>
+
+       * generic/gdbtk-cmds.c (gdb_update_mem): Use target_read.
+
 2006-08-25  Keith Seitz  <keiths@redhat.com>
 
        * library/prefs.tcl (pref_set_defaults): Disable IPC, gdb/ipc/enabled,

diff --git a/gdb/gdbtk/generic/gdbtk-cmds.c b/gdb/gdbtk/generic/gdbtk-cmds.c
index 8bc3732..ab989b7 100644 (file)
--- a/gdb/gdbtk/generic/gdbtk-cmds.c
+++ b/gdb/gdbtk/generic/gdbtk-cmds.c
@@ -2429,15 +2429,12 @@ gdb_update_mem (ClientData clientData, Tcl_Interp *interp,
   memset (mbuf, 0, nbytes + 32);
   mptr = cptr = mbuf;
 
-  rnum = 0;
-  while (rnum < nbytes)
-    {
-      int error;
-      int num = target_read_memory_partial (addr + rnum, mbuf + rnum,
-                                           nbytes - rnum, &error);
-      if (num <= 0)
-       break;
-      rnum += num;
+  rnum = target_read (&current_target, TARGET_OBJECT_MEMORY, NULL,
+                     mbuf, addr, nbytes);
+  if (rnum <= 0)
+    {
+      gdbtk_set_result (interp, "Unable to read memory.");
+      return TCL_ERROR;
     }
 
   if (objc == 8)