summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorKeith Seitz <keiths@redhat.com>2002-04-01 22:29:21 +0000
committerKeith Seitz <keiths@redhat.com>2002-04-01 22:29:21 +0000
commita3a18f03359d8be6881fee75687d746ffaee313a (patch)
tree3852c7017a6b6c41a4da632eaab7e37c2371225d
parent8ba7feba29dcc059bd85fed479dfc95e2b340971 (diff)
downloadgdb-a3a18f03359d8be6881fee75687d746ffaee313a.tar.gz
* generic/gdbtk-cmds.c (gdb_load_disassembly): Use string_to_core_addr
instead of parse_and_eval_address. Use xfree instead of free.
-rw-r--r--gdb/gdbtk/ChangeLog6
-rw-r--r--gdb/gdbtk/generic/gdbtk-cmds.c6
2 files changed, 9 insertions, 3 deletions
diff --git a/gdb/gdbtk/ChangeLog b/gdb/gdbtk/ChangeLog
index dc164924ff0..cadf99b43ed 100644
--- a/gdb/gdbtk/ChangeLog
+++ b/gdb/gdbtk/ChangeLog
@@ -1,3 +1,9 @@
+2002-04-01 Keith Seitz <keiths@redhat.com>
+
+ * generic/gdbtk-cmds.c (gdb_load_disassembly): Use string_to_core_addr
+ instead of parse_and_eval_address.
+ Use xfree instead of free.
+
2002-03-25 Elena Zannoni <ezannoni@redhat.com>
* generic/gdbtk-hooks.c: Include cli/cli-decode.h for
diff --git a/gdb/gdbtk/generic/gdbtk-cmds.c b/gdb/gdbtk/generic/gdbtk-cmds.c
index 44dd2d7ea7e..2cc10d9f573 100644
--- a/gdb/gdbtk/generic/gdbtk-cmds.c
+++ b/gdb/gdbtk/generic/gdbtk-cmds.c
@@ -1672,7 +1672,7 @@ gdb_load_disassembly (ClientData clientData, Tcl_Interp *interp,
/* Now parse the addresses */
- low = parse_and_eval_address (Tcl_GetStringFromObj (objv[5], NULL));
+ low = string_to_core_addr (Tcl_GetStringFromObj (objv[5], NULL));
orig = low;
if (objc == 6)
@@ -1682,7 +1682,7 @@ gdb_load_disassembly (ClientData clientData, Tcl_Interp *interp,
paddr_nz (orig), Tcl_GetStringFromObj (objv[5], NULL));
}
else
- high = parse_and_eval_address (Tcl_GetStringFromObj (objv[6], NULL));
+ high = string_to_core_addr (Tcl_GetStringFromObj (objv[6], NULL));
/* Setup the client_data structure, and call the driver function. */
@@ -1978,7 +1978,7 @@ gdbtk_load_asm (ClientData clientData, CORE_ADDR pc,
Tcl_DStringSetLength (&client_data->pc_to_line_prefix, pc_to_line_len);
Tcl_DStringSetLength (&client_data->line_to_pc_prefix, line_to_pc_len);
- free(buffer);
+ xfree (buffer);
}
do_cleanups (old_chain);