diff options
| author | David Taylor <taylor@redhat.com> | 1998-12-28 23:06:13 +0000 |
|---|---|---|
| committer | David Taylor <taylor@redhat.com> | 1998-12-28 23:06:13 +0000 |
| commit | 4ef1f4677390c085543fe80eec41b0fe5d58ddca (patch) | |
| tree | d0e8320e4871a81733155e8ce653507dd3d64825 /gdb/gdbtk-cmds.c | |
| parent | d6fdf61c78fbce1dad62cd1022e606fdaaad4202 (diff) | |
| download | binutils-4ef1f4677390c085543fe80eec41b0fe5d58ddca.zip binutils-4ef1f4677390c085543fe80eec41b0fe5d58ddca.tar.gz binutils-4ef1f4677390c085543fe80eec41b0fe5d58ddca.tar.bz2 | |
hp merge changes -- too numerous to mention here; see ChangeLog and
ChangeLog-gdbtk for details.
Diffstat (limited to 'gdb/gdbtk-cmds.c')
| -rw-r--r-- | gdb/gdbtk-cmds.c | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/gdb/gdbtk-cmds.c b/gdb/gdbtk-cmds.c index 5ce63b1..0019974 100644 --- a/gdb/gdbtk-cmds.c +++ b/gdb/gdbtk-cmds.c @@ -647,7 +647,8 @@ gdb_eval (clientData, interp, objc, objv) * the Tcl result. */ - val_print (VALUE_TYPE (val), VALUE_CONTENTS (val), VALUE_ADDRESS (val), + val_print (VALUE_TYPE (val), VALUE_CONTENTS (val), + VALUE_EMBEDDED_OFFSET(val), VALUE_ADDRESS (val), gdb_stdout, 0, 0, 0, 0); do_cleanups (old_chain); @@ -1694,7 +1695,7 @@ get_register (regnum, fp) } } else - val_print (REGISTER_VIRTUAL_TYPE (regnum), virtual_buffer, 0, + val_print (REGISTER_VIRTUAL_TYPE (regnum), virtual_buffer, 0, 0, gdb_stdout, format, 1, 0, Val_pretty_default); } @@ -3394,7 +3395,7 @@ get_frame_name (interp, list, fi) print_address_numeric (fi->pc, 1, gdb_stdout); printf_filtered (" in "); } - printf_symbol_filtered (gdb_stdout, funname ? funname : "??", funlang, + fprintf_symbol_filtered (gdb_stdout, funname ? funname : "??", funlang, DMGL_ANSI); #endif objv[0] = Tcl_NewStringObj (funname != NULL ? funname : "??", -1); |