/usr/src/gnu/usr.bin/binutils/gdb/varobj.c

Bug Summary

File:	src/gnu/usr.bin/binutils/gdb/varobj.c
Warning:	line 1036, column 16 Assigned value is garbage or undefined
Annotated Source Code

Press '?' to see keyboard shortcuts
Show analyzer invocation
clang -cc1 -cc1 -triple amd64-unknown-openbsd7.0 -analyze -disable-free -disable-llvm-verifier -discard-value-names -main-file-name varobj.c -analyzer-store=region -analyzer-opt-analyze-nested-blocks -analyzer-checker=core -analyzer-checker=apiModeling -analyzer-checker=unix -analyzer-checker=deadcode -analyzer-checker=security.insecureAPI.UncheckedReturn -analyzer-checker=security.insecureAPI.getpw -analyzer-checker=security.insecureAPI.gets -analyzer-checker=security.insecureAPI.mktemp -analyzer-checker=security.insecureAPI.mkstemp -analyzer-checker=security.insecureAPI.vfork -analyzer-checker=nullability.NullPassedToNonnull -analyzer-checker=nullability.NullReturnedFromNonnull -analyzer-output plist -w -setup-static-analyzer -mrelocation-model pic -pic-level 1 -pic-is-pie -mframe-pointer=all -relaxed-aliasing -fno-rounding-math -mconstructor-aliases -munwind-tables -target-cpu x86-64 -target-feature +retpoline-indirect-calls -target-feature +retpoline-indirect-branches -tune-cpu generic -debugger-tuning=gdb -fcoverage-compilation-dir=/usr/src/gnu/usr.bin/binutils/obj/gdb -resource-dir /usr/local/lib/clang/13.0.0 -D PIE_DEFAULT=1 -I . -I /usr/src/gnu/usr.bin/binutils/gdb -I /usr/src/gnu/usr.bin/binutils/gdb/config -D LOCALEDIR="/usr/share/locale" -D HAVE_CONFIG_H -I /usr/src/gnu/usr.bin/binutils/gdb/../include/opcode -I ../bfd -I /usr/src/gnu/usr.bin/binutils/gdb/../bfd -I /usr/src/gnu/usr.bin/binutils/gdb/../include -I ../intl -I /usr/src/gnu/usr.bin/binutils/gdb/../intl -D MI_OUT=1 -D TUI=1 -internal-isystem /usr/local/lib/clang/13.0.0/include -internal-externc-isystem /usr/include -O2 -fdebug-compilation-dir=/usr/src/gnu/usr.bin/binutils/obj/gdb -ferror-limit 19 -fwrapv -D_RET_PROTECTOR -ret-protector -fgnuc-version=4.2.1 -fcommon -vectorize-loops -vectorize-slp -fno-builtin-malloc -fno-builtin-calloc -fno-builtin-realloc -fno-builtin-valloc -fno-builtin-free -fno-builtin-strdup -fno-builtin-strndup -analyzer-output=html -faddrsig -D__GCC_HAVE_DWARF2_CFI_ASM=1 -o /home/ben/Projects/vmm/scan-build/2022-01-12-194120-40624-1 -x c /usr/src/gnu/usr.bin/binutils/gdb/varobj.c
1/* Implementation of the GDB variable objects API.
 Copyright 1999, 2000, 2001 Free Software Foundation, Inc.

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

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

 You should have received a copy of the GNU General Public License
 along with this program; if not, write to the Free Software
 Foundation, Inc., 59 Temple Place - Suite 330,
 Boston, MA 02111-1307, USA.  */

19#include "defs.h"
20#include "value.h"
21#include "expression.h"
22#include "frame.h"
23#include "language.h"
24#include "wrapper.h"
25#include "gdbcmd.h"
26#include "gdb_string.h"
27#include <math.h>

29#include "varobj.h"

31/* Non-zero if we want to see trace of varobj level stuff.  */

33int varobjdebug = 0;

35/* String representations of gdb's format codes */
36char *varobj_format_string[] =
{ "natural", "binary", "decimal", "hexadecimal", "octal" };

39/* String representations of gdb's known languages */
40char *varobj_language_string[] = { "unknown", "C", "C++", "Java" };

42/* Data structures */

44/* Every root variable has one of these structures saved in its
 varobj. Members which must be free'd are noted. */
46struct varobj_root
47{

/* Alloc'd expression for this parent. */
struct expression *exp;

/* Block for which this expression is valid */
struct block *valid_block;

/* The frame for this expression */
struct frame_id frame;

/* If 1, "update" always recomputes the frame & valid block
   using the currently selected frame. */
int use_selected_frame;

/* Language info for this variable and its children */
struct language_specific *lang;

/* The varobj for this root node. */
struct varobj *rootvar;

/* Next root variable */
struct varobj_root *next;
70};

72/* Every variable in the system has a structure of this type defined
 for it. This structure holds all information necessary to manipulate
 a particular object variable. Members which must be freed are noted. */
75struct varobj
76{

/* Alloc'd name of the variable for this object.. If this variable is a
   child, then this name will be the child's source name.
   (bar, not foo.bar) */
/* NOTE: This is the "expression" */
char *name;

/* The alloc'd name for this variable's object. This is here for
   convenience when constructing this object's children. */
char *obj_name;

/* Index of this variable in its parent or -1 */
int index;

/* The type of this variable. This may NEVER be NULL. */
struct type *type;

/* The value of this expression or subexpression.  This may be NULL. */
struct value *value;

/* Did an error occur evaluating the expression or getting its value? */
int error;

/* The number of (immediate) children this variable has */
int num_children;

/* If this object is a child, this points to its immediate parent. */
struct varobj *parent;

/* A list of this object's children */
struct varobj_child *children;

/* Description of the root variable. Points to root variable for children. */
struct varobj_root *root;

/* The format of the output for this object */
enum varobj_display_formats format;

/* Was this variable updated via a varobj_set_value operation */
int updated;
117};

119/* Every variable keeps a linked list of its children, described
 by the following structure. */
121/* FIXME: Deprecated.  All should use vlist instead */

123struct varobj_child
124{

/* Pointer to the child's data */
struct varobj *child;

/* Pointer to the next child */
struct varobj_child *next;
131};

133/* A stack of varobjs */
134/* FIXME: Deprecated.  All should use vlist instead */

136struct vstack
137{
struct varobj *var;
struct vstack *next;
140};

142struct cpstack
143{
char *name;
struct cpstack *next;
146};

148/* A list of varobjs */

150struct vlist
151{
struct varobj *var;
struct vlist *next;
154};

156/* Private function prototypes */

158/* Helper functions for the above subcommands. */

160static int delete_variable (struct cpstack **, struct varobj *, int);

162static void delete_variable_1 (struct cpstack **, int *,
	       struct varobj *, int, int);

165static int install_variable (struct varobj *);

167static void uninstall_variable (struct varobj *);

169static struct varobj *child_exists (struct varobj *, char *);

171static struct varobj *create_child (struct varobj *, int, char *);

173static void save_child_in_parent (struct varobj *, struct varobj *);

175static void remove_child_from_parent (struct varobj *, struct varobj *);

177/* Utility routines */

179static struct varobj *new_variable (void);

181static struct varobj *new_root_variable (void);

183static void free_variable (struct varobj *var);

185static struct cleanup *make_cleanup_free_variable (struct varobj *var);

187static struct type *get_type (struct varobj *var);

189static struct type *get_type_deref (struct varobj *var);

191static struct type *get_target_type (struct type *);

193static enum varobj_display_formats variable_default_display (struct varobj *);

195static int my_value_equal (struct value *, struct value *, int *);

197static void vpush (struct vstack **pstack, struct varobj *var);

199static struct varobj *vpop (struct vstack **pstack);

201static void cppush (struct cpstack **pstack, char *name);

203static char *cppop (struct cpstack **pstack);

205/* Language-specific routines. */

207static enum varobj_languages variable_language (struct varobj *var);

209static int number_of_children (struct varobj *);

211static char *name_of_variable (struct varobj *);

213static char *name_of_child (struct varobj *, int);

215static struct value *value_of_root (struct varobj **var_handle, int *);

217static struct value *value_of_child (struct varobj *parent, int index);

219static struct type *type_of_child (struct varobj *var);

221static int variable_editable (struct varobj *var);

223static char *my_value_of_variable (struct varobj *var);

225static int type_changeable (struct varobj *var);

227/* C implementation */

229static int c_number_of_children (struct varobj *var);

231static char *c_name_of_variable (struct varobj *parent);

233static char *c_name_of_child (struct varobj *parent, int index);

235static struct value *c_value_of_root (struct varobj **var_handle);

237static struct value *c_value_of_child (struct varobj *parent, int index);

239static struct type *c_type_of_child (struct varobj *parent, int index);

241static int c_variable_editable (struct varobj *var);

243static char *c_value_of_variable (struct varobj *var);

245/* C++ implementation */

247static int cplus_number_of_children (struct varobj *var);

249static void cplus_class_num_children (struct type *type, int children[3]);

251static char *cplus_name_of_variable (struct varobj *parent);

253static char *cplus_name_of_child (struct varobj *parent, int index);

255static struct value *cplus_value_of_root (struct varobj **var_handle);

257static struct value *cplus_value_of_child (struct varobj *parent, int index);

259static struct type *cplus_type_of_child (struct varobj *parent, int index);

261static int cplus_variable_editable (struct varobj *var);

263static char *cplus_value_of_variable (struct varobj *var);

