[deliverable/binutils-gdb.git] / gdb / mi / mi-cmd-stack.c

/* MI Command Set - stack commands.
   Copyright (C) 2000, 2002, 2003, 2004, 2005 Free Software Foundation, Inc.
   Contributed by Cygnus Solutions (a Red Hat company).

   This file is part of GDB.

   This program is free software; you can redistribute it and/or modify
   it under the terms of the GNU General Public License as published by
   the Free Software Foundation; either version 2 of the License, or
   (at your option) any later version.

   This program is distributed in the hope that it will be useful,
   but WITHOUT ANY WARRANTY; without even the implied warranty of
   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
   GNU General Public License for more details.

   You should have received a copy of the GNU General Public License
   along with this program; if not, write to the Free Software
   Foundation, Inc., 51 Franklin Street, Fifth Floor,
   Boston, MA 02110-1301, USA.  */

#include "defs.h"
#include "target.h"
#include "frame.h"
#include "value.h"
#include "mi-cmds.h"
#include "ui-out.h"
#include "symtab.h"
#include "block.h"
#include "stack.h"
#include "dictionary.h"
#include "gdb_string.h"

static void list_args_or_locals (int locals, int values, struct frame_info *fi);

/* Print a list of the stack frames. Args can be none, in which case
   we want to print the whole backtrace, or a pair of numbers
   specifying the frame numbers at which to start and stop the
   display. If the two numbers are equal, a single frame will be
   displayed. */
enum mi_cmd_result
mi_cmd_stack_list_frames (char *command, char **argv, int argc)
{
  int frame_low;
  int frame_high;
  int i;
  struct cleanup *cleanup_stack;
  struct frame_info *fi;

  if (argc > 2 || argc == 1)
    error (_("mi_cmd_stack_list_frames: Usage: [FRAME_LOW FRAME_HIGH]"));

  if (argc == 2)
    {
      frame_low = atoi (argv[0]);
      frame_high = atoi (argv[1]);
    }
  else
    {
      /* Called with no arguments, it means we want the whole
         backtrace. */
      frame_low = -1;
      frame_high = -1;
    }

  /* Let's position fi on the frame at which to start the
     display. Could be the innermost frame if the whole stack needs
     displaying, or if frame_low is 0. */
  for (i = 0, fi = get_current_frame ();
       fi && i < frame_low;
       i++, fi = get_prev_frame (fi));

  if (fi == NULL)
    error (_("mi_cmd_stack_list_frames: Not enough frames in stack."));

  cleanup_stack = make_cleanup_ui_out_list_begin_end (uiout, "stack");

  /* Now let;s print the frames up to frame_high, or until there are
     frames in the stack. */
  for (;
       fi && (i <= frame_high || frame_high == -1);
       i++, fi = get_prev_frame (fi))
    {
      QUIT;
      /* Print the location and the address always, even for level 0.
         args == 0: don't print the arguments. */
      print_frame_info (fi, 1, LOC_AND_ADDRESS, 0 /* args */ );
    }

  do_cleanups (cleanup_stack);
  if (i < frame_high)
    error (_("mi_cmd_stack_list_frames: Not enough frames in stack."));

  return MI_CMD_DONE;
}

enum mi_cmd_result
mi_cmd_stack_info_depth (char *command, char **argv, int argc)
{
  int frame_high;
  int i;
  struct frame_info *fi;

  if (argc > 1)
    error (_("mi_cmd_stack_info_depth: Usage: [MAX_DEPTH]"));

  if (argc == 1)
    frame_high = atoi (argv[0]);
  else
    /* Called with no arguments, it means we want the real depth of
       the stack. */
    frame_high = -1;

  for (i = 0, fi = get_current_frame ();
       fi && (i < frame_high || frame_high == -1);
       i++, fi = get_prev_frame (fi))
    QUIT;

  ui_out_field_int (uiout, "depth", i);

  return MI_CMD_DONE;
}

