From 19053493ea645b4ac2c773ad8306cc254af93a95 Mon Sep 17 00:00:00 2001 From: Keith Seitz Date: Tue, 21 Aug 2001 18:34:45 +0000 Subject: * 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. --- gdb/gdbtk/ChangeLog | 8 ++++++++ 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 + + * 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 * 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, -- cgit v1.2.1