265/* Java implementation */

267static int java_number_of_children (struct varobj *var);

269static char *java_name_of_variable (struct varobj *parent);

271static char *java_name_of_child (struct varobj *parent, int index);

273static struct value *java_value_of_root (struct varobj **var_handle);

275static struct value *java_value_of_child (struct varobj *parent, int index);

277static struct type *java_type_of_child (struct varobj *parent, int index);

279static int java_variable_editable (struct varobj *var);

281static char *java_value_of_variable (struct varobj *var);

283/* The language specific vector */

285struct language_specific
286{

/* The language of this variable */
enum varobj_languages language;

/* The number of children of PARENT. */
int (*number_of_children) (struct varobj * parent);

/* The name (expression) of a root varobj. */
char *(*name_of_variable) (struct varobj * parent);

/* The name of the INDEX'th child of PARENT. */
char *(*name_of_child) (struct varobj * parent, int index);

/* The ``struct value *'' of the root variable ROOT. */
struct value *(*value_of_root) (struct varobj ** root_handle);

/* The ``struct value *'' of the INDEX'th child of PARENT. */
struct value *(*value_of_child) (struct varobj * parent, int index);

/* The type of the INDEX'th child of PARENT. */
struct type *(*type_of_child) (struct varobj * parent, int index);

/* Is VAR editable? */
int (*variable_editable) (struct varobj * var);

/* The current value of VAR. */
char *(*value_of_variable) (struct varobj * var);
314};

316/* Array of known source language routines. */
317static struct language_specific
languages[vlang_end][sizeof (struct language_specific)] = {
/* Unknown (try treating as C */
{
 vlang_unknown,
 c_number_of_children,
 c_name_of_variable,
 c_name_of_child,
 c_value_of_root,
 c_value_of_child,
 c_type_of_child,
 c_variable_editable,
 c_value_of_variable}
,
/* C */
{
 vlang_c,
 c_number_of_children,
 c_name_of_variable,
 c_name_of_child,
 c_value_of_root,
 c_value_of_child,
 c_type_of_child,
 c_variable_editable,
 c_value_of_variable}
,
/* C++ */
{
 vlang_cplus,
 cplus_number_of_children,
 cplus_name_of_variable,
 cplus_name_of_child,
 cplus_value_of_root,
 cplus_value_of_child,
 cplus_type_of_child,
 cplus_variable_editable,
 cplus_value_of_variable}
,
/* Java */
{
 vlang_java,
 java_number_of_children,
 java_name_of_variable,
 java_name_of_child,
 java_value_of_root,
 java_value_of_child,
 java_type_of_child,
 java_variable_editable,
 java_value_of_variable}
366};

368/* A little convenience enum for dealing with C++/Java */
369enum vsections
370{
v_public = 0, v_private, v_protected
372};

374/* Private data */

376/* Mappings of varobj_display_formats enums to gdb's format codes */
377static int format_code[] = { 0, 't', 'd', 'x', 'o' };

379/* Header of the list of root variable objects */
380static struct varobj_root *rootlist;
381static int rootcount = 0;	/* number of root varobjs in the list */

383/* Prime number indicating the number of buckets in the hash table */
384/* A prime large enough to avoid too many colisions */
385#define VAROBJ_TABLE_SIZE227 227

387/* Pointer to the varobj hash table (built at run time) */
388static struct vlist **varobj_table;

390/* Is the variable X one of our "fake" children? */
391#define CPLUS_FAKE_CHILD(x)((x) != ((void*)0) && (x)->type == ((void*)0) &&
 (x)->value == ((void*)0)) \
392((x) != NULL((void*)0) && (x)->type == NULL((void*)0) && (x)->value == NULL((void*)0))
393

395/* API Implementation */

397/* Creates a varobj (not its children) */

399/* Return the full FRAME which corresponds to the given CORE_ADDR
 or NULL if no FRAME on the chain corresponds to CORE_ADDR.  */

402static struct frame_info *
403find_frame_addr_in_frame_chain (CORE_ADDR frame_addr)
404{
struct frame_info *frame = NULL((void*)0);

if (frame_addr == (CORE_ADDR) 0)
  return NULL((void*)0);

while (1)
  {
    frame = get_prev_frame (frame);
    if (frame == NULL((void*)0))
return NULL((void*)0);
    if (get_frame_base_address (frame) == frame_addr)
return frame;
  }
418}

420struct varobj *
421varobj_create (char *objname,
      char *expression, CORE_ADDR frame, enum varobj_type type)
423{
struct varobj *var;
struct frame_info *fi;
struct frame_info *old_fi = NULL((void*)0);
struct block *block;
struct cleanup *old_chain;

/* Fill out a varobj structure for the (root) variable being constructed. */
var = new_root_variable ();
old_chain = make_cleanup_free_variable (var);

if (expression != NULL((void*)0))
  {
    char *p;
    enum varobj_languages lang;

    /* Parse and evaluate the expression, filling in as much
       of the variable's data as possible */

    /* Allow creator to specify context of variable */
    if ((type == USE_CURRENT_FRAME) || (type == USE_SELECTED_FRAME))
fi = deprecated_selected_frame;
    else
/* FIXME: cagney/2002-11-23: This code should be doing a
  lookup using the frame ID and not just the frame's
  ``address''.  This, of course, means an interface change.
  However, with out that interface change ISAs, such as the
  ia64 with its two stacks, won't work.  Similar goes for the
  case where there is a frameless function.  */
fi = find_frame_addr_in_frame_chain (frame);

    /* frame = -2 means always use selected frame */
    if (type == USE_SELECTED_FRAME)
var->root->use_selected_frame = 1;

    block = NULL((void*)0);
    if (fi != NULL((void*)0))
block = get_frame_block (fi, 0);

    p = expression;
    innermost_block = NULL((void*)0);
    /* Wrap the call to parse expression, so we can 
       return a sensible error. */
    if (!gdb_parse_exp_1 (&p, block, 0, &var->root->exp))
{
 return NULL((void*)0);
}

    /* Don't allow variables to be created for types. */
    if (var->root->exp->elts[0].opcode == OP_TYPE)
{
 do_cleanups (old_chain);
 fprintf_unfiltered (gdb_stderr,
	      "Attempt to use a type name as an expression.");
 return NULL((void*)0);
}

    var->format = variable_default_display (var);
    var->root->valid_block = innermost_block;
    var->name = savestring (expression, strlen (expression));

    /* When the frame is different from the current frame, 
       we must select the appropriate frame before parsing
       the expression, otherwise the value will not be current.
       Since select_frame is so benign, just call it for all cases. */
    if (fi != NULL((void*)0))
{
 var->root->frame = get_frame_id (fi);
 old_fi = deprecated_selected_frame;
 select_frame (fi);
}

    /* We definitively need to catch errors here.
       If evaluate_expression succeeds we got the value we wanted.
       But if it fails, we still go on with a call to evaluate_type()  */
    if (gdb_evaluate_expression (var->root->exp, &var->value))
{
 /* no error */
 release_value (var->value);
 if (VALUE_LAZY (var->value)(var->value)->lazy)
   gdb_value_fetch_lazy (var->value);
}
    else
var->value = evaluate_type (var->root->exp);

    var->type = VALUE_TYPE (var->value)(var->value)->type;

    /* Set language info */
    lang = variable_language (var);
    var->root->lang = languages[lang];

    /* Set ourselves as our root */
    var->root->rootvar = var;

    /* Reset the selected frame */
    if (fi != NULL((void*)0))
select_frame (old_fi);
  }

/* If the variable object name is null, that means this
   is a temporary variable, so don't install it. */

if ((var != NULL((void*)0)) && (objname != NULL((void*)0)))
  {
    var->obj_name = savestring (objname, strlen (objname));

    /* If a varobj name is duplicated, the install will fail so
       we must clenup */
    if (!install_variable (var))
{
 do_cleanups (old_chain);
 return NULL((void*)0);
}
  }

discard_cleanups (old_chain);
return var;
540}

542/* Generates an unique name that can be used for a varobj */

544char *
545varobj_gen_name (void)
546{
static int id = 0;
char *obj_name;

/* generate a name for this object */
id++;
obj_name = xstrprintf ("var%d", id);

return obj_name;
555}

557/* Given an "objname", returns the pointer to the corresponding varobj
 or NULL if not found */

560struct varobj *
561varobj_get_handle (char *objname)
562{
struct vlist *cv;
const char *chp;
unsigned int index = 0;
unsigned int i = 1;

for (chp = objname; *chp; chp++)
  {
    index = (index + (i++ * (unsigned int) *chp)) % VAROBJ_TABLE_SIZE227;
  }

cv = *(varobj_table + index);
while ((cv != NULL((void*)0)) && (strcmp (cv->var->obj_name, objname) != 0))
  cv = cv->next;

if (cv == NULL((void*)0))
  error ("Variable object not found");

return cv->var;
581}

583/* Given the handle, return the name of the object */

585char *
586varobj_get_objname (struct varobj *var)
587{
return var->obj_name;
589}

591/* Given the handle, return the expression represented by the object */

593char *
594varobj_get_expression (struct varobj *var)
595{
return name_of_variable (var);
597}

599/* Deletes a varobj and all its children if only_children == 0,
 otherwise deletes only the children; returns a malloc'ed list of all the 
 (malloc'ed) names of the variables that have been deleted (NULL terminated) */