/* Print a list of the locals for the current frame. With argument of
   0, print only the names, with argument of 1 print also the
   values. */
enum mi_cmd_result
mi_cmd_stack_list_locals (char *command, char **argv, int argc)
{
  struct frame_info *frame;
  enum print_values print_values;

  if (argc != 1)
    error (_("mi_cmd_stack_list_locals: Usage: PRINT_VALUES"));

   frame = get_selected_frame (NULL);

   if (strcmp (argv[0], "0") == 0
       || strcmp (argv[0], mi_no_values) == 0)
     print_values = PRINT_NO_VALUES;
   else if (strcmp (argv[0], "1") == 0
	    || strcmp (argv[0], mi_all_values) == 0)
     print_values = PRINT_ALL_VALUES;
   else if (strcmp (argv[0], "2") == 0
	    || strcmp (argv[0], mi_simple_values) == 0)
     print_values = PRINT_SIMPLE_VALUES;
   else
     error (_("Unknown value for PRINT_VALUES: must be: \
0 or \"%s\", 1 or \"%s\", 2 or \"%s\""),
	    mi_no_values, mi_all_values, mi_simple_values);
  list_args_or_locals (1, print_values, frame);
  return MI_CMD_DONE;
}

/* Print a list of the arguments for the current frame. With argument
   of 0, print only the names, with argument of 1 print also the
   values. */
enum mi_cmd_result
mi_cmd_stack_list_args (char *command, char **argv, int argc)
{
  int frame_low;
  int frame_high;
  int i;
  struct frame_info *fi;
  struct cleanup *cleanup_stack_args;

  if (argc < 1 || argc > 3 || argc == 2)
    error (_("mi_cmd_stack_list_args: Usage: PRINT_VALUES [FRAME_LOW FRAME_HIGH]"));

  if (argc == 3)
    {
      frame_low = atoi (argv[1]);
      frame_high = atoi (argv[2]);
    }
  else
    {
      /* Called with no arguments, it means we want args for the whole
         backtrace. */
      frame_low = -1;
      frame_high = -1;
    }

  /* Let's position fi on the frame at which to start the
     display. Could be the innermost frame if the whole stack needs
     displaying, or if frame_low is 0. */
  for (i = 0, fi = get_current_frame ();
       fi && i < frame_low;
       i++, fi = get_prev_frame (fi));

  if (fi == NULL)
    error (_("mi_cmd_stack_list_args: Not enough frames in stack."));

  cleanup_stack_args = make_cleanup_ui_out_list_begin_end (uiout, "stack-args");

  /* Now let's print the frames up to frame_high, or until there are
     frames in the stack. */
  for (;
       fi && (i <= frame_high || frame_high == -1);
       i++, fi = get_prev_frame (fi))
    {
      struct cleanup *cleanup_frame;
      QUIT;
      cleanup_frame = make_cleanup_ui_out_tuple_begin_end (uiout, "frame");
      ui_out_field_int (uiout, "level", i);
      list_args_or_locals (0, atoi (argv[0]), fi);
      do_cleanups (cleanup_frame);
    }

  do_cleanups (cleanup_stack_args);
  if (i < frame_high)
    error (_("mi_cmd_stack_list_args: Not enough frames in stack."));

  return MI_CMD_DONE;
}

/* Print a list of the locals or the arguments for the currently
   selected frame.  If the argument passed is 0, printonly the names
   of the variables, if an argument of 1 is passed, print the values
   as well. */
