From: Elena Zannoni <ezannoni@kwikemart.cygnus.com>
Date: Mon, 23 Mar 1998 18:43:42 +0000 (+0000)
Subject: Mon Mar 23 13:41:39 1998  Elena Zannoni  <ezannoni@kwikemart.cygnus.com>
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=ac3dff67ad58666e19a433150b2bbc55e8975b7f;p=binutils-gdb.git

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 2b1002c984c..43ce8ef0216 100644
--- 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 fdc0d7eeb12..561aff32e57 100644
--- 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;