603int
604varobj_delete (struct varobj *var, char ***dellist, int only_children)
605{
int delcount;
int mycount;
struct cpstack *result = NULL((void*)0);
char **cp;

/* Initialize a stack for temporary results */
cppush (&result, NULL((void*)0));

if (only_children)
  /* Delete only the variable children */
  delcount = delete_variable (&result, var, 1 /* only the children */ );
else
  /* Delete the variable and all its children */
  delcount = delete_variable (&result, var, 0 /* parent+children */ );

/* We may have been asked to return a list of what has been deleted */
if (dellist != NULL((void*)0))
  {
    *dellist = xmalloc ((delcount + 1) * sizeof (char *));

    cp = *dellist;
    mycount = delcount;
    *cp = cppop (&result);
    while ((*cp != NULL((void*)0)) && (mycount > 0))
{
 mycount--;
 cp++;
 *cp = cppop (&result);
}

    if (mycount || (*cp != NULL((void*)0)))
warning ("varobj_delete: assertion failed - mycount(=%d) <> 0",
 mycount);
  }

return delcount;
642}

644/* Set/Get variable object display format */

646enum varobj_display_formats
647varobj_set_display_format (struct varobj *var,
	   enum varobj_display_formats format)
649{
switch (format)
  {
  case FORMAT_NATURAL:
  case FORMAT_BINARY:
  case FORMAT_DECIMAL:
  case FORMAT_HEXADECIMAL:
  case FORMAT_OCTAL:
    var->format = format;
    break;

  default:
    var->format = variable_default_display (var);
  }

return var->format;
665}

667enum varobj_display_formats
668varobj_get_display_format (struct varobj *var)
669{
return var->format;
671}

673int
674varobj_get_num_children (struct varobj *var)
675{
if (var->num_children == -1)
  var->num_children = number_of_children (var);

return var->num_children;
680}

682/* Creates a list of the immediate children of a variable object;
 the return code is the number of such children or -1 on error */

685int
686varobj_list_children (struct varobj *var, struct varobj ***childlist)
687{
struct varobj *child;
char *name;
int i;

/* sanity check: have we been passed a pointer? */
if (childlist == NULL((void*)0))
  return -1;

*childlist = NULL((void*)0);

if (var->num_children == -1)
  var->num_children = number_of_children (var);

/* List of children */
*childlist = xmalloc ((var->num_children + 1) * sizeof (struct varobj *));

for (i = 0; i < var->num_children; i++)
  {
    /* Mark as the end in case we bail out */
    *((*childlist) + i) = NULL((void*)0);

    /* check if child exists, if not create */
    name = name_of_child (var, i);
    child = child_exists (var, name);
    if (child == NULL((void*)0))
child = create_child (var, i, name);

    *((*childlist) + i) = child;
  }

/* End of list is marked by a NULL pointer */
*((*childlist) + i) = NULL((void*)0);

return var->num_children;
722}

724/* Obtain the type of an object Variable as a string similar to the one gdb
 prints on the console */

727char *
728varobj_get_type (struct varobj *var)
729{
struct value *val;
struct cleanup *old_chain;
struct ui_file *stb;
char *thetype;
long length;

/* For the "fake" variables, do not return a type. (It's type is
   NULL, too.) */
if (CPLUS_FAKE_CHILD (var)((var) != ((void*)0) && (var)->type == ((void*)0) &&
 (var)->value == ((void*)0)))
  return NULL((void*)0);

stb = mem_fileopen ();
old_chain = make_cleanup_ui_file_delete (stb);

/* To print the type, we simply create a zero ``struct value *'' and
   cast it to our type. We then typeprint this variable. */
val = value_zero (var->type, not_lval);
type_print (VALUE_TYPE (val)(val)->type, "", stb, -1);

thetype = ui_file_xstrdup (stb, &length);
do_cleanups (old_chain);
return thetype;
752}

754enum varobj_languages
755varobj_get_language (struct varobj *var)
756{
return variable_language (var);
758}

760int
761varobj_get_attributes (struct varobj *var)
762{
int attributes = 0;

if (variable_editable (var))
  /* FIXME: define masks for attributes */
  attributes |= 0x00000001;	/* Editable */

return attributes;
770}

772char *
773varobj_get_value (struct varobj *var)
774{
return my_value_of_variable (var);
776}

778/* Set the value of an object variable (if it is editable) to the
 value of the given expression */
780/* Note: Invokes functions that can call error() */

782int
783varobj_set_value (struct varobj *var, char *expression)
784{
struct value *val;
int error;
int offset = 0;

/* The argument "expression" contains the variable's new value.
   We need to first construct a legal expression for this -- ugh! */
/* Does this cover all the bases? */
struct expression *exp;
struct value *value;
int saved_input_radix = input_radix;

if (var->value != NULL((void*)0) && variable_editable (var) && !var->error)
  {
    char *s = expression;
    int i;

    input_radix = 10;		/* ALWAYS reset to decimal temporarily */
    if (!gdb_parse_exp_1 (&s, 0, 0, &exp))
/* We cannot proceed without a well-formed expression. */
return 0;
    if (!gdb_evaluate_expression (exp, &value))
{
 /* We cannot proceed without a valid expression. */
 xfree (exp);
 return 0;
}

    if (!my_value_equal (var->value, value, &error))
      var->updated = 1;
    if (!gdb_value_assign (var->value, value, &val))
return 0;
    value_free (var->value)xfree (var->value);
    release_value (val);
    var->value = val;
    input_radix = saved_input_radix;
    return 1;
  }

return 0;
824}

826/* Returns a malloc'ed list with all root variable objects */
827int
828varobj_list (struct varobj ***varlist)
829{
struct varobj **cv;
struct varobj_root *croot;
int mycount = rootcount;

/* Alloc (rootcount + 1) entries for the result */
*varlist = xmalloc ((rootcount + 1) * sizeof (struct varobj *));

cv = *varlist;
croot = rootlist;
while ((croot != NULL((void*)0)) && (mycount > 0))
  {
    *cv = croot->rootvar;
    mycount--;
    cv++;
    croot = croot->next;
  }
/* Mark the end of the list */
*cv = NULL((void*)0);

if (mycount || (croot != NULL((void*)0)))
  warning
    ("varobj_list: assertion failed - wrong tally of root vars (%d:%d)",
     rootcount, mycount);

return rootcount;
855}

857void
858varobj_refresh (void)
859{
struct varobj *var;
struct varobj_root *croot;
int mycount = rootcount;
char * name;
                                                                              
croot = rootlist;
while ((croot != NULL((void*)0)) && (mycount > 0))
  {
    var = croot->rootvar;
                                                                              
    /* Get rid of the memory for the old expression.  This also
       leaves var->root->exp == NULL, which is ok for the parsing
       below.  */
    free_current_contents ((char **) &var->root->exp);
                                                                              
    value_free (var->value)xfree (var->value);
    var->type = NULL((void*)0);

    name = xstrdup (var->name);

    /* Reparse the expression.  Wrap the call to parse expression,
       so we can return a sensible error. */
    if (!gdb_parse_exp_1 (&name, var->root->valid_block, 0, &var->root->exp))
      {
        return;
      }
                                                                              
    /* We definitively need to catch errors here.
       If evaluate_expression succeeds we got the value we wanted.
       But if it fails, we still go on with a call to evaluate_type()  */
    if (gdb_evaluate_expression (var->root->exp, &var->value))
      {
        /* no error */
        release_value (var->value);
        if (VALUE_LAZY (var->value)(var->value)->lazy)
          gdb_value_fetch_lazy (var->value);
      }
    else
      var->value = evaluate_type (var->root->exp);
                                                                              
    var->type = VALUE_TYPE (var->value)(var->value)->type;
                                                                              
    mycount--;
    croot = croot->next;
  }
                                                                              
if (mycount || (croot != NULL((void*)0)))
  warning
    ("varobj_refresh: assertion failed - wrong tally of root vars (%d:%d)",
     rootcount, mycount);
910}
                                                                              

913/* Update the values for a variable and its children.  This is a
 two-pronged attack.  First, re-parse the value for the root's
 expression to see if it's changed.  Then go all the way
 through its children, reconstructing them and noting if they've
 changed.
 Return value:
  -1 if there was an error updating the varobj
  -2 if the type changed
  Otherwise it is the number of children + parent changed

 Only root variables can be updated... 

 NOTE: This function may delete the caller's varobj. If it
 returns -2, then it has done this and VARP will be modified
 to point to the new varobj. */