static void
list_args_or_locals (int locals, int values, struct frame_info *fi)
{
  struct block *block;
  struct symbol *sym;
  struct dict_iterator iter;
  int nsyms;
  struct cleanup *cleanup_list;
  static struct ui_stream *stb = NULL;
  struct type *type;

  stb = ui_out_stream_new (uiout);

  block = get_frame_block (fi, 0);

  cleanup_list = make_cleanup_ui_out_list_begin_end (uiout, locals ? "locals" : "args");

  while (block != 0)
    {
      ALL_BLOCK_SYMBOLS (block, iter, sym)
	{
          int print_me = 0;

	  switch (SYMBOL_CLASS (sym))
	    {
	    default:
	    case LOC_UNDEF:	/* catches errors        */
	    case LOC_CONST:	/* constant              */
	    case LOC_TYPEDEF:	/* local typedef         */
	    case LOC_LABEL:	/* local label           */
	    case LOC_BLOCK:	/* local function        */
	    case LOC_CONST_BYTES:	/* loc. byte seq.        */
	    case LOC_UNRESOLVED:	/* unresolved static     */
	    case LOC_OPTIMIZED_OUT:	/* optimized out         */
	      print_me = 0;
	      break;

	    case LOC_ARG:	/* argument              */
	    case LOC_REF_ARG:	/* reference arg         */
	    case LOC_REGPARM:	/* register arg          */
	    case LOC_REGPARM_ADDR:	/* indirect register arg */
	    case LOC_LOCAL_ARG:	/* stack arg             */
	    case LOC_BASEREG_ARG:	/* basereg arg           */
	    case LOC_COMPUTED_ARG:	/* arg with computed location */
	      if (!locals)
		print_me = 1;
	      break;

	    case LOC_LOCAL:	/* stack local           */
	    case LOC_BASEREG:	/* basereg local         */
	    case LOC_STATIC:	/* static                */
	    case LOC_REGISTER:	/* register              */
	    case LOC_COMPUTED:	/* computed location     */
	      if (locals)
		print_me = 1;
	      break;
	    }
	  if (print_me)
	    {
	      struct cleanup *cleanup_tuple = NULL;
	      struct symbol *sym2;
	      if (values != PRINT_NO_VALUES)
		cleanup_tuple =
		  make_cleanup_ui_out_tuple_begin_end (uiout, NULL);
	      ui_out_field_string (uiout, "name", SYMBOL_PRINT_NAME (sym));

	      if (!locals)
		sym2 = lookup_symbol (SYMBOL_NATURAL_NAME (sym),
				      block, VAR_DOMAIN,
				      (int *) NULL,
				      (struct symtab **) NULL);
	      else
		    sym2 = sym;
	      switch (values)
		{
		case PRINT_SIMPLE_VALUES:
		  type = check_typedef (sym2->type);
		  type_print (sym2->type, "", stb->stream, -1);
		  ui_out_field_stream (uiout, "type", stb);
		  if (TYPE_CODE (type) != TYPE_CODE_ARRAY
		      && TYPE_CODE (type) != TYPE_CODE_STRUCT
		      && TYPE_CODE (type) != TYPE_CODE_UNION)
		    {
		      print_variable_value (sym2, fi, stb->stream);
		      ui_out_field_stream (uiout, "value", stb);
		    }
		  do_cleanups (cleanup_tuple);
		  break;
		case PRINT_ALL_VALUES:
		  print_variable_value (sym2, fi, stb->stream);
		  ui_out_field_stream (uiout, "value", stb);
		  do_cleanups (cleanup_tuple);
		  break;
		}
	    }
	}
      if (BLOCK_FUNCTION (block))
	break;
      else
	block = BLOCK_SUPERBLOCK (block);
    }
  do_cleanups (cleanup_list);
  ui_out_stream_delete (stb);
}

enum mi_cmd_result
mi_cmd_stack_select_frame (char *command, char **argv, int argc)
{
  if (argc == 0 || argc > 1)
    error (_("mi_cmd_stack_select_frame: Usage: FRAME_SPEC"));

  select_frame_command (argv[0], 1 /* not used */ );
  return MI_CMD_DONE;
}

