diff options
| author | Keith Seitz <keiths@redhat.com> | 2001-08-17 19:10:36 +0000 |
|---|---|---|
| committer | Keith Seitz <keiths@redhat.com> | 2001-08-17 19:10:36 +0000 |
| commit | ca8d3d1a812b7ee575a74a1f6649a0caa832b3b2 (patch) | |
| tree | 4c4fe914ea8f940b6d766cdffb5b62481c25d213 /gdb/gdbtk | |
| parent | 21e4a0b631d5859461799c8a9bd0075843836b97 (diff) | |
| download | gdb-ca8d3d1a812b7ee575a74a1f6649a0caa832b3b2.tar.gz | |
* generic/gdbtk-varobj.c (variable_obj_command): Pass pointer
to varobj* when calling variable_update (API changed).
(variable_create): Don't pass varobj* to install_variable. It's
not used.
(variable_children): Likewise.
(variable_update): Change parameters to accept pointer to
varobj*. Matches API change in varobj_update.
(install_variable): Remove unused "var" parameter.
Diffstat (limited to 'gdb/gdbtk')
| -rw-r--r-- | gdb/gdbtk/ChangeLog | 11 | ||||
| -rw-r--r-- | gdb/gdbtk/generic/gdbtk-varobj.c | 17 |
2 files changed, 19 insertions, 9 deletions
diff --git a/gdb/gdbtk/ChangeLog b/gdb/gdbtk/ChangeLog index ef24f67ab38..a9312a2306c 100644 --- a/gdb/gdbtk/ChangeLog +++ b/gdb/gdbtk/ChangeLog @@ -1,3 +1,14 @@ +2001-08-17 Keith Seitz <keiths@redhat.com> + + * generic/gdbtk-varobj.c (variable_obj_command): Pass pointer + to varobj* when calling variable_update (API changed). + (variable_create): Don't pass varobj* to install_variable. It's + not used. + (variable_children): Likewise. + (variable_update): Change parameters to accept pointer to + varobj*. Matches API change in varobj_update. + (install_variable): Remove unused "var" parameter. + 2001-08-16 Keith Seitz <keiths@redhat.com> * generic/gdbtk.c (gdbtk_init): Revert change from earlier. diff --git a/gdb/gdbtk/generic/gdbtk-varobj.c b/gdb/gdbtk/generic/gdbtk-varobj.c index 230889295c1..dd0359e22ca 100644 --- a/gdb/gdbtk/generic/gdbtk-varobj.c +++ b/gdb/gdbtk/generic/gdbtk-varobj.c @@ -61,11 +61,11 @@ static int variable_type (Tcl_Interp *, int, Tcl_Obj * CONST[], static int variable_value (Tcl_Interp *, int, Tcl_Obj * CONST[], struct varobj *); -static Tcl_Obj *variable_update (Tcl_Interp * interp, struct varobj *var); +static Tcl_Obj *variable_update (Tcl_Interp * interp, struct varobj **var); /* Helper functions for the above subcommands. */ -static void install_variable (Tcl_Interp *, char *, struct varobj *); +static void install_variable (Tcl_Interp *, char *); static void uninstall_variable (Tcl_Interp *, char *); @@ -278,7 +278,7 @@ variable_obj_command (clientData, interp, objc, objv) case VARIABLE_UPDATE: /* Only root variables can be updated */ { - Tcl_Obj *obj = variable_update (interp, var); + Tcl_Obj *obj = variable_update (interp, &var); Tcl_SetObjResult (interp, obj); } break; @@ -386,7 +386,7 @@ variable_create (interp, objc, objv) { /* Install a command into the interpreter that represents this object */ - install_variable (interp, obj_name, var); + install_variable (interp, obj_name); Tcl_SetObjResult (interp, Tcl_NewStringObj (obj_name, -1)); result_ptr->flags |= GDBTK_IN_TCL_RESULT; @@ -444,7 +444,7 @@ variable_children (interp, var) /* Add child to result list and install the Tcl command for it. */ Tcl_ListObjAppendElement (NULL, list, Tcl_NewStringObj (childname, -1)); - install_variable (interp, childname, *vc); + install_variable (interp, childname); vc++; } @@ -458,7 +458,7 @@ variable_children (interp, var) static Tcl_Obj * variable_update (interp, var) Tcl_Interp *interp; - struct varobj *var; + struct varobj **var; { Tcl_Obj *changed; struct varobj **changelist; @@ -625,13 +625,12 @@ variable_value (interp, objc, objv, var) /* Install the given variable VAR into the tcl interpreter with the object name NAME. */ static void -install_variable (interp, name, var) +install_variable (interp, name) Tcl_Interp *interp; char *name; - struct varobj *var; { Tcl_CreateObjCommand (interp, name, variable_obj_command, - (ClientData) var, NULL); + NULL, NULL); } /* Unistall the object VAR in the tcl interpreter. */ |