929int
930varobj_update (struct varobj **varp, struct varobj ***changelist)
931{
int changed = 0;
int type_changed;
int i;
int vleft;
int error2;
1
'error2' declared without an initial value→
struct varobj *v;
struct varobj **cv;
struct varobj **templist = NULL((void*)0);
struct value *new;
struct vstack *stack = NULL((void*)0);
struct vstack *result = NULL((void*)0);
struct frame_id old_fid;
struct frame_info *fi;

/* sanity check: have we been passed a pointer? */
if (changelist == NULL((void*)0))
2
←
Assuming 'changelist' is not equal to NULL→
3
←
Taking false branch→
  return -1;

/*  Only root variables can be updated... */
if ((*varp)->root->rootvar != *varp)
4
←
Assuming the condition is false→
5
←
Taking false branch→
  /* Not a root var */
  return -1;

/* Save the selected stack frame, since we will need to change it
   in order to evaluate expressions. */
old_fid = get_frame_id (deprecated_selected_frame);

/* Update the root variable. value_of_root can return NULL
   if the variable is no longer around, i.e. we stepped out of
   the frame in which a local existed. We are letting the 
   value_of_root variable dispose of the varobj if the type
   has changed. */
type_changed = 1;
new = value_of_root (varp, &type_changed);
if (new == NULL((void*)0))
6
←
Assuming 'new' is not equal to NULL→
7
←
Taking false branch→
  {
    (*varp)->error = 1;
    return -1;
  }

/* Initialize a stack for temporary results */
vpush (&result, NULL((void*)0));

/* If this is a "use_selected_frame" varobj, and its type has changed,
   them note that it's changed. */
if (type_changed7.1
'type_changed' is 0
)
8
←
Taking false branch→
  {
    vpush (&result, *varp);
    changed++;
  }
/* If values are not equal, note that it's changed.
   There a couple of exceptions here, though.
   We don't want some types to be reported as "changed". */
else if (type_changeable (*varp) &&
  ((*varp)->updated || !my_value_equal ((*varp)->value, new, &error2)))
  {
    vpush (&result, *varp);
    (*varp)->updated = 0;
    changed++;
    /* error2 replaces var->error since this new value
       WILL replace the old one. */
    (*varp)->error = error2;
  }

/* We must always keep around the new value for this root
   variable expression, or we lose the updated children! */
value_free ((*varp)->value)xfree ((*varp)->value);
(*varp)->value = new;

/* Initialize a stack */
vpush (&stack, NULL((void*)0));

/* Push the root's children */
if ((*varp)->children != NULL((void*)0))
9
←
Assuming field 'children' is not equal to NULL→
10
←
Taking true branch→
  {
    struct varobj_child *c;
    for (c = (*varp)->children; c10.1
'c' is not equal to NULL
 != NULL((void*)0); c = c->next)
11
←
Loop condition is true.  Entering loop body→
12
←
Assuming 'c' is equal to NULL→
13
←
Loop condition is false. Execution continues on line 1013→
vpush (&stack, c->child);
  }

/* Walk through the children, reconstructing them all. */
v = vpop (&stack);
while (v13.1
'v' is not equal to NULL
 != NULL((void*)0))
14
←
Loop condition is true.  Entering loop body→
  {
    /* Push any children */
    if (v->children != NULL((void*)0))
15
←
Assuming field 'children' is equal to NULL→
16
←
Taking false branch→
{
 struct varobj_child *c;
 for (c = v->children; c != NULL((void*)0); c = c->next)
   vpush (&stack, c->child);
}

    /* Update this variable */
    new = value_of_child (v->parent, v->index);
    if (type_changeable (v) && 
        (v->updated || !my_value_equal (v->value, new, &error2)))
{
 /* Note that it's changed */
 vpush (&result, v);
 v->updated = 0;
 changed++;
}
    /* error2 replaces v->error since this new value
       WILL replace the old one. */
    v->error = error2;
17
←
Assigned value is garbage or undefined

    /* We must always keep new values, since children depend on it. */
    if (v->value != NULL((void*)0))
value_free (v->value)xfree (v->value);
    v->value = new;

    /* Get next child */
    v = vpop (&stack);
  }

/* Alloc (changed + 1) list entries */
/* FIXME: add a cleanup for the allocated list(s)
   because one day the select_frame called below can longjump */
*changelist = xmalloc ((changed + 1) * sizeof (struct varobj *));
if (changed > 1)
  {
    templist = xmalloc ((changed + 1) * sizeof (struct varobj *));
    cv = templist;
  }
else
  cv = *changelist;

/* Copy from result stack to list */
vleft = changed;
*cv = vpop (&result);
while ((*cv != NULL((void*)0)) && (vleft > 0))
  {
    vleft--;
    cv++;
    *cv = vpop (&result);
  }
if (vleft)
  warning ("varobj_update: assertion failed - vleft <> 0");

if (changed > 1)
  {
    /* Now we revert the order. */
    for (i = 0; i < changed; i++)
*(*changelist + i) = *(templist + changed - 1 - i);
    *(*changelist + changed) = NULL((void*)0);
  }

/* Restore selected frame */
fi = frame_find_by_id (old_fid);
if (fi)
  select_frame (fi);

if (type_changed)
  return -2;
else
  return changed;
1088}
1089

1091/* Helper functions */

1093/*
* Variable object construction/destruction
*/

1097static int
1098delete_variable (struct cpstack **resultp, struct varobj *var,
 int only_children_p)
1100{
int delcount = 0;

delete_variable_1 (resultp, &delcount, var,
     only_children_p, 1 /* remove_from_parent_p */ );

return delcount;
1107}

1109/* Delete the variable object VAR and its children */
1110/* IMPORTANT NOTE: If we delete a variable which is a child
 and the parent is not removed we dump core.  It must be always
 initially called with remove_from_parent_p set */
1113static void
1114delete_variable_1 (struct cpstack **resultp, int *delcountp,
   struct varobj *var, int only_children_p,
   int remove_from_parent_p)
1117{
struct varobj_child *vc;
struct varobj_child *next;

/* Delete any children of this variable, too. */
for (vc = var->children; vc != NULL((void*)0); vc = next)
  {
    if (!remove_from_parent_p)
vc->child->parent = NULL((void*)0);
    delete_variable_1 (resultp, delcountp, vc->child, 0, only_children_p);
    next = vc->next;
    xfree (vc);
  }

/* if we were called to delete only the children we are done here */
if (only_children_p)
  return;

/* Otherwise, add it to the list of deleted ones and proceed to do so */
/* If the name is null, this is a temporary variable, that has not
   yet been installed, don't report it, it belongs to the caller... */
if (var->obj_name != NULL((void*)0))
  {
    cppush (resultp, xstrdup (var->obj_name));
    *delcountp = *delcountp + 1;
  }

/* If this variable has a parent, remove it from its parent's list */
/* OPTIMIZATION: if the parent of this variable is also being deleted, 
   (as indicated by remove_from_parent_p) we don't bother doing an
   expensive list search to find the element to remove when we are
   discarding the list afterwards */
if ((remove_from_parent_p) && (var->parent != NULL((void*)0)))
  {
    remove_child_from_parent (var->parent, var);
  }

if (var->obj_name != NULL((void*)0))
  uninstall_variable (var);

/* Free memory associated with this variable */
free_variable (var);
1159}

1161/* Install the given variable VAR with the object name VAR->OBJ_NAME. */
1162static int
1163install_variable (struct varobj *var)
1164{
struct vlist *cv;
struct vlist *newvl;
const char *chp;
unsigned int index = 0;
unsigned int i = 1;

for (chp = var->obj_name; *chp; chp++)
  {
    index = (index + (i++ * (unsigned int) *chp)) % VAROBJ_TABLE_SIZE227;
  }

cv = *(varobj_table + index);
while ((cv != NULL((void*)0)) && (strcmp (cv->var->obj_name, var->obj_name) != 0))
  cv = cv->next;

if (cv != NULL((void*)0))
  error ("Duplicate variable object name");

/* Add varobj to hash table */
newvl = xmalloc (sizeof (struct vlist));
newvl->next = *(varobj_table + index);
newvl->var = var;
*(varobj_table + index) = newvl;

/* If root, add varobj to root list */
if (var->root->rootvar == var)
  {
    /* Add to list of root variables */
    if (rootlist == NULL((void*)0))
var->root->next = NULL((void*)0);
    else
var->root->next = rootlist;
    rootlist = var->root;
    rootcount++;
  }

return 1;			/* OK */
1202}

1204/* Unistall the object VAR. */
1205static void
1206uninstall_variable (struct varobj *var)
1207{
struct vlist *cv;
struct vlist *prev;
struct varobj_root *cr;
struct varobj_root *prer;
const char *chp;
unsigned int index = 0;
unsigned int i = 1;

/* Remove varobj from hash table */
for (chp = var->obj_name; *chp; chp++)
  {
    index = (index + (i++ * (unsigned int) *chp)) % VAROBJ_TABLE_SIZE227;
  }

cv = *(varobj_table + index);
prev = NULL((void*)0);
while ((cv != NULL((void*)0)) && (strcmp (cv->var->obj_name, var->obj_name) != 0))
  {
    prev = cv;
    cv = cv->next;
  }

if (varobjdebug)
  fprintf_unfiltered (gdb_stdlog, "Deleting %s\n", var->obj_name);

if (cv == NULL((void*)0))
  {
    warning
("Assertion failed: Could not find variable object \"%s\" to delete",
var->obj_name);
    return;
  }

if (prev == NULL((void*)0))
  *(varobj_table + index) = cv->next;
else
  prev->next = cv->next;

xfree (cv);

/* If root, remove varobj from root list */
if (var->root->rootvar == var)
  {
    /* Remove from list of root variables */
    if (rootlist == var->root)
rootlist = var->root->next;
    else
{
 prer = NULL((void*)0);
 cr = rootlist;
 while ((cr != NULL((void*)0)) && (cr->rootvar != var))
   {
     prer = cr;
     cr = cr->next;
   }
 if (cr == NULL((void*)0))
   {
     warning
("Assertion failed: Could not find varobj \"%s\" in root list",
 var->obj_name);
     return;
   }
 if (prer == NULL((void*)0))
   rootlist = NULL((void*)0);
 else
   prer->next = cr->next;
}
    rootcount--;
  }

1278}

1280/* Does a child with the name NAME exist in VAR? If so, return its data.
 If not, return NULL. */
