* generic/gdbtk-cmds.c (gdb_set_mem): target_write_memory now takes

        gdb_byte* instead of char*.
        * generic/gdbtk-register.c (get_register): frame_register and val_print
        take gdb_byte* instead of char*.
        * generic/gdbtk-wrapper.c: Ditto the val_print part.

        From Paul Schlie  <schlie@comcast.net>:
        * generic/gdbtk-bp.c (gdb_set_bp): Use lbasename instead of basename.
        * generic/gdbtk-cmds.c (gdb_listfiles): Likewise.

diff --git a/gdb/gdbtk/ChangeLog b/gdb/gdbtk/ChangeLog
index ba082d5..f2a1569 100644 (file)
--- a/gdb/gdbtk/ChangeLog
+++ b/gdb/gdbtk/ChangeLog
@@ -1,3 +1,15 @@
+2005-05-26  Keith Seitz  <keiths@redhat.com>
+
+       * generic/gdbtk-cmds.c (gdb_set_mem): target_write_memory now takes
+       gdb_byte* instead of char*.
+       * generic/gdbtk-register.c (get_register): frame_register and val_print
+       take gdb_byte* instead of char*.
+       * generic/gdbtk-wrapper.c: Ditto the val_print part.
+
+       From Paul Schlie  <schlie@comcast.net>:
+       * generic/gdbtk-bp.c (gdb_set_bp): Use lbasename instead of basename.
+       * generic/gdbtk-cmds.c (gdb_listfiles): Likewise.
+
 2005-04-28  Ben Elliston  <bje@au.ibm.com>
 
        * generic/gdbtk-interp.c (gdbtk_interpreter_exec): Return struct

diff --git a/gdb/gdbtk/generic/gdbtk-bp.c b/gdb/gdbtk/generic/gdbtk-bp.c
index 31cca04..c4be849 100644 (file)
--- a/gdb/gdbtk/generic/gdbtk-bp.c
+++ b/gdb/gdbtk/generic/gdbtk-bp.c
@@ -535,7 +535,7 @@ gdb_set_bp (ClientData clientData, Tcl_Interp *interp,
   b->thread = thread;
 
   /* FIXME: this won't work for duplicate basenames! */
-  xasprintf (&buf, "%s:%d", basename (Tcl_GetStringFromObj (objv[1], NULL)),
+  xasprintf (&buf, "%s:%d", lbasename (Tcl_GetStringFromObj (objv[1], NULL)),
             line);
   b->addr_string = xstrdup (buf);
   free(buf);

diff --git a/gdb/gdbtk/generic/gdbtk-cmds.c b/gdb/gdbtk/generic/gdbtk-cmds.c
index aef8f1e..13e3467 100644 (file)
--- a/gdb/gdbtk/generic/gdbtk-cmds.c
+++ b/gdb/gdbtk/generic/gdbtk-cmds.c
@@ -1120,12 +1120,13 @@ gdb_listfiles (ClientData clientData, Tcl_Interp *interp,
   struct objfile *objfile;
   struct partial_symtab *psymtab;
   struct symtab *symtab;
-  char *lastfile, *pathname = NULL, **files;
+  const char *lastfile, *pathname = NULL;
+  const char **files;
   int files_size;
   int i, numfiles = 0, len = 0;
 
   files_size = 1000;
-  files = (char **) xmalloc (sizeof (char *) * files_size);
+  files = (const char **) xmalloc (sizeof (char *) * files_size);
 
   if (objc > 2)
     {
@@ -1140,14 +1141,14 @@ gdb_listfiles (ClientData clientData, Tcl_Interp *interp,
       if (numfiles == files_size)
        {
          files_size = files_size * 2;
-         files = (char **) xrealloc (files, sizeof (char *) * files_size);
+         files = (const char **) xrealloc (files, sizeof (char *) * files_size);
        }
       if (psymtab->filename)
        {
          if (!len || !strncmp (pathname, psymtab->filename, len)
-             || !strcmp (psymtab->filename, basename (psymtab->filename)))
+             || !strcmp (psymtab->filename, lbasename (psymtab->filename)))
            {
-             files[numfiles++] = basename (psymtab->filename);
+             files[numfiles++] = lbasename (psymtab->filename);
            }
        }
     }
@@ -1157,14 +1158,14 @@ gdb_listfiles (ClientData clientData, Tcl_Interp *interp,
       if (numfiles == files_size)
        {
          files_size = files_size * 2;
-         files = (char **) xrealloc (files, sizeof (char *) * files_size);
+         files = (const char **) xrealloc (files, sizeof (char *) * files_size);
        }
       if (symtab->filename && symtab->linetable && symtab->linetable->nitems)
        {
          if (!len || !strncmp (pathname, symtab->filename, len)
-             || !strcmp (symtab->filename, basename (symtab->filename)))
+             || !strcmp (symtab->filename, lbasename (symtab->filename)))
            {
-             files[numfiles++] = basename (symtab->filename);
+             files[numfiles++] = lbasename (symtab->filename);
            }
        }
     }
@@ -2278,7 +2279,7 @@ gdb_set_mem (ClientData clientData, Tcl_Interp *interp,
             int objc, Tcl_Obj *CONST objv[])
 {
   CORE_ADDR addr;
-  char buf[128];
+  gdb_byte buf[128];
   char *hexstr;
   int len, size;
 
@@ -2303,7 +2304,7 @@ gdb_set_mem (ClientData clientData, Tcl_Interp *interp,
   /* Convert hexstr to binary and write */
   if (hexstr[0] == '0' && hexstr[1] == 'x')
     hexstr += 2;
-  size = hex2bin (hexstr, buf, strlen (hexstr));
+  size = hex2bin (hexstr, (char *) buf, strlen (hexstr));
   if (size < 0)
     {
       /* Error in input */

diff --git a/gdb/gdbtk/generic/gdbtk-register.c b/gdb/gdbtk/generic/gdbtk-register.c
index ae77b11..04c5cf3 100644 (file)
--- a/gdb/gdbtk/generic/gdbtk-register.c
+++ b/gdb/gdbtk/generic/gdbtk-register.c
@@ -265,7 +265,7 @@ get_register (int regnum, void *arg)
   CORE_ADDR addr;
   enum lval_type lval;
   struct type *reg_vtype;
-  char buffer[MAX_REGISTER_SIZE];
+  gdb_byte buffer[MAX_REGISTER_SIZE];
   int optim, format;
   struct cleanup *old_chain = NULL;
   struct ui_file *stb;

diff --git a/gdb/gdbtk/generic/gdbtk-wrapper.c b/gdb/gdbtk/generic/gdbtk-wrapper.c
index 00f8ebc..e49f173 100644 (file)
--- a/gdb/gdbtk/generic/gdbtk-wrapper.c
+++ b/gdb/gdbtk/generic/gdbtk-wrapper.c
@@ -192,7 +192,7 @@ wrap_val_print (char *a)
 {
   struct gdb_wrapper_arguments **args = (struct gdb_wrapper_arguments **) a;
   struct type *type;
-  char *valaddr;
+  const gdb_byte *valaddr;
   CORE_ADDR address;
   struct ui_file *stream;
   int format;
@@ -201,7 +201,7 @@ wrap_val_print (char *a)
   enum val_prettyprint pretty;
 
   type = (struct type *) (*args)->args[0];
-  valaddr = (char *) (*args)->args[1];
+  valaddr = (gdb_byte *) (*args)->args[1];
   address = *(CORE_ADDR *) (*args)->args[2];
   stream = (struct ui_file *) (*args)->args[3];
   format = (int) (*args)->args[4];