enum mi_cmd_result
mi_cmd_stack_info_frame (char *command, char **argv, int argc)
{
  if (argc > 0)
    error (_("mi_cmd_stack_info_frame: No arguments required"));
  
  print_frame_info (get_selected_frame (NULL), 1, LOC_AND_ADDRESS, 0);
  return MI_CMD_DONE;
}
Commit	Line	Data
fb40c209	1	/* MI Command Set - stack commands.
1caae165	2	Copyright (C) 2000, 2002, 2003, 2004, 2005 Free Software Foundation, Inc.
ab91fdd5	3	Contributed by Cygnus Solutions (a Red Hat company).
fb40c209 AC	4
	5	This file is part of GDB.
	6
	7	This program is free software; you can redistribute it and/or modify
	8	it under the terms of the GNU General Public License as published by
	9	the Free Software Foundation; either version 2 of the License, or
	10	(at your option) any later version.
	11
	12	This program is distributed in the hope that it will be useful,
	13	but WITHOUT ANY WARRANTY; without even the implied warranty of
	14	MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
	15	GNU General Public License for more details.
	16
	17	You should have received a copy of the GNU General Public License
	18	along with this program; if not, write to the Free Software
1caae165 EZ	19	Foundation, Inc., 51 Franklin Street, Fifth Floor,
1caae165 EZ	20	Boston, MA 02110-1301, USA. */
fb40c209 AC	21
	22	#include "defs.h"
	23	#include "target.h"
	24	#include "frame.h"
	25	#include "value.h"
	26	#include "mi-cmds.h"
	27	#include "ui-out.h"