1282static struct varobj *
1283child_exists (struct varobj *var, char *name)
1284{
struct varobj_child *vc;

for (vc = var->children; vc != NULL((void*)0); vc = vc->next)
  {
    if (strcmp (vc->child->name, name) == 0)
return vc->child;
  }

return NULL((void*)0);
1294}

1296/* Create and install a child of the parent of the given name */
1297static struct varobj *
1298create_child (struct varobj *parent, int index, char *name)
1299{
struct varobj *child;
char *childs_name;

child = new_variable ();

/* name is allocated by name_of_child */
child->name = name;
child->index = index;
child->value = value_of_child (parent, index);
if ((!CPLUS_FAKE_CHILD (child)((child) != ((void*)0) && (child)->type == ((void*
)0) && (child)->value == ((void*)0)) && child->value == NULL((void*)0)) || parent->error)
  child->error = 1;
child->parent = parent;
child->root = parent->root;
childs_name = xstrprintf ("%s.%s", parent->obj_name, name);
child->obj_name = childs_name;
install_variable (child);

/* Save a pointer to this child in the parent */
save_child_in_parent (parent, child);

/* Note the type of this child */
child->type = type_of_child (child);

return child;
1324}

1326/* FIXME: This should be a generic add to list */
1327/* Save CHILD in the PARENT's data. */
1328static void
1329save_child_in_parent (struct varobj *parent, struct varobj *child)
1330{
struct varobj_child *vc;

/* Insert the child at the top */
vc = parent->children;
parent->children =
  (struct varobj_child *) xmalloc (sizeof (struct varobj_child));

parent->children->next = vc;
parent->children->child = child;
1340}

1342/* FIXME: This should be a generic remove from list */
1343/* Remove the CHILD from the PARENT's list of children. */
1344static void
1345remove_child_from_parent (struct varobj *parent, struct varobj *child)
1346{
struct varobj_child *vc, *prev;

/* Find the child in the parent's list */
prev = NULL((void*)0);
for (vc = parent->children; vc != NULL((void*)0);)
  {
    if (vc->child == child)
break;
    prev = vc;
    vc = vc->next;
  }

if (prev == NULL((void*)0))
  parent->children = vc->next;
else
  prev->next = vc->next;

1364}
1365

1367/*
* Miscellaneous utility functions.
*/

1371/* Allocate memory and initialize a new variable */
1372static struct varobj *
1373new_variable (void)
1374{
struct varobj *var;

var = (struct varobj *) xmalloc (sizeof (struct varobj));
var->name = NULL((void*)0);
var->obj_name = NULL((void*)0);
var->index = -1;
var->type = NULL((void*)0);
var->value = NULL((void*)0);
var->error = 0;
var->num_children = -1;
var->parent = NULL((void*)0);
var->children = NULL((void*)0);
var->format = 0;
var->root = NULL((void*)0);
var->updated = 0;

return var;
1392}

1394/* Allocate memory and initialize a new root variable */
1395static struct varobj *
1396new_root_variable (void)
1397{
struct varobj *var = new_variable ();
var->root = (struct varobj_root *) xmalloc (sizeof (struct varobj_root));;
var->root->lang = NULL((void*)0);
var->root->exp = NULL((void*)0);
var->root->valid_block = NULL((void*)0);
var->root->frame = null_frame_id;
var->root->use_selected_frame = 0;
var->root->rootvar = NULL((void*)0);

return var;
1408}

1410/* Free any allocated memory associated with VAR. */
1411static void
1412free_variable (struct varobj *var)
1413{
/* Free the expression if this is a root variable. */
if (var->root->rootvar == var)
  {
    free_current_contents ((char **) &var->root->exp);
    xfree (var->root);
  }

xfree (var->name);
xfree (var->obj_name);
xfree (var);
1424}

1426static void
1427do_free_variable_cleanup (void *var)
1428{
free_variable (var);
1430}

1432static struct cleanup *
1433make_cleanup_free_variable (struct varobj *var)
1434{
return make_cleanup (do_free_variable_cleanup, var);
1436}

1438/* This returns the type of the variable. It also skips past typedefs
 to return the real type of the variable.

 NOTE: TYPE_TARGET_TYPE should NOT be used anywhere in this file
 except within get_target_type and get_type. */
1443static struct type *
1444get_type (struct varobj *var)
1445{
struct type *type;
type = var->type;

if (type != NULL((void*)0))
  type = check_typedef (type);

return type;
1453}

1455/* This returns the type of the variable, dereferencing pointers, too. */
1456static struct type *
1457get_type_deref (struct varobj *var)
1458{
struct type *type;

type = get_type (var);

if (type != NULL((void*)0) && (TYPE_CODE (type)(type)->main_type->code == TYPE_CODE_PTR
       || TYPE_CODE (type)(type)->main_type->code == TYPE_CODE_REF))
  type = get_target_type (type);

return type;
1468}

1470/* This returns the target type (or NULL) of TYPE, also skipping
 past typedefs, just like get_type ().

 NOTE: TYPE_TARGET_TYPE should NOT be used anywhere in this file
 except within get_target_type and get_type. */
1475static struct type *
1476get_target_type (struct type *type)
1477{
if (type != NULL((void*)0))
  {
    type = TYPE_TARGET_TYPE (type)(type)->main_type->target_type;
    if (type != NULL((void*)0))
type = check_typedef (type);
  }

return type;
1486}

1488/* What is the default display for this variable? We assume that
 everything is "natural". Any exceptions? */
1490static enum varobj_display_formats
1491variable_default_display (struct varobj *var)
1492{
return FORMAT_NATURAL;
1494}

1496/* This function is similar to gdb's value_equal, except that this
 one is "safe" -- it NEVER longjmps. It determines if the VAR's
 value is the same as VAL2. */
1499static int
1500my_value_equal (struct value *val1, struct value *val2, int *error2)
1501{
int r, err1, err2;

*error2 = 0;
/* Special case: NULL values. If both are null, say
   they're equal. */
if (val1 == NULL((void*)0) && val2 == NULL((void*)0))
  return 1;
else if (val1 == NULL((void*)0) || val2 == NULL((void*)0))
  return 0;

/* This is bogus, but unfortunately necessary. We must know
   exactly what caused an error -- reading val1 or val2 --  so
   that we can really determine if we think that something has changed. */
err1 = 0;
err2 = 0;
/* We do need to catch errors here because the whole purpose
   is to test if value_equal() has errored */
if (!gdb_value_equal (val1, val1, &r))
  err1 = 1;

if (!gdb_value_equal (val2, val2, &r))
  *error2 = err2 = 1;

if (err1 != err2)
  return 0;

if (!gdb_value_equal (val1, val2, &r))
  {
    /* An error occurred, this could have happened if
       either val1 or val2 errored. ERR1 and ERR2 tell
       us which of these it is. If both errored, then
       we assume nothing has changed. If one of them is
       valid, though, then something has changed. */
    if (err1 == err2)
{
 /* both the old and new values caused errors, so
    we say the value did not change */
 /* This is indeterminate, though. Perhaps we should
    be safe and say, yes, it changed anyway?? */
 return 1;
}
    else
{
 return 0;
}
  }

return r;
1550}

1552/* FIXME: The following should be generic for any pointer */
1553static void
1554vpush (struct vstack **pstack, struct varobj *var)
1555{
struct vstack *s;

s = (struct vstack *) xmalloc (sizeof (struct vstack));
s->var = var;
s->next = *pstack;
*pstack = s;
1562}

1564/* FIXME: The following should be generic for any pointer */
1565static struct varobj *
1566vpop (struct vstack **pstack)
1567{
struct vstack *s;
struct varobj *v;

if ((*pstack)->var == NULL((void*)0) && (*pstack)->next == NULL((void*)0))
  return NULL((void*)0);

s = *pstack;
v = s->var;
*pstack = (*pstack)->next;
xfree (s);

return v;
1580}

1582/* FIXME: The following should be generic for any pointer */
1583static void
1584cppush (struct cpstack **pstack, char *name)
1585{
struct cpstack *s;

s = (struct cpstack *) xmalloc (sizeof (struct cpstack));
s->name = name;
s->next = *pstack;
*pstack = s;
1592}

1594/* FIXME: The following should be generic for any pointer */
1595static char *
1596cppop (struct cpstack **pstack)
1597{
struct cpstack *s;
char *v;

if ((*pstack)->name == NULL((void*)0) && (*pstack)->next == NULL((void*)0))
  return NULL((void*)0);

s = *pstack;
v = s->name;
*pstack = (*pstack)->next;
xfree (s);

return v;
1610}
1611
1612/*
* Language-dependencies
*/

1616/* Common entry points */

1618/* Get the language of variable VAR. */
1619static enum varobj_languages
1620variable_language (struct varobj *var)
1621{
enum varobj_languages lang;

switch (var->root->exp->language_defn->la_language)
  {
  default:
  case language_c:
    lang = vlang_c;
    break;
  case language_cplus:
    lang = vlang_cplus;
    break;
  case language_java:
    lang = vlang_java;
    break;
  }

return lang;
1639}

1641/* Return the number of children for a given variable.
 The result of this function is defined by the language
 implementation. The number of children returned by this function
 is the number of children that the user will see in the variable
 display. */
1646static int
1647number_of_children (struct varobj *var)
1648{
return (*var->root->lang->number_of_children) (var);;
1650}

1652/* What is the expression for the root varobj VAR? Returns a malloc'd string. */
1653static char *
1654name_of_variable (struct varobj *var)
1655{
return (*var->root->lang->name_of_variable) (var);
1657}

