Mon Mar 23 13:41:39 1998 Elena Zannoni <ezannoni@kwikemart.cygnus.com>

        * gdbtk.c (gdb_get_mem): Rewrite to fetch entire contents
        of the memory window at once.

diff --git a/gdb/ChangeLog-gdbtk b/gdb/ChangeLog-gdbtk
index 2b1002c984c25bf9cf432ccbcb99b86d8a7e3db8..43ce8ef02165b9b8b5089398a8a6c3ebe803503c 100644 (file)
--- a/gdb/ChangeLog-gdbtk
+++ b/gdb/ChangeLog-gdbtk
@@ -1,3 +1,8 @@
+Mon Mar 23 13:41:39 1998  Elena Zannoni  <ezannoni@kwikemart.cygnus.com>
+
+       * gdbtk.c (gdb_get_mem): Rewrite to fetch entire contents
+       of the memory window at once.
+
 Sat Mar 21 19:34:49 1998  Elena Zannoni  <ezannoni@kwikemart.cygnus.com>
 
        Merged changes from Foundry: list follows by author:

diff --git a/gdb/gdbtk.c b/gdb/gdbtk.c
index fdc0d7eeb12e597b1cec501dd94ec2f1f073651e..561aff32e57d2bae1d639b02f33f00c339c4681a 100644 (file)
--- a/gdb/gdbtk.c
+++ b/gdb/gdbtk.c
@@ -742,10 +742,11 @@ gdb_eval (clientData, interp, argc, argv)
 /* addr: address of data to dump */
 /* form: a char indicating format */
 /* size: size of each element; 1,2,4, or 8 bytes*/
-/* num: the number of 'size' elements to return */
-/* acshar:  an optional ascii character to use in ASCII dump */
-/* returns a list of 'num' elements followed by an optional */
+/* num: the number of bytes to read */
+/* acshar: an optional ascii character to use in ASCII dump */
+/* returns a list of elements followed by an optional */
 /* ASCII dump */
+
 static int
 gdb_get_mem (clientData, interp, argc, argv)
      ClientData clientData;
@@ -753,22 +754,44 @@ gdb_get_mem (clientData, interp, argc, argv)
      int argc;
      char *argv[];
 {
-  int size, asize, num, i, j;
-  CORE_ADDR addr, saved_addr, ptr;
-  int format;
+  int size, asize, i, j, bc;
+  CORE_ADDR addr;
+  int nbytes, rnum, bpr;
+  char format, c, *ptr, buff[128], aschar, *mbuf, *mptr, *cptr, *bptr;
   struct type *val_type;
-  value_ptr vptr;
-  char c, buff[128], aschar;
 
-  if (argc != 6)
-    error ("wrong # args");
+  if (argc < 6 || argc > 7)
+    {
+      interp->result = "addr format size bytes bytes_per_row ?ascii_char?";
+      return TCL_ERROR; 
+    }
+
+  size = (int)strtoul(argv[3],(char **)NULL,0);
+  nbytes = (int)strtoul(argv[4],(char **)NULL,0);
+  bpr = (int)strtoul(argv[5],(char **)NULL,0);
+  if (nbytes <= 0 || bpr <= 0 || size <= 0)
+    {
+      interp->result = "Invalid number of bytes.";
+      return TCL_ERROR;
+    }
 
   addr = (CORE_ADDR)strtoul(argv[1],(char **)NULL,0);
-  saved_addr = addr;
   format = *argv[2];
-  size = (int)strtoul(argv[3],(char **)NULL,0);
-  num = (int)strtoul(argv[4],(char **)NULL,0);
-  aschar = *argv[5];
+  mbuf = (char *)malloc (nbytes+32);
+  if (!mbuf)
+    {
+      interp->result = "Out of memory.";
+      return TCL_ERROR;
+    }
+  memset (mbuf, 0, nbytes+32);
+  mptr = cptr = mbuf;
+
+  rnum = target_read_memory_partial (addr, mbuf, nbytes, NULL);
+
+  if (argv[6])
+    aschar = *argv[6]; 
+  else
+    aschar = 0;
 
   switch (size) {
   case 1:
@@ -792,39 +815,56 @@ gdb_get_mem (clientData, interp, argc, argv)
     asize = 'b';
   }
 
-  for (i=0; i < num; i++)
+  bc = 0;        /* count of bytes in a row */
+  buff[0] = '"'; /* buffer for ascii dump */
+  bptr = &buff[1];   /* pointer for ascii dump */
+  
+  for (i=0; i < nbytes; i+= size)
     {
-      vptr = value_at (val_type, addr, (asection *)NULL);
-      print_scalar_formatted (VALUE_CONTENTS(vptr), val_type, format, asize, gdb_stdout);
-      fputs_unfiltered (" ", gdb_stdout);
-      addr += size;
-    }
+      if ( i >= rnum)
+       {
+         fputs_unfiltered ("N/A ", gdb_stdout);
+         if (aschar)
+           for ( j = 0; j < size; j++)
+             *bptr++ = 'X';
+       }
+      else
+       {
+         print_scalar_formatted (mptr, val_type, format, asize, gdb_stdout);
+         fputs_unfiltered (" ", gdb_stdout);
+         if (aschar)
+           {
+             for ( j = 0; j < size; j++)
+               {
+                 c = *cptr++;
+                 if (c < 32 || c > 126)
+                   c = aschar;
+                 if (c == '"')
+                   *bptr++ = '\\';
+                 *bptr++ = c;
+               }
+           }
+       }
 
-  if (aschar)
-    {
-      val_type = builtin_type_char;
-      ptr = saved_addr;
-      buff[0] = '"';
-      i = 1;
-      for (j=0; j < num*size; j++)
+      mptr += size;
+      bc += size;
+
+      if (aschar && (bc >= bpr))
        {
-         c = *(char *)VALUE_CONTENTS(value_at (val_type, ptr, (asection *)NULL));
-         if (c < 32 || c > 126)
-           c = aschar;
-         if (c == '"')
-           buff[i++] = '\\';
-         buff[i++] = c;
-         ptr++;
+         /* end of row. print it and reset variables */
+         bc = 0;
+         *bptr++ = '"';
+         *bptr++ = ' ';
+         *bptr = 0;
+         fputs_unfiltered (buff, gdb_stdout);
+         bptr = &buff[1];
        }
-      buff[i++] = '"';
-      buff[i] = 0;
-      fputs_unfiltered (buff, gdb_stdout);
     }
-
+  
+  free (mbuf);
   return TCL_OK;
 }
 
-
 static int
 map_arg_registers (argc, argv, func, argp)
      int argc;