2000-02-23 01:25:43 +01:00
|
|
|
/* MI Command Set.
|
2003-01-13 Elena Zannoni <ezannoni@redhat.com>
* stack.c (print_frame_info, print_stack_frame_base_stub,
print_stack_frame_base, show_and_print_stack_frame_stub,
show_and_print_stack_frame, print_only_stack_frame_stub,
print_only_stack_frame): Delete functions.
(print_stack_frame_stub): Call print_frame_info instead of
print_frame_info_base.
(print_frame_info_base): Rename to print_frame_info.
(backtrace_command_1): Call print_frame_info, instead of
print_frame_info_base.
(current_frame_command): Call print_stack_frame, instead of
print_only_stack_frame.
(frame_command): Call print_stack_frame, instead of
show_and_print_stack_frame.
(up_command): Ditto.
(down_command): Ditto.
* frame.h (print_only_stack_frame): Delete prototype.
* infrun.c (normal_stop): Call print_stack_frame, instead of
show_and_print_stack_frame.
* thread.c (info_threads_command): Call print_stack_frame, instead
of print_only_stack_frame.
2003-01-13 Elena Zannoni <ezannoni@redhat.com>
* mi-main.c (mi_cmd_exec_return): Use print_stack_frame instead of
show_and_print_stack_frame.
2003-01-14 01:07:43 +01:00
|
|
|
Copyright 2000, 2001, 2002, 2003 Free Software Foundation, Inc.
|
2000-02-23 07:19:22 +01:00
|
|
|
Contributed by Cygnus Solutions (a Red Hat company).
|
2000-02-23 01:25:43 +01:00
|
|
|
|
|
|
|
This file is part of GDB.
|
|
|
|
|
|
|
|
This program is free software; you can redistribute it and/or modify
|
|
|
|
it under the terms of the GNU General Public License as published by
|
|
|
|
the Free Software Foundation; either version 2 of the License, or
|
|
|
|
(at your option) any later version.
|
|
|
|
|
|
|
|
This program is distributed in the hope that it will be useful,
|
|
|
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
|
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
|
|
GNU General Public License for more details.
|
|
|
|
|
|
|
|
You should have received a copy of the GNU General Public License
|
|
|
|
along with this program; if not, write to the Free Software
|
|
|
|
Foundation, Inc., 59 Temple Place - Suite 330,
|
|
|
|
Boston, MA 02111-1307, USA. */
|
|
|
|
|
|
|
|
/* Work in progress */
|
|
|
|
|
|
|
|
#include "defs.h"
|
|
|
|
#include "target.h"
|
|
|
|
#include "inferior.h"
|
|
|
|
#include "gdb_string.h"
|
|
|
|
#include "top.h"
|
|
|
|
#include "gdbthread.h"
|
|
|
|
#include "mi-cmds.h"
|
|
|
|
#include "mi-parse.h"
|
|
|
|
#include "mi-getopt.h"
|
|
|
|
#include "mi-console.h"
|
|
|
|
#include "ui-out.h"
|
|
|
|
#include "mi-out.h"
|
2003-02-05 Jim Ingham <jingham@apple.com>
Keith Seitz <keiths@redhat.com>
Elena Zannoni <ezannoni@redhat.com>
Andrew Cagney <ac131313@redhat.com>
* Makefile.in (SUBDIR_CLI_OBS): Add "cli-interp.o".
(SUBDIR_CLI_SRCS): Add "cli/cli-interp.c".
(SUBDIR_MI_OBS): Add "mi-interp.o".
(SUBDIR_MI_SRCS): Add "mi/mi-interp.c".
(SFILES): Add "interps.c".
(COMMON_OBS): Add "interps.o".
(interps_h, mi_main_h): Define.
(interps.o, cli-interp.o, mi-interp.o): Add dependencies.
(mi-main.o, main.o, event-top.o): Update dependencies.
* cli/cli-interp.c: New file.
* interps.h, interps.c: New files.
* top.c: (gdb_init): Don't install the default interpreter, handed
by captured_main.
* main.c: Include "interps.h".
(interpreter_p): Note that it should malloc'ed.
(captured_command_loop): Call current_interp_command_loop.
(captured_main): Initialize interpreter_p to INTERP_CONSOLE. Use
xfree and xstrdup when updating interpreter_p. Install the
default interpreter. Add hack to stop mi1's copyright notice
being encoded.
* event-top.h (gdb_setup_readline): Declare.
(gdb_disable_readline): Declare.
* event-top.c: Include "interps.h".
(display_gdb_prompt): Call current_interp_display_prompt_p.
(gdb_setup_readline): Initialize gdb_stdout, gdb_stderr,
gdb_stdlog, and gdb_stdtarg.
(_initialize_event_loop): Don't call gdb_setup_readline.
* cli-out.c (cli_out_set_stream): New function.
* cli-out.h (cli_out_set_stream): Declare.
2003-02-06 02:19:12 +01:00
|
|
|
#include "interps.h"
|
2000-02-23 01:25:43 +01:00
|
|
|
#include "event-loop.h"
|
|
|
|
#include "event-top.h"
|
|
|
|
#include "gdbcore.h" /* for write_memory() */
|
2002-11-13 Andrew Cagney <cagney@redhat.com>
* regcache.h (deprecated_read_register_bytes): Rename
read_register_bytes.
(deprecated_write_register_bytes): Rename write_register_bytes.
* alpha-tdep.c, arm-tdep.c, cris-tdep.c, d10v-tdep.c: Update.
* dwarf2cfi.c, frv-tdep.c, hppa-tdep.c, ia64-tdep.c: Update.
* m68k-tdep.c, mcore-tdep.c, mips-tdep.c, mn10300-tdep.c: Update.
* ns32k-tdep.c, regcache.c, remote-sds.c, remote-vx.c: Update.
* remote.c, rs6000-tdep.c, s390-tdep.c, sh-tdep.c: Update.
* sparc-tdep.c, v850-tdep.c, vax-tdep.c, x86-64-tdep.c: Update.
* xstormy16-tdep.c, z8k-tdep.c, config/nm-gnu.h: Update.
* config/nm-m3.h, config/h8500/tm-h8500.h: Update.
* config/i386/nm-ptx4.h, config/i386/nm-symmetry.h: Update.
* config/m32r/tm-m32r.h, config/m68k/nm-sun3.h: Update.
* config/m68k/tm-delta68.h, config/m68k/tm-linux.h: Update.
* config/mn10200/tm-mn10200.h, config/pa/tm-hppa64.h: Update.
* config/sparc/nm-nbsd.h, config/sparc/nm-sun4os4.h: Update.
* config/sparc/nm-sun4sol2.h, config/sparc/tm-sparclet.h: Update.
2002-11-13 Andrew Cagney <ac131313@redhat.com>
* mi-main.c (mi_cmd_data_write_register_values): Use
deprecated_write_register_bytes instead of write_register_bytes.
2002-11-14 01:25:05 +01:00
|
|
|
#include "value.h" /* for deprecated_write_register_bytes() */
|
2001-03-01 02:39:22 +01:00
|
|
|
#include "regcache.h"
|
2001-07-28 21:48:15 +02:00
|
|
|
#include "gdb.h"
|
2002-10-02 Elena Zannoni <ezannoni@redhat.com>
* inferior.h (registers_info, stepi_command, nexti_command,
continue_command, interrupt_target_command): Export from infcmd.c.
* frame.h (args_info, selected_frame_level_changed_hook,
return_command): Export from stack.c.
* v850ice.c (stepi_command, nexti_command, continue_command): use
prototypes from inferior.h.
* tracepoint.c (registers_info, args_info, locals_info): Use
prototypes from frame.h and inferior.h.
* Makefile.in (mi-main.o): Add dependency on frame.h.
2002-10-02 Elena Zannoni <ezannoni@redhat.com>
* mi-main.c (mi_cmd_exec_return): Don't use
return_command_wrapper, use return_command instead.
(mi_cmd_exec_interrupt): Don't use
interrupt_target_command_wrapper, use interrupt_target_command
instead.
(return_command_wrapper, interrupt_target_command_wrapper):
Delete.
Include frame.h.
2002-10-02 Elena Zannoni <ezannoni@redhat.com>
* tui-hooks.c (selected_frame_level_changed_hook): Use the one
exported from frame.h.
2002-10-02 23:33:59 +02:00
|
|
|
#include "frame.h"
|
|
|
|
|
2000-02-23 01:25:43 +01:00
|
|
|
#include <ctype.h>
|
|
|
|
#include <sys/time.h>
|
|
|
|
|
|
|
|
enum
|
|
|
|
{
|
|
|
|
FROM_TTY = 0
|
|
|
|
};
|
|
|
|
|
2002-05-20 20:09:57 +02:00
|
|
|
/* Enumerations of the actions that may result from calling
|
|
|
|
captured_mi_execute_command */
|
|
|
|
|
|
|
|
enum captured_mi_execute_command_actions
|
|
|
|
{
|
|
|
|
EXECUTE_COMMAND_DISPLAY_PROMPT,
|
|
|
|
EXECUTE_COMMAND_SUPRESS_PROMPT,
|
|
|
|
EXECUTE_COMMAND_DISPLAY_ERROR
|
|
|
|
};
|
|
|
|
|
|
|
|
/* This structure is used to pass information from captured_mi_execute_command
|
|
|
|
to mi_execute_command. */
|
|
|
|
struct captured_mi_execute_command_args
|
|
|
|
{
|
|
|
|
/* This return result of the MI command (output) */
|
|
|
|
enum mi_cmd_result rc;
|
|
|
|
|
|
|
|
/* What action to perform when the call is finished (output) */
|
|
|
|
enum captured_mi_execute_command_actions action;
|
|
|
|
|
|
|
|
/* The command context to be executed (input) */
|
|
|
|
struct mi_parse *command;
|
|
|
|
};
|
2000-02-23 01:25:43 +01:00
|
|
|
|
|
|
|
int mi_debug_p;
|
|
|
|
struct ui_file *raw_stdout;
|
|
|
|
|
|
|
|
/* The token of the last asynchronous command */
|
|
|
|
static char *last_async_command;
|
|
|
|
static char *previous_async_command;
|
2003-02-05 Jim Ingham <jingham@apple.com>
Keith Seitz <keiths@redhat.com>
Elena Zannoni <ezannoni@redhat.com>
Andrew Cagney <ac131313@redhat.com>
* Makefile.in (SUBDIR_CLI_OBS): Add "cli-interp.o".
(SUBDIR_CLI_SRCS): Add "cli/cli-interp.c".
(SUBDIR_MI_OBS): Add "mi-interp.o".
(SUBDIR_MI_SRCS): Add "mi/mi-interp.c".
(SFILES): Add "interps.c".
(COMMON_OBS): Add "interps.o".
(interps_h, mi_main_h): Define.
(interps.o, cli-interp.o, mi-interp.o): Add dependencies.
(mi-main.o, main.o, event-top.o): Update dependencies.
* cli/cli-interp.c: New file.
* interps.h, interps.c: New files.
* top.c: (gdb_init): Don't install the default interpreter, handed
by captured_main.
* main.c: Include "interps.h".
(interpreter_p): Note that it should malloc'ed.
(captured_command_loop): Call current_interp_command_loop.
(captured_main): Initialize interpreter_p to INTERP_CONSOLE. Use
xfree and xstrdup when updating interpreter_p. Install the
default interpreter. Add hack to stop mi1's copyright notice
being encoded.
* event-top.h (gdb_setup_readline): Declare.
(gdb_disable_readline): Declare.
* event-top.c: Include "interps.h".
(display_gdb_prompt): Call current_interp_display_prompt_p.
(gdb_setup_readline): Initialize gdb_stdout, gdb_stderr,
gdb_stdlog, and gdb_stdtarg.
(_initialize_event_loop): Don't call gdb_setup_readline.
* cli-out.c (cli_out_set_stream): New function.
* cli-out.h (cli_out_set_stream): Declare.
2003-02-06 02:19:12 +01:00
|
|
|
char *mi_error_message;
|
2000-02-23 01:25:43 +01:00
|
|
|
static char *old_regs;
|
|
|
|
|
|
|
|
extern void _initialize_mi_main (void);
|
|
|
|
static enum mi_cmd_result mi_cmd_execute (struct mi_parse *parse);
|
|
|
|
|
|
|
|
static void mi_execute_cli_command (const char *cli, char *args);
|
|
|
|
static enum mi_cmd_result mi_execute_async_cli_command (char *mi, char *args, int from_tty);
|
|
|
|
|
2003-02-05 Jim Ingham <jingham@apple.com>
Keith Seitz <keiths@redhat.com>
Elena Zannoni <ezannoni@redhat.com>
Andrew Cagney <ac131313@redhat.com>
* Makefile.in (SUBDIR_CLI_OBS): Add "cli-interp.o".
(SUBDIR_CLI_SRCS): Add "cli/cli-interp.c".
(SUBDIR_MI_OBS): Add "mi-interp.o".
(SUBDIR_MI_SRCS): Add "mi/mi-interp.c".
(SFILES): Add "interps.c".
(COMMON_OBS): Add "interps.o".
(interps_h, mi_main_h): Define.
(interps.o, cli-interp.o, mi-interp.o): Add dependencies.
(mi-main.o, main.o, event-top.o): Update dependencies.
* cli/cli-interp.c: New file.
* interps.h, interps.c: New files.
* top.c: (gdb_init): Don't install the default interpreter, handed
by captured_main.
* main.c: Include "interps.h".
(interpreter_p): Note that it should malloc'ed.
(captured_command_loop): Call current_interp_command_loop.
(captured_main): Initialize interpreter_p to INTERP_CONSOLE. Use
xfree and xstrdup when updating interpreter_p. Install the
default interpreter. Add hack to stop mi1's copyright notice
being encoded.
* event-top.h (gdb_setup_readline): Declare.
(gdb_disable_readline): Declare.
* event-top.c: Include "interps.h".
(display_gdb_prompt): Call current_interp_display_prompt_p.
(gdb_setup_readline): Initialize gdb_stdout, gdb_stderr,
gdb_stdlog, and gdb_stdtarg.
(_initialize_event_loop): Don't call gdb_setup_readline.
* cli-out.c (cli_out_set_stream): New function.
* cli-out.h (cli_out_set_stream): Declare.
2003-02-06 02:19:12 +01:00
|
|
|
static void mi_exec_async_cli_cmd_continuation (struct continuation_arg *arg);
|
2000-02-23 01:25:43 +01:00
|
|
|
|
|
|
|
static int register_changed_p (int regnum);
|
|
|
|
static int get_register (int regnum, int format);
|
2003-02-05 Jim Ingham <jingham@apple.com>
Keith Seitz <keiths@redhat.com>
Elena Zannoni <ezannoni@redhat.com>
Andrew Cagney <ac131313@redhat.com>
* Makefile.in (SUBDIR_CLI_OBS): Add "cli-interp.o".
(SUBDIR_CLI_SRCS): Add "cli/cli-interp.c".
(SUBDIR_MI_OBS): Add "mi-interp.o".
(SUBDIR_MI_SRCS): Add "mi/mi-interp.c".
(SFILES): Add "interps.c".
(COMMON_OBS): Add "interps.o".
(interps_h, mi_main_h): Define.
(interps.o, cli-interp.o, mi-interp.o): Add dependencies.
(mi-main.o, main.o, event-top.o): Update dependencies.
* cli/cli-interp.c: New file.
* interps.h, interps.c: New files.
* top.c: (gdb_init): Don't install the default interpreter, handed
by captured_main.
* main.c: Include "interps.h".
(interpreter_p): Note that it should malloc'ed.
(captured_command_loop): Call current_interp_command_loop.
(captured_main): Initialize interpreter_p to INTERP_CONSOLE. Use
xfree and xstrdup when updating interpreter_p. Install the
default interpreter. Add hack to stop mi1's copyright notice
being encoded.
* event-top.h (gdb_setup_readline): Declare.
(gdb_disable_readline): Declare.
* event-top.c: Include "interps.h".
(display_gdb_prompt): Call current_interp_display_prompt_p.
(gdb_setup_readline): Initialize gdb_stdout, gdb_stderr,
gdb_stdlog, and gdb_stdtarg.
(_initialize_event_loop): Don't call gdb_setup_readline.
* cli-out.c (cli_out_set_stream): New function.
* cli-out.h (cli_out_set_stream): Declare.
2003-02-06 02:19:12 +01:00
|
|
|
|
|
|
|
/* A helper function which will set mi_error_message to
|
|
|
|
error_last_message. */
|
|
|
|
void
|
|
|
|
mi_error_last_message (void)
|
|
|
|
{
|
|
|
|
char *s = error_last_message ();
|
|
|
|
xasprintf (&mi_error_message, s);
|
|
|
|
xfree (s);
|
|
|
|
}
|
2000-02-23 01:25:43 +01:00
|
|
|
|
|
|
|
/* Command implementations. FIXME: Is this libgdb? No. This is the MI
|
|
|
|
layer that calls libgdb. Any operation used in the below should be
|
|
|
|
formalized. */
|
|
|
|
|
|
|
|
enum mi_cmd_result
|
|
|
|
mi_cmd_gdb_exit (char *command, char **argv, int argc)
|
|
|
|
{
|
|
|
|
/* We have to print everything right here because we never return */
|
|
|
|
if (last_async_command)
|
|
|
|
fputs_unfiltered (last_async_command, raw_stdout);
|
|
|
|
fputs_unfiltered ("^exit\n", raw_stdout);
|
|
|
|
mi_out_put (uiout, raw_stdout);
|
|
|
|
/* FIXME: The function called is not yet a formal libgdb function */
|
|
|
|
quit_force (NULL, FROM_TTY);
|
|
|
|
return MI_CMD_DONE;
|
|
|
|
}
|
|
|
|
|
|
|
|
enum mi_cmd_result
|
|
|
|
mi_cmd_exec_run (char *args, int from_tty)
|
|
|
|
{
|
|
|
|
/* FIXME: Should call a libgdb function, not a cli wrapper */
|
|
|
|
return mi_execute_async_cli_command ("run", args, from_tty);
|
|
|
|
}
|
|
|
|
|
|
|
|
enum mi_cmd_result
|
|
|
|
mi_cmd_exec_next (char *args, int from_tty)
|
|
|
|
{
|
|
|
|
/* FIXME: Should call a libgdb function, not a cli wrapper */
|
|
|
|
return mi_execute_async_cli_command ("next", args, from_tty);
|
|
|
|
}
|
|
|
|
|
|
|
|
enum mi_cmd_result
|
|
|
|
mi_cmd_exec_next_instruction (char *args, int from_tty)
|
|
|
|
{
|
|
|
|
/* FIXME: Should call a libgdb function, not a cli wrapper */
|
|
|
|
return mi_execute_async_cli_command ("nexti", args, from_tty);
|
|
|
|
}
|
|
|
|
|
|
|
|
enum mi_cmd_result
|
|
|
|
mi_cmd_exec_step (char *args, int from_tty)
|
|
|
|
{
|
|
|
|
/* FIXME: Should call a libgdb function, not a cli wrapper */
|
|
|
|
return mi_execute_async_cli_command ("step", args, from_tty);
|
|
|
|
}
|
|
|
|
|
|
|
|
enum mi_cmd_result
|
|
|
|
mi_cmd_exec_step_instruction (char *args, int from_tty)
|
|
|
|
{
|
|
|
|
/* FIXME: Should call a libgdb function, not a cli wrapper */
|
|
|
|
return mi_execute_async_cli_command ("stepi", args, from_tty);
|
|
|
|
}
|
|
|
|
|
|
|
|
enum mi_cmd_result
|
|
|
|
mi_cmd_exec_finish (char *args, int from_tty)
|
|
|
|
{
|
|
|
|
/* FIXME: Should call a libgdb function, not a cli wrapper */
|
|
|
|
return mi_execute_async_cli_command ("finish", args, from_tty);
|
|
|
|
}
|
|
|
|
|
|
|
|
enum mi_cmd_result
|
|
|
|
mi_cmd_exec_until (char *args, int from_tty)
|
|
|
|
{
|
|
|
|
/* FIXME: Should call a libgdb function, not a cli wrapper */
|
|
|
|
return mi_execute_async_cli_command ("until", args, from_tty);
|
|
|
|
}
|
|
|
|
|
|
|
|
enum mi_cmd_result
|
|
|
|
mi_cmd_exec_return (char *args, int from_tty)
|
|
|
|
{
|
|
|
|
/* This command doesn't really execute the target, it just pops the
|
|
|
|
specified number of frames. */
|
|
|
|
if (*args)
|
|
|
|
/* Call return_command with from_tty argument equal to 0 so as to
|
|
|
|
avoid being queried. */
|
2002-10-02 Elena Zannoni <ezannoni@redhat.com>
* inferior.h (registers_info, stepi_command, nexti_command,
continue_command, interrupt_target_command): Export from infcmd.c.
* frame.h (args_info, selected_frame_level_changed_hook,
return_command): Export from stack.c.
* v850ice.c (stepi_command, nexti_command, continue_command): use
prototypes from inferior.h.
* tracepoint.c (registers_info, args_info, locals_info): Use
prototypes from frame.h and inferior.h.
* Makefile.in (mi-main.o): Add dependency on frame.h.
2002-10-02 Elena Zannoni <ezannoni@redhat.com>
* mi-main.c (mi_cmd_exec_return): Don't use
return_command_wrapper, use return_command instead.
(mi_cmd_exec_interrupt): Don't use
interrupt_target_command_wrapper, use interrupt_target_command
instead.
(return_command_wrapper, interrupt_target_command_wrapper):
Delete.
Include frame.h.
2002-10-02 Elena Zannoni <ezannoni@redhat.com>
* tui-hooks.c (selected_frame_level_changed_hook): Use the one
exported from frame.h.
2002-10-02 23:33:59 +02:00
|
|
|
return_command (args, 0);
|
2000-02-23 01:25:43 +01:00
|
|
|
else
|
|
|
|
/* Call return_command with from_tty argument equal to 0 so as to
|
|
|
|
avoid being queried. */
|
2002-10-02 Elena Zannoni <ezannoni@redhat.com>
* inferior.h (registers_info, stepi_command, nexti_command,
continue_command, interrupt_target_command): Export from infcmd.c.
* frame.h (args_info, selected_frame_level_changed_hook,
return_command): Export from stack.c.
* v850ice.c (stepi_command, nexti_command, continue_command): use
prototypes from inferior.h.
* tracepoint.c (registers_info, args_info, locals_info): Use
prototypes from frame.h and inferior.h.
* Makefile.in (mi-main.o): Add dependency on frame.h.
2002-10-02 Elena Zannoni <ezannoni@redhat.com>
* mi-main.c (mi_cmd_exec_return): Don't use
return_command_wrapper, use return_command instead.
(mi_cmd_exec_interrupt): Don't use
interrupt_target_command_wrapper, use interrupt_target_command
instead.
(return_command_wrapper, interrupt_target_command_wrapper):
Delete.
Include frame.h.
2002-10-02 Elena Zannoni <ezannoni@redhat.com>
* tui-hooks.c (selected_frame_level_changed_hook): Use the one
exported from frame.h.
2002-10-02 23:33:59 +02:00
|
|
|
return_command (NULL, 0);
|
2000-02-23 01:25:43 +01:00
|
|
|
|
|
|
|
/* Because we have called return_command with from_tty = 0, we need
|
|
|
|
to print the frame here. */
|
2003-01-13 Elena Zannoni <ezannoni@redhat.com>
* stack.c (print_frame_info, print_stack_frame_base_stub,
print_stack_frame_base, show_and_print_stack_frame_stub,
show_and_print_stack_frame, print_only_stack_frame_stub,
print_only_stack_frame): Delete functions.
(print_stack_frame_stub): Call print_frame_info instead of
print_frame_info_base.
(print_frame_info_base): Rename to print_frame_info.
(backtrace_command_1): Call print_frame_info, instead of
print_frame_info_base.
(current_frame_command): Call print_stack_frame, instead of
print_only_stack_frame.
(frame_command): Call print_stack_frame, instead of
show_and_print_stack_frame.
(up_command): Ditto.
(down_command): Ditto.
* frame.h (print_only_stack_frame): Delete prototype.
* infrun.c (normal_stop): Call print_stack_frame, instead of
show_and_print_stack_frame.
* thread.c (info_threads_command): Call print_stack_frame, instead
of print_only_stack_frame.
2003-01-13 Elena Zannoni <ezannoni@redhat.com>
* mi-main.c (mi_cmd_exec_return): Use print_stack_frame instead of
show_and_print_stack_frame.
2003-01-14 01:07:43 +01:00
|
|
|
print_stack_frame (deprecated_selected_frame,
|
|
|
|
frame_relative_level (deprecated_selected_frame),
|
|
|
|
LOC_AND_ADDRESS);
|
2000-02-23 01:25:43 +01:00
|
|
|
|
|
|
|
return MI_CMD_DONE;
|
|
|
|
}
|
|
|
|
|
|
|
|
enum mi_cmd_result
|
|
|
|
mi_cmd_exec_continue (char *args, int from_tty)
|
|
|
|
{
|
|
|
|
/* FIXME: Should call a libgdb function, not a cli wrapper */
|
|
|
|
return mi_execute_async_cli_command ("continue", args, from_tty);
|
|
|
|
}
|
|
|
|
|
|
|
|
/* Interrupt the execution of the target. Note how we must play around
|
|
|
|
with the token varialbes, in order to display the current token in
|
|
|
|
the result of the interrupt command, and the previous execution
|
|
|
|
token when the target finally stops. See comments in
|
|
|
|
mi_cmd_execute. */
|
|
|
|
enum mi_cmd_result
|
|
|
|
mi_cmd_exec_interrupt (char *args, int from_tty)
|
|
|
|
{
|
|
|
|
if (!target_executing)
|
|
|
|
{
|
2000-11-20 03:06:19 +01:00
|
|
|
xasprintf (&mi_error_message,
|
|
|
|
"mi_cmd_exec_interrupt: Inferior not executing.");
|
2000-02-23 01:25:43 +01:00
|
|
|
return MI_CMD_ERROR;
|
|
|
|
}
|
2002-10-02 Elena Zannoni <ezannoni@redhat.com>
* inferior.h (registers_info, stepi_command, nexti_command,
continue_command, interrupt_target_command): Export from infcmd.c.
* frame.h (args_info, selected_frame_level_changed_hook,
return_command): Export from stack.c.
* v850ice.c (stepi_command, nexti_command, continue_command): use
prototypes from inferior.h.
* tracepoint.c (registers_info, args_info, locals_info): Use
prototypes from frame.h and inferior.h.
* Makefile.in (mi-main.o): Add dependency on frame.h.
2002-10-02 Elena Zannoni <ezannoni@redhat.com>
* mi-main.c (mi_cmd_exec_return): Don't use
return_command_wrapper, use return_command instead.
(mi_cmd_exec_interrupt): Don't use
interrupt_target_command_wrapper, use interrupt_target_command
instead.
(return_command_wrapper, interrupt_target_command_wrapper):
Delete.
Include frame.h.
2002-10-02 Elena Zannoni <ezannoni@redhat.com>
* tui-hooks.c (selected_frame_level_changed_hook): Use the one
exported from frame.h.
2002-10-02 23:33:59 +02:00
|
|
|
interrupt_target_command (args, from_tty);
|
2000-02-23 01:25:43 +01:00
|
|
|
if (last_async_command)
|
|
|
|
fputs_unfiltered (last_async_command, raw_stdout);
|
|
|
|
fputs_unfiltered ("^done", raw_stdout);
|
2000-12-15 02:01:51 +01:00
|
|
|
xfree (last_async_command);
|
2000-02-23 01:25:43 +01:00
|
|
|
if (previous_async_command)
|
|
|
|
last_async_command = xstrdup (previous_async_command);
|
2000-12-15 02:01:51 +01:00
|
|
|
xfree (previous_async_command);
|
2000-02-23 01:25:43 +01:00
|
|
|
previous_async_command = NULL;
|
|
|
|
mi_out_put (uiout, raw_stdout);
|
|
|
|
mi_out_rewind (uiout);
|
|
|
|
fputs_unfiltered ("\n", raw_stdout);
|
|
|
|
return MI_CMD_QUIET;
|
|
|
|
}
|
|
|
|
|
|
|
|
enum mi_cmd_result
|
|
|
|
mi_cmd_thread_select (char *command, char **argv, int argc)
|
|
|
|
{
|
|
|
|
enum gdb_rc rc;
|
|
|
|
|
|
|
|
if (argc != 1)
|
|
|
|
{
|
2000-11-20 03:06:19 +01:00
|
|
|
xasprintf (&mi_error_message,
|
|
|
|
"mi_cmd_thread_select: USAGE: threadnum.");
|
2000-02-23 01:25:43 +01:00
|
|
|
return MI_CMD_ERROR;
|
|
|
|
}
|
|
|
|
else
|
2001-09-18 07:00:51 +02:00
|
|
|
rc = gdb_thread_select (uiout, argv[0]);
|
2000-02-23 01:25:43 +01:00
|
|
|
|
2002-10-22 19:53:42 +02:00
|
|
|
/* RC is enum gdb_rc if it is successful (>=0)
|
|
|
|
enum return_reason if not (<0). */
|
|
|
|
if ((int) rc < 0 && (enum return_reason) rc == RETURN_ERROR)
|
2000-02-23 01:25:43 +01:00
|
|
|
return MI_CMD_CAUGHT_ERROR;
|
2002-10-22 19:53:42 +02:00
|
|
|
else if ((int) rc >= 0 && rc == GDB_RC_FAIL)
|
|
|
|
return MI_CMD_ERROR;
|
2000-02-23 01:25:43 +01:00
|
|
|
else
|
|
|
|
return MI_CMD_DONE;
|
|
|
|
}
|
|
|
|
|
|
|
|
enum mi_cmd_result
|
|
|
|
mi_cmd_thread_list_ids (char *command, char **argv, int argc)
|
|
|
|
{
|
|
|
|
enum gdb_rc rc = MI_CMD_DONE;
|
|
|
|
|
|
|
|
if (argc != 0)
|
|
|
|
{
|
2000-11-20 03:06:19 +01:00
|
|
|
xasprintf (&mi_error_message,
|
|
|
|
"mi_cmd_thread_list_ids: No arguments required.");
|
2000-02-23 01:25:43 +01:00
|
|
|
return MI_CMD_ERROR;
|
|
|
|
}
|
|
|
|
else
|
2001-09-18 07:00:51 +02:00
|
|
|
rc = gdb_list_thread_ids (uiout);
|
2000-02-23 01:25:43 +01:00
|
|
|
|
|
|
|
if (rc == GDB_RC_FAIL)
|
|
|
|
return MI_CMD_CAUGHT_ERROR;
|
|
|
|
else
|
|
|
|
return MI_CMD_DONE;
|
|
|
|
}
|
|
|
|
|
|
|
|
enum mi_cmd_result
|
|
|
|
mi_cmd_data_list_register_names (char *command, char **argv, int argc)
|
|
|
|
{
|
|
|
|
int regnum, numregs;
|
|
|
|
int i;
|
2002-09-11 23:49:04 +02:00
|
|
|
struct cleanup *cleanup;
|
2000-02-23 01:25:43 +01:00
|
|
|
|
|
|
|
/* Note that the test for a valid register must include checking the
|
|
|
|
REGISTER_NAME because NUM_REGS may be allocated for the union of
|
|
|
|
the register sets within a family of related processors. In this
|
|
|
|
case, some entries of REGISTER_NAME will change depending upon
|
|
|
|
the particular processor being debugged. */
|
|
|
|
|
2001-06-25 21:02:18 +02:00
|
|
|
numregs = NUM_REGS + NUM_PSEUDO_REGS;
|
2000-02-23 01:25:43 +01:00
|
|
|
|
2002-09-11 23:49:04 +02:00
|
|
|
cleanup = make_cleanup_ui_out_list_begin_end (uiout, "register-names");
|
2000-02-23 01:25:43 +01:00
|
|
|
|
|
|
|
if (argc == 0) /* No args, just do all the regs */
|
|
|
|
{
|
|
|
|
for (regnum = 0;
|
|
|
|
regnum < numregs;
|
|
|
|
regnum++)
|
|
|
|
{
|
|
|
|
if (REGISTER_NAME (regnum) == NULL
|
|
|
|
|| *(REGISTER_NAME (regnum)) == '\0')
|
2001-06-25 21:02:18 +02:00
|
|
|
ui_out_field_string (uiout, NULL, "");
|
|
|
|
else
|
|
|
|
ui_out_field_string (uiout, NULL, REGISTER_NAME (regnum));
|
2000-02-23 01:25:43 +01:00
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
/* Else, list of register #s, just do listed regs */
|
|
|
|
for (i = 0; i < argc; i++)
|
|
|
|
{
|
|
|
|
regnum = atoi (argv[i]);
|
2001-06-25 21:02:18 +02:00
|
|
|
if (regnum < 0 || regnum >= numregs)
|
2000-02-23 01:25:43 +01:00
|
|
|
{
|
2002-09-11 23:49:04 +02:00
|
|
|
do_cleanups (cleanup);
|
2000-11-20 03:06:19 +01:00
|
|
|
xasprintf (&mi_error_message, "bad register number");
|
2000-02-23 01:25:43 +01:00
|
|
|
return MI_CMD_ERROR;
|
|
|
|
}
|
2001-06-25 21:02:18 +02:00
|
|
|
if (REGISTER_NAME (regnum) == NULL
|
|
|
|
|| *(REGISTER_NAME (regnum)) == '\0')
|
|
|
|
ui_out_field_string (uiout, NULL, "");
|
|
|
|
else
|
|
|
|
ui_out_field_string (uiout, NULL, REGISTER_NAME (regnum));
|
2000-02-23 01:25:43 +01:00
|
|
|
}
|
2002-09-11 23:49:04 +02:00
|
|
|
do_cleanups (cleanup);
|
2000-02-23 01:25:43 +01:00
|
|
|
return MI_CMD_DONE;
|
|
|
|
}
|
|
|
|
|
|
|
|
enum mi_cmd_result
|
|
|
|
mi_cmd_data_list_changed_registers (char *command, char **argv, int argc)
|
|
|
|
{
|
|
|
|
int regnum, numregs, changed;
|
|
|
|
int i;
|
2002-09-11 23:49:04 +02:00
|
|
|
struct cleanup *cleanup;
|
2000-02-23 01:25:43 +01:00
|
|
|
|
|
|
|
/* Note that the test for a valid register must include checking the
|
|
|
|
REGISTER_NAME because NUM_REGS may be allocated for the union of
|
|
|
|
the register sets within a family of related processors. In this
|
|
|
|
case, some entries of REGISTER_NAME will change depending upon
|
|
|
|
the particular processor being debugged. */
|
|
|
|
|
2001-03-14 00:31:14 +01:00
|
|
|
numregs = NUM_REGS;
|
2000-02-23 01:25:43 +01:00
|
|
|
|
2002-09-11 23:49:04 +02:00
|
|
|
cleanup = make_cleanup_ui_out_list_begin_end (uiout, "changed-registers");
|
2000-02-23 01:25:43 +01:00
|
|
|
|
|
|
|
if (argc == 0) /* No args, just do all the regs */
|
|
|
|
{
|
|
|
|
for (regnum = 0;
|
|
|
|
regnum < numregs;
|
|
|
|
regnum++)
|
|
|
|
{
|
|
|
|
if (REGISTER_NAME (regnum) == NULL
|
|
|
|
|| *(REGISTER_NAME (regnum)) == '\0')
|
|
|
|
continue;
|
|
|
|
changed = register_changed_p (regnum);
|
|
|
|
if (changed < 0)
|
|
|
|
{
|
2002-09-11 23:49:04 +02:00
|
|
|
do_cleanups (cleanup);
|
2000-11-20 03:06:19 +01:00
|
|
|
xasprintf (&mi_error_message,
|
|
|
|
"mi_cmd_data_list_changed_registers: Unable to read register contents.");
|
2000-02-23 01:25:43 +01:00
|
|
|
return MI_CMD_ERROR;
|
|
|
|
}
|
|
|
|
else if (changed)
|
|
|
|
ui_out_field_int (uiout, NULL, regnum);
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
/* Else, list of register #s, just do listed regs */
|
|
|
|
for (i = 0; i < argc; i++)
|
|
|
|
{
|
|
|
|
regnum = atoi (argv[i]);
|
|
|
|
|
|
|
|
if (regnum >= 0
|
|
|
|
&& regnum < numregs
|
|
|
|
&& REGISTER_NAME (regnum) != NULL
|
|
|
|
&& *REGISTER_NAME (regnum) != '\000')
|
|
|
|
{
|
|
|
|
changed = register_changed_p (regnum);
|
|
|
|
if (changed < 0)
|
|
|
|
{
|
2002-09-11 23:49:04 +02:00
|
|
|
do_cleanups (cleanup);
|
2000-11-20 03:06:19 +01:00
|
|
|
xasprintf (&mi_error_message,
|
|
|
|
"mi_cmd_data_list_register_change: Unable to read register contents.");
|
2000-02-23 01:25:43 +01:00
|
|
|
return MI_CMD_ERROR;
|
|
|
|
}
|
|
|
|
else if (changed)
|
|
|
|
ui_out_field_int (uiout, NULL, regnum);
|
|
|
|
}
|
|
|
|
else
|
|
|
|
{
|
2002-09-11 23:49:04 +02:00
|
|
|
do_cleanups (cleanup);
|
2000-11-20 03:06:19 +01:00
|
|
|
xasprintf (&mi_error_message, "bad register number");
|
2000-02-23 01:25:43 +01:00
|
|
|
return MI_CMD_ERROR;
|
|
|
|
}
|
|
|
|
}
|
2002-09-11 23:49:04 +02:00
|
|
|
do_cleanups (cleanup);
|
2000-02-23 01:25:43 +01:00
|
|
|
return MI_CMD_DONE;
|
|
|
|
}
|
|
|
|
|
|
|
|
static int
|
|
|
|
register_changed_p (int regnum)
|
|
|
|
{
|
2003-05-08 Andrew Cagney <cagney@redhat.com>
* gdbarch.sh: Delete references to MAX_REGISTER_RAW_SIZE.
* gdbarch.h: Re-generate.
* defs.h (MAX_REGISTER_RAW_SIZE): Delete macro.
(legacy_max_register_raw_size): Delete declaration.
* regcache.c (legacy_max_register_raw_size): Delete function.
* valops.c: Replace MAX_REGISTER_RAW_SIZE with MAX_REGISTER_SIZE.
* target.c, stack.c, sparc-tdep.c, sh-tdep.c: Update.
* rs6000-tdep.c, rs6000-nat.c, remote.c, remote-sim.c: Update.
* remote-rdp.c, remote-array.c, regcache.c: Update.
* ppc-linux-nat.c, monitor.c, mn10300-tdep.c: Update.
* mips-tdep.c, mips-linux-tdep.c, m68klinux-nat.c: Update.
* infptrace.c, ia64-tdep.c, i386-tdep.c, frame.c: Update.
* findvar.c, dwarf2cfi.c: Update.
Index: tui/ChangeLog
2003-05-08 Andrew Cagney <cagney@redhat.com>
* tuiRegs.c: Use MAX_REGISTER_SIZE instead of
MAX_REGISTER_RAW_SIZE.
Index: mi/ChangeLog
2003-05-08 Andrew Cagney <cagney@redhat.com>
* mi-main.c (register_changed_p): Use MAX_REGISTER_SIZE instead of
MAX_REGISTER_RAW_SIZE.
2003-05-08 22:52:49 +02:00
|
|
|
char raw_buffer[MAX_REGISTER_SIZE];
|
2000-02-23 01:25:43 +01:00
|
|
|
|
2002-11-29 Andrew Cagney <ac131313@redhat.com>
* stack.c (selected_frame, select_frame): Move from here ...
* frame.c (selected_frame, select_frame): ... to here. Include
"language.h".
* Makefile.in (frame.o): Update dependencies.
* frame.c (get_selected_frame): New function.
* frame.h (get_selected_frame): Declare.
(deprecated_selected_frame): Rename selected_frame.
* ada-lang.c, ada-tasks.c, breakpoint.c, corelow.c: Update.
* eval.c, f-valprint.c, findvar.c, frame.c, frame.h: Update.
* h8300-tdep.c, h8500-tdep.c, hppa-tdep.c, infcmd.c: Update.
* inflow.c, infrun.c, macroscope.c, mips-tdep.c: Update.
* mn10300-tdep.c, ocd.c, regcache.h, remote-e7000.c: Update.
* remote-mips.c, remote-rdp.c, sh-tdep.c, sparc-tdep.c: Update.
* stack.c, thread.c, tracepoint.c, valops.c, varobj.c: Update.
* z8k-tdep.c, cli/cli-cmds.c: Update.
Index: mi/ChangeLog
2002-11-29 Andrew Cagney <ac131313@redhat.com>
* mi/mi-cmd-stack.c, mi/mi-main.c: Update to use
deprecated_selected_frame.
Index: tui/ChangeLog
2002-11-29 Andrew Cagney <ac131313@redhat.com>
* tui/tui-hooks.c: Update to use deprecated_selected_frame.
* tui/tui.c, tui/tuiDisassem.c, tui/tuiRegs.c: Ditto.
* tui/tuiSource.c, tui/tuiSourceWin.c, tui/tuiWin.c: Ditto.
2002-11-29 20:15:16 +01:00
|
|
|
if (! frame_register_read (deprecated_selected_frame, regnum, raw_buffer))
|
2000-02-23 01:25:43 +01:00
|
|
|
return -1;
|
|
|
|
|
|
|
|
if (memcmp (&old_regs[REGISTER_BYTE (regnum)], raw_buffer,
|
|
|
|
REGISTER_RAW_SIZE (regnum)) == 0)
|
|
|
|
return 0;
|
|
|
|
|
|
|
|
/* Found a changed register. Return 1. */
|
|
|
|
|
|
|
|
memcpy (&old_regs[REGISTER_BYTE (regnum)], raw_buffer,
|
|
|
|
REGISTER_RAW_SIZE (regnum));
|
|
|
|
|
|
|
|
return 1;
|
|
|
|
}
|
|
|
|
|
|
|
|
/* Return a list of register number and value pairs. The valid
|
|
|
|
arguments expected are: a letter indicating the format in which to
|
|
|
|
display the registers contents. This can be one of: x (hexadecimal), d
|
|
|
|
(decimal), N (natural), t (binary), o (octal), r (raw). After the
|
|
|
|
format argumetn there can be a sequence of numbers, indicating which
|
|
|
|
registers to fetch the content of. If the format is the only argument,
|
|
|
|
a list of all the registers with their values is returned. */
|
|
|
|
enum mi_cmd_result
|
|
|
|
mi_cmd_data_list_register_values (char *command, char **argv, int argc)
|
|
|
|
{
|
|
|
|
int regnum, numregs, format, result;
|
|
|
|
int i;
|
2002-09-11 23:49:04 +02:00
|
|
|
struct cleanup *list_cleanup, *tuple_cleanup;
|
2000-02-23 01:25:43 +01:00
|
|
|
|
|
|
|
/* Note that the test for a valid register must include checking the
|
|
|
|
REGISTER_NAME because NUM_REGS may be allocated for the union of
|
|
|
|
the register sets within a family of related processors. In this
|
|
|
|
case, some entries of REGISTER_NAME will change depending upon
|
|
|
|
the particular processor being debugged. */
|
|
|
|
|
2001-03-14 00:31:14 +01:00
|
|
|
numregs = NUM_REGS;
|
2000-02-23 01:25:43 +01:00
|
|
|
|
|
|
|
if (argc == 0)
|
|
|
|
{
|
2000-11-20 03:06:19 +01:00
|
|
|
xasprintf (&mi_error_message,
|
|
|
|
"mi_cmd_data_list_register_values: Usage: -data-list-register-values <format> [<regnum1>...<regnumN>]");
|
2000-02-23 01:25:43 +01:00
|
|
|
return MI_CMD_ERROR;
|
|
|
|
}
|
|
|
|
|
|
|
|
format = (int) argv[0][0];
|
|
|
|
|
|
|
|
if (!target_has_registers)
|
|
|
|
{
|
2000-11-20 03:06:19 +01:00
|
|
|
xasprintf (&mi_error_message,
|
|
|
|
"mi_cmd_data_list_register_values: No registers.");
|
2000-02-23 01:25:43 +01:00
|
|
|
return MI_CMD_ERROR;
|
|
|
|
}
|
|
|
|
|
2002-09-11 23:49:04 +02:00
|
|
|
list_cleanup = make_cleanup_ui_out_list_begin_end (uiout, "register-values");
|
2000-02-23 01:25:43 +01:00
|
|
|
|
|
|
|
if (argc == 1) /* No args, beside the format: do all the regs */
|
|
|
|
{
|
|
|
|
for (regnum = 0;
|
|
|
|
regnum < numregs;
|
|
|
|
regnum++)
|
|
|
|
{
|
|
|
|
if (REGISTER_NAME (regnum) == NULL
|
|
|
|
|| *(REGISTER_NAME (regnum)) == '\0')
|
|
|
|
continue;
|
2002-09-11 23:49:04 +02:00
|
|
|
tuple_cleanup = make_cleanup_ui_out_tuple_begin_end (uiout, NULL);
|
2000-02-23 01:25:43 +01:00
|
|
|
ui_out_field_int (uiout, "number", regnum);
|
|
|
|
result = get_register (regnum, format);
|
|
|
|
if (result == -1)
|
2002-09-11 23:49:04 +02:00
|
|
|
{
|
|
|
|
do_cleanups (list_cleanup);
|
|
|
|
return MI_CMD_ERROR;
|
|
|
|
}
|
|
|
|
do_cleanups (tuple_cleanup);
|
2000-02-23 01:25:43 +01:00
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
/* Else, list of register #s, just do listed regs */
|
|
|
|
for (i = 1; i < argc; i++)
|
|
|
|
{
|
|
|
|
regnum = atoi (argv[i]);
|
|
|
|
|
|
|
|
if (regnum >= 0
|
|
|
|
&& regnum < numregs
|
|
|
|
&& REGISTER_NAME (regnum) != NULL
|
|
|
|
&& *REGISTER_NAME (regnum) != '\000')
|
|
|
|
{
|
2002-09-11 23:49:04 +02:00
|
|
|
tuple_cleanup = make_cleanup_ui_out_tuple_begin_end (uiout, NULL);
|
2000-02-23 01:25:43 +01:00
|
|
|
ui_out_field_int (uiout, "number", regnum);
|
|
|
|
result = get_register (regnum, format);
|
|
|
|
if (result == -1)
|
2002-09-11 23:49:04 +02:00
|
|
|
{
|
|
|
|
do_cleanups (list_cleanup);
|
|
|
|
return MI_CMD_ERROR;
|
|
|
|
}
|
|
|
|
do_cleanups (tuple_cleanup);
|
2000-02-23 01:25:43 +01:00
|
|
|
}
|
|
|
|
else
|
|
|
|
{
|
2002-09-11 23:49:04 +02:00
|
|
|
do_cleanups (list_cleanup);
|
2000-11-20 03:06:19 +01:00
|
|
|
xasprintf (&mi_error_message, "bad register number");
|
2000-02-23 01:25:43 +01:00
|
|
|
return MI_CMD_ERROR;
|
|
|
|
}
|
|
|
|
}
|
2002-09-11 23:49:04 +02:00
|
|
|
do_cleanups (list_cleanup);
|
2000-02-23 01:25:43 +01:00
|
|
|
return MI_CMD_DONE;
|
|
|
|
}
|
|
|
|
|
|
|
|
/* Output one register's contents in the desired format. */
|
|
|
|
static int
|
|
|
|
get_register (int regnum, int format)
|
|
|
|
{
|
2003-05-08 20:46:49 +02:00
|
|
|
char raw_buffer[MAX_REGISTER_SIZE];
|
|
|
|
char virtual_buffer[MAX_REGISTER_SIZE];
|
2000-02-23 01:25:43 +01:00
|
|
|
int optim;
|
2003-03-14 18:07:01 +01:00
|
|
|
int realnum;
|
|
|
|
CORE_ADDR addr;
|
|
|
|
enum lval_type lval;
|
2000-02-23 01:25:43 +01:00
|
|
|
static struct ui_stream *stb = NULL;
|
|
|
|
|
|
|
|
stb = ui_out_stream_new (uiout);
|
|
|
|
|
|
|
|
if (format == 'N')
|
|
|
|
format = 0;
|
|
|
|
|
2003-03-14 18:07:01 +01:00
|
|
|
frame_register (deprecated_selected_frame, regnum, &optim, &lval, &addr,
|
|
|
|
&realnum, raw_buffer);
|
|
|
|
|
2000-02-23 01:25:43 +01:00
|
|
|
if (optim)
|
|
|
|
{
|
2000-11-20 03:06:19 +01:00
|
|
|
xasprintf (&mi_error_message, "Optimized out");
|
2000-02-23 01:25:43 +01:00
|
|
|
return -1;
|
|
|
|
}
|
|
|
|
|
|
|
|
/* Convert raw data to virtual format if necessary. */
|
|
|
|
|
|
|
|
if (REGISTER_CONVERTIBLE (regnum))
|
|
|
|
{
|
2003-03-01 18:03:19 +01:00
|
|
|
REGISTER_CONVERT_TO_VIRTUAL (regnum,
|
|
|
|
register_type (current_gdbarch, regnum),
|
2000-02-23 01:25:43 +01:00
|
|
|
raw_buffer, virtual_buffer);
|
|
|
|
}
|
|
|
|
else
|
|
|
|
memcpy (virtual_buffer, raw_buffer, REGISTER_VIRTUAL_SIZE (regnum));
|
|
|
|
|
|
|
|
if (format == 'r')
|
|
|
|
{
|
|
|
|
int j;
|
|
|
|
char *ptr, buf[1024];
|
|
|
|
|
|
|
|
strcpy (buf, "0x");
|
|
|
|
ptr = buf + 2;
|
|
|
|
for (j = 0; j < REGISTER_RAW_SIZE (regnum); j++)
|
|
|
|
{
|
2002-01-05 05:30:46 +01:00
|
|
|
register int idx = TARGET_BYTE_ORDER == BFD_ENDIAN_BIG ? j
|
2000-02-23 01:25:43 +01:00
|
|
|
: REGISTER_RAW_SIZE (regnum) - 1 - j;
|
|
|
|
sprintf (ptr, "%02x", (unsigned char) raw_buffer[idx]);
|
|
|
|
ptr += 2;
|
|
|
|
}
|
|
|
|
ui_out_field_string (uiout, "value", buf);
|
|
|
|
/*fputs_filtered (buf, gdb_stdout); */
|
|
|
|
}
|
|
|
|
else
|
|
|
|
{
|
2003-03-01 18:03:19 +01:00
|
|
|
val_print (register_type (current_gdbarch, regnum), virtual_buffer, 0, 0,
|
2000-02-23 01:25:43 +01:00
|
|
|
stb->stream, format, 1, 0, Val_pretty_default);
|
|
|
|
ui_out_field_stream (uiout, "value", stb);
|
|
|
|
ui_out_stream_delete (stb);
|
|
|
|
}
|
|
|
|
return 1;
|
|
|
|
}
|
|
|
|
|
2000-03-06 23:57:52 +01:00
|
|
|
/* Write given values into registers. The registers and values are
|
|
|
|
given as pairs. The corresponding MI command is
|
|
|
|
-data-write-register-values <format> [<regnum1> <value1>...<regnumN> <valueN>]*/
|
|
|
|
enum mi_cmd_result
|
|
|
|
mi_cmd_data_write_register_values (char *command, char **argv, int argc)
|
|
|
|
{
|
|
|
|
int regnum;
|
|
|
|
int i;
|
|
|
|
int numregs;
|
|
|
|
LONGEST value;
|
|
|
|
char format;
|
|
|
|
|
|
|
|
/* Note that the test for a valid register must include checking the
|
|
|
|
REGISTER_NAME because NUM_REGS may be allocated for the union of
|
|
|
|
the register sets within a family of related processors. In this
|
|
|
|
case, some entries of REGISTER_NAME will change depending upon
|
|
|
|
the particular processor being debugged. */
|
|
|
|
|
2001-03-14 00:31:14 +01:00
|
|
|
numregs = NUM_REGS;
|
2000-03-06 23:57:52 +01:00
|
|
|
|
|
|
|
if (argc == 0)
|
|
|
|
{
|
2000-11-20 03:06:19 +01:00
|
|
|
xasprintf (&mi_error_message,
|
|
|
|
"mi_cmd_data_write_register_values: Usage: -data-write-register-values <format> [<regnum1> <value1>...<regnumN> <valueN>]");
|
2000-03-06 23:57:52 +01:00
|
|
|
return MI_CMD_ERROR;
|
|
|
|
}
|
|
|
|
|
|
|
|
format = (int) argv[0][0];
|
|
|
|
|
|
|
|
if (!target_has_registers)
|
|
|
|
{
|
2000-11-20 03:06:19 +01:00
|
|
|
xasprintf (&mi_error_message,
|
|
|
|
"mi_cmd_data_write_register_values: No registers.");
|
2000-03-06 23:57:52 +01:00
|
|
|
return MI_CMD_ERROR;
|
|
|
|
}
|
|
|
|
|
|
|
|
if (!(argc - 1))
|
|
|
|
{
|
2000-11-20 03:06:19 +01:00
|
|
|
xasprintf (&mi_error_message,
|
|
|
|
"mi_cmd_data_write_register_values: No regs and values specified.");
|
2000-03-06 23:57:52 +01:00
|
|
|
return MI_CMD_ERROR;
|
|
|
|
}
|
|
|
|
|
|
|
|
if ((argc - 1) % 2)
|
|
|
|
{
|
2000-11-20 03:06:19 +01:00
|
|
|
xasprintf (&mi_error_message,
|
|
|
|
"mi_cmd_data_write_register_values: Regs and vals are not in pairs.");
|
2000-03-06 23:57:52 +01:00
|
|
|
return MI_CMD_ERROR;
|
|
|
|
}
|
|
|
|
|
|
|
|
for (i = 1; i < argc; i = i + 2)
|
|
|
|
{
|
|
|
|
regnum = atoi (argv[i]);
|
|
|
|
|
|
|
|
if (regnum >= 0
|
|
|
|
&& regnum < numregs
|
|
|
|
&& REGISTER_NAME (regnum) != NULL
|
|
|
|
&& *REGISTER_NAME (regnum) != '\000')
|
|
|
|
{
|
2001-07-09 18:53:03 +02:00
|
|
|
void *buffer;
|
|
|
|
struct cleanup *old_chain;
|
|
|
|
|
2000-03-06 23:57:52 +01:00
|
|
|
/* Get the value as a number */
|
|
|
|
value = parse_and_eval_address (argv[i + 1]);
|
|
|
|
/* Get the value into an array */
|
2003-05-03 Andrew Cagney <cagney@redhat.com>
* gdbarch.sh (DEPRECATED_REGISTER_SIZE): Rename REGISTER_SIZE.
(DEPRECATED_SIZEOF_CALL_DUMMY_WORDS): Rename
SIZEOF_CALL_DUMMY_WORDS.
(DEPRECATED_CALL_DUMMY_WORDS): Rename CALL_DUMMY_WORDS.
(DEPRECATED_FIX_CALL_DUMMY): Rename FIX_CALL_DUMMY.
(DEPRECATED_CALL_DUMMY_BREAKPOINT_OFFSET): Rename
CALL_DUMMY_BREAKPOINT_OFFSET.
(DEPRECATED_CALL_DUMMY_START_OFFSET): Rename
CALL_DUMMY_START_OFFSET.
(DEPRECATED_CALL_DUMMY_LENGTH): Rename CALL_DUMMY_LENGTH.
* gdbarch.h, gdbarch.c: Re-generate.
* alpha-tdep.c, alphafbsd-tdep.c, arm-linux-tdep.c: Update.
* arm-tdep.c, avr-tdep.c, breakpoint.c, cris-tdep.c: Update.
* dummy-frame.c, dummy-frame.h, frv-tdep.c, gdbarch.c: Update.
* gdbarch.h, gdbarch.sh, h8300-tdep.c, hppa-tdep.c: Update.
* i386-tdep.c, ia64-tdep.c, infcall.c, inferior.h: Update.
* m68hc11-tdep.c, m68k-tdep.c, mcore-tdep.c: Update.
* mips-tdep.c, mn10300-tdep.c, ns32k-tdep.c: Update.
* rs6000-tdep.c, s390-tdep.c, sh-tdep.c, sol-thread.c: Update.
* sparc-tdep.c, target.c, v850-tdep.c, valops.c: Update.
* vax-tdep.c, x86-64-tdep.c, xstormy16-tdep.c: Update.
* config/ia64/tm-ia64.h, config/m68k/tm-vx68.h: Update.
* config/mips/tm-mips.h, config/pa/nm-hppah.h: Update.
* config/pa/tm-hppa.h, config/pa/tm-hppa64.h: Update.
* config/s390/tm-s390.h, config/sparc/tm-sp64.h: Update.
* config/sparc/tm-sparc.h: Update.
Index: doc/ChangeLog
2003-05-03 Andrew Cagney <cagney@redhat.com>
* gdbint.texinfo (Target Architecture Definition): Make
CALL_DUMMY_WORDS, SIZEOF_CALL_DUMMY_WORDS, CALL_DUMMY_LENGTH,
FIX_CALL_DUMMY, CALL_DUMMY_BREAKPOINT_OFFSET and
CALL_DUMMY_BREAKPOINT_OFFSET deprecated.
Index: mi/ChangeLog
2003-05-03 Andrew Cagney <cagney@redhat.com>
* mi-main.c (mi_cmd_data_write_register_values): Replace
REGISTER_SIZE with DEPRECATED_REGISTER_SIZE.
Index: testsuite/ChangeLog
2003-05-03 Andrew Cagney <cagney@redhat.com>
* gdb.base/watchpoint.exp: Rename CALL_DUMMY_BREAKPOINT_OFFSET to
DEPRECATED_CALL_DUMMY_BREAKPOINT_OFFSET in comments.
2003-05-05 19:56:57 +02:00
|
|
|
buffer = xmalloc (DEPRECATED_REGISTER_SIZE);
|
2001-07-09 18:53:03 +02:00
|
|
|
old_chain = make_cleanup (xfree, buffer);
|
2003-05-03 Andrew Cagney <cagney@redhat.com>
* gdbarch.sh (DEPRECATED_REGISTER_SIZE): Rename REGISTER_SIZE.
(DEPRECATED_SIZEOF_CALL_DUMMY_WORDS): Rename
SIZEOF_CALL_DUMMY_WORDS.
(DEPRECATED_CALL_DUMMY_WORDS): Rename CALL_DUMMY_WORDS.
(DEPRECATED_FIX_CALL_DUMMY): Rename FIX_CALL_DUMMY.
(DEPRECATED_CALL_DUMMY_BREAKPOINT_OFFSET): Rename
CALL_DUMMY_BREAKPOINT_OFFSET.
(DEPRECATED_CALL_DUMMY_START_OFFSET): Rename
CALL_DUMMY_START_OFFSET.
(DEPRECATED_CALL_DUMMY_LENGTH): Rename CALL_DUMMY_LENGTH.
* gdbarch.h, gdbarch.c: Re-generate.
* alpha-tdep.c, alphafbsd-tdep.c, arm-linux-tdep.c: Update.
* arm-tdep.c, avr-tdep.c, breakpoint.c, cris-tdep.c: Update.
* dummy-frame.c, dummy-frame.h, frv-tdep.c, gdbarch.c: Update.
* gdbarch.h, gdbarch.sh, h8300-tdep.c, hppa-tdep.c: Update.
* i386-tdep.c, ia64-tdep.c, infcall.c, inferior.h: Update.
* m68hc11-tdep.c, m68k-tdep.c, mcore-tdep.c: Update.
* mips-tdep.c, mn10300-tdep.c, ns32k-tdep.c: Update.
* rs6000-tdep.c, s390-tdep.c, sh-tdep.c, sol-thread.c: Update.
* sparc-tdep.c, target.c, v850-tdep.c, valops.c: Update.
* vax-tdep.c, x86-64-tdep.c, xstormy16-tdep.c: Update.
* config/ia64/tm-ia64.h, config/m68k/tm-vx68.h: Update.
* config/mips/tm-mips.h, config/pa/nm-hppah.h: Update.
* config/pa/tm-hppa.h, config/pa/tm-hppa64.h: Update.
* config/s390/tm-s390.h, config/sparc/tm-sp64.h: Update.
* config/sparc/tm-sparc.h: Update.
Index: doc/ChangeLog
2003-05-03 Andrew Cagney <cagney@redhat.com>
* gdbint.texinfo (Target Architecture Definition): Make
CALL_DUMMY_WORDS, SIZEOF_CALL_DUMMY_WORDS, CALL_DUMMY_LENGTH,
FIX_CALL_DUMMY, CALL_DUMMY_BREAKPOINT_OFFSET and
CALL_DUMMY_BREAKPOINT_OFFSET deprecated.
Index: mi/ChangeLog
2003-05-03 Andrew Cagney <cagney@redhat.com>
* mi-main.c (mi_cmd_data_write_register_values): Replace
REGISTER_SIZE with DEPRECATED_REGISTER_SIZE.
Index: testsuite/ChangeLog
2003-05-03 Andrew Cagney <cagney@redhat.com>
* gdb.base/watchpoint.exp: Rename CALL_DUMMY_BREAKPOINT_OFFSET to
DEPRECATED_CALL_DUMMY_BREAKPOINT_OFFSET in comments.
2003-05-05 19:56:57 +02:00
|
|
|
store_signed_integer (buffer, DEPRECATED_REGISTER_SIZE, value);
|
2000-03-06 23:57:52 +01:00
|
|
|
/* Write it down */
|
2002-11-13 Andrew Cagney <cagney@redhat.com>
* regcache.h (deprecated_read_register_bytes): Rename
read_register_bytes.
(deprecated_write_register_bytes): Rename write_register_bytes.
* alpha-tdep.c, arm-tdep.c, cris-tdep.c, d10v-tdep.c: Update.
* dwarf2cfi.c, frv-tdep.c, hppa-tdep.c, ia64-tdep.c: Update.
* m68k-tdep.c, mcore-tdep.c, mips-tdep.c, mn10300-tdep.c: Update.
* ns32k-tdep.c, regcache.c, remote-sds.c, remote-vx.c: Update.
* remote.c, rs6000-tdep.c, s390-tdep.c, sh-tdep.c: Update.
* sparc-tdep.c, v850-tdep.c, vax-tdep.c, x86-64-tdep.c: Update.
* xstormy16-tdep.c, z8k-tdep.c, config/nm-gnu.h: Update.
* config/nm-m3.h, config/h8500/tm-h8500.h: Update.
* config/i386/nm-ptx4.h, config/i386/nm-symmetry.h: Update.
* config/m32r/tm-m32r.h, config/m68k/nm-sun3.h: Update.
* config/m68k/tm-delta68.h, config/m68k/tm-linux.h: Update.
* config/mn10200/tm-mn10200.h, config/pa/tm-hppa64.h: Update.
* config/sparc/nm-nbsd.h, config/sparc/nm-sun4os4.h: Update.
* config/sparc/nm-sun4sol2.h, config/sparc/tm-sparclet.h: Update.
2002-11-13 Andrew Cagney <ac131313@redhat.com>
* mi-main.c (mi_cmd_data_write_register_values): Use
deprecated_write_register_bytes instead of write_register_bytes.
2002-11-14 01:25:05 +01:00
|
|
|
deprecated_write_register_bytes (REGISTER_BYTE (regnum), buffer, REGISTER_RAW_SIZE (regnum));
|
2001-07-09 18:53:03 +02:00
|
|
|
/* Free the buffer. */
|
|
|
|
do_cleanups (old_chain);
|
2000-03-06 23:57:52 +01:00
|
|
|
}
|
|
|
|
else
|
|
|
|
{
|
2000-11-20 03:06:19 +01:00
|
|
|
xasprintf (&mi_error_message, "bad register number");
|
2000-03-06 23:57:52 +01:00
|
|
|
return MI_CMD_ERROR;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
return MI_CMD_DONE;
|
|
|
|
}
|
|
|
|
|
2000-02-23 01:25:43 +01:00
|
|
|
#if 0
|
|
|
|
/*This is commented out because we decided it was not useful. I leave
|
|
|
|
it, just in case. ezannoni:1999-12-08 */
|
|
|
|
|
|
|
|
/* Assign a value to a variable. The expression argument must be in
|
|
|
|
the form A=2 or "A = 2" (I.e. if there are spaces it needs to be
|
|
|
|
quoted. */
|
|
|
|
enum mi_cmd_result
|
|
|
|
mi_cmd_data_assign (char *command, char **argv, int argc)
|
|
|
|
{
|
|
|
|
struct expression *expr;
|
|
|
|
struct cleanup *old_chain;
|
|
|
|
|
|
|
|
if (argc != 1)
|
|
|
|
{
|
2000-11-20 03:06:19 +01:00
|
|
|
xasprintf (&mi_error_message,
|
|
|
|
"mi_cmd_data_assign: Usage: -data-assign expression");
|
2000-02-23 01:25:43 +01:00
|
|
|
return MI_CMD_ERROR;
|
|
|
|
}
|
|
|
|
|
|
|
|
/* NOTE what follows is a clone of set_command(). FIXME: ezannoni
|
|
|
|
01-12-1999: Need to decide what to do with this for libgdb purposes. */
|
|
|
|
|
|
|
|
expr = parse_expression (argv[0]);
|
2000-05-15 13:48:50 +02:00
|
|
|
old_chain = make_cleanup (free_current_contents, &expr);
|
2000-02-23 01:25:43 +01:00
|
|
|
evaluate_expression (expr);
|
|
|
|
do_cleanups (old_chain);
|
|
|
|
return MI_CMD_DONE;
|
|
|
|
}
|
|
|
|
#endif
|
|
|
|
|
|
|
|
/* Evaluate the value of the argument. The argument is an
|
|
|
|
expression. If the expression contains spaces it needs to be
|
|
|
|
included in double quotes. */
|
|
|
|
enum mi_cmd_result
|
|
|
|
mi_cmd_data_evaluate_expression (char *command, char **argv, int argc)
|
|
|
|
{
|
|
|
|
struct expression *expr;
|
|
|
|
struct cleanup *old_chain = NULL;
|
2001-07-09 16:50:37 +02:00
|
|
|
struct value *val;
|
2000-02-23 01:25:43 +01:00
|
|
|
struct ui_stream *stb = NULL;
|
|
|
|
|
|
|
|
stb = ui_out_stream_new (uiout);
|
|
|
|
|
|
|
|
if (argc != 1)
|
|
|
|
{
|
2000-11-20 03:06:19 +01:00
|
|
|
xasprintf (&mi_error_message,
|
|
|
|
"mi_cmd_data_evaluate_expression: Usage: -data-evaluate-expression expression");
|
2000-02-23 01:25:43 +01:00
|
|
|
return MI_CMD_ERROR;
|
|
|
|
}
|
|
|
|
|
|
|
|
expr = parse_expression (argv[0]);
|
|
|
|
|
2000-05-15 13:48:50 +02:00
|
|
|
old_chain = make_cleanup (free_current_contents, &expr);
|
2000-02-23 01:25:43 +01:00
|
|
|
|
|
|
|
val = evaluate_expression (expr);
|
|
|
|
|
|
|
|
/* Print the result of the expression evaluation. */
|
|
|
|
val_print (VALUE_TYPE (val), VALUE_CONTENTS (val),
|
|
|
|
VALUE_EMBEDDED_OFFSET (val), VALUE_ADDRESS (val),
|
|
|
|
stb->stream, 0, 0, 0, 0);
|
|
|
|
|
|
|
|
ui_out_field_stream (uiout, "value", stb);
|
|
|
|
ui_out_stream_delete (stb);
|
|
|
|
|
|
|
|
do_cleanups (old_chain);
|
|
|
|
|
|
|
|
return MI_CMD_DONE;
|
|
|
|
}
|
|
|
|
|
|
|
|
enum mi_cmd_result
|
|
|
|
mi_cmd_target_download (char *args, int from_tty)
|
|
|
|
{
|
|
|
|
char *run;
|
|
|
|
struct cleanup *old_cleanups = NULL;
|
|
|
|
|
2000-11-20 03:06:19 +01:00
|
|
|
xasprintf (&run, "load %s", args);
|
2000-12-15 02:01:51 +01:00
|
|
|
old_cleanups = make_cleanup (xfree, run);
|
2000-02-23 01:25:43 +01:00
|
|
|
execute_command (run, from_tty);
|
|
|
|
|
|
|
|
do_cleanups (old_cleanups);
|
|
|
|
return MI_CMD_DONE;
|
|
|
|
}
|
|
|
|
|
|
|
|
/* Connect to the remote target. */
|
|
|
|
enum mi_cmd_result
|
|
|
|
mi_cmd_target_select (char *args, int from_tty)
|
|
|
|
{
|
|
|
|
char *run;
|
|
|
|
struct cleanup *old_cleanups = NULL;
|
|
|
|
|
2000-11-20 03:06:19 +01:00
|
|
|
xasprintf (&run, "target %s", args);
|
2000-12-15 02:01:51 +01:00
|
|
|
old_cleanups = make_cleanup (xfree, run);
|
2000-02-23 01:25:43 +01:00
|
|
|
|
|
|
|
/* target-select is always synchronous. once the call has returned
|
|
|
|
we know that we are connected. */
|
|
|
|
/* NOTE: At present all targets that are connected are also
|
|
|
|
(implicitly) talking to a halted target. In the future this may
|
|
|
|
change. */
|
|
|
|
execute_command (run, from_tty);
|
|
|
|
|
|
|
|
do_cleanups (old_cleanups);
|
|
|
|
|
|
|
|
/* Issue the completion message here. */
|
|
|
|
if (last_async_command)
|
|
|
|
fputs_unfiltered (last_async_command, raw_stdout);
|
|
|
|
fputs_unfiltered ("^connected", raw_stdout);
|
|
|
|
mi_out_put (uiout, raw_stdout);
|
|
|
|
mi_out_rewind (uiout);
|
|
|
|
fputs_unfiltered ("\n", raw_stdout);
|
|
|
|
do_exec_cleanups (ALL_CLEANUPS);
|
|
|
|
return MI_CMD_QUIET;
|
|
|
|
}
|
|
|
|
|
|
|
|
/* DATA-MEMORY-READ:
|
|
|
|
|
|
|
|
ADDR: start address of data to be dumped.
|
|
|
|
WORD-FORMAT: a char indicating format for the ``word''. See
|
|
|
|
the ``x'' command.
|
|
|
|
WORD-SIZE: size of each ``word''; 1,2,4, or 8 bytes
|
|
|
|
NR_ROW: Number of rows.
|
|
|
|
NR_COL: The number of colums (words per row).
|
|
|
|
ASCHAR: (OPTIONAL) Append an ascii character dump to each row. Use
|
|
|
|
ASCHAR for unprintable characters.
|
|
|
|
|
|
|
|
Reads SIZE*NR_ROW*NR_COL bytes starting at ADDR from memory and
|
|
|
|
displayes them. Returns:
|
|
|
|
|
|
|
|
{addr="...",rowN={wordN="..." ,... [,ascii="..."]}, ...}
|
|
|
|
|
|
|
|
Returns:
|
|
|
|
The number of bytes read is SIZE*ROW*COL. */
|
|
|
|
|
|
|
|
enum mi_cmd_result
|
|
|
|
mi_cmd_data_read_memory (char *command, char **argv, int argc)
|
|
|
|
{
|
|
|
|
struct cleanup *cleanups = make_cleanup (null_cleanup, NULL);
|
|
|
|
CORE_ADDR addr;
|
|
|
|
long total_bytes;
|
|
|
|
long nr_cols;
|
|
|
|
long nr_rows;
|
|
|
|
char word_format;
|
|
|
|
struct type *word_type;
|
|
|
|
long word_size;
|
|
|
|
char word_asize;
|
|
|
|
char aschar;
|
|
|
|
char *mbuf;
|
|
|
|
int nr_bytes;
|
|
|
|
long offset = 0;
|
|
|
|
int optind = 0;
|
|
|
|
char *optarg;
|
|
|
|
enum opt
|
|
|
|
{
|
|
|
|
OFFSET_OPT
|
|
|
|
};
|
|
|
|
static struct mi_opt opts[] =
|
|
|
|
{
|
|
|
|
{"o", OFFSET_OPT, 1},
|
|
|
|
0
|
|
|
|
};
|
|
|
|
|
|
|
|
while (1)
|
|
|
|
{
|
|
|
|
int opt = mi_getopt ("mi_cmd_data_read_memory", argc, argv, opts,
|
|
|
|
&optind, &optarg);
|
|
|
|
if (opt < 0)
|
|
|
|
break;
|
|
|
|
switch ((enum opt) opt)
|
|
|
|
{
|
|
|
|
case OFFSET_OPT:
|
|
|
|
offset = atol (optarg);
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
argv += optind;
|
|
|
|
argc -= optind;
|
|
|
|
|
|
|
|
if (argc < 5 || argc > 6)
|
|
|
|
{
|
2000-11-20 03:06:19 +01:00
|
|
|
xasprintf (&mi_error_message,
|
|
|
|
"mi_cmd_data_read_memory: Usage: ADDR WORD-FORMAT WORD-SIZE NR-ROWS NR-COLS [ASCHAR].");
|
2000-02-23 01:25:43 +01:00
|
|
|
return MI_CMD_ERROR;
|
|
|
|
}
|
|
|
|
|
|
|
|
/* Extract all the arguments. */
|
|
|
|
|
|
|
|
/* Start address of the memory dump. */
|
|
|
|
addr = parse_and_eval_address (argv[0]) + offset;
|
|
|
|
/* The format character to use when displaying a memory word. See
|
|
|
|
the ``x'' command. */
|
|
|
|
word_format = argv[1][0];
|
|
|
|
/* The size of the memory word. */
|
|
|
|
word_size = atol (argv[2]);
|
|
|
|
switch (word_size)
|
|
|
|
{
|
|
|
|
case 1:
|
|
|
|
word_type = builtin_type_int8;
|
|
|
|
word_asize = 'b';
|
|
|
|
break;
|
|
|
|
case 2:
|
|
|
|
word_type = builtin_type_int16;
|
|
|
|
word_asize = 'h';
|
|
|
|
break;
|
|
|
|
case 4:
|
|
|
|
word_type = builtin_type_int32;
|
|
|
|
word_asize = 'w';
|
|
|
|
break;
|
|
|
|
case 8:
|
|
|
|
word_type = builtin_type_int64;
|
|
|
|
word_asize = 'g';
|
|
|
|
break;
|
|
|
|
default:
|
|
|
|
word_type = builtin_type_int8;
|
|
|
|
word_asize = 'b';
|
|
|
|
}
|
|
|
|
/* The number of rows */
|
|
|
|
nr_rows = atol (argv[3]);
|
|
|
|
if (nr_rows <= 0)
|
|
|
|
{
|
2000-11-20 03:06:19 +01:00
|
|
|
xasprintf (&mi_error_message,
|
|
|
|
"mi_cmd_data_read_memory: invalid number of rows.");
|
2000-02-23 01:25:43 +01:00
|
|
|
return MI_CMD_ERROR;
|
|
|
|
}
|
|
|
|
/* number of bytes per row. */
|
|
|
|
nr_cols = atol (argv[4]);
|
|
|
|
if (nr_cols <= 0)
|
|
|
|
{
|
2000-11-20 03:06:19 +01:00
|
|
|
xasprintf (&mi_error_message,
|
|
|
|
"mi_cmd_data_read_memory: invalid number of columns.");
|
2000-02-23 01:25:43 +01:00
|
|
|
}
|
|
|
|
/* The un-printable character when printing ascii. */
|
|
|
|
if (argc == 6)
|
|
|
|
aschar = *argv[5];
|
|
|
|
else
|
|
|
|
aschar = 0;
|
|
|
|
|
|
|
|
/* create a buffer and read it in. */
|
|
|
|
total_bytes = word_size * nr_rows * nr_cols;
|
2001-03-29 01:21:43 +02:00
|
|
|
mbuf = xcalloc (total_bytes, 1);
|
2000-12-15 02:01:51 +01:00
|
|
|
make_cleanup (xfree, mbuf);
|
2000-02-23 01:25:43 +01:00
|
|
|
if (mbuf == NULL)
|
|
|
|
{
|
2000-11-20 03:06:19 +01:00
|
|
|
xasprintf (&mi_error_message,
|
|
|
|
"mi_cmd_data_read_memory: out of memory.");
|
2000-02-23 01:25:43 +01:00
|
|
|
return MI_CMD_ERROR;
|
|
|
|
}
|
|
|
|
nr_bytes = 0;
|
|
|
|
while (nr_bytes < total_bytes)
|
|
|
|
{
|
|
|
|
int error;
|
|
|
|
long num = target_read_memory_partial (addr + nr_bytes, mbuf + nr_bytes,
|
|
|
|
total_bytes - nr_bytes,
|
|
|
|
&error);
|
|
|
|
if (num <= 0)
|
|
|
|
break;
|
|
|
|
nr_bytes += num;
|
|
|
|
}
|
|
|
|
|
|
|
|
/* output the header information. */
|
|
|
|
ui_out_field_core_addr (uiout, "addr", addr);
|
|
|
|
ui_out_field_int (uiout, "nr-bytes", nr_bytes);
|
|
|
|
ui_out_field_int (uiout, "total-bytes", total_bytes);
|
|
|
|
ui_out_field_core_addr (uiout, "next-row", addr + word_size * nr_cols);
|
|
|
|
ui_out_field_core_addr (uiout, "prev-row", addr - word_size * nr_cols);
|
|
|
|
ui_out_field_core_addr (uiout, "next-page", addr + total_bytes);
|
|
|
|
ui_out_field_core_addr (uiout, "prev-page", addr - total_bytes);
|
|
|
|
|
|
|
|
/* Build the result as a two dimentional table. */
|
|
|
|
{
|
|
|
|
struct ui_stream *stream = ui_out_stream_new (uiout);
|
2002-10-23 23:17:51 +02:00
|
|
|
struct cleanup *cleanup_list_memory;
|
2000-02-23 01:25:43 +01:00
|
|
|
int row;
|
|
|
|
int row_byte;
|
2002-10-23 23:17:51 +02:00
|
|
|
cleanup_list_memory = make_cleanup_ui_out_list_begin_end (uiout, "memory");
|
2000-02-23 01:25:43 +01:00
|
|
|
for (row = 0, row_byte = 0;
|
|
|
|
row < nr_rows;
|
|
|
|
row++, row_byte += nr_cols * word_size)
|
|
|
|
{
|
|
|
|
int col;
|
|
|
|
int col_byte;
|
2002-10-23 23:17:51 +02:00
|
|
|
struct cleanup *cleanup_tuple;
|
|
|
|
struct cleanup *cleanup_list_data;
|
|
|
|
cleanup_tuple = make_cleanup_ui_out_tuple_begin_end (uiout, NULL);
|
2000-02-23 01:25:43 +01:00
|
|
|
ui_out_field_core_addr (uiout, "addr", addr + row_byte);
|
|
|
|
/* ui_out_field_core_addr_symbolic (uiout, "saddr", addr + row_byte); */
|
2002-10-23 23:17:51 +02:00
|
|
|
cleanup_list_data = make_cleanup_ui_out_list_begin_end (uiout, "data");
|
2000-02-23 01:25:43 +01:00
|
|
|
for (col = 0, col_byte = row_byte;
|
|
|
|
col < nr_cols;
|
|
|
|
col++, col_byte += word_size)
|
|
|
|
{
|
|
|
|
if (col_byte + word_size > nr_bytes)
|
|
|
|
{
|
|
|
|
ui_out_field_string (uiout, NULL, "N/A");
|
|
|
|
}
|
|
|
|
else
|
|
|
|
{
|
|
|
|
ui_file_rewind (stream->stream);
|
|
|
|
print_scalar_formatted (mbuf + col_byte, word_type, word_format,
|
|
|
|
word_asize, stream->stream);
|
|
|
|
ui_out_field_stream (uiout, NULL, stream);
|
|
|
|
}
|
|
|
|
}
|
2002-10-23 23:17:51 +02:00
|
|
|
do_cleanups (cleanup_list_data);
|
2000-02-23 01:25:43 +01:00
|
|
|
if (aschar)
|
|
|
|
{
|
|
|
|
int byte;
|
|
|
|
ui_file_rewind (stream->stream);
|
|
|
|
for (byte = row_byte; byte < row_byte + word_size * nr_cols; byte++)
|
|
|
|
{
|
|
|
|
if (byte >= nr_bytes)
|
|
|
|
{
|
|
|
|
fputc_unfiltered ('X', stream->stream);
|
|
|
|
}
|
|
|
|
else if (mbuf[byte] < 32 || mbuf[byte] > 126)
|
|
|
|
{
|
|
|
|
fputc_unfiltered (aschar, stream->stream);
|
|
|
|
}
|
|
|
|
else
|
|
|
|
fputc_unfiltered (mbuf[byte], stream->stream);
|
|
|
|
}
|
|
|
|
ui_out_field_stream (uiout, "ascii", stream);
|
|
|
|
}
|
2002-10-23 23:17:51 +02:00
|
|
|
do_cleanups (cleanup_tuple);
|
2000-02-23 01:25:43 +01:00
|
|
|
}
|
|
|
|
ui_out_stream_delete (stream);
|
2002-10-23 23:17:51 +02:00
|
|
|
do_cleanups (cleanup_list_memory);
|
2000-02-23 01:25:43 +01:00
|
|
|
}
|
|
|
|
do_cleanups (cleanups);
|
|
|
|
return MI_CMD_DONE;
|
|
|
|
}
|
|
|
|
|
|
|
|
/* DATA-MEMORY-WRITE:
|
|
|
|
|
|
|
|
COLUMN_OFFSET: optional argument. Must be preceeded by '-o'. The
|
|
|
|
offset from the beginning of the memory grid row where the cell to
|
|
|
|
be written is.
|
|
|
|
ADDR: start address of the row in the memory grid where the memory
|
|
|
|
cell is, if OFFSET_COLUMN is specified. Otherwise, the address of
|
|
|
|
the location to write to.
|
|
|
|
FORMAT: a char indicating format for the ``word''. See
|
|
|
|
the ``x'' command.
|
|
|
|
WORD_SIZE: size of each ``word''; 1,2,4, or 8 bytes
|
|
|
|
VALUE: value to be written into the memory address.
|
|
|
|
|
|
|
|
Writes VALUE into ADDR + (COLUMN_OFFSET * WORD_SIZE).
|
|
|
|
|
|
|
|
Prints nothing. */
|
|
|
|
enum mi_cmd_result
|
|
|
|
mi_cmd_data_write_memory (char *command, char **argv, int argc)
|
|
|
|
{
|
|
|
|
CORE_ADDR addr;
|
|
|
|
char word_format;
|
|
|
|
long word_size;
|
|
|
|
/* FIXME: ezannoni 2000-02-17 LONGEST could possibly not be big
|
|
|
|
enough when using a compiler other than GCC. */
|
|
|
|
LONGEST value;
|
2001-07-09 18:53:03 +02:00
|
|
|
void *buffer;
|
|
|
|
struct cleanup *old_chain;
|
2000-02-23 01:25:43 +01:00
|
|
|
long offset = 0;
|
|
|
|
int optind = 0;
|
|
|
|
char *optarg;
|
|
|
|
enum opt
|
|
|
|
{
|
|
|
|
OFFSET_OPT
|
|
|
|
};
|
|
|
|
static struct mi_opt opts[] =
|
|
|
|
{
|
|
|
|
{"o", OFFSET_OPT, 1},
|
|
|
|
0
|
|
|
|
};
|
|
|
|
|
|
|
|
while (1)
|
|
|
|
{
|
|
|
|
int opt = mi_getopt ("mi_cmd_data_write_memory", argc, argv, opts,
|
|
|
|
&optind, &optarg);
|
|
|
|
if (opt < 0)
|
|
|
|
break;
|
|
|
|
switch ((enum opt) opt)
|
|
|
|
{
|
|
|
|
case OFFSET_OPT:
|
|
|
|
offset = atol (optarg);
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
argv += optind;
|
|
|
|
argc -= optind;
|
|
|
|
|
|
|
|
if (argc != 4)
|
|
|
|
{
|
2000-11-20 03:06:19 +01:00
|
|
|
xasprintf (&mi_error_message,
|
|
|
|
"mi_cmd_data_write_memory: Usage: [-o COLUMN_OFFSET] ADDR FORMAT WORD-SIZE VALUE.");
|
2000-02-23 01:25:43 +01:00
|
|
|
return MI_CMD_ERROR;
|
|
|
|
}
|
|
|
|
|
|
|
|
/* Extract all the arguments. */
|
|
|
|
/* Start address of the memory dump. */
|
|
|
|
addr = parse_and_eval_address (argv[0]);
|
|
|
|
/* The format character to use when displaying a memory word. See
|
|
|
|
the ``x'' command. */
|
|
|
|
word_format = argv[1][0];
|
|
|
|
/* The size of the memory word. */
|
|
|
|
word_size = atol (argv[2]);
|
|
|
|
|
|
|
|
/* Calculate the real address of the write destination. */
|
|
|
|
addr += (offset * word_size);
|
|
|
|
|
|
|
|
/* Get the value as a number */
|
|
|
|
value = parse_and_eval_address (argv[3]);
|
|
|
|
/* Get the value into an array */
|
2001-07-09 18:53:03 +02:00
|
|
|
buffer = xmalloc (word_size);
|
|
|
|
old_chain = make_cleanup (xfree, buffer);
|
2000-02-23 01:25:43 +01:00
|
|
|
store_signed_integer (buffer, word_size, value);
|
|
|
|
/* Write it down to memory */
|
|
|
|
write_memory (addr, buffer, word_size);
|
2001-07-09 18:53:03 +02:00
|
|
|
/* Free the buffer. */
|
|
|
|
do_cleanups (old_chain);
|
2000-02-23 01:25:43 +01:00
|
|
|
|
|
|
|
return MI_CMD_DONE;
|
|
|
|
}
|
|
|
|
|
2002-05-20 20:09:57 +02:00
|
|
|
/* Execute a command within a safe environment.
|
|
|
|
Return <0 for error; >=0 for ok.
|
|
|
|
|
|
|
|
args->action will tell mi_execute_command what action
|
|
|
|
to perfrom after the given command has executed (display/supress
|
|
|
|
prompt, display error). */
|
2000-02-23 01:25:43 +01:00
|
|
|
|
|
|
|
static int
|
2002-05-20 20:09:57 +02:00
|
|
|
captured_mi_execute_command (struct ui_out *uiout, void *data)
|
2000-02-23 01:25:43 +01:00
|
|
|
{
|
2002-05-20 20:09:57 +02:00
|
|
|
struct captured_mi_execute_command_args *args =
|
|
|
|
(struct captured_mi_execute_command_args *) data;
|
|
|
|
struct mi_parse *context = args->command;
|
2000-02-23 01:25:43 +01:00
|
|
|
|
|
|
|
switch (context->op)
|
|
|
|
{
|
|
|
|
|
|
|
|
case MI_COMMAND:
|
|
|
|
/* A MI command was read from the input stream */
|
|
|
|
if (mi_debug_p)
|
|
|
|
/* FIXME: gdb_???? */
|
|
|
|
fprintf_unfiltered (raw_stdout, " token=`%s' command=`%s' args=`%s'\n",
|
|
|
|
context->token, context->command, context->args);
|
|
|
|
/* FIXME: cagney/1999-09-25: Rather than this convoluted
|
|
|
|
condition expression, each function should return an
|
|
|
|
indication of what action is required and then switch on
|
|
|
|
that. */
|
2002-05-20 20:09:57 +02:00
|
|
|
args->action = EXECUTE_COMMAND_DISPLAY_PROMPT;
|
|
|
|
args->rc = mi_cmd_execute (context);
|
|
|
|
|
2000-02-23 01:25:43 +01:00
|
|
|
if (!target_can_async_p () || !target_executing)
|
|
|
|
{
|
2003-02-05 Jim Ingham <jingham@apple.com>
Keith Seitz <keiths@redhat.com>
Elena Zannoni <ezannoni@redhat.com>
Andrew Cagney <ac131313@redhat.com>
* Makefile.in (SUBDIR_CLI_OBS): Add "cli-interp.o".
(SUBDIR_CLI_SRCS): Add "cli/cli-interp.c".
(SUBDIR_MI_OBS): Add "mi-interp.o".
(SUBDIR_MI_SRCS): Add "mi/mi-interp.c".
(SFILES): Add "interps.c".
(COMMON_OBS): Add "interps.o".
(interps_h, mi_main_h): Define.
(interps.o, cli-interp.o, mi-interp.o): Add dependencies.
(mi-main.o, main.o, event-top.o): Update dependencies.
* cli/cli-interp.c: New file.
* interps.h, interps.c: New files.
* top.c: (gdb_init): Don't install the default interpreter, handed
by captured_main.
* main.c: Include "interps.h".
(interpreter_p): Note that it should malloc'ed.
(captured_command_loop): Call current_interp_command_loop.
(captured_main): Initialize interpreter_p to INTERP_CONSOLE. Use
xfree and xstrdup when updating interpreter_p. Install the
default interpreter. Add hack to stop mi1's copyright notice
being encoded.
* event-top.h (gdb_setup_readline): Declare.
(gdb_disable_readline): Declare.
* event-top.c: Include "interps.h".
(display_gdb_prompt): Call current_interp_display_prompt_p.
(gdb_setup_readline): Initialize gdb_stdout, gdb_stderr,
gdb_stdlog, and gdb_stdtarg.
(_initialize_event_loop): Don't call gdb_setup_readline.
* cli-out.c (cli_out_set_stream): New function.
* cli-out.h (cli_out_set_stream): Declare.
2003-02-06 02:19:12 +01:00
|
|
|
/* print the result if there were no errors
|
|
|
|
|
|
|
|
Remember that on the way out of executing a command, you have
|
|
|
|
to directly use the mi_interp's uiout, since the command could
|
|
|
|
have reset the interpreter, in which case the current uiout
|
|
|
|
will most likely crash in the mi_out_* routines. */
|
2002-05-20 20:09:57 +02:00
|
|
|
if (args->rc == MI_CMD_DONE)
|
2000-02-23 01:25:43 +01:00
|
|
|
{
|
|
|
|
fputs_unfiltered (context->token, raw_stdout);
|
|
|
|
fputs_unfiltered ("^done", raw_stdout);
|
|
|
|
mi_out_put (uiout, raw_stdout);
|
|
|
|
mi_out_rewind (uiout);
|
|
|
|
fputs_unfiltered ("\n", raw_stdout);
|
|
|
|
}
|
2002-05-20 20:09:57 +02:00
|
|
|
else if (args->rc == MI_CMD_ERROR)
|
2000-02-23 01:25:43 +01:00
|
|
|
{
|
|
|
|
if (mi_error_message)
|
|
|
|
{
|
|
|
|
fputs_unfiltered (context->token, raw_stdout);
|
|
|
|
fputs_unfiltered ("^error,msg=\"", raw_stdout);
|
|
|
|
fputstr_unfiltered (mi_error_message, '"', raw_stdout);
|
2000-12-15 02:01:51 +01:00
|
|
|
xfree (mi_error_message);
|
2000-02-23 01:25:43 +01:00
|
|
|
fputs_unfiltered ("\"\n", raw_stdout);
|
|
|
|
}
|
|
|
|
mi_out_rewind (uiout);
|
|
|
|
}
|
2002-05-20 20:09:57 +02:00
|
|
|
else if (args->rc == MI_CMD_CAUGHT_ERROR)
|
2000-02-23 01:25:43 +01:00
|
|
|
{
|
|
|
|
mi_out_rewind (uiout);
|
2002-05-20 20:09:57 +02:00
|
|
|
args->action = EXECUTE_COMMAND_DISPLAY_ERROR;
|
|
|
|
return 1;
|
2000-02-23 01:25:43 +01:00
|
|
|
}
|
|
|
|
else
|
|
|
|
mi_out_rewind (uiout);
|
|
|
|
}
|
|
|
|
else if (sync_execution)
|
2002-05-20 20:09:57 +02:00
|
|
|
{
|
|
|
|
/* Don't print the prompt. We are executing the target in
|
|
|
|
synchronous mode. */
|
|
|
|
args->action = EXECUTE_COMMAND_SUPRESS_PROMPT;
|
|
|
|
return 1;
|
|
|
|
}
|
2000-02-23 01:25:43 +01:00
|
|
|
break;
|
|
|
|
|
|
|
|
case CLI_COMMAND:
|
|
|
|
/* A CLI command was read from the input stream */
|
|
|
|
/* This will be removed as soon as we have a complete set of
|
|
|
|
mi commands */
|
|
|
|
/* echo the command on the console. */
|
|
|
|
fprintf_unfiltered (gdb_stdlog, "%s\n", context->command);
|
|
|
|
/* FIXME: If the command string has something that looks like
|
|
|
|
a format spec (e.g. %s) we will get a core dump */
|
|
|
|
mi_execute_cli_command ("%s", context->command);
|
2003-02-05 Jim Ingham <jingham@apple.com>
Keith Seitz <keiths@redhat.com>
Elena Zannoni <ezannoni@redhat.com>
Andrew Cagney <ac131313@redhat.com>
* Makefile.in (SUBDIR_CLI_OBS): Add "cli-interp.o".
(SUBDIR_CLI_SRCS): Add "cli/cli-interp.c".
(SUBDIR_MI_OBS): Add "mi-interp.o".
(SUBDIR_MI_SRCS): Add "mi/mi-interp.c".
(SFILES): Add "interps.c".
(COMMON_OBS): Add "interps.o".
(interps_h, mi_main_h): Define.
(interps.o, cli-interp.o, mi-interp.o): Add dependencies.
(mi-main.o, main.o, event-top.o): Update dependencies.
* cli/cli-interp.c: New file.
* interps.h, interps.c: New files.
* top.c: (gdb_init): Don't install the default interpreter, handed
by captured_main.
* main.c: Include "interps.h".
(interpreter_p): Note that it should malloc'ed.
(captured_command_loop): Call current_interp_command_loop.
(captured_main): Initialize interpreter_p to INTERP_CONSOLE. Use
xfree and xstrdup when updating interpreter_p. Install the
default interpreter. Add hack to stop mi1's copyright notice
being encoded.
* event-top.h (gdb_setup_readline): Declare.
(gdb_disable_readline): Declare.
* event-top.c: Include "interps.h".
(display_gdb_prompt): Call current_interp_display_prompt_p.
(gdb_setup_readline): Initialize gdb_stdout, gdb_stderr,
gdb_stdlog, and gdb_stdtarg.
(_initialize_event_loop): Don't call gdb_setup_readline.
* cli-out.c (cli_out_set_stream): New function.
* cli-out.h (cli_out_set_stream): Declare.
2003-02-06 02:19:12 +01:00
|
|
|
|
|
|
|
/* If we changed interpreters, DON'T print out anything. */
|
|
|
|
if (current_interp_named_p (INTERP_MI)
|
|
|
|
|| current_interp_named_p (INTERP_MI1))
|
|
|
|
{
|
|
|
|
/* print the result */
|
|
|
|
/* FIXME: Check for errors here. */
|
|
|
|
fputs_unfiltered (context->token, raw_stdout);
|
|
|
|
fputs_unfiltered ("^done", raw_stdout);
|
|
|
|
mi_out_put (uiout, raw_stdout);
|
|
|
|
mi_out_rewind (uiout);
|
|
|
|
fputs_unfiltered ("\n", raw_stdout);
|
|
|
|
args->action = EXECUTE_COMMAND_DISPLAY_PROMPT;
|
|
|
|
args->rc = MI_CMD_DONE;
|
|
|
|
}
|
2000-02-23 01:25:43 +01:00
|
|
|
break;
|
|
|
|
|
|
|
|
}
|
2002-05-20 20:09:57 +02:00
|
|
|
|
2000-02-23 01:25:43 +01:00
|
|
|
return 1;
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
void
|
|
|
|
mi_execute_command (char *cmd, int from_tty)
|
|
|
|
{
|
|
|
|
struct mi_parse *command;
|
2002-05-20 20:09:57 +02:00
|
|
|
struct captured_mi_execute_command_args args;
|
|
|
|
struct ui_out *saved_uiout = uiout;
|
2003-02-05 Jim Ingham <jingham@apple.com>
Keith Seitz <keiths@redhat.com>
Elena Zannoni <ezannoni@redhat.com>
Andrew Cagney <ac131313@redhat.com>
* Makefile.in (SUBDIR_CLI_OBS): Add "cli-interp.o".
(SUBDIR_CLI_SRCS): Add "cli/cli-interp.c".
(SUBDIR_MI_OBS): Add "mi-interp.o".
(SUBDIR_MI_SRCS): Add "mi/mi-interp.c".
(SFILES): Add "interps.c".
(COMMON_OBS): Add "interps.o".
(interps_h, mi_main_h): Define.
(interps.o, cli-interp.o, mi-interp.o): Add dependencies.
(mi-main.o, main.o, event-top.o): Update dependencies.
* cli/cli-interp.c: New file.
* interps.h, interps.c: New files.
* top.c: (gdb_init): Don't install the default interpreter, handed
by captured_main.
* main.c: Include "interps.h".
(interpreter_p): Note that it should malloc'ed.
(captured_command_loop): Call current_interp_command_loop.
(captured_main): Initialize interpreter_p to INTERP_CONSOLE. Use
xfree and xstrdup when updating interpreter_p. Install the
default interpreter. Add hack to stop mi1's copyright notice
being encoded.
* event-top.h (gdb_setup_readline): Declare.
(gdb_disable_readline): Declare.
* event-top.c: Include "interps.h".
(display_gdb_prompt): Call current_interp_display_prompt_p.
(gdb_setup_readline): Initialize gdb_stdout, gdb_stderr,
gdb_stdlog, and gdb_stdtarg.
(_initialize_event_loop): Don't call gdb_setup_readline.
* cli-out.c (cli_out_set_stream): New function.
* cli-out.h (cli_out_set_stream): Declare.
2003-02-06 02:19:12 +01:00
|
|
|
int result;
|
2000-02-23 01:25:43 +01:00
|
|
|
|
|
|
|
/* This is to handle EOF (^D). We just quit gdb. */
|
|
|
|
/* FIXME: we should call some API function here. */
|
|
|
|
if (cmd == 0)
|
|
|
|
quit_force (NULL, from_tty);
|
|
|
|
|
|
|
|
command = mi_parse (cmd);
|
|
|
|
|
|
|
|
if (command != NULL)
|
|
|
|
{
|
2002-05-20 20:09:57 +02:00
|
|
|
/* FIXME: cagney/1999-11-04: Can this use of catch_exceptions either
|
2000-02-23 01:25:43 +01:00
|
|
|
be pushed even further down or even eliminated? */
|
2002-05-20 20:09:57 +02:00
|
|
|
args.command = command;
|
|
|
|
result = catch_exceptions (uiout, captured_mi_execute_command, &args, "",
|
|
|
|
RETURN_MASK_ALL);
|
|
|
|
|
|
|
|
if (args.action == EXECUTE_COMMAND_SUPRESS_PROMPT)
|
2000-02-23 01:25:43 +01:00
|
|
|
{
|
|
|
|
/* The command is executing synchronously. Bail out early
|
|
|
|
suppressing the finished prompt. */
|
|
|
|
mi_parse_free (command);
|
|
|
|
return;
|
|
|
|
}
|
2002-05-20 20:09:57 +02:00
|
|
|
if (args.action == EXECUTE_COMMAND_DISPLAY_ERROR || result < 0)
|
2000-02-23 01:25:43 +01:00
|
|
|
{
|
|
|
|
char *msg = error_last_message ();
|
2000-12-15 02:01:51 +01:00
|
|
|
struct cleanup *cleanup = make_cleanup (xfree, msg);
|
2000-02-23 01:25:43 +01:00
|
|
|
/* The command execution failed and error() was called
|
|
|
|
somewhere */
|
|
|
|
fputs_unfiltered (command->token, raw_stdout);
|
|
|
|
fputs_unfiltered ("^error,msg=\"", raw_stdout);
|
|
|
|
fputstr_unfiltered (msg, '"', raw_stdout);
|
|
|
|
fputs_unfiltered ("\"\n", raw_stdout);
|
|
|
|
}
|
|
|
|
mi_parse_free (command);
|
|
|
|
}
|
|
|
|
|
|
|
|
fputs_unfiltered ("(gdb) \n", raw_stdout);
|
2001-07-12 07:54:48 +02:00
|
|
|
gdb_flush (raw_stdout);
|
2000-02-23 01:25:43 +01:00
|
|
|
/* print any buffered hook code */
|
|
|
|
/* ..... */
|
|
|
|
}
|
|
|
|
|
|
|
|
static enum mi_cmd_result
|
|
|
|
mi_cmd_execute (struct mi_parse *parse)
|
|
|
|
{
|
|
|
|
if (parse->cmd->argv_func != NULL
|
|
|
|
|| parse->cmd->args_func != NULL)
|
|
|
|
{
|
|
|
|
/* FIXME: We need to save the token because the command executed
|
|
|
|
may be asynchronous and need to print the token again.
|
|
|
|
In the future we can pass the token down to the func
|
|
|
|
and get rid of the last_async_command */
|
|
|
|
/* The problem here is to keep the token around when we launch
|
|
|
|
the target, and we want to interrupt it later on. The
|
|
|
|
interrupt command will have its own token, but when the
|
|
|
|
target stops, we must display the token corresponding to the
|
|
|
|
last execution command given. So we have another string where
|
|
|
|
we copy the token (previous_async_command), if this was
|
|
|
|
indeed the token of an execution command, and when we stop we
|
|
|
|
print that one. This is possible because the interrupt
|
|
|
|
command, when over, will copy that token back into the
|
|
|
|
default token string (last_async_command). */
|
|
|
|
|
|
|
|
if (target_executing)
|
|
|
|
{
|
|
|
|
if (!previous_async_command)
|
|
|
|
previous_async_command = xstrdup (last_async_command);
|
|
|
|
if (strcmp (parse->command, "exec-interrupt"))
|
|
|
|
{
|
|
|
|
fputs_unfiltered (parse->token, raw_stdout);
|
|
|
|
fputs_unfiltered ("^error,msg=\"", raw_stdout);
|
|
|
|
fputs_unfiltered ("Cannot execute command ", raw_stdout);
|
|
|
|
fputstr_unfiltered (parse->command, '"', raw_stdout);
|
|
|
|
fputs_unfiltered (" while target running", raw_stdout);
|
|
|
|
fputs_unfiltered ("\"\n", raw_stdout);
|
|
|
|
return MI_CMD_ERROR;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
last_async_command = xstrdup (parse->token);
|
2000-05-16 06:57:49 +02:00
|
|
|
make_exec_cleanup (free_current_contents, &last_async_command);
|
2000-02-23 01:25:43 +01:00
|
|
|
/* FIXME: DELETE THIS! */
|
|
|
|
if (parse->cmd->args_func != NULL)
|
|
|
|
return parse->cmd->args_func (parse->args, 0 /*from_tty */ );
|
|
|
|
return parse->cmd->argv_func (parse->command, parse->argv, parse->argc);
|
|
|
|
}
|
|
|
|
else if (parse->cmd->cli != 0)
|
|
|
|
{
|
|
|
|
/* FIXME: DELETE THIS. */
|
|
|
|
/* The operation is still implemented by a cli command */
|
|
|
|
/* Must be a synchronous one */
|
|
|
|
mi_execute_cli_command (parse->cmd->cli, parse->args);
|
|
|
|
return MI_CMD_DONE;
|
|
|
|
}
|
|
|
|
else
|
|
|
|
{
|
|
|
|
/* FIXME: DELETE THIS. */
|
|
|
|
fputs_unfiltered (parse->token, raw_stdout);
|
|
|
|
fputs_unfiltered ("^error,msg=\"", raw_stdout);
|
|
|
|
fputs_unfiltered ("Undefined mi command: ", raw_stdout);
|
|
|
|
fputstr_unfiltered (parse->command, '"', raw_stdout);
|
|
|
|
fputs_unfiltered (" (missing implementation)", raw_stdout);
|
|
|
|
fputs_unfiltered ("\"\n", raw_stdout);
|
|
|
|
return MI_CMD_ERROR;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
/* FIXME: This is just a hack so we can get some extra commands going.
|
|
|
|
We don't want to channel things through the CLI, but call libgdb directly */
|
|
|
|
/* Use only for synchronous commands */
|
|
|
|
|
|
|
|
void
|
|
|
|
mi_execute_cli_command (const char *cli, char *args)
|
|
|
|
{
|
|
|
|
if (cli != 0)
|
|
|
|
{
|
|
|
|
struct cleanup *old_cleanups;
|
|
|
|
char *run;
|
2000-11-20 03:06:19 +01:00
|
|
|
xasprintf (&run, cli, args);
|
2000-02-23 01:25:43 +01:00
|
|
|
if (mi_debug_p)
|
|
|
|
/* FIXME: gdb_???? */
|
|
|
|
fprintf_unfiltered (gdb_stdout, "cli=%s run=%s\n",
|
|
|
|
cli, run);
|
2000-12-15 02:01:51 +01:00
|
|
|
old_cleanups = make_cleanup (xfree, run);
|
2000-02-23 01:25:43 +01:00
|
|
|
execute_command ( /*ui */ run, 0 /*from_tty */ );
|
|
|
|
do_cleanups (old_cleanups);
|
|
|
|
return;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
enum mi_cmd_result
|
|
|
|
mi_execute_async_cli_command (char *mi, char *args, int from_tty)
|
|
|
|
{
|
|
|
|
struct cleanup *old_cleanups;
|
|
|
|
char *run;
|
|
|
|
char *async_args;
|
|
|
|
|
|
|
|
if (target_can_async_p ())
|
|
|
|
{
|
|
|
|
async_args = (char *) xmalloc (strlen (args) + 2);
|
|
|
|
make_exec_cleanup (free, async_args);
|
|
|
|
strcpy (async_args, args);
|
|
|
|
strcat (async_args, "&");
|
2000-11-20 03:06:19 +01:00
|
|
|
xasprintf (&run, "%s %s", mi, async_args);
|
2000-02-23 01:25:43 +01:00
|
|
|
make_exec_cleanup (free, run);
|
|
|
|
add_continuation (mi_exec_async_cli_cmd_continuation, NULL);
|
2001-05-10 22:31:46 +02:00
|
|
|
old_cleanups = NULL;
|
2000-02-23 01:25:43 +01:00
|
|
|
}
|
|
|
|
else
|
|
|
|
{
|
2000-11-20 03:06:19 +01:00
|
|
|
xasprintf (&run, "%s %s", mi, args);
|
2000-12-15 02:01:51 +01:00
|
|
|
old_cleanups = make_cleanup (xfree, run);
|
2000-02-23 01:25:43 +01:00
|
|
|
}
|
|
|
|
|
|
|
|
if (!target_can_async_p ())
|
|
|
|
{
|
|
|
|
/* NOTE: For synchronous targets asynchronous behavour is faked by
|
|
|
|
printing out the GDB prompt before we even try to execute the
|
|
|
|
command. */
|
|
|
|
if (last_async_command)
|
|
|
|
fputs_unfiltered (last_async_command, raw_stdout);
|
|
|
|
fputs_unfiltered ("^running\n", raw_stdout);
|
|
|
|
fputs_unfiltered ("(gdb) \n", raw_stdout);
|
2001-07-12 07:54:48 +02:00
|
|
|
gdb_flush (raw_stdout);
|
2000-02-23 01:25:43 +01:00
|
|
|
}
|
|
|
|
else
|
|
|
|
{
|
|
|
|
/* FIXME: cagney/1999-11-29: Printing this message before
|
|
|
|
calling execute_command is wrong. It should only be printed
|
|
|
|
once gdb has confirmed that it really has managed to send a
|
|
|
|
run command to the target. */
|
|
|
|
if (last_async_command)
|
|
|
|
fputs_unfiltered (last_async_command, raw_stdout);
|
|
|
|
fputs_unfiltered ("^running\n", raw_stdout);
|
|
|
|
}
|
|
|
|
|
|
|
|
execute_command ( /*ui */ run, 0 /*from_tty */ );
|
|
|
|
|
|
|
|
if (!target_can_async_p ())
|
|
|
|
{
|
|
|
|
/* Do this before doing any printing. It would appear that some
|
|
|
|
print code leaves garbage around in the buffer. */
|
|
|
|
do_cleanups (old_cleanups);
|
|
|
|
/* If the target was doing the operation synchronously we fake
|
|
|
|
the stopped message. */
|
|
|
|
if (last_async_command)
|
|
|
|
fputs_unfiltered (last_async_command, raw_stdout);
|
|
|
|
fputs_unfiltered ("*stopped", raw_stdout);
|
|
|
|
mi_out_put (uiout, raw_stdout);
|
|
|
|
mi_out_rewind (uiout);
|
|
|
|
fputs_unfiltered ("\n", raw_stdout);
|
|
|
|
return MI_CMD_QUIET;
|
|
|
|
}
|
|
|
|
return MI_CMD_DONE;
|
|
|
|
}
|
|
|
|
|
|
|
|
void
|
|
|
|
mi_exec_async_cli_cmd_continuation (struct continuation_arg *arg)
|
|
|
|
{
|
|
|
|
if (last_async_command)
|
|
|
|
fputs_unfiltered (last_async_command, raw_stdout);
|
|
|
|
fputs_unfiltered ("*stopped", raw_stdout);
|
|
|
|
mi_out_put (uiout, raw_stdout);
|
|
|
|
fputs_unfiltered ("\n", raw_stdout);
|
|
|
|
fputs_unfiltered ("(gdb) \n", raw_stdout);
|
2001-07-12 07:54:48 +02:00
|
|
|
gdb_flush (raw_stdout);
|
2000-02-23 01:25:43 +01:00
|
|
|
do_exec_cleanups (ALL_CLEANUPS);
|
|
|
|
}
|
|
|
|
|
2003-02-05 Jim Ingham <jingham@apple.com>
Keith Seitz <keiths@redhat.com>
Elena Zannoni <ezannoni@redhat.com>
Andrew Cagney <ac131313@redhat.com>
* Makefile.in (SUBDIR_CLI_OBS): Add "cli-interp.o".
(SUBDIR_CLI_SRCS): Add "cli/cli-interp.c".
(SUBDIR_MI_OBS): Add "mi-interp.o".
(SUBDIR_MI_SRCS): Add "mi/mi-interp.c".
(SFILES): Add "interps.c".
(COMMON_OBS): Add "interps.o".
(interps_h, mi_main_h): Define.
(interps.o, cli-interp.o, mi-interp.o): Add dependencies.
(mi-main.o, main.o, event-top.o): Update dependencies.
* cli/cli-interp.c: New file.
* interps.h, interps.c: New files.
* top.c: (gdb_init): Don't install the default interpreter, handed
by captured_main.
* main.c: Include "interps.h".
(interpreter_p): Note that it should malloc'ed.
(captured_command_loop): Call current_interp_command_loop.
(captured_main): Initialize interpreter_p to INTERP_CONSOLE. Use
xfree and xstrdup when updating interpreter_p. Install the
default interpreter. Add hack to stop mi1's copyright notice
being encoded.
* event-top.h (gdb_setup_readline): Declare.
(gdb_disable_readline): Declare.
* event-top.c: Include "interps.h".
(display_gdb_prompt): Call current_interp_display_prompt_p.
(gdb_setup_readline): Initialize gdb_stdout, gdb_stderr,
gdb_stdlog, and gdb_stdtarg.
(_initialize_event_loop): Don't call gdb_setup_readline.
* cli-out.c (cli_out_set_stream): New function.
* cli-out.h (cli_out_set_stream): Declare.
2003-02-06 02:19:12 +01:00
|
|
|
void
|
2000-02-23 01:25:43 +01:00
|
|
|
mi_load_progress (const char *section_name,
|
|
|
|
unsigned long sent_so_far,
|
|
|
|
unsigned long total_section,
|
|
|
|
unsigned long total_sent,
|
|
|
|
unsigned long grand_total)
|
|
|
|
{
|
|
|
|
struct timeval time_now, delta, update_threshold;
|
|
|
|
static struct timeval last_update;
|
|
|
|
static char *previous_sect_name = NULL;
|
|
|
|
int new_section;
|
|
|
|
|
2003-02-05 Jim Ingham <jingham@apple.com>
Keith Seitz <keiths@redhat.com>
Elena Zannoni <ezannoni@redhat.com>
Andrew Cagney <ac131313@redhat.com>
* Makefile.in (SUBDIR_CLI_OBS): Add "cli-interp.o".
(SUBDIR_CLI_SRCS): Add "cli/cli-interp.c".
(SUBDIR_MI_OBS): Add "mi-interp.o".
(SUBDIR_MI_SRCS): Add "mi/mi-interp.c".
(SFILES): Add "interps.c".
(COMMON_OBS): Add "interps.o".
(interps_h, mi_main_h): Define.
(interps.o, cli-interp.o, mi-interp.o): Add dependencies.
(mi-main.o, main.o, event-top.o): Update dependencies.
* cli/cli-interp.c: New file.
* interps.h, interps.c: New files.
* top.c: (gdb_init): Don't install the default interpreter, handed
by captured_main.
* main.c: Include "interps.h".
(interpreter_p): Note that it should malloc'ed.
(captured_command_loop): Call current_interp_command_loop.
(captured_main): Initialize interpreter_p to INTERP_CONSOLE. Use
xfree and xstrdup when updating interpreter_p. Install the
default interpreter. Add hack to stop mi1's copyright notice
being encoded.
* event-top.h (gdb_setup_readline): Declare.
(gdb_disable_readline): Declare.
* event-top.c: Include "interps.h".
(display_gdb_prompt): Call current_interp_display_prompt_p.
(gdb_setup_readline): Initialize gdb_stdout, gdb_stderr,
gdb_stdlog, and gdb_stdtarg.
(_initialize_event_loop): Don't call gdb_setup_readline.
* cli-out.c (cli_out_set_stream): New function.
* cli-out.h (cli_out_set_stream): Declare.
2003-02-06 02:19:12 +01:00
|
|
|
if (!current_interp_named_p (INTERP_MI)
|
|
|
|
&& !current_interp_named_p (INTERP_MI1))
|
2000-02-23 01:25:43 +01:00
|
|
|
return;
|
|
|
|
|
|
|
|
update_threshold.tv_sec = 0;
|
|
|
|
update_threshold.tv_usec = 500000;
|
|
|
|
gettimeofday (&time_now, NULL);
|
|
|
|
|
|
|
|
delta.tv_usec = time_now.tv_usec - last_update.tv_usec;
|
|
|
|
delta.tv_sec = time_now.tv_sec - last_update.tv_sec;
|
|
|
|
|
|
|
|
if (delta.tv_usec < 0)
|
|
|
|
{
|
|
|
|
delta.tv_sec -= 1;
|
|
|
|
delta.tv_usec += 1000000;
|
|
|
|
}
|
|
|
|
|
|
|
|
new_section = (previous_sect_name ?
|
|
|
|
strcmp (previous_sect_name, section_name) : 1);
|
|
|
|
if (new_section)
|
|
|
|
{
|
2002-10-23 23:17:51 +02:00
|
|
|
struct cleanup *cleanup_tuple;
|
2000-12-15 02:01:51 +01:00
|
|
|
xfree (previous_sect_name);
|
2000-02-23 01:25:43 +01:00
|
|
|
previous_sect_name = xstrdup (section_name);
|
|
|
|
|
|
|
|
if (last_async_command)
|
|
|
|
fputs_unfiltered (last_async_command, raw_stdout);
|
|
|
|
fputs_unfiltered ("+download", raw_stdout);
|
2002-10-23 23:17:51 +02:00
|
|
|
cleanup_tuple = make_cleanup_ui_out_tuple_begin_end (uiout, NULL);
|
2000-02-23 01:25:43 +01:00
|
|
|
ui_out_field_string (uiout, "section", section_name);
|
|
|
|
ui_out_field_int (uiout, "section-size", total_section);
|
|
|
|
ui_out_field_int (uiout, "total-size", grand_total);
|
2002-10-23 23:17:51 +02:00
|
|
|
do_cleanups (cleanup_tuple);
|
2000-02-23 01:25:43 +01:00
|
|
|
mi_out_put (uiout, raw_stdout);
|
|
|
|
fputs_unfiltered ("\n", raw_stdout);
|
|
|
|
gdb_flush (raw_stdout);
|
|
|
|
}
|
|
|
|
|
|
|
|
if (delta.tv_sec >= update_threshold.tv_sec &&
|
|
|
|
delta.tv_usec >= update_threshold.tv_usec)
|
|
|
|
{
|
2002-10-23 23:17:51 +02:00
|
|
|
struct cleanup *cleanup_tuple;
|
2000-02-23 01:25:43 +01:00
|
|
|
last_update.tv_sec = time_now.tv_sec;
|
|
|
|
last_update.tv_usec = time_now.tv_usec;
|
|
|
|
if (last_async_command)
|
|
|
|
fputs_unfiltered (last_async_command, raw_stdout);
|
|
|
|
fputs_unfiltered ("+download", raw_stdout);
|
2002-10-23 23:17:51 +02:00
|
|
|
cleanup_tuple = make_cleanup_ui_out_tuple_begin_end (uiout, NULL);
|
2000-02-23 01:25:43 +01:00
|
|
|
ui_out_field_string (uiout, "section", section_name);
|
|
|
|
ui_out_field_int (uiout, "section-sent", sent_so_far);
|
|
|
|
ui_out_field_int (uiout, "section-size", total_section);
|
|
|
|
ui_out_field_int (uiout, "total-sent", total_sent);
|
|
|
|
ui_out_field_int (uiout, "total-size", grand_total);
|
2002-10-23 23:17:51 +02:00
|
|
|
do_cleanups (cleanup_tuple);
|
2000-02-23 01:25:43 +01:00
|
|
|
mi_out_put (uiout, raw_stdout);
|
|
|
|
fputs_unfiltered ("\n", raw_stdout);
|
|
|
|
gdb_flush (raw_stdout);
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
2003-02-05 Jim Ingham <jingham@apple.com>
Keith Seitz <keiths@redhat.com>
Elena Zannoni <ezannoni@redhat.com>
Andrew Cagney <ac131313@redhat.com>
* Makefile.in (SUBDIR_CLI_OBS): Add "cli-interp.o".
(SUBDIR_CLI_SRCS): Add "cli/cli-interp.c".
(SUBDIR_MI_OBS): Add "mi-interp.o".
(SUBDIR_MI_SRCS): Add "mi/mi-interp.c".
(SFILES): Add "interps.c".
(COMMON_OBS): Add "interps.o".
(interps_h, mi_main_h): Define.
(interps.o, cli-interp.o, mi-interp.o): Add dependencies.
(mi-main.o, main.o, event-top.o): Update dependencies.
* cli/cli-interp.c: New file.
* interps.h, interps.c: New files.
* top.c: (gdb_init): Don't install the default interpreter, handed
by captured_main.
* main.c: Include "interps.h".
(interpreter_p): Note that it should malloc'ed.
(captured_command_loop): Call current_interp_command_loop.
(captured_main): Initialize interpreter_p to INTERP_CONSOLE. Use
xfree and xstrdup when updating interpreter_p. Install the
default interpreter. Add hack to stop mi1's copyright notice
being encoded.
* event-top.h (gdb_setup_readline): Declare.
(gdb_disable_readline): Declare.
* event-top.c: Include "interps.h".
(display_gdb_prompt): Call current_interp_display_prompt_p.
(gdb_setup_readline): Initialize gdb_stdout, gdb_stderr,
gdb_stdlog, and gdb_stdtarg.
(_initialize_event_loop): Don't call gdb_setup_readline.
* cli-out.c (cli_out_set_stream): New function.
* cli-out.h (cli_out_set_stream): Declare.
2003-02-06 02:19:12 +01:00
|
|
|
void
|
|
|
|
mi_setup_architecture_data (void)
|
2000-02-23 01:25:43 +01:00
|
|
|
{
|
|
|
|
/* don't trust REGISTER_BYTES to be zero. */
|
|
|
|
old_regs = xmalloc (REGISTER_BYTES + 1);
|
|
|
|
memset (old_regs, 0, REGISTER_BYTES + 1);
|
|
|
|
}
|
|
|
|
|
|
|
|
void
|
2000-07-30 03:48:28 +02:00
|
|
|
_initialize_mi_main (void)
|
2000-02-23 01:25:43 +01:00
|
|
|
{
|
2001-06-18 19:57:43 +02:00
|
|
|
register_gdbarch_swap (&old_regs, sizeof (old_regs), NULL);
|
2003-02-05 Jim Ingham <jingham@apple.com>
Keith Seitz <keiths@redhat.com>
Elena Zannoni <ezannoni@redhat.com>
Andrew Cagney <ac131313@redhat.com>
* Makefile.in (SUBDIR_CLI_OBS): Add "cli-interp.o".
(SUBDIR_CLI_SRCS): Add "cli/cli-interp.c".
(SUBDIR_MI_OBS): Add "mi-interp.o".
(SUBDIR_MI_SRCS): Add "mi/mi-interp.c".
(SFILES): Add "interps.c".
(COMMON_OBS): Add "interps.o".
(interps_h, mi_main_h): Define.
(interps.o, cli-interp.o, mi-interp.o): Add dependencies.
(mi-main.o, main.o, event-top.o): Update dependencies.
* cli/cli-interp.c: New file.
* interps.h, interps.c: New files.
* top.c: (gdb_init): Don't install the default interpreter, handed
by captured_main.
* main.c: Include "interps.h".
(interpreter_p): Note that it should malloc'ed.
(captured_command_loop): Call current_interp_command_loop.
(captured_main): Initialize interpreter_p to INTERP_CONSOLE. Use
xfree and xstrdup when updating interpreter_p. Install the
default interpreter. Add hack to stop mi1's copyright notice
being encoded.
* event-top.h (gdb_setup_readline): Declare.
(gdb_disable_readline): Declare.
* event-top.c: Include "interps.h".
(display_gdb_prompt): Call current_interp_display_prompt_p.
(gdb_setup_readline): Initialize gdb_stdout, gdb_stderr,
gdb_stdlog, and gdb_stdtarg.
(_initialize_event_loop): Don't call gdb_setup_readline.
* cli-out.c (cli_out_set_stream): New function.
* cli-out.h (cli_out_set_stream): Declare.
2003-02-06 02:19:12 +01:00
|
|
|
register_gdbarch_swap (NULL, 0, mi_setup_architecture_data);
|
2000-02-23 01:25:43 +01:00
|
|
|
}
|