1659/* What is the name of the INDEX'th child of VAR? Returns a malloc'd string. */
1660static char *
1661name_of_child (struct varobj *var, int index)
1662{
return (*var->root->lang->name_of_child) (var, index);
1664}

1666/* What is the ``struct value *'' of the root variable VAR? 
 TYPE_CHANGED controls what to do if the type of a
 use_selected_frame = 1 variable changes.  On input,
 TYPE_CHANGED = 1 means discard the old varobj, and replace
 it with this one.  TYPE_CHANGED = 0 means leave it around.
 NB: In both cases, var_handle will point to the new varobj,
 so if you use TYPE_CHANGED = 0, you will have to stash the
 old varobj pointer away somewhere before calling this.
 On return, TYPE_CHANGED will be 1 if the type has changed, and 
 0 otherwise. */
1676static struct value *
1677value_of_root (struct varobj **var_handle, int *type_changed)
1678{
struct varobj *var;

if (var_handle == NULL((void*)0))
  return NULL((void*)0);

var = *var_handle;

/* This should really be an exception, since this should
   only get called with a root variable. */

if (var->root->rootvar != var)
  return NULL((void*)0);

if (var->root->use_selected_frame)
  {
    struct varobj *tmp_var;
    char *old_type, *new_type;
    old_type = varobj_get_type (var);
    tmp_var = varobj_create (NULL((void*)0), var->name, (CORE_ADDR) 0,
	       USE_SELECTED_FRAME);
    if (tmp_var == NULL((void*)0))
{
 return NULL((void*)0);
}
    new_type = varobj_get_type (tmp_var);
    if (strcmp (old_type, new_type) == 0)
{
 varobj_delete (tmp_var, NULL((void*)0), 0);
 *type_changed = 0;
}
    else
{
 if (*type_changed)
   {
     tmp_var->obj_name =
savestring (var->obj_name, strlen (var->obj_name));
     varobj_delete (var, NULL((void*)0), 0);
   }
 else
   {
     tmp_var->obj_name = varobj_gen_name ();
   }
 install_variable (tmp_var);
 *var_handle = tmp_var;
 var = *var_handle;
 *type_changed = 1;
}
  }
else
  {
    *type_changed = 0;
  }

return (*var->root->lang->value_of_root) (var_handle);
1733}

1735/* What is the ``struct value *'' for the INDEX'th child of PARENT? */
1736static struct value *
1737value_of_child (struct varobj *parent, int index)
1738{
struct value *value;

value = (*parent->root->lang->value_of_child) (parent, index);

/* If we're being lazy, fetch the real value of the variable. */
if (value != NULL((void*)0) && VALUE_LAZY (value)(value)->lazy)
  {
    /* If we fail to fetch the value of the child, return
       NULL so that callers notice that we're leaving an
       error message. */
    if (!gdb_value_fetch_lazy (value))
value = NULL((void*)0);
  }

return value;
1754}

1756/* What is the type of VAR? */
1757static struct type *
1758type_of_child (struct varobj *var)
1759{

/* If the child had no evaluation errors, var->value
   will be non-NULL and contain a valid type. */
if (var->value != NULL((void*)0))
  return VALUE_TYPE (var->value)(var->value)->type;

/* Otherwise, we must compute the type. */
return (*var->root->lang->type_of_child) (var->parent, var->index);
1768}

1770/* Is this variable editable? Use the variable's type to make
 this determination. */
1772static int
1773variable_editable (struct varobj *var)
1774{
return (*var->root->lang->variable_editable) (var);
1776}

1778/* GDB already has a command called "value_of_variable". Sigh. */
1779static char *
1780my_value_of_variable (struct varobj *var)
1781{
return (*var->root->lang->value_of_variable) (var);
1783}

1785/* Is VAR something that can change? Depending on language,
 some variable's values never change. For example,
 struct and unions never change values. */
1788static int
1789type_changeable (struct varobj *var)
1790{
int r;
struct type *type;

if (CPLUS_FAKE_CHILD (var)((var) != ((void*)0) && (var)->type == ((void*)0) &&
 (var)->value == ((void*)0)))
  return 0;

type = get_type (var);

switch (TYPE_CODE (type)(type)->main_type->code)
  {
  case TYPE_CODE_STRUCT:
  case TYPE_CODE_UNION:
  case TYPE_CODE_ARRAY:
    r = 0;
    break;

  default:
    r = 1;
  }

return r;
1812}

1814/* C */
1815static int
1816c_number_of_children (struct varobj *var)
1817{
struct type *type;
struct type *target;
int children;

type = get_type (var);
target = get_target_type (type);
children = 0;

switch (TYPE_CODE (type)(type)->main_type->code)
  {
  case TYPE_CODE_ARRAY:
    if (TYPE_LENGTH (type)(type)->length > 0 && TYPE_LENGTH (target)(target)->length > 0
 && TYPE_ARRAY_UPPER_BOUND_TYPE (type)(type)->main_type->upper_bound_type != BOUND_CANNOT_BE_DETERMINED)
children = TYPE_LENGTH (type)(type)->length / TYPE_LENGTH (target)(target)->length;
    else
children = -1;
    break;

  case TYPE_CODE_STRUCT:
  case TYPE_CODE_UNION:
    children = TYPE_NFIELDS (type)(type)->main_type->nfields;
    break;

  case TYPE_CODE_PTR:
    /* This is where things get compilcated. All pointers have one child.
       Except, of course, for struct and union ptr, which we automagically
       dereference for the user and function ptrs, which have no children.
       We also don't dereference void* as we don't know what to show.
       We can show char* so we allow it to be dereferenced.  If you decide
       to test for it, please mind that a little magic is necessary to
       properly identify it: char* has TYPE_CODE == TYPE_CODE_INT and 
       TYPE_NAME == "char" */

    switch (TYPE_CODE (target)(target)->main_type->code)
{
case TYPE_CODE_STRUCT:
case TYPE_CODE_UNION:
 children = TYPE_NFIELDS (target)(target)->main_type->nfields;
 break;

case TYPE_CODE_FUNC:
case TYPE_CODE_VOID:
 children = 0;
 break;

default:
 children = 1;
}
    break;

  default:
    /* Other types have no children */
    break;
  }

return children;
1874}

1876static char *
1877c_name_of_variable (struct varobj *parent)
1878{
return savestring (parent->name, strlen (parent->name));
1880}

1882static char *
1883c_name_of_child (struct varobj *parent, int index)
1884{
struct type *type;
struct type *target;
char *name;
char *string;

type = get_type (parent);
target = get_target_type (type);

switch (TYPE_CODE (type)(type)->main_type->code)
  {
  case TYPE_CODE_ARRAY:
    name = xstrprintf ("%d", index);
    break;

  case TYPE_CODE_STRUCT:
  case TYPE_CODE_UNION:
    string = TYPE_FIELD_NAME (type, index)(((type)->main_type->fields[index]).name);
    name = savestring (string, strlen (string));
    break;

  case TYPE_CODE_PTR:
    switch (TYPE_CODE (target)(target)->main_type->code)
{
case TYPE_CODE_STRUCT:
case TYPE_CODE_UNION:
 string = TYPE_FIELD_NAME (target, index)(((target)->main_type->fields[index]).name);
 name = savestring (string, strlen (string));
 break;

default:
 name = xstrprintf ("*%s", parent->name);
 break;
}
    break;

  default:
    /* This should not happen */
    name = xstrdup ("???");
  }

return name;
1926}

1928static struct value *
1929c_value_of_root (struct varobj **var_handle)
1930{
struct value *new_val;
struct varobj *var = *var_handle;
struct frame_info *fi;
int within_scope;

/*  Only root variables can be updated... */
if (var->root->rootvar != var)
  /* Not a root var */
  return NULL((void*)0);


/* Determine whether the variable is still around. */
if (var->root->valid_block == NULL((void*)0))
  within_scope = 1;
else
  {
    reinit_frame_cache ();
    fi = frame_find_by_id (var->root->frame);
    within_scope = fi != NULL((void*)0);
    /* FIXME: select_frame could fail */
    if (within_scope)
select_frame (fi);
  }

if (within_scope)
  {
    /* We need to catch errors here, because if evaluate
       expression fails we just want to make val->error = 1 and
       go on */
    if (gdb_evaluate_expression (var->root->exp, &new_val))
{
 if (VALUE_LAZY (new_val)(new_val)->lazy)
   {
     /* We need to catch errors because if
        value_fetch_lazy fails we still want to continue
        (after making val->error = 1) */
     /* FIXME: Shouldn't be using VALUE_CONTENTS?  The
        comment on value_fetch_lazy() says it is only
        called from the macro... */
     if (!gdb_value_fetch_lazy (new_val))
var->error = 1;
     else
var->error = 0;
   }
}
    else
var->error = 1;

    release_value (new_val);
    return new_val;
  }

return NULL((void*)0);
1984}

