This is the mail archive of the gdb-patches@sources.redhat.com mailing list for the GDB project.


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]

[patch] Add -i=mi0 as an interpreter


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] {

Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]