+2004-06-11 Martin Hunt <hunt@redhat.com>
+
+ * generic/gdbtk-cmds.c (gdb_find_file_command): Use
+ symtab_to_fullname() instead of symtab_to_filename().
+ (gdb_loc): Ditto.
+ (gdb_loadfile): Ditto.
+ * generic/gdbtk-bp.c (gdb_get_breakpoint_info): Ditto.
+ (gdb_get_tracepoint_info): Ditto.
+
+ * generic/gdbtk-register.c (get_register): Simplify and remove
+ references to DEPRECATED_REGISTER_CONVERT_TO_VIRTUAL.
+
2004-05-27 Martin Hunt <hunt@redhat.com>
* library/tdump.tcl (build_win): Remove old nonworking
#include "defs.h"
#include "symtab.h"
#include "symfile.h"
+#include "source.h"
#include "linespec.h"
#include "breakpoint.h"
#include "tracepoint.h"
sal = find_pc_line (b->loc->address, 0);
- filename = symtab_to_filename (sal.symtab);
+ filename = symtab_to_fullname (sal.symtab);
if (filename == NULL)
filename = "";
Tcl_SetListObj (result_ptr->obj_ptr, 0, NULL);
sal = find_pc_line (tp->address, 0);
- filename = symtab_to_filename (sal.symtab);
+ filename = symtab_to_fullname (sal.symtab);
if (filename == NULL)
filename = "N/A";
Tcl_ListObjAppendElement (interp, result_ptr->obj_ptr,
}
fullname =
- (st->fullname == NULL ? symtab_to_filename (st) : st->fullname);
+ (st->fullname == NULL ? symtab_to_fullname (st) : st->fullname);
}
/* We may not be able to open the file (not available). */
Tcl_ListObjAppendElement (NULL, result_ptr->obj_ptr,
Tcl_NewStringObj (fname, -1));
- filename = symtab_to_filename (sal.symtab);
+ filename = symtab_to_fullname (sal.symtab);
if (filename == NULL)
filename = "";
return TCL_ERROR;
}
- file = symtab_to_filename ( symtab );
+ file = symtab_to_fullname ( symtab );
if ((fp = fopen ( file, "r" )) == NULL)
{
gdbtk_set_result (interp, "Can't open file for reading");
CORE_ADDR addr;
enum lval_type lval;
struct type *reg_vtype;
- char raw_buffer[MAX_REGISTER_SIZE];
- char virtual_buffer[MAX_REGISTER_SIZE];
+ char buffer[MAX_REGISTER_SIZE];
int optim, format;
struct cleanup *old_chain = NULL;
struct ui_file *stb;
}
frame_register (get_selected_frame (), regnum, &optim, &lval,
- &addr, &realnum, raw_buffer);
+ &addr, &realnum, buffer);
if (optim)
{
return;
}
- /* Convert raw data to virtual format if necessary. */
- if (DEPRECATED_REGISTER_CONVERTIBLE_P () && DEPRECATED_REGISTER_CONVERTIBLE (regnum))
- {
- DEPRECATED_REGISTER_CONVERT_TO_VIRTUAL (regnum, reg_vtype,
- raw_buffer, virtual_buffer);
- }
- else
- memcpy (virtual_buffer, raw_buffer,
- DEPRECATED_REGISTER_VIRTUAL_SIZE (regnum));
-
stb = mem_fileopen ();
old_chain = make_cleanup_ui_file_delete (stb);
{
int idx = TARGET_BYTE_ORDER == BFD_ENDIAN_BIG ? j
: DEPRECATED_REGISTER_RAW_SIZE (regnum) - 1 - j;
- sprintf (ptr, "%02x", (unsigned char) raw_buffer[idx]);
+ sprintf (ptr, "%02x", (unsigned char) buffer[idx]);
ptr += 2;
}
fputs_unfiltered (buf, stb);
&& (strcmp (FIELD_NAME (TYPE_FIELD (reg_vtype, 0)),
REGISTER_NAME (regnum)) == 0))
{
- val_print (FIELD_TYPE (TYPE_FIELD (reg_vtype, 0)), virtual_buffer, 0, 0,
+ val_print (FIELD_TYPE (TYPE_FIELD (reg_vtype, 0)), buffer, 0, 0,
stb, format, 1, 0, Val_pretty_default);
}
else
- val_print (reg_vtype, virtual_buffer, 0, 0,
+ val_print (reg_vtype, buffer, 0, 0,
stb, format, 1, 0, Val_pretty_default);
}