1986static struct value *
1987c_value_of_child (struct varobj *parent, int index)
1988{
struct value *value;
struct value *temp;
struct value *indval;
struct type *type, *target;
char *name;

type = get_type (parent);
target = get_target_type (type);
name = name_of_child (parent, index);
temp = parent->value;
value = NULL((void*)0);

if (temp != NULL((void*)0))
  {
    switch (TYPE_CODE (type)(type)->main_type->code)
{
case TYPE_CODE_ARRAY:
2006#if 0
 /* This breaks if the array lives in a (vector) register. */
 value = value_slice (temp, index, 1);
 temp = value_coerce_array (value);
 gdb_value_ind (temp, &value);
2011#else
 indval = value_from_longest (builtin_type_int, (LONGESTlong) index);
 gdb_value_subscript (temp, indval, &value);
2014#endif
 break;

case TYPE_CODE_STRUCT:
case TYPE_CODE_UNION:
 gdb_value_struct_elt (NULL((void*)0), &value, &temp, NULL((void*)0), name, NULL((void*)0),
		"vstructure");
 break;

case TYPE_CODE_PTR:
 switch (TYPE_CODE (target)(target)->main_type->code)
   {
   case TYPE_CODE_STRUCT:
   case TYPE_CODE_UNION:
     gdb_value_struct_elt (NULL((void*)0), &value, &temp, NULL((void*)0), name, NULL((void*)0),
		    "vstructure");
     break;

   default:
     gdb_value_ind (temp, &value);
     break;
   }
 break;

default:
 break;
}
  }

if (value != NULL((void*)0))
  release_value (value);

xfree (name);
return value;
2048}

2050static struct type *
2051c_type_of_child (struct varobj *parent, int index)
2052{
struct type *type;
char *name = name_of_child (parent, index);

switch (TYPE_CODE (parent->type)(parent->type)->main_type->code)
  {
  case TYPE_CODE_ARRAY:
    type = get_target_type (parent->type);
    break;

  case TYPE_CODE_STRUCT:
  case TYPE_CODE_UNION:
    type = lookup_struct_elt_type (parent->type, name, 0);
    break;

  case TYPE_CODE_PTR:
    switch (TYPE_CODE (get_target_type (parent->type))(get_target_type (parent->type))->main_type->code)
{
case TYPE_CODE_STRUCT:
case TYPE_CODE_UNION:
 type = lookup_struct_elt_type (parent->type, name, 0);
 break;

default:
 type = get_target_type (parent->type);
 break;
}
    break;

  default:
    /* This should not happen as only the above types have children */
    warning ("Child of parent whose type does not allow children");
    /* FIXME: Can we still go on? */
    type = NULL((void*)0);
    break;
  }

xfree (name);
return type;
2091}

2093static int
2094c_variable_editable (struct varobj *var)
2095{
switch (TYPE_CODE (get_type (var))(get_type (var))->main_type->code)
  {
  case TYPE_CODE_STRUCT:
  case TYPE_CODE_UNION:
  case TYPE_CODE_ARRAY:
  case TYPE_CODE_FUNC:
  case TYPE_CODE_MEMBER:
  case TYPE_CODE_METHOD:
    return 0;
    break;

  default:
    return 1;
    break;
  }
2111}

2113static char *
2114c_value_of_variable (struct varobj *var)
2115{
/* BOGUS: if val_print sees a struct/class, it will print out its
   children instead of "{...}" */

switch (TYPE_CODE (get_type (var))(get_type (var))->main_type->code)
  {
  case TYPE_CODE_STRUCT:
  case TYPE_CODE_UNION:
    return xstrdup ("{...}");
    /* break; */

  case TYPE_CODE_ARRAY:
    {
char *number;
number = xstrprintf ("[%d]", var->num_children);
return (number);
    }
    /* break; */

  default:
    {
if (var->value == NULL((void*)0))
 {
   /* This can happen if we attempt to get the value of a struct
      member when the parent is an invalid pointer. This is an
      error condition, so we should tell the caller. */
   return NULL((void*)0);
 }
else
 {
   long dummy;
   struct ui_file *stb = mem_fileopen ();
   struct cleanup *old_chain = make_cleanup_ui_file_delete (stb);
   char *thevalue;

   if (VALUE_LAZY (var->value)(var->value)->lazy)
     gdb_value_fetch_lazy (var->value);
   val_print (VALUE_TYPE (var->value)(var->value)->type,
       VALUE_CONTENTS_RAW (var->value)((char *) (var->value)->aligner.contents + (var->value
)->embedded_offset), 0,
       VALUE_ADDRESS (var->value)(var->value)->location.address, stb,
       format_code[(int) var->format], 1, 0, 0);
   thevalue = ui_file_xstrdup (stb, &dummy);
   do_cleanups (old_chain);
return thevalue;
    }
    }
  }
2162}
2163

2165/* C++ */

2167static int
2168cplus_number_of_children (struct varobj *var)
2169{
struct type *type;
int children, dont_know;

dont_know = 1;
children = 0;

if (!CPLUS_FAKE_CHILD (var)((var) != ((void*)0) && (var)->type == ((void*)0) &&
 (var)->value == ((void*)0)))
  {
    type = get_type_deref (var);

    if (((TYPE_CODE (type)(type)->main_type->code) == TYPE_CODE_STRUCT) ||
 ((TYPE_CODE (type)(type)->main_type->code) == TYPE_CODE_UNION))
{
 int kids[3];

 cplus_class_num_children (type, kids);
 if (kids[v_public] != 0)
   children++;
 if (kids[v_private] != 0)
   children++;
 if (kids[v_protected] != 0)
   children++;

 /* Add any baseclasses */
 children += TYPE_N_BASECLASSES (type)(type)->main_type->type_specific.cplus_stuff->n_baseclasses;
 dont_know = 0;

 /* FIXME: save children in var */
}
  }
else
  {
    int kids[3];

    type = get_type_deref (var->parent);

    cplus_class_num_children (type, kids);
    if (strcmp (var->name, "public") == 0)
children = kids[v_public];
    else if (strcmp (var->name, "private") == 0)
children = kids[v_private];
    else
children = kids[v_protected];
    dont_know = 0;
  }

if (dont_know)
  children = c_number_of_children (var);

return children;
2220}

2222/* Compute # of public, private, and protected variables in this class.
 That means we need to descend into all baseclasses and find out
 how many are there, too. */
2225static void
2226cplus_class_num_children (struct type *type, int children[3])
2227{
int i;

children[v_public] = 0;
children[v_private] = 0;
children[v_protected] = 0;

for (i = TYPE_N_BASECLASSES (type)(type)->main_type->type_specific.cplus_stuff->n_baseclasses; i < TYPE_NFIELDS (type)(type)->main_type->nfields; i++)
  {
    /* If we have a virtual table pointer, omit it. */
    if (TYPE_VPTR_BASETYPE (type)(type)->main_type->vptr_basetype == type && TYPE_VPTR_FIELDNO (type)(type)->main_type->vptr_fieldno == i)
continue;

    if (TYPE_FIELD_PROTECTED (type, i)((type)->main_type->type_specific.cplus_stuff->protected_field_bits
 == ((void*)0) ? 0 : (((type)->main_type->type_specific
.cplus_stuff->protected_field_bits)[((i))>>3] & (
<< (((i))&7)))))
children[v_protected]++;
    else if (TYPE_FIELD_PRIVATE (type, i)((type)->main_type->type_specific.cplus_stuff->private_field_bits
 == ((void*)0) ? 0 : (((type)->main_type->type_specific
.cplus_stuff->private_field_bits)[((i))>>3] & (1
 << (((i))&7)))))
children[v_private]++;
    else
children[v_public]++;
  }
2247}

2249static char *
2250cplus_name_of_variable (struct varobj *parent)
2251{
return c_name_of_variable (parent);
2253}

