This is the mail archive of the
gdb-patches@sources.redhat.com
mailing list for the GDB project.
[patch] Add -i=mi0 as an interpreter
- To: gdb-patches at sourceware dot cygnus dot com
- Subject: [patch] Add -i=mi0 as an interpreter
- From: Andrew Cagney <ac131313 at cygnus dot com>
- Date: Mon, 18 Jun 2001 13:54:34 -0400
Hello,
This patch gets GDB to accept -i=mi and -i=mi0 (and lets not mention
-i=mi1 :-) as an MI interpreter. Most of it is straight forward. The
nasty bit is where I s/strcmp/strncmp/ in breakpoint.c and infrun.c.
Those strncmp()'s will eventually go away but that involves more work again.
The motivation behind this patch is to provide a migration path from the
never enabled existing MI interface to the finally enabled one.
Andrew
Index: ChangeLog
2001-06-18 Andrew Cagney <ac131313@redhat.com>
* infrun.c, breakpoint.c: Use strncmp as the "mi" test. Allow,
"mi", "mi0" and "mi1".
Index: mi/ChangeLog
2001-06-18 Andrew Cagney <ac131313@redhat.com>
* mi-main.c: Use strncmp as the "mi" test. Allow "mi", "mi0" and
"mi1".
(mi_command_loop): Add parameter mi_version, pass to mi_out_new.
(mi1_command_loop, mi0_command_loop): New functions.
(_initialize_mi_main): Recognize "mi", "mi0" and "mi1".
* mi-out.c (mi_out_new): Add parameter mi_version.
(struct ui_out_data): Add field mi_version.
* mi-out.h (mi_out_new): Update.
Index: testsuite/gdb.mi/ChangeLog-mi
2001-06-18 Andrew Cagney <ac131313@redhat.com>
* mi-basics.exp, mi-break.exp, mi-console.exp, mi-disassemble.exp,
mi-eval.exp, mi-hack-cli.exp, mi-read-memory.exp, mi-regs.exp,
mi-return.exp, mi-simplerun.exp, mi-stack.exp, mi-stepi.exp,
mi-until.exp, mi-var-block.exp, mi-var-child.exp, mi-var-cmd.exp,
mi-var-display.exp, mi-watch.exp, mi0-basics.exp, mi0-break.exp,
mi0-console.exp, mi0-disassemble.exp, mi0-eval.exp,
mi0-hack-cli.exp, mi0-read-memory.exp, mi0-regs.exp,
mi0-return.exp, mi0-simplerun.exp, mi0-stack.exp, mi0-stepi.exp,
mi0-until.exp, mi0-var-block.exp, mi0-var-child.exp,
mi0-var-cmd.exp, mi0-var-display.exp, mi0-watch.exp: Use MIFLAGS
to explictly select an interpreter.
Index: breakpoint.c
===================================================================
RCS file: /cvs/src/src/gdb/breakpoint.c,v
retrieving revision 1.41
diff -p -r1.41 breakpoint.c
*** breakpoint.c 2001/06/11 16:05:24 1.41
--- breakpoint.c 2001/06/18 17:24:26
*************** print_it_typical (bpstat bs)
*** 1889,1895 ****
#ifdef UI_OUT
annotate_breakpoint (bs->breakpoint_at->number);
ui_out_text (uiout, "\nBreakpoint ");
! if (interpreter_p && strcmp (interpreter_p, "mi") == 0)
ui_out_field_string (uiout, "reason", "breakpoint-hit");
ui_out_field_int (uiout, "bkptno", bs->breakpoint_at->number);
ui_out_text (uiout, ", ");
--- 1889,1895 ----
#ifdef UI_OUT
annotate_breakpoint (bs->breakpoint_at->number);
ui_out_text (uiout, "\nBreakpoint ");
! if (interpreter_p && strncmp (interpreter_p, "mi", 2) == 0)
ui_out_field_string (uiout, "reason", "breakpoint-hit");
ui_out_field_int (uiout, "bkptno", bs->breakpoint_at->number);
ui_out_text (uiout, ", ");
*************** print_it_typical (bpstat bs)
*** 2034,2040 ****
{
annotate_watchpoint (bs->breakpoint_at->number);
#ifdef UI_OUT
! if (interpreter_p && strcmp (interpreter_p, "mi") == 0)
ui_out_field_string (uiout, "reason", "watchpoint-trigger");
mention (bs->breakpoint_at);
ui_out_tuple_begin (uiout, "value");
--- 2034,2040 ----
{
annotate_watchpoint (bs->breakpoint_at->number);
#ifdef UI_OUT
! if (interpreter_p && strncmp (interpreter_p, "mi", 2) == 0)
ui_out_field_string (uiout, "reason", "watchpoint-trigger");
mention (bs->breakpoint_at);
ui_out_tuple_begin (uiout, "value");
*************** print_it_typical (bpstat bs)
*** 2064,2070 ****
case bp_read_watchpoint:
#ifdef UI_OUT
! if (interpreter_p && strcmp (interpreter_p, "mi") == 0)
ui_out_field_string (uiout, "reason", "read-watchpoint-trigger");
mention (bs->breakpoint_at);
ui_out_tuple_begin (uiout, "value");
--- 2064,2070 ----
case bp_read_watchpoint:
#ifdef UI_OUT
! if (interpreter_p && strncmp (interpreter_p, "mi", 2) == 0)
ui_out_field_string (uiout, "reason", "read-watchpoint-trigger");
mention (bs->breakpoint_at);
ui_out_tuple_begin (uiout, "value");
*************** print_it_typical (bpstat bs)
*** 2088,2094 ****
if (bs->old_val != NULL)
{
annotate_watchpoint (bs->breakpoint_at->number);
! if (interpreter_p && strcmp (interpreter_p, "mi") == 0)
ui_out_field_string (uiout, "reason", "access-watchpoint-trigger");
mention (bs->breakpoint_at);
ui_out_tuple_begin (uiout, "value");
--- 2088,2094 ----
if (bs->old_val != NULL)
{
annotate_watchpoint (bs->breakpoint_at->number);
! if (interpreter_p && strncmp (interpreter_p, "mi", 2) == 0)
ui_out_field_string (uiout, "reason", "access-watchpoint-trigger");
mention (bs->breakpoint_at);
ui_out_tuple_begin (uiout, "value");
*************** print_it_typical (bpstat bs)
*** 2102,2108 ****
else
{
mention (bs->breakpoint_at);
! if (interpreter_p && strcmp (interpreter_p, "mi") == 0)
ui_out_field_string (uiout, "reason", "access-watchpoint-trigger");
ui_out_tuple_begin (uiout, "value");
ui_out_text (uiout, "\nValue = ");
--- 2102,2108 ----
else
{
mention (bs->breakpoint_at);
! if (interpreter_p && strncmp (interpreter_p, "mi", 2) == 0)
ui_out_field_string (uiout, "reason", "access-watchpoint-trigger");
ui_out_tuple_begin (uiout, "value");
ui_out_text (uiout, "\nValue = ");
*************** print_it_typical (bpstat bs)
*** 2139,2145 ****
case bp_finish:
#ifdef UI_OUT
! if (interpreter_p && strcmp (interpreter_p, "mi") == 0)
ui_out_field_string (uiout, "reason", "function-finished");
#endif
return PRINT_UNKNOWN;
--- 2139,2145 ----
case bp_finish:
#ifdef UI_OUT
! if (interpreter_p && strncmp (interpreter_p, "mi", 2) == 0)
ui_out_field_string (uiout, "reason", "function-finished");
#endif
return PRINT_UNKNOWN;
*************** print_it_typical (bpstat bs)
*** 2147,2153 ****
case bp_until:
#ifdef UI_OUT
! if (interpreter_p && strcmp (interpreter_p, "mi") == 0)
ui_out_field_string (uiout, "reason", "location-reached");
#endif
return PRINT_UNKNOWN;
--- 2147,2153 ----
case bp_until:
#ifdef UI_OUT
! if (interpreter_p && strncmp (interpreter_p, "mi", 2) == 0)
ui_out_field_string (uiout, "reason", "location-reached");
#endif
return PRINT_UNKNOWN;
*************** watchpoint_check (PTR p)
*** 2354,2360 ****
will be deleted already. So we have no choice but print the
information here. */
#ifdef UI_OUT
! if (interpreter_p && strcmp (interpreter_p, "mi") == 0)
ui_out_field_string (uiout, "reason", "watchpoint-scope");
ui_out_text (uiout, "\nWatchpoint ");
ui_out_field_int (uiout, "wpnum", bs->breakpoint_at->number);
--- 2354,2360 ----
will be deleted already. So we have no choice but print the
information here. */
#ifdef UI_OUT
! if (interpreter_p && strncmp (interpreter_p, "mi", 2) == 0)
ui_out_field_string (uiout, "reason", "watchpoint-scope");
ui_out_text (uiout, "\nWatchpoint ");
ui_out_field_int (uiout, "wpnum", bs->breakpoint_at->number);
*************** print_one_breakpoint (struct breakpoint
*** 3476,3482 ****
#ifdef UI_OUT
/* Output the count also if it is zero, but only if this is
mi. FIXME: Should have a better test for this. */
! if (interpreter_p && strcmp (interpreter_p, "mi") == 0)
if (show_breakpoint_hit_counts && b->hit_count == 0)
ui_out_field_int (uiout, "times", b->hit_count);
#endif
--- 3476,3482 ----
#ifdef UI_OUT
/* Output the count also if it is zero, but only if this is
mi. FIXME: Should have a better test for this. */
! if (interpreter_p && strncmp (interpreter_p, "mi", 2) == 0)
if (show_breakpoint_hit_counts && b->hit_count == 0)
ui_out_field_int (uiout, "times", b->hit_count);
#endif
*************** mention (struct breakpoint *b)
*** 4476,4482 ****
#endif
case bp_breakpoint:
#ifdef UI_OUT
! if (interpreter_p && strcmp (interpreter_p, "mi") == 0)
{
say_where = 0;
break;
--- 4476,4482 ----
#endif
case bp_breakpoint:
#ifdef UI_OUT
! if (interpreter_p && strncmp (interpreter_p, "mi", 2) == 0)
{
say_where = 0;
break;
*************** mention (struct breakpoint *b)
*** 4487,4493 ****
break;
case bp_hardware_breakpoint:
#ifdef UI_OUT
! if (interpreter_p && strcmp (interpreter_p, "mi") == 0)
{
say_where = 0;
break;
--- 4487,4493 ----
break;
case bp_hardware_breakpoint:
#ifdef UI_OUT
! if (interpreter_p && strncmp (interpreter_p, "mi", 2) == 0)
{
say_where = 0;
break;
*************** mention (struct breakpoint *b)
*** 4550,4556 ****
do_cleanups (old_chain);
#endif
#ifdef UI_OUT
! if (interpreter_p && strcmp (interpreter_p, "mi") == 0)
return;
#endif
printf_filtered ("\n");
--- 4550,4556 ----
do_cleanups (old_chain);
#endif
#ifdef UI_OUT
! if (interpreter_p && strncmp (interpreter_p, "mi", 2) == 0)
return;
#endif
printf_filtered ("\n");
Index: infrun.c
===================================================================
RCS file: /cvs/src/src/gdb/infrun.c,v
retrieving revision 1.37
diff -p -r1.37 infrun.c
*** infrun.c 2001/06/15 22:44:20 1.37
--- infrun.c 2001/06/18 17:24:43
*************** print_stop_reason (enum inferior_stop_re
*** 3334,3340 ****
/* Print a message only if not in the middle of doing a "step n"
operation for n > 1 */
if (!step_multi || !stop_step)
! if (interpreter_p && strcmp (interpreter_p, "mi") == 0)
ui_out_field_string (uiout, "reason", "end-stepping-range");
#endif
break;
--- 3334,3340 ----
/* Print a message only if not in the middle of doing a "step n"
operation for n > 1 */
if (!step_multi || !stop_step)
! if (interpreter_p && strncmp (interpreter_p, "mi", 2) == 0)
ui_out_field_string (uiout, "reason", "end-stepping-range");
#endif
break;
*************** print_stop_reason (enum inferior_stop_re
*** 3346,3352 ****
/* The inferior was terminated by a signal. */
#ifdef UI_OUT
annotate_signalled ();
! if (interpreter_p && strcmp (interpreter_p, "mi") == 0)
ui_out_field_string (uiout, "reason", "exited-signalled");
ui_out_text (uiout, "\nProgram terminated with signal ");
annotate_signal_name ();
--- 3346,3352 ----
/* The inferior was terminated by a signal. */
#ifdef UI_OUT
annotate_signalled ();
! if (interpreter_p && strncmp (interpreter_p, "mi", 2) == 0)
ui_out_field_string (uiout, "reason", "exited-signalled");
ui_out_text (uiout, "\nProgram terminated with signal ");
annotate_signal_name ();
*************** print_stop_reason (enum inferior_stop_re
*** 3380,3386 ****
annotate_exited (stop_info);
if (stop_info)
{
! if (interpreter_p && strcmp (interpreter_p, "mi") == 0)
ui_out_field_string (uiout, "reason", "exited");
ui_out_text (uiout, "\nProgram exited with code ");
ui_out_field_fmt (uiout, "exit-code", "0%o", (unsigned int) stop_info);
--- 3380,3386 ----
annotate_exited (stop_info);
if (stop_info)
{
! if (interpreter_p && strncmp (interpreter_p, "mi", 2) == 0)
ui_out_field_string (uiout, "reason", "exited");
ui_out_text (uiout, "\nProgram exited with code ");
ui_out_field_fmt (uiout, "exit-code", "0%o", (unsigned int) stop_info);
*************** print_stop_reason (enum inferior_stop_re
*** 3388,3394 ****
}
else
{
! if (interpreter_p && strcmp (interpreter_p, "mi") == 0)
ui_out_field_string (uiout, "reason", "exited-normally");
ui_out_text (uiout, "\nProgram exited normally.\n");
}
--- 3388,3394 ----
}
else
{
! if (interpreter_p && strncmp (interpreter_p, "mi", 2) == 0)
ui_out_field_string (uiout, "reason", "exited-normally");
ui_out_text (uiout, "\nProgram exited normally.\n");
}
*************** and/or watchpoints.\n");
*** 3574,3585 ****
#ifdef UI_OUT
/* For mi, have the same behavior every time we stop:
print everything but the source line. */
! if (interpreter_p && strcmp (interpreter_p, "mi") == 0)
source_flag = LOC_AND_ADDRESS;
#endif
#ifdef UI_OUT
! if (interpreter_p && strcmp (interpreter_p, "mi") == 0)
ui_out_field_int (uiout, "thread-id",
pid_to_thread_id (inferior_ptid));
#endif
--- 3574,3585 ----
#ifdef UI_OUT
/* For mi, have the same behavior every time we stop:
print everything but the source line. */
! if (interpreter_p && strncmp (interpreter_p, "mi", 2) == 0)
source_flag = LOC_AND_ADDRESS;
#endif
#ifdef UI_OUT
! if (interpreter_p && strncmp (interpreter_p, "mi", 2) == 0)
ui_out_field_int (uiout, "thread-id",
pid_to_thread_id (inferior_ptid));
#endif
Index: mi/mi-main.c
===================================================================
RCS file: /cvs/src/src/gdb/mi/mi-main.c,v
retrieving revision 1.14
diff -p -r1.14 mi-main.c
*** mi-main.c 2001/05/12 04:08:24 1.14
--- mi-main.c 2001/06/18 17:25:04
*************** mi_load_progress (const char *section_na
*** 1351,1357 ****
static char *previous_sect_name = NULL;
int new_section;
! if (!interpreter_p || strcmp (interpreter_p, "mi") != 0)
return;
update_threshold.tv_sec = 0;
--- 1351,1357 ----
static char *previous_sect_name = NULL;
int new_section;
! if (!interpreter_p || strncmp (interpreter_p, "mi", 2) != 0)
return;
update_threshold.tv_sec = 0;
*************** mi_load_progress (const char *section_na
*** 1409,1415 ****
}
static void
! mi_command_loop (void)
{
/* HACK: Force stdout/stderr to point at the console. This avoids
any potential side effects caused by legacy code that is still
--- 1409,1415 ----
}
static void
! mi_command_loop (int mi_version)
{
/* HACK: Force stdout/stderr to point at the console. This avoids
any potential side effects caused by legacy code that is still
*************** mi_command_loop (void)
*** 1425,1431 ****
/* HACK: Poke the ui_out table directly. Should we be creating a
mi_out object wired up to the above gdb_stdout / gdb_stderr? */
! uiout = mi_out_new ();
/* HACK: Override any other interpreter hooks. We need to create a
real event table and pass in that. */
--- 1425,1431 ----
/* HACK: Poke the ui_out table directly. Should we be creating a
mi_out object wired up to the above gdb_stdout / gdb_stderr? */
! uiout = mi_out_new (mi_version);
/* HACK: Override any other interpreter hooks. We need to create a
real event table and pass in that. */
*************** mi_command_loop (void)
*** 1465,1470 ****
--- 1465,1482 ----
}
static void
+ mi0_command_loop (void)
+ {
+ mi_command_loop (0);
+ }
+
+ static void
+ mi1_command_loop (void)
+ {
+ mi_command_loop (1);
+ }
+
+ static void
setup_architecture_data (void)
{
/* don't trust REGISTER_BYTES to be zero. */
*************** mi_init_ui (char *arg0)
*** 1482,1505 ****
void
_initialize_mi_main (void)
{
/* If we're _the_ interpreter, take control. */
! if (interpreter_p
! && strcmp (interpreter_p, "mi") == 0)
{
! init_ui_hook = mi_init_ui;
! command_loop_hook = mi_command_loop;
! setup_architecture_data ();
! register_gdbarch_swap (&old_regs, sizeof (old_regs), NULL);
! register_gdbarch_swap (NULL, 0, setup_architecture_data);
! if (event_loop_p)
! {
! /* These overwrite some of the initialization done in
! _intialize_event_loop. */
! call_readline = gdb_readline2;
! input_handler = mi_execute_command_wrapper;
! add_file_handler (input_fd, stdin_event_handler, 0);
! async_command_editing_p = 0;
! }
}
/* FIXME: Should we notify main that we are here as a possible
interpreter? */
--- 1494,1523 ----
void
_initialize_mi_main (void)
{
+ if (interpreter_p == NULL)
+ return;
+
/* If we're _the_ interpreter, take control. */
! if (strcmp (interpreter_p, "mi0") == 0)
! command_loop_hook = mi0_command_loop;
! else if (strcmp (interpreter_p, "mi") == 0
! || strcmp (interpreter_p, "mi1") == 0)
! command_loop_hook = mi1_command_loop;
! else
! return;
!
! init_ui_hook = mi_init_ui;
! setup_architecture_data ();
! register_gdbarch_swap (&old_regs, sizeof (old_regs), NULL);
! register_gdbarch_swap (NULL, 0, setup_architecture_data);
! if (event_loop_p)
{
! /* These overwrite some of the initialization done in
! _intialize_event_loop. */
! call_readline = gdb_readline2;
! input_handler = mi_execute_command_wrapper;
! add_file_handler (input_fd, stdin_event_handler, 0);
! async_command_editing_p = 0;
}
/* FIXME: Should we notify main that we are here as a possible
interpreter? */
Index: mi/mi-out.c
===================================================================
RCS file: /cvs/src/src/gdb/mi/mi-out.c,v
retrieving revision 1.13
diff -p -r1.13 mi-out.c
*** mi-out.c 2001/06/11 21:54:04 1.13
--- mi-out.c 2001/06/18 17:25:05
*************** struct ui_out_data
*** 33,38 ****
--- 33,39 ----
{
int suppress_field_separator;
int first_header;
+ int mi_version;
struct ui_file *buffer;
};
*************** mi_out_put (struct ui_out *uiout,
*** 379,389 ****
/* initalize private members at startup */
struct ui_out *
! mi_out_new (void)
{
int flags = 0;
struct ui_out_data *data = XMALLOC (struct ui_out_data);
data->suppress_field_separator = 0;
/* FIXME: This code should be using a ``string_file'' and not the
TUI buffer hack. */
data->buffer = mem_fileopen ();
--- 380,391 ----
/* initalize private members at startup */
struct ui_out *
! mi_out_new (int mi_version)
{
int flags = 0;
struct ui_out_data *data = XMALLOC (struct ui_out_data);
data->suppress_field_separator = 0;
+ data->mi_version = mi_version;
/* FIXME: This code should be using a ``string_file'' and not the
TUI buffer hack. */
data->buffer = mem_fileopen ();
Index: mi/mi-out.h
===================================================================
RCS file: /cvs/src/src/gdb/mi/mi-out.h,v
retrieving revision 1.5
diff -p -r1.5 mi-out.h
*** mi-out.h 2001/03/19 23:31:41 1.5
--- mi-out.h 2001/06/18 17:25:05
***************
*** 25,31 ****
struct ui_out;
struct ui_file;
! extern struct ui_out *mi_out_new (void);
extern void mi_out_put (struct ui_out *uiout, struct ui_file *stream);
extern void mi_out_rewind (struct ui_out *uiout);
extern void mi_out_buffered (struct ui_out *uiout, char *string);
--- 25,31 ----
struct ui_out;
struct ui_file;
! extern struct ui_out *mi_out_new (int mi_version);
extern void mi_out_put (struct ui_out *uiout, struct ui_file *stream);
extern void mi_out_rewind (struct ui_out *uiout);
extern void mi_out_buffered (struct ui_out *uiout, char *string);
Index: testsuite/gdb.mi/mi-basics.exp
===================================================================
RCS file: /cvs/src/src/gdb/testsuite/gdb.mi/mi-basics.exp,v
retrieving revision 1.3
diff -p -r1.3 mi-basics.exp
*** mi-basics.exp 2001/03/06 08:21:58 1.3
--- mi-basics.exp 2001/06/18 17:25:06
***************
*** 30,35 ****
--- 30,36 ----
#
load_lib mi-support.exp
+ set MIFLAGS "-i=mi"
gdb_exit
if [mi_gdb_start] {
Index: testsuite/gdb.mi/mi-break.exp
===================================================================
RCS file: /cvs/src/src/gdb/testsuite/gdb.mi/mi-break.exp,v
retrieving revision 1.2
diff -p -r1.2 mi-break.exp
*** mi-break.exp 2001/03/06 08:21:58 1.2
--- mi-break.exp 2001/06/18 17:25:06
***************
*** 29,34 ****
--- 29,35 ----
#
load_lib mi-support.exp
+ set MIFLAGS "-i=mi"
gdb_exit
if [mi_gdb_start] {
Index: testsuite/gdb.mi/mi-console.exp
===================================================================
RCS file: /cvs/src/src/gdb/testsuite/gdb.mi/mi-console.exp,v
retrieving revision 1.2
diff -p -r1.2 mi-console.exp
*** mi-console.exp 2001/03/19 18:20:04 1.2
--- mi-console.exp 2001/06/18 17:25:06
***************
*** 33,38 ****
--- 33,39 ----
# remote target.
load_lib mi-support.exp
+ set MIFLAGS "-i=mi"
gdb_exit
if [mi_gdb_start] {
Index: testsuite/gdb.mi/mi-disassemble.exp
===================================================================
RCS file: /cvs/src/src/gdb/testsuite/gdb.mi/mi-disassemble.exp,v
retrieving revision 1.4
diff -p -r1.4 mi-disassemble.exp
*** mi-disassemble.exp 2001/03/06 08:21:58 1.4
--- mi-disassemble.exp 2001/06/18 17:25:06
***************
*** 25,30 ****
--- 25,31 ----
#
load_lib mi-support.exp
+ set MIFLAGS "-i=mi"
gdb_exit
if [mi_gdb_start] {
Index: testsuite/gdb.mi/mi-eval.exp
===================================================================
RCS file: /cvs/src/src/gdb/testsuite/gdb.mi/mi-eval.exp,v
retrieving revision 1.2
diff -p -r1.2 mi-eval.exp
*** mi-eval.exp 2001/03/06 08:21:58 1.2
--- mi-eval.exp 2001/06/18 17:25:06
***************
*** 27,32 ****
--- 27,33 ----
#
load_lib mi-support.exp
+ set MIFLAGS "-i=mi"
gdb_exit
if [mi_gdb_start] {
Index: testsuite/gdb.mi/mi-hack-cli.exp
===================================================================
RCS file: /cvs/src/src/gdb/testsuite/gdb.mi/mi-hack-cli.exp,v
retrieving revision 1.2
diff -p -r1.2 mi-hack-cli.exp
*** mi-hack-cli.exp 2001/03/06 08:21:58 1.2
--- mi-hack-cli.exp 2001/06/18 17:25:06
***************
*** 21,26 ****
--- 21,27 ----
# Some basic checks for the CLI.
load_lib mi-support.exp
+ set MIFLAGS "-i=mi"
gdb_exit
if [mi_gdb_start] {
Index: testsuite/gdb.mi/mi-read-memory.exp
===================================================================
RCS file: /cvs/src/src/gdb/testsuite/gdb.mi/mi-read-memory.exp,v
retrieving revision 1.2
diff -p -r1.2 mi-read-memory.exp
*** mi-read-memory.exp 2001/03/06 08:21:58 1.2
--- mi-read-memory.exp 2001/06/18 17:25:06
***************
*** 30,35 ****
--- 30,36 ----
#
load_lib mi-support.exp
+ set MIFLAGS "-i=mi"
gdb_exit
if [mi_gdb_start] {
Index: testsuite/gdb.mi/mi-regs.exp
===================================================================
RCS file: /cvs/src/src/gdb/testsuite/gdb.mi/mi-regs.exp,v
retrieving revision 1.2
diff -p -r1.2 mi-regs.exp
*** mi-regs.exp 2001/03/06 08:21:58 1.2
--- mi-regs.exp 2001/06/18 17:25:06
***************
*** 27,32 ****
--- 27,33 ----
load_lib mi-support.exp
+ set MIFLAGS "-i=mi"
gdb_exit
if [mi_gdb_start] {
Index: testsuite/gdb.mi/mi-return.exp
===================================================================
RCS file: /cvs/src/src/gdb/testsuite/gdb.mi/mi-return.exp,v
retrieving revision 1.2
diff -p -r1.2 mi-return.exp
*** mi-return.exp 2001/03/06 08:21:58 1.2
--- mi-return.exp 2001/06/18 17:25:06
***************
*** 27,32 ****
--- 27,33 ----
#
load_lib mi-support.exp
+ set MIFLAGS "-i=mi"
gdb_exit
if [mi_gdb_start] {
Index: testsuite/gdb.mi/mi-simplerun.exp
===================================================================
RCS file: /cvs/src/src/gdb/testsuite/gdb.mi/mi-simplerun.exp,v
retrieving revision 1.2
diff -p -r1.2 mi-simplerun.exp
*** mi-simplerun.exp 2001/03/06 08:21:58 1.2
--- mi-simplerun.exp 2001/06/18 17:25:06
***************
*** 29,34 ****
--- 29,35 ----
#
load_lib mi-support.exp
+ set MIFLAGS "-i=mi"
gdb_exit
if [mi_gdb_start] {
Index: testsuite/gdb.mi/mi-stack.exp
===================================================================
RCS file: /cvs/src/src/gdb/testsuite/gdb.mi/mi-stack.exp,v
retrieving revision 1.2
diff -p -r1.2 mi-stack.exp
*** mi-stack.exp 2001/03/06 08:21:58 1.2
--- mi-stack.exp 2001/06/18 17:25:06
***************
*** 27,32 ****
--- 27,33 ----
#
load_lib mi-support.exp
+ set MIFLAGS "-i=mi"
gdb_exit
if [mi_gdb_start] {
Index: testsuite/gdb.mi/mi-stepi.exp
===================================================================
RCS file: /cvs/src/src/gdb/testsuite/gdb.mi/mi-stepi.exp,v
retrieving revision 1.2
diff -p -r1.2 mi-stepi.exp
*** mi-stepi.exp 2001/03/06 08:21:58 1.2
--- mi-stepi.exp 2001/06/18 17:25:06
***************
*** 27,32 ****
--- 27,33 ----
#
load_lib mi-support.exp
+ set MIFLAGS "-i=mi"
gdb_exit
if [mi_gdb_start] {
Index: testsuite/gdb.mi/mi-until.exp
===================================================================
RCS file: /cvs/src/src/gdb/testsuite/gdb.mi/mi-until.exp,v
retrieving revision 1.2
diff -p -r1.2 mi-until.exp
*** mi-until.exp 2001/03/06 08:21:58 1.2
--- mi-until.exp 2001/06/18 17:25:06
***************
*** 27,32 ****
--- 27,33 ----
#
load_lib mi-support.exp
+ set MIFLAGS "-i=mi"
gdb_exit
if [mi_gdb_start] {
Index: testsuite/gdb.mi/mi-var-block.exp
===================================================================
RCS file: /cvs/src/src/gdb/testsuite/gdb.mi/mi-var-block.exp,v
retrieving revision 1.2
diff -p -r1.2 mi-var-block.exp
*** mi-var-block.exp 2000/03/13 21:51:46 1.2
--- mi-var-block.exp 2001/06/18 17:25:06
***************
*** 24,29 ****
--- 24,30 ----
load_lib mi-support.exp
+ set MIFLAGS "-i=mi"
gdb_exit
if [mi_gdb_start] {
Index: testsuite/gdb.mi/mi-var-child.exp
===================================================================
RCS file: /cvs/src/src/gdb/testsuite/gdb.mi/mi-var-child.exp,v
retrieving revision 1.3
diff -p -r1.3 mi-var-child.exp
*** mi-var-child.exp 2001/05/11 07:00:04 1.3
--- mi-var-child.exp 2001/06/18 17:25:06
***************
*** 24,29 ****
--- 24,30 ----
load_lib mi-support.exp
+ set MIFLAGS "-i=mi"
gdb_exit
if [mi_gdb_start] {
Index: testsuite/gdb.mi/mi-var-cmd.exp
===================================================================
RCS file: /cvs/src/src/gdb/testsuite/gdb.mi/mi-var-cmd.exp,v
retrieving revision 1.2
diff -p -r1.2 mi-var-cmd.exp
*** mi-var-cmd.exp 2000/03/13 21:51:46 1.2
--- mi-var-cmd.exp 2001/06/18 17:25:06
***************
*** 24,29 ****
--- 24,30 ----
load_lib mi-support.exp
+ set MIFLAGS "-i=mi"
gdb_exit
if [mi_gdb_start] {
Index: testsuite/gdb.mi/mi-var-display.exp
===================================================================
RCS file: /cvs/src/src/gdb/testsuite/gdb.mi/mi-var-display.exp,v
retrieving revision 1.1
diff -p -r1.1 mi-var-display.exp
*** mi-var-display.exp 2000/02/23 00:25:43 1.1
--- mi-var-display.exp 2001/06/18 17:25:07
***************
*** 24,29 ****
--- 24,30 ----
load_lib mi-support.exp
+ set MIFLAGS "-i=mi"
gdb_exit
if [mi_gdb_start] {
Index: testsuite/gdb.mi/mi-watch.exp
===================================================================
RCS file: /cvs/src/src/gdb/testsuite/gdb.mi/mi-watch.exp,v
retrieving revision 1.3
diff -p -r1.3 mi-watch.exp
*** mi-watch.exp 2001/03/06 08:21:58 1.3
--- mi-watch.exp 2001/06/18 17:25:07
***************
*** 29,34 ****
--- 29,35 ----
#
load_lib mi-support.exp
+ set MIFLAGS "-i=mi"
gdb_exit
if [mi_gdb_start] {
Index: testsuite/gdb.mi/mi0-basics.exp
===================================================================
RCS file: /cvs/src/src/gdb/testsuite/gdb.mi/mi0-basics.exp,v
retrieving revision 1.1
diff -p -r1.1 mi0-basics.exp
*** mi0-basics.exp 2001/06/18 12:55:06 1.1
--- mi0-basics.exp 2001/06/18 17:25:07
***************
*** 30,35 ****
--- 30,36 ----
#
load_lib mi-support.exp
+ set MIFLAGS "-i=mi0"
gdb_exit
if [mi_gdb_start] {
Index: testsuite/gdb.mi/mi0-break.exp
===================================================================
RCS file: /cvs/src/src/gdb/testsuite/gdb.mi/mi0-break.exp,v
retrieving revision 1.1
diff -p -r1.1 mi0-break.exp
*** mi0-break.exp 2001/06/18 12:55:06 1.1
--- mi0-break.exp 2001/06/18 17:25:07
***************
*** 29,34 ****
--- 29,35 ----
#
load_lib mi-support.exp
+ set MIFLAGS "-i=mi0"
gdb_exit
if [mi_gdb_start] {
Index: testsuite/gdb.mi/mi0-console.exp
===================================================================
RCS file: /cvs/src/src/gdb/testsuite/gdb.mi/mi0-console.exp,v
retrieving revision 1.1
diff -p -r1.1 mi0-console.exp
*** mi0-console.exp 2001/06/18 12:55:06 1.1
--- mi0-console.exp 2001/06/18 17:25:07
***************
*** 33,38 ****
--- 33,39 ----
# remote target.
load_lib mi-support.exp
+ set MIFLAGS "-i=mi0"
gdb_exit
if [mi_gdb_start] {
Index: testsuite/gdb.mi/mi0-disassemble.exp
===================================================================
RCS file: /cvs/src/src/gdb/testsuite/gdb.mi/mi0-disassemble.exp,v
retrieving revision 1.1
diff -p -r1.1 mi0-disassemble.exp
*** mi0-disassemble.exp 2001/06/18 12:55:06 1.1
--- mi0-disassemble.exp 2001/06/18 17:25:07
***************
*** 25,30 ****
--- 25,31 ----
#
load_lib mi-support.exp
+ set MIFLAGS "-i=mi0"
gdb_exit
if [mi_gdb_start] {
Index: testsuite/gdb.mi/mi0-eval.exp
===================================================================
RCS file: /cvs/src/src/gdb/testsuite/gdb.mi/mi0-eval.exp,v
retrieving revision 1.1
diff -p -r1.1 mi0-eval.exp
*** mi0-eval.exp 2001/06/18 12:55:06 1.1
--- mi0-eval.exp 2001/06/18 17:25:07
***************
*** 27,32 ****
--- 27,33 ----
#
load_lib mi-support.exp
+ set MIFLAGS "-i=mi0"
gdb_exit
if [mi_gdb_start] {
Index: testsuite/gdb.mi/mi0-hack-cli.exp
===================================================================
RCS file: /cvs/src/src/gdb/testsuite/gdb.mi/mi0-hack-cli.exp,v
retrieving revision 1.1
diff -p -r1.1 mi0-hack-cli.exp
*** mi0-hack-cli.exp 2001/06/18 12:55:06 1.1
--- mi0-hack-cli.exp 2001/06/18 17:25:07
***************
*** 21,26 ****
--- 21,27 ----
# Some basic checks for the CLI.
load_lib mi-support.exp
+ set MIFLAGS "-i=mi0"
gdb_exit
if [mi_gdb_start] {
Index: testsuite/gdb.mi/mi0-read-memory.exp
===================================================================
RCS file: /cvs/src/src/gdb/testsuite/gdb.mi/mi0-read-memory.exp,v
retrieving revision 1.1
diff -p -r1.1 mi0-read-memory.exp
*** mi0-read-memory.exp 2001/06/18 12:55:06 1.1
--- mi0-read-memory.exp 2001/06/18 17:25:07
***************
*** 30,35 ****
--- 30,36 ----
#
load_lib mi-support.exp
+ set MIFLAGS "-i=mi0"
gdb_exit
if [mi_gdb_start] {
Index: testsuite/gdb.mi/mi0-regs.exp
===================================================================
RCS file: /cvs/src/src/gdb/testsuite/gdb.mi/mi0-regs.exp,v
retrieving revision 1.1
diff -p -r1.1 mi0-regs.exp
*** mi0-regs.exp 2001/06/18 12:55:06 1.1
--- mi0-regs.exp 2001/06/18 17:25:07
***************
*** 27,32 ****
--- 27,33 ----
load_lib mi-support.exp
+ set MIFLAGS "-i=mi0"
gdb_exit
if [mi_gdb_start] {
Index: testsuite/gdb.mi/mi0-return.exp
===================================================================
RCS file: /cvs/src/src/gdb/testsuite/gdb.mi/mi0-return.exp,v
retrieving revision 1.1
diff -p -r1.1 mi0-return.exp
*** mi0-return.exp 2001/06/18 12:55:06 1.1
--- mi0-return.exp 2001/06/18 17:25:07
***************
*** 27,32 ****
--- 27,33 ----
#
load_lib mi-support.exp
+ set MIFLAGS "-i=mi0"
gdb_exit
if [mi_gdb_start] {
Index: testsuite/gdb.mi/mi0-simplerun.exp
===================================================================
RCS file: /cvs/src/src/gdb/testsuite/gdb.mi/mi0-simplerun.exp,v
retrieving revision 1.1
diff -p -r1.1 mi0-simplerun.exp
*** mi0-simplerun.exp 2001/06/18 12:55:06 1.1
--- mi0-simplerun.exp 2001/06/18 17:25:07
***************
*** 29,34 ****
--- 29,35 ----
#
load_lib mi-support.exp
+ set MIFLAGS "-i=mi0"
gdb_exit
if [mi_gdb_start] {
Index: testsuite/gdb.mi/mi0-stack.exp
===================================================================
RCS file: /cvs/src/src/gdb/testsuite/gdb.mi/mi0-stack.exp,v
retrieving revision 1.1
diff -p -r1.1 mi0-stack.exp
*** mi0-stack.exp 2001/06/18 12:55:06 1.1
--- mi0-stack.exp 2001/06/18 17:25:07
***************
*** 27,32 ****
--- 27,33 ----
#
load_lib mi-support.exp
+ set MIFLAGS "-i=mi0"
gdb_exit
if [mi_gdb_start] {
Index: testsuite/gdb.mi/mi0-stepi.exp
===================================================================
RCS file: /cvs/src/src/gdb/testsuite/gdb.mi/mi0-stepi.exp,v
retrieving revision 1.1
diff -p -r1.1 mi0-stepi.exp
*** mi0-stepi.exp 2001/06/18 12:55:06 1.1
--- mi0-stepi.exp 2001/06/18 17:25:07
***************
*** 27,32 ****
--- 27,33 ----
#
load_lib mi-support.exp
+ set MIFLAGS "-i=mi0"
gdb_exit
if [mi_gdb_start] {
Index: testsuite/gdb.mi/mi0-until.exp
===================================================================
RCS file: /cvs/src/src/gdb/testsuite/gdb.mi/mi0-until.exp,v
retrieving revision 1.1
diff -p -r1.1 mi0-until.exp
*** mi0-until.exp 2001/06/18 12:55:06 1.1
--- mi0-until.exp 2001/06/18 17:25:07
***************
*** 27,32 ****
--- 27,33 ----
#
load_lib mi-support.exp
+ set MIFLAGS "-i=mi0"
gdb_exit
if [mi_gdb_start] {
Index: testsuite/gdb.mi/mi0-var-block.exp
===================================================================
RCS file: /cvs/src/src/gdb/testsuite/gdb.mi/mi0-var-block.exp,v
retrieving revision 1.1
diff -p -r1.1 mi0-var-block.exp
*** mi0-var-block.exp 2001/06/18 12:55:06 1.1
--- mi0-var-block.exp 2001/06/18 17:25:08
***************
*** 24,29 ****
--- 24,30 ----
load_lib mi-support.exp
+ set MIFLAGS "-i=mi0"
gdb_exit
if [mi_gdb_start] {
Index: testsuite/gdb.mi/mi0-var-child.exp
===================================================================
RCS file: /cvs/src/src/gdb/testsuite/gdb.mi/mi0-var-child.exp,v
retrieving revision 1.1
diff -p -r1.1 mi0-var-child.exp
*** mi0-var-child.exp 2001/06/18 12:55:06 1.1
--- mi0-var-child.exp 2001/06/18 17:25:08
***************
*** 24,29 ****
--- 24,30 ----
load_lib mi-support.exp
+ set MIFLAGS "-i=mi0"
gdb_exit
if [mi_gdb_start] {
Index: testsuite/gdb.mi/mi0-var-cmd.exp
===================================================================
RCS file: /cvs/src/src/gdb/testsuite/gdb.mi/mi0-var-cmd.exp,v
retrieving revision 1.1
diff -p -r1.1 mi0-var-cmd.exp
*** mi0-var-cmd.exp 2001/06/18 12:55:07 1.1
--- mi0-var-cmd.exp 2001/06/18 17:25:09
***************
*** 24,29 ****
--- 24,30 ----
load_lib mi-support.exp
+ set MIFLAGS "-i=mi0"
gdb_exit
if [mi_gdb_start] {
Index: testsuite/gdb.mi/mi0-var-display.exp
===================================================================
RCS file: /cvs/src/src/gdb/testsuite/gdb.mi/mi0-var-display.exp,v
retrieving revision 1.1
diff -p -r1.1 mi0-var-display.exp
*** mi0-var-display.exp 2001/06/18 12:55:07 1.1
--- mi0-var-display.exp 2001/06/18 17:25:09
***************
*** 24,29 ****
--- 24,30 ----
load_lib mi-support.exp
+ set MIFLAGS "-i=mi0"
gdb_exit
if [mi_gdb_start] {
Index: testsuite/gdb.mi/mi0-watch.exp
===================================================================
RCS file: /cvs/src/src/gdb/testsuite/gdb.mi/mi0-watch.exp,v
retrieving revision 1.1
diff -p -r1.1 mi0-watch.exp
*** mi0-watch.exp 2001/06/18 12:55:07 1.1
--- mi0-watch.exp 2001/06/18 17:25:09
***************
*** 29,34 ****
--- 29,35 ----
#
load_lib mi-support.exp
+ set MIFLAGS "-i=mi0"
gdb_exit
if [mi_gdb_start] {