e88c90f2	28	#include "symtab.h"
fe898f56	29	#include "block.h"
b9362cc7	30	#include "stack.h"
de4f826b	31	#include "dictionary.h"
f5ec2042	32	#include "gdb_string.h"
fb40c209 AC	33
	34	static void list_args_or_locals (int locals, int values, struct frame_info *fi);
	35
	36	/* Print a list of the stack frames. Args can be none, in which case
	37	we want to print the whole backtrace, or a pair of numbers
	38	specifying the frame numbers at which to start and stop the
	39	display. If the two numbers are equal, a single frame will be
	40	displayed. */
	41	enum mi_cmd_result
	42	mi_cmd_stack_list_frames (char command, char *argv, int argc)
	43	{
	44	int frame_low;
	45	int frame_high;
	46	int i;
6ad4a2cf	47	struct cleanup *cleanup_stack;
fb40c209 AC	48	struct frame_info *fi;
fb40c209 AC	49
fb40c209	50	if (argc > 2 \|\| argc == 1)
8a3fe4f8	51	error (_("mi_cmd_stack_list_frames: Usage: [FRAME_LOW FRAME_HIGH]"));
fb40c209 AC	52
	53	if (argc == 2)
	54	{
	55	frame_low = atoi (argv[0]);
	56	frame_high = atoi (argv[1]);
	57	}
	58	else
	59	{
	60	/* Called with no arguments, it means we want the whole
	61	backtrace. */
	62	frame_low = -1;
	63	frame_high = -1;
	64	}
	65
	66	/* Let's position fi on the frame at which to start the
	67	display. Could be the innermost frame if the whole stack needs
	68	displaying, or if frame_low is 0. */
	69	for (i = 0, fi = get_current_frame ();
	70	fi && i < frame_low;
	71	i++, fi = get_prev_frame (fi));
	72
	73	if (fi == NULL)
8a3fe4f8	74	error (_("mi_cmd_stack_list_frames: Not enough frames in stack."));
fb40c209	75
6ad4a2cf	76	cleanup_stack = make_cleanup_ui_out_list_begin_end (uiout, "stack");
fb40c209 AC	77
	78	/* Now let;s print the frames up to frame_high, or until there are
	79	frames in the stack. */
	80	for (;
	81	fi && (i <= frame_high \|\| frame_high == -1);
	82	i++, fi = get_prev_frame (fi))
	83	{
	84	QUIT;
0faf0076	85	/* Print the location and the address always, even for level 0.
fb40c209	86	args == 0: don't print the arguments. */
0faf0076	87	print_frame_info (fi, 1, LOC_AND_ADDRESS, 0 /* args */ );
fb40c209 AC	88	}
fb40c209 AC	89
6ad4a2cf	90	do_cleanups (cleanup_stack);
fb40c209	91	if (i < frame_high)
8a3fe4f8	92	error (_("mi_cmd_stack_list_frames: Not enough frames in stack."));
fb40c209 AC	93
	94	return MI_CMD_DONE;
	95	}
	96
	97	enum mi_cmd_result
	98	mi_cmd_stack_info_depth (char command, char *argv, int argc)
	99	{
	100	int frame_high;
	101	int i;
	102	struct frame_info *fi;
	103
fb40c209	104	if (argc > 1)
8a3fe4f8	105	error (_("mi_cmd_stack_info_depth: Usage: [MAX_DEPTH]"));
fb40c209 AC	106
	107	if (argc == 1)
	108	frame_high = atoi (argv[0]);
	109	else
	110	/* Called with no arguments, it means we want the real depth of
	111	the stack. */
	112	frame_high = -1;
	113
	114	for (i = 0, fi = get_current_frame ();
	115	fi && (i < frame_high \|\| frame_high == -1);
	116	i++, fi = get_prev_frame (fi))
	117	QUIT;
	118
	119	ui_out_field_int (uiout, "depth", i);
	120
	121	return MI_CMD_DONE;
	122	}
	123
	124	/* Print a list of the locals for the current frame. With argument of
	125	0, print only the names, with argument of 1 print also the
	126	values. */
	127	enum mi_cmd_result
	128	mi_cmd_stack_list_locals (char command, char *argv, int argc)
	129	{
f5ec2042 NR	130	struct frame_info *frame;
	131	enum print_values print_values;
	132
fb40c209	133	if (argc != 1)
8a3fe4f8	134	error (_("mi_cmd_stack_list_locals: Usage: PRINT_VALUES"));
fb40c209	135
b04f3ab4	136	frame = get_selected_frame (NULL);
f5ec2042 NR	137
f5ec2042 NR	138	if (strcmp (argv[0], "0") == 0
1ecb4ee0	139	\|\| strcmp (argv[0], mi_no_values) == 0)
f5ec2042 NR	140	print_values = PRINT_NO_VALUES;
f5ec2042 NR	141	else if (strcmp (argv[0], "1") == 0
1ecb4ee0	142	\|\| strcmp (argv[0], mi_all_values) == 0)
f5ec2042 NR	143	print_values = PRINT_ALL_VALUES;
f5ec2042 NR	144	else if (strcmp (argv[0], "2") == 0
1ecb4ee0	145	\|\| strcmp (argv[0], mi_simple_values) == 0)
f5ec2042 NR	146	print_values = PRINT_SIMPLE_VALUES;
f5ec2042 NR	147	else
1ecb4ee0 DJ	148	error (_("Unknown value for PRINT_VALUES: must be: \
	149	0 or \"%s\", 1 or \"%s\", 2 or \"%s\""),
	150	mi_no_values, mi_all_values, mi_simple_values);
f5ec2042	151	list_args_or_locals (1, print_values, frame);
fb40c209 AC	152	return MI_CMD_DONE;
	153	}
	154
	155	/* Print a list of the arguments for the current frame. With argument
	156	of 0, print only the names, with argument of 1 print also the
	157	values. */
	158	enum mi_cmd_result
	159	mi_cmd_stack_list_args (char command, char *argv, int argc)
	160	{
	161	int frame_low;
	162	int frame_high;
	163	int i;
	164	struct frame_info *fi;
6ad4a2cf	165	struct cleanup *cleanup_stack_args;
fb40c209 AC	166
fb40c209 AC	167	if (argc < 1 \|\| argc > 3 \|\| argc == 2)
8a3fe4f8	168	error (_("mi_cmd_stack_list_args: Usage: PRINT_VALUES [FRAME_LOW FRAME_HIGH]"));
fb40c209 AC	169
	170	if (argc == 3)
	171	{
	172	frame_low = atoi (argv[1]);
	173	frame_high = atoi (argv[2]);
	174	}
	175	else
	176	{
	177	/* Called with no arguments, it means we want args for the whole
	178	backtrace. */
	179	frame_low = -1;
	180	frame_high = -1;
	181	}
	182
	183	/* Let's position fi on the frame at which to start the
	184	display. Could be the innermost frame if the whole stack needs
	185	displaying, or if frame_low is 0. */
	186	for (i = 0, fi = get_current_frame ();
	187	fi && i < frame_low;
	188	i++, fi = get_prev_frame (fi));
	189
	190	if (fi == NULL)
8a3fe4f8	191	error (_("mi_cmd_stack_list_args: Not enough frames in stack."));
fb40c209	192
6ad4a2cf	193	cleanup_stack_args = make_cleanup_ui_out_list_begin_end (uiout, "stack-args");
fb40c209 AC	194
	195	/* Now let's print the frames up to frame_high, or until there are
	196	frames in the stack. */
	197	for (;
	198	fi && (i <= frame_high \|\| frame_high == -1);
	199	i++, fi = get_prev_frame (fi))
	200	{
6ad4a2cf	201	struct cleanup *cleanup_frame;
fb40c209	202	QUIT;
6ad4a2cf	203	cleanup_frame = make_cleanup_ui_out_tuple_begin_end (uiout, "frame");
fb40c209 AC	204	ui_out_field_int (uiout, "level", i);
fb40c209 AC	205	list_args_or_locals (0, atoi (argv[0]), fi);
6ad4a2cf	206	do_cleanups (cleanup_frame);
fb40c209 AC	207	}
fb40c209 AC	208
6ad4a2cf	209	do_cleanups (cleanup_stack_args);
fb40c209	210	if (i < frame_high)
8a3fe4f8	211	error (_("mi_cmd_stack_list_args: Not enough frames in stack."));
fb40c209 AC	212
	213	return MI_CMD_DONE;
	214	}
	215
	216	/* Print a list of the locals or the arguments for the currently
	217	selected frame. If the argument passed is 0, printonly the names
	218	of the variables, if an argument of 1 is passed, print the values
	219	as well. */
	220	static void
	221	list_args_or_locals (int locals, int values, struct frame_info *fi)
	222	{
	223	struct block *block;
	224	struct symbol *sym;
de4f826b DC	225	struct dict_iterator iter;
de4f826b DC	226	int nsyms;
6ad4a2cf	227	struct cleanup *cleanup_list;
fb40c209	228	static struct ui_stream *stb = NULL;
f5ec2042	229	struct type *type;
fb40c209 AC	230
	231	stb = ui_out_stream_new (uiout);
	232
ae767bfb	233	block = get_frame_block (fi, 0);
fb40c209	234
6ad4a2cf	235	cleanup_list = make_cleanup_ui_out_list_begin_end (uiout, locals ? "locals" : "args");
fb40c209 AC	236
	237	while (block != 0)
	238	{
de4f826b	239	ALL_BLOCK_SYMBOLS (block, iter, sym)
fb40c209	240	{
39bf4652 JB	241	int print_me = 0;
39bf4652 JB	242
fb40c209 AC	243	switch (SYMBOL_CLASS (sym))
	244	{
	245	default:
	246	case LOC_UNDEF: /* catches errors */
	247	case LOC_CONST: /* constant */
	248	case LOC_TYPEDEF: /* local typedef */
	249	case LOC_LABEL: /* local label */
	250	case LOC_BLOCK: /* local function */
	251	case LOC_CONST_BYTES: /* loc. byte seq. */
	252	case LOC_UNRESOLVED: /* unresolved static */
	253	case LOC_OPTIMIZED_OUT: /* optimized out */
	254	print_me = 0;
	255	break;
	256
	257	case LOC_ARG: /* argument */
	258	case LOC_REF_ARG: /* reference arg */
	259	case LOC_REGPARM: /* register arg */
	260	case LOC_REGPARM_ADDR: /* indirect register arg */
	261	case LOC_LOCAL_ARG: /* stack arg */
	262	case LOC_BASEREG_ARG: /* basereg arg */
4cf623b6	263	case LOC_COMPUTED_ARG: /* arg with computed location */
fb40c209 AC	264	if (!locals)
	265	print_me = 1;
	266	break;
	267
	268	case LOC_LOCAL: /* stack local */
	269	case LOC_BASEREG: /* basereg local */
	270	case LOC_STATIC: /* static */
	271	case LOC_REGISTER: /* register */
4cf623b6	272	case LOC_COMPUTED: /* computed location */
fb40c209 AC	273	if (locals)
	274	print_me = 1;
	275	break;
	276	}
	277	if (print_me)
	278	{
6ad4a2cf	279	struct cleanup *cleanup_tuple = NULL;
6bb0384f	280	struct symbol *sym2;
f5ec2042 NR	281	if (values != PRINT_NO_VALUES)
f5ec2042 NR	282	cleanup_tuple =
6ad4a2cf	283	make_cleanup_ui_out_tuple_begin_end (uiout, NULL);
f5ec2042	284	ui_out_field_string (uiout, "name", SYMBOL_PRINT_NAME (sym));
fb40c209	285
f5ec2042 NR	286	if (!locals)
	287	sym2 = lookup_symbol (SYMBOL_NATURAL_NAME (sym),
	288	block, VAR_DOMAIN,
	289	(int *) NULL,
	290	(struct symtab **) NULL);
	291	else
fb40c209	292	sym2 = sym;
f5ec2042 NR	293	switch (values)
	294	{
	295	case PRINT_SIMPLE_VALUES:
	296	type = check_typedef (sym2->type);
	297	type_print (sym2->type, "", stb->stream, -1);
	298	ui_out_field_stream (uiout, "type", stb);
	299	if (TYPE_CODE (type) != TYPE_CODE_ARRAY
	300	&& TYPE_CODE (type) != TYPE_CODE_STRUCT
	301	&& TYPE_CODE (type) != TYPE_CODE_UNION)
	302	{
	303	print_variable_value (sym2, fi, stb->stream);
	304	ui_out_field_stream (uiout, "value", stb);
	305	}
	306	do_cleanups (cleanup_tuple);
	307	break;
	308	case PRINT_ALL_VALUES:
fb40c209 AC	309	print_variable_value (sym2, fi, stb->stream);
fb40c209 AC	310	ui_out_field_stream (uiout, "value", stb);
6ad4a2cf	311	do_cleanups (cleanup_tuple);
f5ec2042	312	break;
fb40c209 AC	313	}
	314	}
	315	}
	316	if (BLOCK_FUNCTION (block))
	317	break;
	318	else
	319	block = BLOCK_SUPERBLOCK (block);
	320	}
6ad4a2cf	321	do_cleanups (cleanup_list);
fb40c209 AC	322	ui_out_stream_delete (stb);
	323	}
	324
	325	enum mi_cmd_result
	326	mi_cmd_stack_select_frame (char command, char *argv, int argc)
	327	{
fcf43932 NR	328	if (argc == 0 \|\| argc > 1)
fcf43932 NR	329	error (_("mi_cmd_stack_select_frame: Usage: FRAME_SPEC"));
fb40c209	330
fcf43932	331	select_frame_command (argv[0], 1 /* not used */ );
fb40c209 AC	332	return MI_CMD_DONE;
fb40c209 AC	333	}
64fd8944 NR	334
	335	enum mi_cmd_result
	336	mi_cmd_stack_info_frame (char command, char *argv, int argc)
	337	{
	338	if (argc > 0)
	339	error (_("mi_cmd_stack_info_frame: No arguments required"));
	340
	341	print_frame_info (get_selected_frame (NULL), 1, LOC_AND_ADDRESS, 0);
	342	return MI_CMD_DONE;
	343	}