2255static char *
2256cplus_name_of_child (struct varobj *parent, int index)
2257{
char *name;
struct type *type;

if (CPLUS_FAKE_CHILD (parent)((parent) != ((void*)0) && (parent)->type == ((void
*)0) && (parent)->value == ((void*)0)))
  {
    /* Looking for children of public, private, or protected. */
    type = get_type_deref (parent->parent);
  }
else
  type = get_type_deref (parent);

name = NULL((void*)0);
switch (TYPE_CODE (type)(type)->main_type->code)
  {
  case TYPE_CODE_STRUCT:
  case TYPE_CODE_UNION:
    if (CPLUS_FAKE_CHILD (parent)((parent) != ((void*)0) && (parent)->type == ((void
*)0) && (parent)->value == ((void*)0)))
{
 /* The fields of the class type are ordered as they
    appear in the class.  We are given an index for a
    particular access control type ("public","protected",
    or "private").  We must skip over fields that don't
    have the access control we are looking for to properly
    find the indexed field. */
 int type_index = TYPE_N_BASECLASSES (type)(type)->main_type->type_specific.cplus_stuff->n_baseclasses;
 if (strcmp (parent->name, "private") == 0)
   {
     while (index >= 0)
{
 	  if (TYPE_VPTR_BASETYPE (type)(type)->main_type->vptr_basetype == type
     	      && type_index == TYPE_VPTR_FIELDNO (type)(type)->main_type->vptr_fieldno)
    ; /* ignore vptr */
  else if (TYPE_FIELD_PRIVATE (type, type_index)((type)->main_type->type_specific.cplus_stuff->private_field_bits
 == ((void*)0) ? 0 : (((type)->main_type->type_specific
.cplus_stuff->private_field_bits)[((type_index))>>3]
 & (1 << (((type_index))&7)))))
    --index;
  ++type_index;
}
     --type_index;
   }
 else if (strcmp (parent->name, "protected") == 0)
   {
     while (index >= 0)
{
 	  if (TYPE_VPTR_BASETYPE (type)(type)->main_type->vptr_basetype == type
     	      && type_index == TYPE_VPTR_FIELDNO (type)(type)->main_type->vptr_fieldno)
    ; /* ignore vptr */
  else if (TYPE_FIELD_PROTECTED (type, type_index)((type)->main_type->type_specific.cplus_stuff->protected_field_bits
 == ((void*)0) ? 0 : (((type)->main_type->type_specific
.cplus_stuff->protected_field_bits)[((type_index))>>
3] & (1 << (((type_index))&7)))))
    --index;
  ++type_index;
}
     --type_index;
   }
 else
   {
     while (index >= 0)
{
 	  if (TYPE_VPTR_BASETYPE (type)(type)->main_type->vptr_basetype == type
     	      && type_index == TYPE_VPTR_FIELDNO (type)(type)->main_type->vptr_fieldno)
    ; /* ignore vptr */
  else if (!TYPE_FIELD_PRIVATE (type, type_index)((type)->main_type->type_specific.cplus_stuff->private_field_bits
 == ((void*)0) ? 0 : (((type)->main_type->type_specific
.cplus_stuff->private_field_bits)[((type_index))>>3]
 & (1 << (((type_index))&7)))) &&
      !TYPE_FIELD_PROTECTED (type, type_index)((type)->main_type->type_specific.cplus_stuff->protected_field_bits
 == ((void*)0) ? 0 : (((type)->main_type->type_specific
.cplus_stuff->protected_field_bits)[((type_index))>>
3] & (1 << (((type_index))&7)))))
    --index;
  ++type_index;
}
     --type_index;
   }

 name = TYPE_FIELD_NAME (type, type_index)(((type)->main_type->fields[type_index]).name);
}
    else if (index < TYPE_N_BASECLASSES (type)(type)->main_type->type_specific.cplus_stuff->n_baseclasses)
/* We are looking up the name of a base class */
name = TYPE_FIELD_NAME (type, index)(((type)->main_type->fields[index]).name);
    else
{
 int children[3];
 cplus_class_num_children(type, children);

 /* Everything beyond the baseclasses can
    only be "public", "private", or "protected"

    The special "fake" children are always output by varobj in
    this order. So if INDEX == 2, it MUST be "protected". */
 index -= TYPE_N_BASECLASSES (type)(type)->main_type->type_specific.cplus_stuff->n_baseclasses;
 switch (index)
   {
   case 0:
     if (children[v_public] > 0)
	name = "public";
     else if (children[v_private] > 0)
	name = "private";
     else 
	name = "protected";
     break;
   case 1:
     if (children[v_public] > 0)
{
  if (children[v_private] > 0)
    name = "private";
  else
    name = "protected";
}
     else if (children[v_private] > 0)
	name = "protected";
     break;
   case 2:
     /* Must be protected */
     name = "protected";
     break;
   default:
     /* error! */
     break;
   }
}
    break;

  default:
    break;
  }

if (name == NULL((void*)0))
  return c_name_of_child (parent, index);
else
  {
    if (name != NULL((void*)0))
name = savestring (name, strlen (name));
  }

return name;
2385}

2387static struct value *
2388cplus_value_of_root (struct varobj **var_handle)
2389{
return c_value_of_root (var_handle);
2391}

2393static struct value *
2394cplus_value_of_child (struct varobj *parent, int index)
2395{
struct type *type;
struct value *value;

if (CPLUS_FAKE_CHILD (parent)((parent) != ((void*)0) && (parent)->type == ((void
*)0) && (parent)->value == ((void*)0)))
  type = get_type_deref (parent->parent);
else
  type = get_type_deref (parent);

value = NULL((void*)0);

if (((TYPE_CODE (type)(type)->main_type->code) == TYPE_CODE_STRUCT) ||
    ((TYPE_CODE (type)(type)->main_type->code) == TYPE_CODE_UNION))
  {
    if (CPLUS_FAKE_CHILD (parent)((parent) != ((void*)0) && (parent)->type == ((void
*)0) && (parent)->value == ((void*)0)))
{
 char *name;
 struct value *temp = parent->parent->value;

 if (temp == NULL((void*)0))
   return NULL((void*)0);

 name = name_of_child (parent, index);
 gdb_value_struct_elt (NULL((void*)0), &value, &temp, NULL((void*)0), name, NULL((void*)0),
		"cplus_structure");
 if (value != NULL((void*)0))
   release_value (value);

 xfree (name);
}
    else if (index >= TYPE_N_BASECLASSES (type)(type)->main_type->type_specific.cplus_stuff->n_baseclasses)
{
 /* public, private, or protected */
 return NULL((void*)0);
}
    else
{
 /* Baseclass */
 if (parent->value != NULL((void*)0))
   {
     struct value *temp = NULL((void*)0);

     if (TYPE_CODE (VALUE_TYPE (parent->value))((parent->value)->type)->main_type->code == TYPE_CODE_PTR
  || TYPE_CODE (VALUE_TYPE (parent->value))((parent->value)->type)->main_type->code == TYPE_CODE_REF)
{
  if (!gdb_value_ind (parent->value, &temp))
    return NULL((void*)0);
}
     else
temp = parent->value;

     if (temp != NULL((void*)0))
{
  value = value_cast (TYPE_FIELD_TYPE (type, index)(((type)->main_type->fields[index]).type), temp);
  release_value (value);
}
     else
{
  /* We failed to evaluate the parent's value, so don't even
     bother trying to evaluate this child. */
  return NULL((void*)0);
}
   }
}
  }

if (value == NULL((void*)0))
  return c_value_of_child (parent, index);

return value;
2465}

2467static struct type *
2468cplus_type_of_child (struct varobj *parent, int index)
2469{
struct type *type, *t;

if (CPLUS_FAKE_CHILD (parent)((parent) != ((void*)0) && (parent)->type == ((void
*)0) && (parent)->value == ((void*)0)))
  {
    /* Looking for the type of a child of public, private, or protected. */
    t = get_type_deref (parent->parent);
  }
else
  t = get_type_deref (parent);

type = NULL((void*)0);
switch (TYPE_CODE (t)(t)->main_type->code)
  {
  case TYPE_CODE_STRUCT:
  case TYPE_CODE_UNION:
    if (CPLUS_FAKE_CHILD (parent)((parent) != ((void*)0) && (parent)->type == ((void
*)0) && (parent)->value == ((void*)0)))
{
 char *name = cplus_name_of_child (parent, index);
 type = lookup_struct_elt_type (t, name, 0);
 xfree (name);
}
    else if (index < TYPE_N_BASECLASSES (t)(t)->main_type->type_specific.cplus_stuff->n_baseclasses)
type = TYPE_FIELD_TYPE (t, index)(((t)->main_type->fields[index]).type);
    else
{
 /* special */
 return NULL((void*)0);
}
    break;

  default:
    break;
  }

if (type == NULL((void*)0))
  return c_type_of_child (parent, index);

return type;
2508}

2510static int
2511cplus_variable_editable (struct varobj *var)
2512{
if (CPLUS_FAKE_CHILD (var)((var) != ((void*)0) && (var)->type == ((void*)0) &&
 (var)->value == ((void*)0)))
  return 0;

return c_variable_editable (var);
2517}

2519static char *
2520cplus_value_of_variable (struct varobj *var)
2521{

/* If we have one of our special types, don't print out
   any value. */
if (CPLUS_FAKE_CHILD (var)((var) != ((void*)0) && (var)->type == ((void*)0) &&
 (var)->value == ((void*)0)))
  return xstrdup ("");

return c_value_of_variable (var);
2529}
2530
2531/* Java */

2533static int
2534java_number_of_children (struct varobj *var)
2535{
return cplus_number_of_children (var);
2537}

2539static char *
2540java_name_of_variable (struct varobj *parent)
2541{
char *p, *name;

name = cplus_name_of_variable (parent);
/* If  the name has "-" in it, it is because we
   needed to escape periods in the name... */
p = name;

while (*p != '\000')
  {
    if (*p == '-')
*p = '.';
    p++;
  }

return name;
2557}

2559static char *
2560java_name_of_child (struct varobj *parent, int index)
2561{
char *name, *p;

name = cplus_name_of_child (parent, index);
/* Escape any periods in the name... */
p = name;

while (*p != '\000')
  {
    if (*p == '.')
*p = '-';
    p++;
  }

return name;
2576}

2578static struct value *
2579java_value_of_root (struct varobj **var_handle)
2580{
return cplus_value_of_root (var_handle);
2582}

2584static struct value *
2585java_value_of_child (struct varobj *parent, int index)
2586{
return cplus_value_of_child (parent, index);
2588}

2590static struct type *
2591java_type_of_child (struct varobj *parent, int index)
2592{
return cplus_type_of_child (parent, index);
2594}

2596static int
2597java_variable_editable (struct varobj *var)
2598{
return cplus_variable_editable (var);
2600}

2602static char *
2603java_value_of_variable (struct varobj *var)
2604{
return cplus_value_of_variable (var);
2606}
2607
2608extern void _initialize_varobj (void);
2609void
2610_initialize_varobj (void)
2611{
int sizeof_table = sizeof (struct vlist *) * VAROBJ_TABLE_SIZE227;

varobj_table = xmalloc (sizeof_table);
memset (varobj_table, 0, sizeof_table);

deprecated_add_show_from_set (add_set_cmd ("debugvarobj", class_maintenance, var_zinteger, (char *) &varobjdebug, "Set varobj debugging.\n\
2618When non-zero, varobj debugging is enabled.", &setlist),
     &showlist);
2620}