Wed May 13 11:12:58 1998 James Ingham <jingham@leda.cygnus.com>

	* gdbtk.c: Fixed a goof in the definition of the gdb_get_args &
	gdb_get_locals Tcl commands.  Moved the previous ChangeLog entry
	from ChangeLog to ChangeLog-gdbtk...

diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index 5d3011527973a74519568e61874942e426b3aaff..f9d180ed95568858ddc8e029b336c585adccc53f 100644 (file)
--- a/gdb/ChangeLog
+++ b/gdb/ChangeLog
@@ -1,10 +1,3 @@
-Tue May 12 12:03:16 1998  James Ingham  <jingham@leda.cygnus.com>
-
-       * gdbtk.c: Add an object call wrapper for the new Tcl_Obj based
-       commands.  This way the obj commands will also go through
-       catch_errors.  This is just a bandaid while I rewrite the
-       string-based commands to use the object format.
-
 Thu May  7 14:49:38 1998  Bob Manson  <manson@charmed.cygnus.com>
 
        * config/sparc/tm-sp64.h (CALL_DUMMY): Store and retrieve

diff --git a/gdb/ChangeLog-gdbtk b/gdb/ChangeLog-gdbtk
index c30aa987f423f52003ce96bfce44a91aa52292a4..17c744ac31de08669e586c156ec3bb678afe8547 100644 (file)
--- a/gdb/ChangeLog-gdbtk
+++ b/gdb/ChangeLog-gdbtk
@@ -1,9 +1,23 @@
+Wed May 13 11:12:58 1998  James Ingham  <jingham@leda.cygnus.com>
+
+       * gdbtk.c: Fixed a goof in the definition of the gdb_get_args &
+       gdb_get_locals Tcl commands.  Moved the previous ChangeLog entry
+       from ChangeLog to ChangeLog-gdbtk (here)...
+       
+
 Tue May 12 13:29:20 1998  Jeff Holcomb  <jeffh@cygnus.com>
 
        * Makefile.in (install-only): Add images/icons.txt and
        images2/icons.txt to files that need to be installed.
 
-Tue May  5 09:30:25 1998  Christopher Faylor <cgf@cygnus.com>
+Tue May 12 12:03:16 1998  James Ingham  <jingham@leda.cygnus.com>
+
+       * gdbtk.c: Add an object call wrapper for the new Tcl_Obj based
+       commands.  This way the obj commands will also go through
+       catch_errors.  This is just a bandaid while I rewrite the
+       string-based commands to use the object format.
+
+       Tue May  5 09:30:25 1998  Christopher Faylor <cgf@cygnus.com>
 
        * gdbtk.c (_initialize_gdbtk): Use correct device names in
        cygwin-specific call (cosmetic change). 

diff --git a/gdb/gdbtk.c b/gdb/gdbtk.c
index e62e908d8f68efc00b8ecb6d04b8662f53dc59f2..96aaa97cf5ccc396ab80f99aa816e3eb87caf7e2 100644 (file)
--- a/gdb/gdbtk.c
+++ b/gdb/gdbtk.c
@@ -142,6 +142,10 @@ static int gdb_trace_status PARAMS ((ClientData, Tcl_Interp *, int, char *argv[]
 static int gdb_target_has_execution_command PARAMS ((ClientData, Tcl_Interp *, int, char *argv[]));
 static int gdb_load_info PARAMS ((ClientData, Tcl_Interp *, int, Tcl_Obj *CONST objv[]));
 void TclDebug PARAMS ((const char *fmt, ...));
+static int gdb_get_locals_command PARAMS ((ClientData, Tcl_Interp *, int, Tcl_Obj *CONST
+                                 objv[]));
+static int gdb_get_args_command PARAMS ((ClientData, Tcl_Interp *, int, Tcl_Obj *CONST
+                                 objv[]));
 static int gdb_get_vars_command PARAMS ((ClientData, Tcl_Interp *, int, Tcl_Obj *CONST objv[]));
 static int gdb_get_function_command PARAMS ((ClientData, Tcl_Interp *, int, Tcl_Obj *CONST objv[]));
 static int gdb_get_line_command PARAMS ((ClientData, Tcl_Interp *, int, Tcl_Obj *CONST objv[]));
@@ -2261,9 +2265,9 @@ gdbtk_init ( argv0 )
                      gdb_trace_status,
                      NULL, NULL);
   Tcl_CreateObjCommand (interp, "gdb_load_info", call_obj_wrapper, gdb_load_info, NULL);
-  Tcl_CreateObjCommand (interp, "gdb_get_locals", call_obj_wrapper, gdb_get_vars_command, 
+  Tcl_CreateObjCommand (interp, "gdb_get_locals", call_obj_wrapper, gdb_get_locals_command, 
                          NULL);
-  Tcl_CreateObjCommand (interp, "gdb_get_args", call_obj_wrapper, gdb_get_vars_command,
+  Tcl_CreateObjCommand (interp, "gdb_get_args", call_obj_wrapper, gdb_get_args_command,
                          NULL);
   Tcl_CreateObjCommand (interp, "gdb_get_function", call_obj_wrapper, gdb_get_function_command,
                          NULL);
@@ -2539,7 +2543,7 @@ gdbtk_load_hash (section, num)
  */
 
 static int
-gdb_get_locals (clientData, interp, objc, objv)
+gdb_get_locals_command (clientData, interp, objc, objv)
      ClientData clientData;
      Tcl_Interp *interp;
      int objc;
@@ -2551,7 +2555,7 @@ gdb_get_locals (clientData, interp, objc, objv)
 }
 
 static int
-gdb_get_args (clientData, interp, objc, objv)
+gdb_get_args_command (clientData, interp, objc, objv)
      ClientData clientData;
      Tcl_Interp *interp;
      int objc;