3 Copyright (C) 2000-2019 Free Software Foundation, Inc.
5 Contributed by Cygnus Solutions (a Red Hat company).
7 This file is part of GDB.
9 This program is free software; you can redistribute it and/or modify
10 it under the terms of the GNU General Public License as published by
11 the Free Software Foundation; either version 3 of the License, or
12 (at your option) any later version.
14 This program is distributed in the hope that it will be useful,
15 but WITHOUT ANY WARRANTY; without even the implied warranty of
16 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
17 GNU General Public License for more details.
19 You should have received a copy of the GNU General Public License
20 along with this program. If not, see <http://www.gnu.org/licenses/>. */
23 #include "arch-utils.h"
28 #include "gdbthread.h"
31 #include "mi-getopt.h"
32 #include "mi-console.h"
36 #include "event-loop.h"
37 #include "event-top.h"
38 #include "gdbcore.h" /* For write_memory(). */
43 #include "mi-common.h"
47 #include "gdbsupport/gdb_splay_tree.h"
48 #include "tracepoint.h"
51 #include "extension.h"
53 #include "observable.h"
54 #include "gdbsupport/gdb_optional.h"
55 #include "gdbsupport/byte-vector.h"
58 #include "gdbsupport/run-time-clock.h"
60 #include "progspace-and-thread.h"
61 #include "gdbsupport/rsp-low.h"
73 /* This is used to pass the current command timestamp down to
74 continuation routines. */
75 static struct mi_timestamp
*current_command_ts
;
77 static int do_timings
= 0;
80 /* Few commands would like to know if options like --thread-group were
81 explicitly specified. This variable keeps the current parsed
82 command including all option, and make it possible. */
83 static struct mi_parse
*current_context
;
85 int running_result_record_printed
= 1;
87 /* Flag indicating that the target has proceeded since the last
88 command was issued. */
91 static void mi_cmd_execute (struct mi_parse
*parse
);
93 static void mi_execute_cli_command (const char *cmd
, int args_p
,
95 static void mi_execute_async_cli_command (const char *cli_command
,
96 char **argv
, int argc
);
97 static bool register_changed_p (int regnum
, readonly_detached_regcache
*,
98 readonly_detached_regcache
*);
99 static void output_register (struct frame_info
*, int regnum
, int format
,
100 int skip_unavailable
);
102 /* Controls whether the frontend wants MI in async mode. */
103 static bool mi_async
= false;
105 /* The set command writes to this variable. If the inferior is
106 executing, mi_async is *not* updated. */
107 static bool mi_async_1
= false;
110 set_mi_async_command (const char *args
, int from_tty
,
111 struct cmd_list_element
*c
)
113 if (have_live_inferiors ())
115 mi_async_1
= mi_async
;
116 error (_("Cannot change this setting while the inferior is running."));
119 mi_async
= mi_async_1
;
123 show_mi_async_command (struct ui_file
*file
, int from_tty
,
124 struct cmd_list_element
*c
,
127 fprintf_filtered (file
,
128 _("Whether MI is in asynchronous mode is %s.\n"),
132 /* A wrapper for target_can_async_p that takes the MI setting into
138 return mi_async
&& target_can_async_p ();
141 /* Command implementations. FIXME: Is this libgdb? No. This is the MI
142 layer that calls libgdb. Any operation used in the below should be
145 static void timestamp (struct mi_timestamp
*tv
);
147 static void print_diff (struct ui_file
*file
, struct mi_timestamp
*start
,
148 struct mi_timestamp
*end
);
151 mi_cmd_gdb_exit (const char *command
, char **argv
, int argc
)
153 struct mi_interp
*mi
= (struct mi_interp
*) current_interpreter ();
155 /* We have to print everything right here because we never return. */
157 fputs_unfiltered (current_token
, mi
->raw_stdout
);
158 fputs_unfiltered ("^exit\n", mi
->raw_stdout
);
159 mi_out_put (current_uiout
, mi
->raw_stdout
);
160 gdb_flush (mi
->raw_stdout
);
161 /* FIXME: The function called is not yet a formal libgdb function. */
162 quit_force (NULL
, FROM_TTY
);
166 mi_cmd_exec_next (const char *command
, char **argv
, int argc
)
168 /* FIXME: Should call a libgdb function, not a cli wrapper. */
169 if (argc
> 0 && strcmp(argv
[0], "--reverse") == 0)
170 mi_execute_async_cli_command ("reverse-next", argv
+ 1, argc
- 1);
172 mi_execute_async_cli_command ("next", argv
, argc
);
176 mi_cmd_exec_next_instruction (const char *command
, char **argv
, int argc
)
178 /* FIXME: Should call a libgdb function, not a cli wrapper. */
179 if (argc
> 0 && strcmp(argv
[0], "--reverse") == 0)
180 mi_execute_async_cli_command ("reverse-nexti", argv
+ 1, argc
- 1);
182 mi_execute_async_cli_command ("nexti", argv
, argc
);
186 mi_cmd_exec_step (const char *command
, char **argv
, int argc
)
188 /* FIXME: Should call a libgdb function, not a cli wrapper. */
189 if (argc
> 0 && strcmp(argv
[0], "--reverse") == 0)
190 mi_execute_async_cli_command ("reverse-step", argv
+ 1, argc
- 1);
192 mi_execute_async_cli_command ("step", argv
, argc
);
196 mi_cmd_exec_step_instruction (const char *command
, char **argv
, int argc
)
198 /* FIXME: Should call a libgdb function, not a cli wrapper. */
199 if (argc
> 0 && strcmp(argv
[0], "--reverse") == 0)
200 mi_execute_async_cli_command ("reverse-stepi", argv
+ 1, argc
- 1);
202 mi_execute_async_cli_command ("stepi", argv
, argc
);
206 mi_cmd_exec_finish (const char *command
, char **argv
, int argc
)
208 /* FIXME: Should call a libgdb function, not a cli wrapper. */
209 if (argc
> 0 && strcmp(argv
[0], "--reverse") == 0)
210 mi_execute_async_cli_command ("reverse-finish", argv
+ 1, argc
- 1);
212 mi_execute_async_cli_command ("finish", argv
, argc
);
216 mi_cmd_exec_return (const char *command
, char **argv
, int argc
)
218 /* This command doesn't really execute the target, it just pops the
219 specified number of frames. */
221 /* Call return_command with from_tty argument equal to 0 so as to
222 avoid being queried. */
223 return_command (*argv
, 0);
225 /* Call return_command with from_tty argument equal to 0 so as to
226 avoid being queried. */
227 return_command (NULL
, 0);
229 /* Because we have called return_command with from_tty = 0, we need
230 to print the frame here. */
231 print_stack_frame (get_selected_frame (NULL
), 1, LOC_AND_ADDRESS
, 1);
235 mi_cmd_exec_jump (const char *args
, char **argv
, int argc
)
237 /* FIXME: Should call a libgdb function, not a cli wrapper. */
238 mi_execute_async_cli_command ("jump", argv
, argc
);
242 proceed_thread (struct thread_info
*thread
, int pid
)
244 if (thread
->state
!= THREAD_STOPPED
)
247 if (pid
!= 0 && thread
->ptid
.pid () != pid
)
250 switch_to_thread (thread
);
251 clear_proceed_status (0);
252 proceed ((CORE_ADDR
) -1, GDB_SIGNAL_DEFAULT
);
256 exec_continue (char **argv
, int argc
)
258 prepare_execution_command (current_top_target (), mi_async_p ());
262 /* In non-stop mode, 'resume' always resumes a single thread.
263 Therefore, to resume all threads of the current inferior, or
264 all threads in all inferiors, we need to iterate over
267 See comment on infcmd.c:proceed_thread_callback for rationale. */
268 if (current_context
->all
|| current_context
->thread_group
!= -1)
270 scoped_restore_current_thread restore_thread
;
273 if (!current_context
->all
)
276 = find_inferior_id (current_context
->thread_group
);
281 /* Proceed the threads in global number order. This is not necessary,
282 it's just to avoid breaking some tests like gdb.mi/mi-nsintrall.exp
283 that expect the *running notifications in that order. In the end,
284 we should instead fix the test to accept the notifications in any
286 std::vector
<thread_info
*> threads
;
287 for (thread_info
*tp
: all_threads ())
288 threads
.push_back (tp
);
290 std::sort (threads
.begin (), threads
.end (),
291 [] (thread_info
*a
, thread_info
*b
)
293 return a
->global_num
< b
->global_num
;
296 for (thread_info
*tp
: threads
)
297 proceed_thread (tp
, pid
);
306 scoped_restore save_multi
= make_scoped_restore (&sched_multi
);
308 if (current_context
->all
)
315 /* In all-stop mode, -exec-continue traditionally resumed
316 either all threads, or one thread, depending on the
317 'scheduler-locking' variable. Let's continue to do the
325 exec_reverse_continue (char **argv
, int argc
)
327 enum exec_direction_kind dir
= execution_direction
;
329 if (dir
== EXEC_REVERSE
)
330 error (_("Already in reverse mode."));
332 if (!target_can_execute_reverse
)
333 error (_("Target %s does not support this command."), target_shortname
);
335 scoped_restore save_exec_dir
= make_scoped_restore (&execution_direction
,
337 exec_continue (argv
, argc
);
341 mi_cmd_exec_continue (const char *command
, char **argv
, int argc
)
343 if (argc
> 0 && strcmp (argv
[0], "--reverse") == 0)
344 exec_reverse_continue (argv
+ 1, argc
- 1);
346 exec_continue (argv
, argc
);
350 interrupt_thread_callback (struct thread_info
*thread
, void *arg
)
352 int pid
= *(int *)arg
;
354 if (thread
->state
!= THREAD_RUNNING
)
357 if (thread
->ptid
.pid () != pid
)
360 target_stop (thread
->ptid
);
364 /* Interrupt the execution of the target. Note how we must play
365 around with the token variables, in order to display the current
366 token in the result of the interrupt command, and the previous
367 execution token when the target finally stops. See comments in
371 mi_cmd_exec_interrupt (const char *command
, char **argv
, int argc
)
373 /* In all-stop mode, everything stops, so we don't need to try
374 anything specific. */
377 interrupt_target_1 (0);
381 if (current_context
->all
)
383 /* This will interrupt all threads in all inferiors. */
384 interrupt_target_1 (1);
386 else if (current_context
->thread_group
!= -1)
388 struct inferior
*inf
= find_inferior_id (current_context
->thread_group
);
390 iterate_over_threads (interrupt_thread_callback
, &inf
->pid
);
394 /* Interrupt just the current thread -- either explicitly
395 specified via --thread or whatever was current before
396 MI command was sent. */
397 interrupt_target_1 (0);
401 /* Callback for iterate_over_inferiors which starts the execution
402 of the given inferior.
404 ARG is a pointer to an integer whose value, if non-zero, indicates
405 that the program should be stopped when reaching the main subprogram
406 (similar to what the CLI "start" command does). */
409 run_one_inferior (struct inferior
*inf
, void *arg
)
411 int start_p
= *(int *) arg
;
412 const char *run_cmd
= start_p
? "start" : "run";
413 struct target_ops
*run_target
= find_run_target ();
414 int async_p
= mi_async
&& run_target
->can_async_p ();
418 thread_info
*tp
= any_thread_of_inferior (inf
);
420 error (_("Inferior has no threads."));
422 switch_to_thread (tp
);
426 set_current_inferior (inf
);
427 switch_to_no_thread ();
428 set_current_program_space (inf
->pspace
);
430 mi_execute_cli_command (run_cmd
, async_p
,
431 async_p
? "&" : NULL
);
436 mi_cmd_exec_run (const char *command
, char **argv
, int argc
)
440 /* Parse the command options. */
445 static const struct mi_opt opts
[] =
447 {"-start", START_OPT
, 0},
456 int opt
= mi_getopt ("-exec-run", argc
, argv
, opts
, &oind
, &oarg
);
460 switch ((enum opt
) opt
)
468 /* This command does not accept any argument. Make sure the user
469 did not provide any. */
471 error (_("Invalid argument: %s"), argv
[oind
]);
473 if (current_context
->all
)
475 scoped_restore_current_pspace_and_thread restore_pspace_thread
;
477 iterate_over_inferiors (run_one_inferior
, &start_p
);
481 const char *run_cmd
= start_p
? "start" : "run";
482 struct target_ops
*run_target
= find_run_target ();
483 int async_p
= mi_async
&& run_target
->can_async_p ();
485 mi_execute_cli_command (run_cmd
, async_p
,
486 async_p
? "&" : NULL
);
492 find_thread_of_process (struct thread_info
*ti
, void *p
)
496 if (ti
->ptid
.pid () == pid
&& ti
->state
!= THREAD_EXITED
)
503 mi_cmd_target_detach (const char *command
, char **argv
, int argc
)
505 if (argc
!= 0 && argc
!= 1)
506 error (_("Usage: -target-detach [pid | thread-group]"));
510 struct thread_info
*tp
;
514 /* First see if we are dealing with a thread-group id. */
517 struct inferior
*inf
;
518 int id
= strtoul (argv
[0] + 1, &end
, 0);
521 error (_("Invalid syntax of thread-group id '%s'"), argv
[0]);
523 inf
= find_inferior_id (id
);
525 error (_("Non-existent thread-group id '%d'"), id
);
531 /* We must be dealing with a pid. */
532 pid
= strtol (argv
[0], &end
, 10);
535 error (_("Invalid identifier '%s'"), argv
[0]);
538 /* Pick any thread in the desired process. Current
539 target_detach detaches from the parent of inferior_ptid. */
540 tp
= iterate_over_threads (find_thread_of_process
, &pid
);
542 error (_("Thread group is empty"));
544 switch_to_thread (tp
);
547 detach_command (NULL
, 0);
551 mi_cmd_target_flash_erase (const char *command
, char **argv
, int argc
)
553 flash_erase_command (NULL
, 0);
557 mi_cmd_thread_select (const char *command
, char **argv
, int argc
)
560 error (_("-thread-select: USAGE: threadnum."));
562 int num
= value_as_long (parse_and_eval (argv
[0]));
563 thread_info
*thr
= find_thread_global_id (num
);
565 error (_("Thread ID %d not known."), num
);
567 ptid_t previous_ptid
= inferior_ptid
;
569 thread_select (argv
[0], thr
);
571 print_selected_thread_frame (current_uiout
,
572 USER_SELECTED_THREAD
| USER_SELECTED_FRAME
);
574 /* Notify if the thread has effectively changed. */
575 if (inferior_ptid
!= previous_ptid
)
577 gdb::observers::user_selected_context_changed
.notify
578 (USER_SELECTED_THREAD
| USER_SELECTED_FRAME
);
583 mi_cmd_thread_list_ids (const char *command
, char **argv
, int argc
)
586 error (_("-thread-list-ids: No arguments required."));
589 int current_thread
= -1;
591 update_thread_list ();
594 ui_out_emit_tuple
tuple_emitter (current_uiout
, "thread-ids");
596 for (thread_info
*tp
: all_non_exited_threads ())
598 if (tp
->ptid
== inferior_ptid
)
599 current_thread
= tp
->global_num
;
602 current_uiout
->field_signed ("thread-id", tp
->global_num
);
606 if (current_thread
!= -1)
607 current_uiout
->field_signed ("current-thread-id", current_thread
);
608 current_uiout
->field_signed ("number-of-threads", num
);
612 mi_cmd_thread_info (const char *command
, char **argv
, int argc
)
614 if (argc
!= 0 && argc
!= 1)
615 error (_("Invalid MI command"));
617 print_thread_info (current_uiout
, argv
[0], -1);
620 struct collect_cores_data
627 collect_cores (struct thread_info
*ti
, void *xdata
)
629 struct collect_cores_data
*data
= (struct collect_cores_data
*) xdata
;
631 if (ti
->ptid
.pid () == data
->pid
)
633 int core
= target_core_of_thread (ti
->ptid
);
636 data
->cores
.insert (core
);
642 struct print_one_inferior_data
645 const std::set
<int> *inferiors
;
649 print_one_inferior (struct inferior
*inferior
, void *xdata
)
651 struct print_one_inferior_data
*top_data
652 = (struct print_one_inferior_data
*) xdata
;
653 struct ui_out
*uiout
= current_uiout
;
655 if (top_data
->inferiors
->empty ()
656 || (top_data
->inferiors
->find (inferior
->pid
)
657 != top_data
->inferiors
->end ()))
659 struct collect_cores_data data
;
660 ui_out_emit_tuple
tuple_emitter (uiout
, NULL
);
662 uiout
->field_fmt ("id", "i%d", inferior
->num
);
663 uiout
->field_string ("type", "process");
664 if (inferior
->has_exit_code
)
665 uiout
->field_string ("exit-code",
666 int_string (inferior
->exit_code
, 8, 0, 0, 1));
667 if (inferior
->pid
!= 0)
668 uiout
->field_signed ("pid", inferior
->pid
);
670 if (inferior
->pspace
->pspace_exec_filename
!= NULL
)
672 uiout
->field_string ("executable",
673 inferior
->pspace
->pspace_exec_filename
);
676 if (inferior
->pid
!= 0)
678 data
.pid
= inferior
->pid
;
679 iterate_over_threads (collect_cores
, &data
);
682 if (!data
.cores
.empty ())
684 ui_out_emit_list
list_emitter (uiout
, "cores");
686 for (int b
: data
.cores
)
687 uiout
->field_signed (NULL
, b
);
690 if (top_data
->recurse
)
691 print_thread_info (uiout
, NULL
, inferior
->pid
);
697 /* Output a field named 'cores' with a list as the value. The
698 elements of the list are obtained by splitting 'cores' on
702 output_cores (struct ui_out
*uiout
, const char *field_name
, const char *xcores
)
704 ui_out_emit_list
list_emitter (uiout
, field_name
);
705 auto cores
= make_unique_xstrdup (xcores
);
706 char *p
= cores
.get ();
709 for (p
= strtok_r (p
, ",", &saveptr
); p
; p
= strtok_r (NULL
, ",", &saveptr
))
710 uiout
->field_string (NULL
, p
);
714 list_available_thread_groups (const std::set
<int> &ids
, int recurse
)
716 struct ui_out
*uiout
= current_uiout
;
718 /* This keeps a map from integer (pid) to vector of struct osdata_item.
719 The vector contains information about all threads for the given pid. */
720 std::map
<int, std::vector
<osdata_item
>> tree
;
722 /* get_osdata will throw if it cannot return data. */
723 std::unique_ptr
<osdata
> data
= get_osdata ("processes");
727 std::unique_ptr
<osdata
> threads
= get_osdata ("threads");
729 for (const osdata_item
&item
: threads
->items
)
731 const std::string
*pid
= get_osdata_column (item
, "pid");
732 int pid_i
= strtoul (pid
->c_str (), NULL
, 0);
734 tree
[pid_i
].push_back (item
);
738 ui_out_emit_list
list_emitter (uiout
, "groups");
740 for (const osdata_item
&item
: data
->items
)
742 const std::string
*pid
= get_osdata_column (item
, "pid");
743 const std::string
*cmd
= get_osdata_column (item
, "command");
744 const std::string
*user
= get_osdata_column (item
, "user");
745 const std::string
*cores
= get_osdata_column (item
, "cores");
747 int pid_i
= strtoul (pid
->c_str (), NULL
, 0);
749 /* At present, the target will return all available processes
750 and if information about specific ones was required, we filter
751 undesired processes here. */
752 if (!ids
.empty () && ids
.find (pid_i
) == ids
.end ())
755 ui_out_emit_tuple
tuple_emitter (uiout
, NULL
);
757 uiout
->field_string ("id", pid
->c_str ());
758 uiout
->field_string ("type", "process");
760 uiout
->field_string ("description", cmd
->c_str ());
762 uiout
->field_string ("user", user
->c_str ());
764 output_cores (uiout
, "cores", cores
->c_str ());
768 auto n
= tree
.find (pid_i
);
769 if (n
!= tree
.end ())
771 std::vector
<osdata_item
> &children
= n
->second
;
773 ui_out_emit_list
thread_list_emitter (uiout
, "threads");
775 for (const osdata_item
&child
: children
)
777 ui_out_emit_tuple
inner_tuple_emitter (uiout
, NULL
);
778 const std::string
*tid
= get_osdata_column (child
, "tid");
779 const std::string
*tcore
= get_osdata_column (child
, "core");
781 uiout
->field_string ("id", tid
->c_str ());
783 uiout
->field_string ("core", tcore
->c_str ());
791 mi_cmd_list_thread_groups (const char *command
, char **argv
, int argc
)
793 struct ui_out
*uiout
= current_uiout
;
800 AVAILABLE_OPT
, RECURSE_OPT
802 static const struct mi_opt opts
[] =
804 {"-available", AVAILABLE_OPT
, 0},
805 {"-recurse", RECURSE_OPT
, 1},
814 int opt
= mi_getopt ("-list-thread-groups", argc
, argv
, opts
,
819 switch ((enum opt
) opt
)
825 if (strcmp (oarg
, "0") == 0)
827 else if (strcmp (oarg
, "1") == 0)
830 error (_("only '0' and '1' are valid values "
831 "for the '--recurse' option"));
836 for (; oind
< argc
; ++oind
)
841 if (*(argv
[oind
]) != 'i')
842 error (_("invalid syntax of group id '%s'"), argv
[oind
]);
844 inf
= strtoul (argv
[oind
] + 1, &end
, 0);
847 error (_("invalid syntax of group id '%s'"), argv
[oind
]);
853 list_available_thread_groups (ids
, recurse
);
855 else if (ids
.size () == 1)
857 /* Local thread groups, single id. */
858 int id
= *(ids
.begin ());
859 struct inferior
*inf
= find_inferior_id (id
);
862 error (_("Non-existent thread group id '%d'"), id
);
864 print_thread_info (uiout
, NULL
, inf
->pid
);
868 struct print_one_inferior_data data
;
870 data
.recurse
= recurse
;
871 data
.inferiors
= &ids
;
873 /* Local thread groups. Either no explicit ids -- and we
874 print everything, or several explicit ids. In both cases,
875 we print more than one group, and have to use 'groups'
876 as the top-level element. */
877 ui_out_emit_list
list_emitter (uiout
, "groups");
878 update_thread_list ();
879 iterate_over_inferiors (print_one_inferior
, &data
);
884 mi_cmd_data_list_register_names (const char *command
, char **argv
, int argc
)
886 struct gdbarch
*gdbarch
;
887 struct ui_out
*uiout
= current_uiout
;
891 /* Note that the test for a valid register must include checking the
892 gdbarch_register_name because gdbarch_num_regs may be allocated
893 for the union of the register sets within a family of related
894 processors. In this case, some entries of gdbarch_register_name
895 will change depending upon the particular processor being
898 gdbarch
= get_current_arch ();
899 numregs
= gdbarch_num_cooked_regs (gdbarch
);
901 ui_out_emit_list
list_emitter (uiout
, "register-names");
903 if (argc
== 0) /* No args, just do all the regs. */
909 if (gdbarch_register_name (gdbarch
, regnum
) == NULL
910 || *(gdbarch_register_name (gdbarch
, regnum
)) == '\0')
911 uiout
->field_string (NULL
, "");
913 uiout
->field_string (NULL
, gdbarch_register_name (gdbarch
, regnum
));
917 /* Else, list of register #s, just do listed regs. */
918 for (i
= 0; i
< argc
; i
++)
920 regnum
= atoi (argv
[i
]);
921 if (regnum
< 0 || regnum
>= numregs
)
922 error (_("bad register number"));
924 if (gdbarch_register_name (gdbarch
, regnum
) == NULL
925 || *(gdbarch_register_name (gdbarch
, regnum
)) == '\0')
926 uiout
->field_string (NULL
, "");
928 uiout
->field_string (NULL
, gdbarch_register_name (gdbarch
, regnum
));
933 mi_cmd_data_list_changed_registers (const char *command
, char **argv
, int argc
)
935 static std::unique_ptr
<readonly_detached_regcache
> this_regs
;
936 struct ui_out
*uiout
= current_uiout
;
937 std::unique_ptr
<readonly_detached_regcache
> prev_regs
;
938 struct gdbarch
*gdbarch
;
942 /* The last time we visited this function, the current frame's
943 register contents were saved in THIS_REGS. Move THIS_REGS over
944 to PREV_REGS, and refresh THIS_REGS with the now-current register
947 prev_regs
= std::move (this_regs
);
948 this_regs
= frame_save_as_regcache (get_selected_frame (NULL
));
950 /* Note that the test for a valid register must include checking the
951 gdbarch_register_name because gdbarch_num_regs may be allocated
952 for the union of the register sets within a family of related
953 processors. In this case, some entries of gdbarch_register_name
954 will change depending upon the particular processor being
957 gdbarch
= this_regs
->arch ();
958 numregs
= gdbarch_num_cooked_regs (gdbarch
);
960 ui_out_emit_list
list_emitter (uiout
, "changed-registers");
964 /* No args, just do all the regs. */
969 if (gdbarch_register_name (gdbarch
, regnum
) == NULL
970 || *(gdbarch_register_name (gdbarch
, regnum
)) == '\0')
973 if (register_changed_p (regnum
, prev_regs
.get (),
975 uiout
->field_signed (NULL
, regnum
);
979 /* Else, list of register #s, just do listed regs. */
980 for (i
= 0; i
< argc
; i
++)
982 regnum
= atoi (argv
[i
]);
986 && gdbarch_register_name (gdbarch
, regnum
) != NULL
987 && *gdbarch_register_name (gdbarch
, regnum
) != '\000')
989 if (register_changed_p (regnum
, prev_regs
.get (),
991 uiout
->field_signed (NULL
, regnum
);
994 error (_("bad register number"));
999 register_changed_p (int regnum
, readonly_detached_regcache
*prev_regs
,
1000 readonly_detached_regcache
*this_regs
)
1002 struct gdbarch
*gdbarch
= this_regs
->arch ();
1003 struct value
*prev_value
, *this_value
;
1005 /* First time through or after gdbarch change consider all registers
1007 if (!prev_regs
|| prev_regs
->arch () != gdbarch
)
1010 /* Get register contents and compare. */
1011 prev_value
= prev_regs
->cooked_read_value (regnum
);
1012 this_value
= this_regs
->cooked_read_value (regnum
);
1013 gdb_assert (prev_value
!= NULL
);
1014 gdb_assert (this_value
!= NULL
);
1016 auto ret
= !value_contents_eq (prev_value
, 0, this_value
, 0,
1017 register_size (gdbarch
, regnum
));
1019 release_value (prev_value
);
1020 release_value (this_value
);
1024 /* Return a list of register number and value pairs. The valid
1025 arguments expected are: a letter indicating the format in which to
1026 display the registers contents. This can be one of: x
1027 (hexadecimal), d (decimal), N (natural), t (binary), o (octal), r
1028 (raw). After the format argument there can be a sequence of
1029 numbers, indicating which registers to fetch the content of. If
1030 the format is the only argument, a list of all the registers with
1031 their values is returned. */
1034 mi_cmd_data_list_register_values (const char *command
, char **argv
, int argc
)
1036 struct ui_out
*uiout
= current_uiout
;
1037 struct frame_info
*frame
;
1038 struct gdbarch
*gdbarch
;
1039 int regnum
, numregs
, format
;
1041 int skip_unavailable
= 0;
1047 static const struct mi_opt opts
[] =
1049 {"-skip-unavailable", SKIP_UNAVAILABLE
, 0},
1053 /* Note that the test for a valid register must include checking the
1054 gdbarch_register_name because gdbarch_num_regs may be allocated
1055 for the union of the register sets within a family of related
1056 processors. In this case, some entries of gdbarch_register_name
1057 will change depending upon the particular processor being
1063 int opt
= mi_getopt ("-data-list-register-values", argc
, argv
,
1064 opts
, &oind
, &oarg
);
1068 switch ((enum opt
) opt
)
1070 case SKIP_UNAVAILABLE
:
1071 skip_unavailable
= 1;
1076 if (argc
- oind
< 1)
1077 error (_("-data-list-register-values: Usage: "
1078 "-data-list-register-values [--skip-unavailable] <format>"
1079 " [<regnum1>...<regnumN>]"));
1081 format
= (int) argv
[oind
][0];
1083 frame
= get_selected_frame (NULL
);
1084 gdbarch
= get_frame_arch (frame
);
1085 numregs
= gdbarch_num_cooked_regs (gdbarch
);
1087 ui_out_emit_list
list_emitter (uiout
, "register-values");
1089 if (argc
- oind
== 1)
1091 /* No args, beside the format: do all the regs. */
1096 if (gdbarch_register_name (gdbarch
, regnum
) == NULL
1097 || *(gdbarch_register_name (gdbarch
, regnum
)) == '\0')
1100 output_register (frame
, regnum
, format
, skip_unavailable
);
1104 /* Else, list of register #s, just do listed regs. */
1105 for (i
= 1 + oind
; i
< argc
; i
++)
1107 regnum
= atoi (argv
[i
]);
1111 && gdbarch_register_name (gdbarch
, regnum
) != NULL
1112 && *gdbarch_register_name (gdbarch
, regnum
) != '\000')
1113 output_register (frame
, regnum
, format
, skip_unavailable
);
1115 error (_("bad register number"));
1119 /* Output one register REGNUM's contents in the desired FORMAT. If
1120 SKIP_UNAVAILABLE is true, skip the register if it is
1124 output_register (struct frame_info
*frame
, int regnum
, int format
,
1125 int skip_unavailable
)
1127 struct ui_out
*uiout
= current_uiout
;
1128 struct value
*val
= value_of_register (regnum
, frame
);
1129 struct value_print_options opts
;
1131 if (skip_unavailable
&& !value_entirely_available (val
))
1134 ui_out_emit_tuple
tuple_emitter (uiout
, NULL
);
1135 uiout
->field_signed ("number", regnum
);
1145 get_formatted_print_options (&opts
, format
);
1147 val_print (value_type (val
),
1148 value_embedded_offset (val
), 0,
1149 &stb
, 0, val
, &opts
, current_language
);
1150 uiout
->field_stream ("value", stb
);
1153 /* Write given values into registers. The registers and values are
1154 given as pairs. The corresponding MI command is
1155 -data-write-register-values <format>
1156 [<regnum1> <value1>...<regnumN> <valueN>] */
1158 mi_cmd_data_write_register_values (const char *command
, char **argv
, int argc
)
1160 struct regcache
*regcache
;
1161 struct gdbarch
*gdbarch
;
1164 /* Note that the test for a valid register must include checking the
1165 gdbarch_register_name because gdbarch_num_regs may be allocated
1166 for the union of the register sets within a family of related
1167 processors. In this case, some entries of gdbarch_register_name
1168 will change depending upon the particular processor being
1171 regcache
= get_current_regcache ();
1172 gdbarch
= regcache
->arch ();
1173 numregs
= gdbarch_num_cooked_regs (gdbarch
);
1176 error (_("-data-write-register-values: Usage: -data-write-register-"
1177 "values <format> [<regnum1> <value1>...<regnumN> <valueN>]"));
1179 if (!target_has_registers
)
1180 error (_("-data-write-register-values: No registers."));
1183 error (_("-data-write-register-values: No regs and values specified."));
1186 error (_("-data-write-register-values: "
1187 "Regs and vals are not in pairs."));
1189 for (i
= 1; i
< argc
; i
= i
+ 2)
1191 int regnum
= atoi (argv
[i
]);
1193 if (regnum
>= 0 && regnum
< numregs
1194 && gdbarch_register_name (gdbarch
, regnum
)
1195 && *gdbarch_register_name (gdbarch
, regnum
))
1199 /* Get the value as a number. */
1200 value
= parse_and_eval_address (argv
[i
+ 1]);
1202 /* Write it down. */
1203 regcache_cooked_write_signed (regcache
, regnum
, value
);
1206 error (_("bad register number"));
1210 /* Evaluate the value of the argument. The argument is an
1211 expression. If the expression contains spaces it needs to be
1212 included in double quotes. */
1215 mi_cmd_data_evaluate_expression (const char *command
, char **argv
, int argc
)
1218 struct value_print_options opts
;
1219 struct ui_out
*uiout
= current_uiout
;
1222 error (_("-data-evaluate-expression: "
1223 "Usage: -data-evaluate-expression expression"));
1225 expression_up expr
= parse_expression (argv
[0]);
1227 val
= evaluate_expression (expr
.get ());
1231 /* Print the result of the expression evaluation. */
1232 get_user_print_options (&opts
);
1234 common_val_print (val
, &stb
, 0, &opts
, current_language
);
1236 uiout
->field_stream ("value", stb
);
1239 /* This is the -data-read-memory command.
1241 ADDR: start address of data to be dumped.
1242 WORD-FORMAT: a char indicating format for the ``word''. See
1244 WORD-SIZE: size of each ``word''; 1,2,4, or 8 bytes.
1245 NR_ROW: Number of rows.
1246 NR_COL: The number of columns (words per row).
1247 ASCHAR: (OPTIONAL) Append an ascii character dump to each row. Use
1248 ASCHAR for unprintable characters.
1250 Reads SIZE*NR_ROW*NR_COL bytes starting at ADDR from memory and
1251 displays them. Returns:
1253 {addr="...",rowN={wordN="..." ,... [,ascii="..."]}, ...}
1256 The number of bytes read is SIZE*ROW*COL. */
1259 mi_cmd_data_read_memory (const char *command
, char **argv
, int argc
)
1261 struct gdbarch
*gdbarch
= get_current_arch ();
1262 struct ui_out
*uiout
= current_uiout
;
1264 long total_bytes
, nr_cols
, nr_rows
;
1266 struct type
*word_type
;
1278 static const struct mi_opt opts
[] =
1280 {"o", OFFSET_OPT
, 1},
1286 int opt
= mi_getopt ("-data-read-memory", argc
, argv
, opts
,
1291 switch ((enum opt
) opt
)
1294 offset
= atol (oarg
);
1301 if (argc
< 5 || argc
> 6)
1302 error (_("-data-read-memory: Usage: "
1303 "ADDR WORD-FORMAT WORD-SIZE NR-ROWS NR-COLS [ASCHAR]."));
1305 /* Extract all the arguments. */
1307 /* Start address of the memory dump. */
1308 addr
= parse_and_eval_address (argv
[0]) + offset
;
1309 /* The format character to use when displaying a memory word. See
1310 the ``x'' command. */
1311 word_format
= argv
[1][0];
1312 /* The size of the memory word. */
1313 word_size
= atol (argv
[2]);
1317 word_type
= builtin_type (gdbarch
)->builtin_int8
;
1321 word_type
= builtin_type (gdbarch
)->builtin_int16
;
1325 word_type
= builtin_type (gdbarch
)->builtin_int32
;
1329 word_type
= builtin_type (gdbarch
)->builtin_int64
;
1333 word_type
= builtin_type (gdbarch
)->builtin_int8
;
1336 /* The number of rows. */
1337 nr_rows
= atol (argv
[3]);
1339 error (_("-data-read-memory: invalid number of rows."));
1341 /* Number of bytes per row. */
1342 nr_cols
= atol (argv
[4]);
1344 error (_("-data-read-memory: invalid number of columns."));
1346 /* The un-printable character when printing ascii. */
1352 /* Create a buffer and read it in. */
1353 total_bytes
= word_size
* nr_rows
* nr_cols
;
1355 gdb::byte_vector
mbuf (total_bytes
);
1357 nr_bytes
= target_read (current_top_target (), TARGET_OBJECT_MEMORY
, NULL
,
1358 mbuf
.data (), addr
, total_bytes
);
1360 error (_("Unable to read memory."));
1362 /* Output the header information. */
1363 uiout
->field_core_addr ("addr", gdbarch
, addr
);
1364 uiout
->field_signed ("nr-bytes", nr_bytes
);
1365 uiout
->field_signed ("total-bytes", total_bytes
);
1366 uiout
->field_core_addr ("next-row", gdbarch
, addr
+ word_size
* nr_cols
);
1367 uiout
->field_core_addr ("prev-row", gdbarch
, addr
- word_size
* nr_cols
);
1368 uiout
->field_core_addr ("next-page", gdbarch
, addr
+ total_bytes
);
1369 uiout
->field_core_addr ("prev-page", gdbarch
, addr
- total_bytes
);
1371 /* Build the result as a two dimensional table. */
1378 ui_out_emit_list
list_emitter (uiout
, "memory");
1379 for (row
= 0, row_byte
= 0;
1381 row
++, row_byte
+= nr_cols
* word_size
)
1385 struct value_print_options print_opts
;
1387 ui_out_emit_tuple
tuple_emitter (uiout
, NULL
);
1388 uiout
->field_core_addr ("addr", gdbarch
, addr
+ row_byte
);
1389 /* ui_out_field_core_addr_symbolic (uiout, "saddr", addr +
1392 ui_out_emit_list
list_data_emitter (uiout
, "data");
1393 get_formatted_print_options (&print_opts
, word_format
);
1394 for (col
= 0, col_byte
= row_byte
;
1396 col
++, col_byte
+= word_size
)
1398 if (col_byte
+ word_size
> nr_bytes
)
1400 uiout
->field_string (NULL
, "N/A");
1405 print_scalar_formatted (&mbuf
[col_byte
], word_type
,
1406 &print_opts
, word_asize
, &stream
);
1407 uiout
->field_stream (NULL
, stream
);
1417 for (byte
= row_byte
;
1418 byte
< row_byte
+ word_size
* nr_cols
; byte
++)
1420 if (byte
>= nr_bytes
)
1422 else if (mbuf
[byte
] < 32 || mbuf
[byte
] > 126)
1423 stream
.putc (aschar
);
1425 stream
.putc (mbuf
[byte
]);
1427 uiout
->field_stream ("ascii", stream
);
1434 mi_cmd_data_read_memory_bytes (const char *command
, char **argv
, int argc
)
1436 struct gdbarch
*gdbarch
= get_current_arch ();
1437 struct ui_out
*uiout
= current_uiout
;
1441 int unit_size
= gdbarch_addressable_memory_unit_size (gdbarch
);
1448 static const struct mi_opt opts
[] =
1450 {"o", OFFSET_OPT
, 1},
1456 int opt
= mi_getopt ("-data-read-memory-bytes", argc
, argv
, opts
,
1460 switch ((enum opt
) opt
)
1463 offset
= atol (oarg
);
1471 error (_("Usage: [ -o OFFSET ] ADDR LENGTH."));
1473 addr
= parse_and_eval_address (argv
[0]) + offset
;
1474 length
= atol (argv
[1]);
1476 std::vector
<memory_read_result
> result
1477 = read_memory_robust (current_top_target (), addr
, length
);
1479 if (result
.size () == 0)
1480 error (_("Unable to read memory."));
1482 ui_out_emit_list
list_emitter (uiout
, "memory");
1483 for (const memory_read_result
&read_result
: result
)
1485 ui_out_emit_tuple
tuple_emitter (uiout
, NULL
);
1487 uiout
->field_core_addr ("begin", gdbarch
, read_result
.begin
);
1488 uiout
->field_core_addr ("offset", gdbarch
, read_result
.begin
- addr
);
1489 uiout
->field_core_addr ("end", gdbarch
, read_result
.end
);
1491 std::string data
= bin2hex (read_result
.data
.get (),
1492 (read_result
.end
- read_result
.begin
)
1494 uiout
->field_string ("contents", data
.c_str ());
1498 /* Implementation of the -data-write_memory command.
1500 COLUMN_OFFSET: optional argument. Must be preceded by '-o'. The
1501 offset from the beginning of the memory grid row where the cell to
1503 ADDR: start address of the row in the memory grid where the memory
1504 cell is, if OFFSET_COLUMN is specified. Otherwise, the address of
1505 the location to write to.
1506 FORMAT: a char indicating format for the ``word''. See
1508 WORD_SIZE: size of each ``word''; 1,2,4, or 8 bytes
1509 VALUE: value to be written into the memory address.
1511 Writes VALUE into ADDR + (COLUMN_OFFSET * WORD_SIZE).
1516 mi_cmd_data_write_memory (const char *command
, char **argv
, int argc
)
1518 struct gdbarch
*gdbarch
= get_current_arch ();
1519 enum bfd_endian byte_order
= gdbarch_byte_order (gdbarch
);
1522 /* FIXME: ezannoni 2000-02-17 LONGEST could possibly not be big
1523 enough when using a compiler other than GCC. */
1532 static const struct mi_opt opts
[] =
1534 {"o", OFFSET_OPT
, 1},
1540 int opt
= mi_getopt ("-data-write-memory", argc
, argv
, opts
,
1545 switch ((enum opt
) opt
)
1548 offset
= atol (oarg
);
1556 error (_("-data-write-memory: Usage: "
1557 "[-o COLUMN_OFFSET] ADDR FORMAT WORD-SIZE VALUE."));
1559 /* Extract all the arguments. */
1560 /* Start address of the memory dump. */
1561 addr
= parse_and_eval_address (argv
[0]);
1562 /* The size of the memory word. */
1563 word_size
= atol (argv
[2]);
1565 /* Calculate the real address of the write destination. */
1566 addr
+= (offset
* word_size
);
1568 /* Get the value as a number. */
1569 value
= parse_and_eval_address (argv
[3]);
1570 /* Get the value into an array. */
1571 gdb::byte_vector
buffer (word_size
);
1572 store_signed_integer (buffer
.data (), word_size
, byte_order
, value
);
1573 /* Write it down to memory. */
1574 write_memory_with_notification (addr
, buffer
.data (), word_size
);
1577 /* Implementation of the -data-write-memory-bytes command.
1580 DATA: string of bytes to write at that address
1581 COUNT: number of bytes to be filled (decimal integer). */
1584 mi_cmd_data_write_memory_bytes (const char *command
, char **argv
, int argc
)
1588 size_t len_hex
, len_bytes
, len_units
, i
, steps
, remaining_units
;
1589 long int count_units
;
1592 if (argc
!= 2 && argc
!= 3)
1593 error (_("Usage: ADDR DATA [COUNT]."));
1595 addr
= parse_and_eval_address (argv
[0]);
1597 len_hex
= strlen (cdata
);
1598 unit_size
= gdbarch_addressable_memory_unit_size (get_current_arch ());
1600 if (len_hex
% (unit_size
* 2) != 0)
1601 error (_("Hex-encoded '%s' must represent an integral number of "
1602 "addressable memory units."),
1605 len_bytes
= len_hex
/ 2;
1606 len_units
= len_bytes
/ unit_size
;
1609 count_units
= strtoul (argv
[2], NULL
, 10);
1611 count_units
= len_units
;
1613 gdb::byte_vector
databuf (len_bytes
);
1615 for (i
= 0; i
< len_bytes
; ++i
)
1618 if (sscanf (cdata
+ i
* 2, "%02x", &x
) != 1)
1619 error (_("Invalid argument"));
1620 databuf
[i
] = (gdb_byte
) x
;
1623 gdb::byte_vector data
;
1624 if (len_units
< count_units
)
1626 /* Pattern is made of less units than count:
1627 repeat pattern to fill memory. */
1628 data
= gdb::byte_vector (count_units
* unit_size
);
1630 /* Number of times the pattern is entirely repeated. */
1631 steps
= count_units
/ len_units
;
1632 /* Number of remaining addressable memory units. */
1633 remaining_units
= count_units
% len_units
;
1634 for (i
= 0; i
< steps
; i
++)
1635 memcpy (&data
[i
* len_bytes
], &databuf
[0], len_bytes
);
1637 if (remaining_units
> 0)
1638 memcpy (&data
[steps
* len_bytes
], &databuf
[0],
1639 remaining_units
* unit_size
);
1643 /* Pattern is longer than or equal to count:
1644 just copy count addressable memory units. */
1645 data
= std::move (databuf
);
1648 write_memory_with_notification (addr
, data
.data (), count_units
);
1652 mi_cmd_enable_timings (const char *command
, char **argv
, int argc
)
1658 if (strcmp (argv
[0], "yes") == 0)
1660 else if (strcmp (argv
[0], "no") == 0)
1671 error (_("-enable-timings: Usage: %s {yes|no}"), command
);
1675 mi_cmd_list_features (const char *command
, char **argv
, int argc
)
1679 struct ui_out
*uiout
= current_uiout
;
1681 ui_out_emit_list
list_emitter (uiout
, "features");
1682 uiout
->field_string (NULL
, "frozen-varobjs");
1683 uiout
->field_string (NULL
, "pending-breakpoints");
1684 uiout
->field_string (NULL
, "thread-info");
1685 uiout
->field_string (NULL
, "data-read-memory-bytes");
1686 uiout
->field_string (NULL
, "breakpoint-notifications");
1687 uiout
->field_string (NULL
, "ada-task-info");
1688 uiout
->field_string (NULL
, "language-option");
1689 uiout
->field_string (NULL
, "info-gdb-mi-command");
1690 uiout
->field_string (NULL
, "undefined-command-error-code");
1691 uiout
->field_string (NULL
, "exec-run-start-option");
1692 uiout
->field_string (NULL
, "data-disassemble-a-option");
1694 if (ext_lang_initialized_p (get_ext_lang_defn (EXT_LANG_PYTHON
)))
1695 uiout
->field_string (NULL
, "python");
1700 error (_("-list-features should be passed no arguments"));
1704 mi_cmd_list_target_features (const char *command
, char **argv
, int argc
)
1708 struct ui_out
*uiout
= current_uiout
;
1710 ui_out_emit_list
list_emitter (uiout
, "features");
1712 uiout
->field_string (NULL
, "async");
1713 if (target_can_execute_reverse
)
1714 uiout
->field_string (NULL
, "reverse");
1718 error (_("-list-target-features should be passed no arguments"));
1722 mi_cmd_add_inferior (const char *command
, char **argv
, int argc
)
1724 struct inferior
*inf
;
1727 error (_("-add-inferior should be passed no arguments"));
1729 inf
= add_inferior_with_spaces ();
1731 current_uiout
->field_fmt ("inferior", "i%d", inf
->num
);
1734 /* Callback used to find the first inferior other than the current
1738 get_other_inferior (struct inferior
*inf
, void *arg
)
1740 if (inf
== current_inferior ())
1747 mi_cmd_remove_inferior (const char *command
, char **argv
, int argc
)
1750 struct inferior
*inf
;
1753 error (_("-remove-inferior should be passed a single argument"));
1755 if (sscanf (argv
[0], "i%d", &id
) != 1)
1756 error (_("the thread group id is syntactically invalid"));
1758 inf
= find_inferior_id (id
);
1760 error (_("the specified thread group does not exist"));
1763 error (_("cannot remove an active inferior"));
1765 if (inf
== current_inferior ())
1767 struct thread_info
*tp
= 0;
1768 struct inferior
*new_inferior
1769 = iterate_over_inferiors (get_other_inferior
, NULL
);
1771 if (new_inferior
== NULL
)
1772 error (_("Cannot remove last inferior"));
1774 set_current_inferior (new_inferior
);
1775 if (new_inferior
->pid
!= 0)
1776 tp
= any_thread_of_inferior (new_inferior
);
1778 switch_to_thread (tp
);
1780 switch_to_no_thread ();
1781 set_current_program_space (new_inferior
->pspace
);
1784 delete_inferior (inf
);
1789 /* Execute a command within a safe environment.
1790 Return <0 for error; >=0 for ok.
1792 args->action will tell mi_execute_command what action
1793 to perform after the given command has executed (display/suppress
1794 prompt, display error). */
1797 captured_mi_execute_command (struct ui_out
*uiout
, struct mi_parse
*context
)
1799 struct mi_interp
*mi
= (struct mi_interp
*) command_interp ();
1802 current_command_ts
= context
->cmd_start
;
1804 scoped_restore save_token
= make_scoped_restore (¤t_token
,
1807 running_result_record_printed
= 0;
1809 switch (context
->op
)
1812 /* A MI command was read from the input stream. */
1814 /* FIXME: gdb_???? */
1815 fprintf_unfiltered (mi
->raw_stdout
,
1816 " token=`%s' command=`%s' args=`%s'\n",
1817 context
->token
, context
->command
, context
->args
);
1819 mi_cmd_execute (context
);
1821 /* Print the result if there were no errors.
1823 Remember that on the way out of executing a command, you have
1824 to directly use the mi_interp's uiout, since the command
1825 could have reset the interpreter, in which case the current
1826 uiout will most likely crash in the mi_out_* routines. */
1827 if (!running_result_record_printed
)
1829 fputs_unfiltered (context
->token
, mi
->raw_stdout
);
1830 /* There's no particularly good reason why target-connect results
1831 in not ^done. Should kill ^connected for MI3. */
1832 fputs_unfiltered (strcmp (context
->command
, "target-select") == 0
1833 ? "^connected" : "^done", mi
->raw_stdout
);
1834 mi_out_put (uiout
, mi
->raw_stdout
);
1835 mi_out_rewind (uiout
);
1836 mi_print_timing_maybe (mi
->raw_stdout
);
1837 fputs_unfiltered ("\n", mi
->raw_stdout
);
1840 /* The command does not want anything to be printed. In that
1841 case, the command probably should not have written anything
1842 to uiout, but in case it has written something, discard it. */
1843 mi_out_rewind (uiout
);
1850 /* A CLI command was read from the input stream. */
1851 /* This "feature" will be removed as soon as we have a
1852 complete set of mi commands. */
1853 /* Echo the command on the console. */
1854 fprintf_unfiltered (gdb_stdlog
, "%s\n", context
->command
);
1855 /* Call the "console" interpreter. */
1856 argv
[0] = (char *) INTERP_CONSOLE
;
1857 argv
[1] = context
->command
;
1858 mi_cmd_interpreter_exec ("-interpreter-exec", argv
, 2);
1860 /* If we changed interpreters, DON'T print out anything. */
1861 if (current_interp_named_p (INTERP_MI
)
1862 || current_interp_named_p (INTERP_MI1
)
1863 || current_interp_named_p (INTERP_MI2
)
1864 || current_interp_named_p (INTERP_MI3
))
1866 if (!running_result_record_printed
)
1868 fputs_unfiltered (context
->token
, mi
->raw_stdout
);
1869 fputs_unfiltered ("^done", mi
->raw_stdout
);
1870 mi_out_put (uiout
, mi
->raw_stdout
);
1871 mi_out_rewind (uiout
);
1872 mi_print_timing_maybe (mi
->raw_stdout
);
1873 fputs_unfiltered ("\n", mi
->raw_stdout
);
1876 mi_out_rewind (uiout
);
1883 /* Print a gdb exception to the MI output stream. */
1886 mi_print_exception (const char *token
, const struct gdb_exception
&exception
)
1888 struct mi_interp
*mi
= (struct mi_interp
*) current_interpreter ();
1890 fputs_unfiltered (token
, mi
->raw_stdout
);
1891 fputs_unfiltered ("^error,msg=\"", mi
->raw_stdout
);
1892 if (exception
.message
== NULL
)
1893 fputs_unfiltered ("unknown error", mi
->raw_stdout
);
1895 fputstr_unfiltered (exception
.what (), '"', mi
->raw_stdout
);
1896 fputs_unfiltered ("\"", mi
->raw_stdout
);
1898 switch (exception
.error
)
1900 case UNDEFINED_COMMAND_ERROR
:
1901 fputs_unfiltered (",code=\"undefined-command\"", mi
->raw_stdout
);
1905 fputs_unfiltered ("\n", mi
->raw_stdout
);
1908 /* Determine whether the parsed command already notifies the
1909 user_selected_context_changed observer. */
1912 command_notifies_uscc_observer (struct mi_parse
*command
)
1914 if (command
->op
== CLI_COMMAND
)
1916 /* CLI commands "thread" and "inferior" already send it. */
1917 return (strncmp (command
->command
, "thread ", 7) == 0
1918 || strncmp (command
->command
, "inferior ", 9) == 0);
1920 else /* MI_COMMAND */
1922 if (strcmp (command
->command
, "interpreter-exec") == 0
1923 && command
->argc
> 1)
1925 /* "thread" and "inferior" again, but through -interpreter-exec. */
1926 return (strncmp (command
->argv
[1], "thread ", 7) == 0
1927 || strncmp (command
->argv
[1], "inferior ", 9) == 0);
1931 /* -thread-select already sends it. */
1932 return strcmp (command
->command
, "thread-select") == 0;
1937 mi_execute_command (const char *cmd
, int from_tty
)
1940 std::unique_ptr
<struct mi_parse
> command
;
1942 /* This is to handle EOF (^D). We just quit gdb. */
1943 /* FIXME: we should call some API function here. */
1945 quit_force (NULL
, from_tty
);
1947 target_log_command (cmd
);
1951 command
= mi_parse (cmd
, &token
);
1953 catch (const gdb_exception
&exception
)
1955 mi_print_exception (token
, exception
);
1959 if (command
!= NULL
)
1961 ptid_t previous_ptid
= inferior_ptid
;
1963 gdb::optional
<scoped_restore_tmpl
<int>> restore_suppress
;
1965 if (command
->cmd
!= NULL
&& command
->cmd
->suppress_notification
!= NULL
)
1966 restore_suppress
.emplace (command
->cmd
->suppress_notification
, 1);
1968 command
->token
= token
;
1972 command
->cmd_start
= new mi_timestamp ();
1973 timestamp (command
->cmd_start
);
1978 captured_mi_execute_command (current_uiout
, command
.get ());
1980 catch (const gdb_exception
&result
)
1982 /* Like in start_event_loop, enable input and force display
1983 of the prompt. Otherwise, any command that calls
1984 async_disable_stdin, and then throws, will leave input
1986 async_enable_stdin ();
1987 current_ui
->prompt_state
= PROMPT_NEEDED
;
1989 /* The command execution failed and error() was called
1991 mi_print_exception (command
->token
, result
);
1992 mi_out_rewind (current_uiout
);
1995 bpstat_do_actions ();
1997 if (/* The notifications are only output when the top-level
1998 interpreter (specified on the command line) is MI. */
1999 top_level_interpreter ()->interp_ui_out ()->is_mi_like_p ()
2000 /* Don't try report anything if there are no threads --
2001 the program is dead. */
2003 /* If the command already reports the thread change, no need to do it
2005 && !command_notifies_uscc_observer (command
.get ()))
2007 int report_change
= 0;
2009 if (command
->thread
== -1)
2011 report_change
= (previous_ptid
!= null_ptid
2012 && inferior_ptid
!= previous_ptid
2013 && inferior_ptid
!= null_ptid
);
2015 else if (inferior_ptid
!= null_ptid
)
2017 struct thread_info
*ti
= inferior_thread ();
2019 report_change
= (ti
->global_num
!= command
->thread
);
2024 gdb::observers::user_selected_context_changed
.notify
2025 (USER_SELECTED_THREAD
| USER_SELECTED_FRAME
);
2032 mi_cmd_execute (struct mi_parse
*parse
)
2034 scoped_value_mark cleanup
= prepare_execute_command ();
2036 if (parse
->all
&& parse
->thread_group
!= -1)
2037 error (_("Cannot specify --thread-group together with --all"));
2039 if (parse
->all
&& parse
->thread
!= -1)
2040 error (_("Cannot specify --thread together with --all"));
2042 if (parse
->thread_group
!= -1 && parse
->thread
!= -1)
2043 error (_("Cannot specify --thread together with --thread-group"));
2045 if (parse
->frame
!= -1 && parse
->thread
== -1)
2046 error (_("Cannot specify --frame without --thread"));
2048 if (parse
->thread_group
!= -1)
2050 struct inferior
*inf
= find_inferior_id (parse
->thread_group
);
2051 struct thread_info
*tp
= 0;
2054 error (_("Invalid thread group for the --thread-group option"));
2056 set_current_inferior (inf
);
2057 /* This behaviour means that if --thread-group option identifies
2058 an inferior with multiple threads, then a random one will be
2059 picked. This is not a problem -- frontend should always
2060 provide --thread if it wishes to operate on a specific
2063 tp
= any_live_thread_of_inferior (inf
);
2065 switch_to_thread (tp
);
2067 switch_to_no_thread ();
2068 set_current_program_space (inf
->pspace
);
2071 if (parse
->thread
!= -1)
2073 thread_info
*tp
= find_thread_global_id (parse
->thread
);
2076 error (_("Invalid thread id: %d"), parse
->thread
);
2078 if (tp
->state
== THREAD_EXITED
)
2079 error (_("Thread id: %d has terminated"), parse
->thread
);
2081 switch_to_thread (tp
);
2084 if (parse
->frame
!= -1)
2086 struct frame_info
*fid
;
2087 int frame
= parse
->frame
;
2089 fid
= find_relative_frame (get_current_frame (), &frame
);
2091 /* find_relative_frame was successful */
2094 error (_("Invalid frame id: %d"), frame
);
2097 gdb::optional
<scoped_restore_current_language
> lang_saver
;
2098 if (parse
->language
!= language_unknown
)
2100 lang_saver
.emplace ();
2101 set_language (parse
->language
);
2104 current_context
= parse
;
2106 if (parse
->cmd
->argv_func
!= NULL
)
2108 parse
->cmd
->argv_func (parse
->command
, parse
->argv
, parse
->argc
);
2110 else if (parse
->cmd
->cli
.cmd
!= 0)
2112 /* FIXME: DELETE THIS. */
2113 /* The operation is still implemented by a cli command. */
2114 /* Must be a synchronous one. */
2115 mi_execute_cli_command (parse
->cmd
->cli
.cmd
, parse
->cmd
->cli
.args_p
,
2120 /* FIXME: DELETE THIS. */
2123 stb
.puts ("Undefined mi command: ");
2124 stb
.putstr (parse
->command
, '"');
2125 stb
.puts (" (missing implementation)");
2131 /* FIXME: This is just a hack so we can get some extra commands going.
2132 We don't want to channel things through the CLI, but call libgdb directly.
2133 Use only for synchronous commands. */
2136 mi_execute_cli_command (const char *cmd
, int args_p
, const char *args
)
2140 std::string run
= cmd
;
2143 run
= run
+ " " + args
;
2145 /* FIXME: gdb_???? */
2146 fprintf_unfiltered (gdb_stdout
, "cli=%s run=%s\n",
2148 execute_command (run
.c_str (), 0 /* from_tty */ );
2153 mi_execute_async_cli_command (const char *cli_command
, char **argv
, int argc
)
2155 std::string run
= cli_command
;
2158 run
= run
+ " " + *argv
;
2162 execute_command (run
.c_str (), 0 /* from_tty */ );
2166 mi_load_progress (const char *section_name
,
2167 unsigned long sent_so_far
,
2168 unsigned long total_section
,
2169 unsigned long total_sent
,
2170 unsigned long grand_total
)
2172 using namespace std::chrono
;
2173 static steady_clock::time_point last_update
;
2174 static char *previous_sect_name
= NULL
;
2176 struct mi_interp
*mi
= (struct mi_interp
*) current_interpreter ();
2178 /* This function is called through deprecated_show_load_progress
2179 which means uiout may not be correct. Fix it for the duration
2180 of this function. */
2182 std::unique_ptr
<ui_out
> uiout (mi_out_new (current_interpreter ()->name ()));
2183 if (uiout
== nullptr)
2186 scoped_restore save_uiout
2187 = make_scoped_restore (¤t_uiout
, uiout
.get ());
2189 new_section
= (previous_sect_name
?
2190 strcmp (previous_sect_name
, section_name
) : 1);
2193 xfree (previous_sect_name
);
2194 previous_sect_name
= xstrdup (section_name
);
2197 fputs_unfiltered (current_token
, mi
->raw_stdout
);
2198 fputs_unfiltered ("+download", mi
->raw_stdout
);
2200 ui_out_emit_tuple
tuple_emitter (uiout
.get (), NULL
);
2201 uiout
->field_string ("section", section_name
);
2202 uiout
->field_signed ("section-size", total_section
);
2203 uiout
->field_signed ("total-size", grand_total
);
2205 mi_out_put (uiout
.get (), mi
->raw_stdout
);
2206 fputs_unfiltered ("\n", mi
->raw_stdout
);
2207 gdb_flush (mi
->raw_stdout
);
2210 steady_clock::time_point time_now
= steady_clock::now ();
2211 if (time_now
- last_update
> milliseconds (500))
2213 last_update
= time_now
;
2215 fputs_unfiltered (current_token
, mi
->raw_stdout
);
2216 fputs_unfiltered ("+download", mi
->raw_stdout
);
2218 ui_out_emit_tuple
tuple_emitter (uiout
.get (), NULL
);
2219 uiout
->field_string ("section", section_name
);
2220 uiout
->field_signed ("section-sent", sent_so_far
);
2221 uiout
->field_signed ("section-size", total_section
);
2222 uiout
->field_signed ("total-sent", total_sent
);
2223 uiout
->field_signed ("total-size", grand_total
);
2225 mi_out_put (uiout
.get (), mi
->raw_stdout
);
2226 fputs_unfiltered ("\n", mi
->raw_stdout
);
2227 gdb_flush (mi
->raw_stdout
);
2232 timestamp (struct mi_timestamp
*tv
)
2234 using namespace std::chrono
;
2236 tv
->wallclock
= steady_clock::now ();
2237 run_time_clock::now (tv
->utime
, tv
->stime
);
2241 print_diff_now (struct ui_file
*file
, struct mi_timestamp
*start
)
2243 struct mi_timestamp now
;
2246 print_diff (file
, start
, &now
);
2250 mi_print_timing_maybe (struct ui_file
*file
)
2252 /* If the command is -enable-timing then do_timings may be true
2253 whilst current_command_ts is not initialized. */
2254 if (do_timings
&& current_command_ts
)
2255 print_diff_now (file
, current_command_ts
);
2259 print_diff (struct ui_file
*file
, struct mi_timestamp
*start
,
2260 struct mi_timestamp
*end
)
2262 using namespace std::chrono
;
2264 duration
<double> wallclock
= end
->wallclock
- start
->wallclock
;
2265 duration
<double> utime
= end
->utime
- start
->utime
;
2266 duration
<double> stime
= end
->stime
- start
->stime
;
2270 ",time={wallclock=\"%0.5f\",user=\"%0.5f\",system=\"%0.5f\"}",
2271 wallclock
.count (), utime
.count (), stime
.count ());
2275 mi_cmd_trace_define_variable (const char *command
, char **argv
, int argc
)
2277 LONGEST initval
= 0;
2278 struct trace_state_variable
*tsv
;
2281 if (argc
!= 1 && argc
!= 2)
2282 error (_("Usage: -trace-define-variable VARIABLE [VALUE]"));
2286 error (_("Name of trace variable should start with '$'"));
2288 validate_trace_state_variable_name (name
);
2290 tsv
= find_trace_state_variable (name
);
2292 tsv
= create_trace_state_variable (name
);
2295 initval
= value_as_long (parse_and_eval (argv
[1]));
2297 tsv
->initial_value
= initval
;
2301 mi_cmd_trace_list_variables (const char *command
, char **argv
, int argc
)
2304 error (_("-trace-list-variables: no arguments allowed"));
2306 tvariables_info_1 ();
2310 mi_cmd_trace_find (const char *command
, char **argv
, int argc
)
2315 error (_("trace selection mode is required"));
2319 if (strcmp (mode
, "none") == 0)
2321 tfind_1 (tfind_number
, -1, 0, 0, 0);
2325 check_trace_running (current_trace_status ());
2327 if (strcmp (mode
, "frame-number") == 0)
2330 error (_("frame number is required"));
2331 tfind_1 (tfind_number
, atoi (argv
[1]), 0, 0, 0);
2333 else if (strcmp (mode
, "tracepoint-number") == 0)
2336 error (_("tracepoint number is required"));
2337 tfind_1 (tfind_tp
, atoi (argv
[1]), 0, 0, 0);
2339 else if (strcmp (mode
, "pc") == 0)
2342 error (_("PC is required"));
2343 tfind_1 (tfind_pc
, 0, parse_and_eval_address (argv
[1]), 0, 0);
2345 else if (strcmp (mode
, "pc-inside-range") == 0)
2348 error (_("Start and end PC are required"));
2349 tfind_1 (tfind_range
, 0, parse_and_eval_address (argv
[1]),
2350 parse_and_eval_address (argv
[2]), 0);
2352 else if (strcmp (mode
, "pc-outside-range") == 0)
2355 error (_("Start and end PC are required"));
2356 tfind_1 (tfind_outside
, 0, parse_and_eval_address (argv
[1]),
2357 parse_and_eval_address (argv
[2]), 0);
2359 else if (strcmp (mode
, "line") == 0)
2362 error (_("Line is required"));
2364 std::vector
<symtab_and_line
> sals
2365 = decode_line_with_current_source (argv
[1],
2366 DECODE_LINE_FUNFIRSTLINE
);
2367 const symtab_and_line
&sal
= sals
[0];
2369 if (sal
.symtab
== 0)
2370 error (_("Could not find the specified line"));
2372 CORE_ADDR start_pc
, end_pc
;
2373 if (sal
.line
> 0 && find_line_pc_range (sal
, &start_pc
, &end_pc
))
2374 tfind_1 (tfind_range
, 0, start_pc
, end_pc
- 1, 0);
2376 error (_("Could not find the specified line"));
2379 error (_("Invalid mode '%s'"), mode
);
2381 if (has_stack_frames () || get_traceframe_number () >= 0)
2382 print_stack_frame (get_selected_frame (NULL
), 1, LOC_AND_ADDRESS
, 1);
2386 mi_cmd_trace_save (const char *command
, char **argv
, int argc
)
2388 int target_saves
= 0;
2389 int generate_ctf
= 0;
2396 TARGET_SAVE_OPT
, CTF_OPT
2398 static const struct mi_opt opts
[] =
2400 {"r", TARGET_SAVE_OPT
, 0},
2401 {"ctf", CTF_OPT
, 0},
2407 int opt
= mi_getopt ("-trace-save", argc
, argv
, opts
,
2412 switch ((enum opt
) opt
)
2414 case TARGET_SAVE_OPT
:
2423 if (argc
- oind
!= 1)
2424 error (_("Exactly one argument required "
2425 "(file in which to save trace data)"));
2427 filename
= argv
[oind
];
2430 trace_save_ctf (filename
, target_saves
);
2432 trace_save_tfile (filename
, target_saves
);
2436 mi_cmd_trace_start (const char *command
, char **argv
, int argc
)
2438 start_tracing (NULL
);
2442 mi_cmd_trace_status (const char *command
, char **argv
, int argc
)
2444 trace_status_mi (0);
2448 mi_cmd_trace_stop (const char *command
, char **argv
, int argc
)
2450 stop_tracing (NULL
);
2451 trace_status_mi (1);
2454 /* Implement the "-ada-task-info" command. */
2457 mi_cmd_ada_task_info (const char *command
, char **argv
, int argc
)
2459 if (argc
!= 0 && argc
!= 1)
2460 error (_("Invalid MI command"));
2462 print_ada_task_info (current_uiout
, argv
[0], current_inferior ());
2465 /* Print EXPRESSION according to VALUES. */
2468 print_variable_or_computed (const char *expression
, enum print_values values
)
2472 struct ui_out
*uiout
= current_uiout
;
2476 expression_up expr
= parse_expression (expression
);
2478 if (values
== PRINT_SIMPLE_VALUES
)
2479 val
= evaluate_type (expr
.get ());
2481 val
= evaluate_expression (expr
.get ());
2483 gdb::optional
<ui_out_emit_tuple
> tuple_emitter
;
2484 if (values
!= PRINT_NO_VALUES
)
2485 tuple_emitter
.emplace (uiout
, nullptr);
2486 uiout
->field_string ("name", expression
);
2490 case PRINT_SIMPLE_VALUES
:
2491 type
= check_typedef (value_type (val
));
2492 type_print (value_type (val
), "", &stb
, -1);
2493 uiout
->field_stream ("type", stb
);
2494 if (TYPE_CODE (type
) != TYPE_CODE_ARRAY
2495 && TYPE_CODE (type
) != TYPE_CODE_STRUCT
2496 && TYPE_CODE (type
) != TYPE_CODE_UNION
)
2498 struct value_print_options opts
;
2500 get_no_prettyformat_print_options (&opts
);
2502 common_val_print (val
, &stb
, 0, &opts
, current_language
);
2503 uiout
->field_stream ("value", stb
);
2506 case PRINT_ALL_VALUES
:
2508 struct value_print_options opts
;
2510 get_no_prettyformat_print_options (&opts
);
2512 common_val_print (val
, &stb
, 0, &opts
, current_language
);
2513 uiout
->field_stream ("value", stb
);
2519 /* Implement the "-trace-frame-collected" command. */
2522 mi_cmd_trace_frame_collected (const char *command
, char **argv
, int argc
)
2524 struct bp_location
*tloc
;
2526 struct collection_list
*clist
;
2527 struct collection_list tracepoint_list
, stepping_list
;
2528 struct traceframe_info
*tinfo
;
2530 enum print_values var_print_values
= PRINT_ALL_VALUES
;
2531 enum print_values comp_print_values
= PRINT_ALL_VALUES
;
2532 int registers_format
= 'x';
2533 int memory_contents
= 0;
2534 struct ui_out
*uiout
= current_uiout
;
2542 static const struct mi_opt opts
[] =
2544 {"-var-print-values", VAR_PRINT_VALUES
, 1},
2545 {"-comp-print-values", COMP_PRINT_VALUES
, 1},
2546 {"-registers-format", REGISTERS_FORMAT
, 1},
2547 {"-memory-contents", MEMORY_CONTENTS
, 0},
2554 int opt
= mi_getopt ("-trace-frame-collected", argc
, argv
, opts
,
2558 switch ((enum opt
) opt
)
2560 case VAR_PRINT_VALUES
:
2561 var_print_values
= mi_parse_print_values (oarg
);
2563 case COMP_PRINT_VALUES
:
2564 comp_print_values
= mi_parse_print_values (oarg
);
2566 case REGISTERS_FORMAT
:
2567 registers_format
= oarg
[0];
2569 case MEMORY_CONTENTS
:
2570 memory_contents
= 1;
2576 error (_("Usage: -trace-frame-collected "
2577 "[--var-print-values PRINT_VALUES] "
2578 "[--comp-print-values PRINT_VALUES] "
2579 "[--registers-format FORMAT]"
2580 "[--memory-contents]"));
2582 /* This throws an error is not inspecting a trace frame. */
2583 tloc
= get_traceframe_location (&stepping_frame
);
2585 /* This command only makes sense for the current frame, not the
2587 scoped_restore_current_thread restore_thread
;
2588 select_frame (get_current_frame ());
2590 encode_actions (tloc
, &tracepoint_list
, &stepping_list
);
2593 clist
= &stepping_list
;
2595 clist
= &tracepoint_list
;
2597 tinfo
= get_traceframe_info ();
2599 /* Explicitly wholly collected variables. */
2601 ui_out_emit_list
list_emitter (uiout
, "explicit-variables");
2602 const std::vector
<std::string
> &wholly_collected
2603 = clist
->wholly_collected ();
2604 for (size_t i
= 0; i
< wholly_collected
.size (); i
++)
2606 const std::string
&str
= wholly_collected
[i
];
2607 print_variable_or_computed (str
.c_str (), var_print_values
);
2611 /* Computed expressions. */
2613 ui_out_emit_list
list_emitter (uiout
, "computed-expressions");
2615 const std::vector
<std::string
> &computed
= clist
->computed ();
2616 for (size_t i
= 0; i
< computed
.size (); i
++)
2618 const std::string
&str
= computed
[i
];
2619 print_variable_or_computed (str
.c_str (), comp_print_values
);
2623 /* Registers. Given pseudo-registers, and that some architectures
2624 (like MIPS) actually hide the raw registers, we don't go through
2625 the trace frame info, but instead consult the register cache for
2626 register availability. */
2628 struct frame_info
*frame
;
2629 struct gdbarch
*gdbarch
;
2633 ui_out_emit_list
list_emitter (uiout
, "registers");
2635 frame
= get_selected_frame (NULL
);
2636 gdbarch
= get_frame_arch (frame
);
2637 numregs
= gdbarch_num_cooked_regs (gdbarch
);
2639 for (regnum
= 0; regnum
< numregs
; regnum
++)
2641 if (gdbarch_register_name (gdbarch
, regnum
) == NULL
2642 || *(gdbarch_register_name (gdbarch
, regnum
)) == '\0')
2645 output_register (frame
, regnum
, registers_format
, 1);
2649 /* Trace state variables. */
2651 ui_out_emit_list
list_emitter (uiout
, "tvars");
2653 for (int tvar
: tinfo
->tvars
)
2655 struct trace_state_variable
*tsv
;
2657 tsv
= find_trace_state_variable_by_number (tvar
);
2659 ui_out_emit_tuple
tuple_emitter (uiout
, NULL
);
2663 uiout
->field_fmt ("name", "$%s", tsv
->name
.c_str ());
2665 tsv
->value_known
= target_get_trace_state_variable_value (tsv
->number
,
2667 uiout
->field_signed ("current", tsv
->value
);
2671 uiout
->field_skip ("name");
2672 uiout
->field_skip ("current");
2679 std::vector
<mem_range
> available_memory
;
2681 traceframe_available_memory (&available_memory
, 0, ULONGEST_MAX
);
2683 ui_out_emit_list
list_emitter (uiout
, "memory");
2685 for (const mem_range
&r
: available_memory
)
2687 struct gdbarch
*gdbarch
= target_gdbarch ();
2689 ui_out_emit_tuple
tuple_emitter (uiout
, NULL
);
2691 uiout
->field_core_addr ("address", gdbarch
, r
.start
);
2692 uiout
->field_signed ("length", r
.length
);
2694 gdb::byte_vector
data (r
.length
);
2696 if (memory_contents
)
2698 if (target_read_memory (r
.start
, data
.data (), r
.length
) == 0)
2700 std::string data_str
= bin2hex (data
.data (), r
.length
);
2701 uiout
->field_string ("contents", data_str
.c_str ());
2704 uiout
->field_skip ("contents");
2710 /* See mi/mi-main.h. */
2713 mi_cmd_fix_multi_location_breakpoint_output (const char *command
, char **argv
,
2716 fix_multi_location_breakpoint_output_globally
= true;
2719 /* Implement the "-complete" command. */
2722 mi_cmd_complete (const char *command
, char **argv
, int argc
)
2725 error (_("Usage: -complete COMMAND"));
2727 if (max_completions
== 0)
2728 error (_("max-completions is zero, completion is disabled."));
2730 int quote_char
= '\0';
2733 completion_result result
= complete (argv
[0], &word
, "e_char
);
2735 std::string
arg_prefix (argv
[0], word
- argv
[0]);
2737 struct ui_out
*uiout
= current_uiout
;
2739 if (result
.number_matches
> 0)
2740 uiout
->field_fmt ("completion", "%s%s",
2741 arg_prefix
.c_str (),result
.match_list
[0]);
2744 ui_out_emit_list
completions_emitter (uiout
, "matches");
2746 if (result
.number_matches
== 1)
2747 uiout
->field_fmt (NULL
, "%s%s",
2748 arg_prefix
.c_str (), result
.match_list
[0]);
2751 result
.sort_match_list ();
2752 for (size_t i
= 0; i
< result
.number_matches
; i
++)
2754 uiout
->field_fmt (NULL
, "%s%s",
2755 arg_prefix
.c_str (), result
.match_list
[i
+ 1]);
2759 uiout
->field_string ("max_completions_reached",
2760 result
.number_matches
== max_completions
? "1" : "0");
2765 _initialize_mi_main (void)
2767 struct cmd_list_element
*c
;
2769 add_setshow_boolean_cmd ("mi-async", class_run
,
2771 Set whether MI asynchronous mode is enabled."), _("\
2772 Show whether MI asynchronous mode is enabled."), _("\
2773 Tells GDB whether MI should be in asynchronous mode."),
2774 set_mi_async_command
,
2775 show_mi_async_command
,
2779 /* Alias old "target-async" to "mi-async". */
2780 c
= add_alias_cmd ("target-async", "mi-async", class_run
, 0, &setlist
);
2781 deprecate_cmd (c
, "set mi-async");
2782 c
= add_alias_cmd ("target-async", "mi-async", class_run
, 0, &showlist
);
2783 deprecate_cmd (c
, "show mi-async");