diff options
| author | Martin Hunt <hunt@redhat.com> | 1999-01-29 09:46:26 +0000 |
|---|---|---|
| committer | Martin Hunt <hunt@redhat.com> | 1999-01-29 09:46:26 +0000 |
| commit | 7c5c8a5e46518c9cfe89038434824ff955f90e44 (patch) | |
| tree | 3e541877c73d5d8c4a4f30987697a664465332d7 /gdb/gdbtk-cmds.c | |
| parent | 6925baeaa6402a694a73802aa96d790396ca021e (diff) | |
| download | binutils-7c5c8a5e46518c9cfe89038434824ff955f90e44.zip binutils-7c5c8a5e46518c9cfe89038434824ff955f90e44.tar.gz binutils-7c5c8a5e46518c9cfe89038434824ff955f90e44.tar.bz2 | |
1999-01-29 Martin Hunt <hunt@cygnus.com>
* gdbtk-cmds.c (gdb_get_breakpoint_info): When printing addresses,
do not rely on the format string "%lx" -- it does not exist for all
hosts. Use paddr instead.
(gdb_loadfile): Increase maximum line size to pass testsuite cases.
* gdbtk-hooks.c (gdbtk_add_hooks): Remove pc_changed_hook and
add register_changed_hook and memory_changed_hook.
(gdbtk_register_changed): New function.
(gdbtk_memory_changed): New function.
Diffstat (limited to 'gdb/gdbtk-cmds.c')
| -rw-r--r-- | gdb/gdbtk-cmds.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gdb/gdbtk-cmds.c b/gdb/gdbtk-cmds.c index 19311c6..40fc50a 100644 --- a/gdb/gdbtk-cmds.c +++ b/gdb/gdbtk-cmds.c @@ -2789,7 +2789,7 @@ gdb_loadfile (clientData, interp, objc, objv) Tcl_DStringAppend (&text_cmd_2, " insert end { \t", -1); prefix_len_2 = Tcl_DStringLength(&text_cmd_2); - while (fgets (line + 1, 980, fp)) + while (fgets (line + 1, 9980, fp)) { sprintf (line_num_buf, "%d", ln); if (ltable[ln >> 3] & (1 << (ln % 8))) @@ -3229,7 +3229,7 @@ gdb_get_breakpoint_info (clientData, interp, objc, objv) Tcl_ListObjAppendElement (NULL, result_ptr->obj_ptr, new_obj); Tcl_ListObjAppendElement (NULL, result_ptr->obj_ptr, Tcl_NewIntObj (b->line_number)); - sprintf_append_element_to_obj (result_ptr->obj_ptr, "0x%lx", b->address); + sprintf_append_element_to_obj (result_ptr->obj_ptr, "0x%s", paddr_nz(b->address)); 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)); |