* generic/gdbtk-cmds.c (gdb_load_disassembly): Use string_to_core_addr

        instead of parse_and_eval_address.
        Use xfree instead of free.

diff --git a/gdb/gdbtk/ChangeLog b/gdb/gdbtk/ChangeLog
index dc16492..cadf99b 100644 (file)
--- 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 44dd2d7..2cc10d9 100644 (file)
--- 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);