diff options
author | Keith Seitz <keiths@redhat.com> | 2001-08-21 18:34:45 +0000 |
---|---|---|
committer | Keith Seitz <keiths@redhat.com> | 2001-08-21 18:34:45 +0000 |
commit | 19053493ea645b4ac2c773ad8306cc254af93a95 (patch) | |
tree | 7e5d85df75fe5ed6540ec9e2524d755dca84624b | |
parent | 61bbcf20aa3a0c3ee2cf6a4c883911660ea8e43a (diff) | |
download | gdb-19053493ea645b4ac2c773ad8306cc254af93a95.tar.gz |
* generic/gdbtk-bp.c (gdb_get_breakpoint_info): Update
with recent breakpoint structure changes in gdb.
(gdb_set_bp_addr): Likewise.
(gdb_get_tracepoint_info): Update with recent tracepoint
structure changes in gdb.
-rw-r--r-- | gdb/gdbtk/ChangeLog | 8 | ||||
-rw-r--r-- | gdb/gdbtk/generic/gdbtk-bp.c | 12 |
2 files changed, 14 insertions, 6 deletions
diff --git a/gdb/gdbtk/ChangeLog b/gdb/gdbtk/ChangeLog index 91578161f68..51a5b6d5d6b 100644 --- a/gdb/gdbtk/ChangeLog +++ b/gdb/gdbtk/ChangeLog @@ -1,3 +1,11 @@ +2001-08-02 Keith Seitz <keiths@redhat.com> + + * generic/gdbtk-bp.c (gdb_get_breakpoint_info): Update + with recent breakpoint structure changes in gdb. + (gdb_set_bp_addr): Likewise. + (gdb_get_tracepoint_info): Update with recent tracepoint + structure changes in gdb. + 2001-07-26 Jonathan Larmour <jlarmour@redhat.com> * library/prefs.tcl (pref_set_defaults): Add additional entry diff --git a/gdb/gdbtk/generic/gdbtk-bp.c b/gdb/gdbtk/generic/gdbtk-bp.c index a782488fc62..50c7e383ffa 100644 --- a/gdb/gdbtk/generic/gdbtk-bp.c +++ b/gdb/gdbtk/generic/gdbtk-bp.c @@ -343,7 +343,7 @@ gdb_get_breakpoint_info (ClientData clientData, Tcl_Interp *interp, int objc, Tcl_ListObjAppendElement (NULL, result_ptr->obj_ptr, Tcl_NewStringObj (bptypes[b->type], -1)); Tcl_ListObjAppendElement (NULL, result_ptr->obj_ptr, - Tcl_NewBooleanObj (b->enable == enabled)); + Tcl_NewBooleanObj (b->enable_state == bp_enabled)); Tcl_ListObjAppendElement (NULL, result_ptr->obj_ptr, Tcl_NewStringObj (bpdisp[b->disposition], -1)); Tcl_ListObjAppendElement (NULL, result_ptr->obj_ptr, @@ -456,9 +456,9 @@ gdb_set_bp (clientData, interp, objc, objv) return TCL_ERROR; } if (strncmp (typestr, "temp", 4) == 0) - disp = del; + disp = disp_del; else if (strncmp (typestr, "normal", 6) == 0) - disp = donttouch; + disp = disp_donttouch; else { Tcl_SetStringObj (result_ptr->obj_ptr, @@ -538,9 +538,9 @@ gdb_set_bp_addr (ClientData clientData, Tcl_Interp *interp, int objc, return TCL_ERROR; } if (strncmp (typestr, "temp", 4) == 0) - disp = del; + disp = disp_del; else if (strncmp (typestr, "normal", 6) == 0) - disp = donttouch; + disp = disp_donttouch; else { Tcl_SetStringObj (result_ptr->obj_ptr, @@ -817,7 +817,7 @@ gdb_get_tracepoint_info (ClientData clientData, Tcl_Interp *interp, free (tmp); } Tcl_ListObjAppendElement (interp, result_ptr->obj_ptr, - Tcl_NewIntObj (tp->enabled)); + Tcl_NewIntObj (tp->enabled_p)); Tcl_ListObjAppendElement (interp, result_ptr->obj_ptr, Tcl_NewIntObj (tp->pass_count)); Tcl_ListObjAppendElement (interp, result_ptr->obj_ptr, |