diff options
Diffstat (limited to 'contrib/gdb/gdb/varobj.c')
-rw-r--r-- | contrib/gdb/gdb/varobj.c | 2492 |
1 files changed, 2492 insertions, 0 deletions
diff --git a/contrib/gdb/gdb/varobj.c b/contrib/gdb/gdb/varobj.c new file mode 100644 index 0000000..f56b7aa --- /dev/null +++ b/contrib/gdb/gdb/varobj.c @@ -0,0 +1,2492 @@ +/* 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. */ + +#include "defs.h" +#include "value.h" +#include "expression.h" +#include "frame.h" +#include "language.h" +#include "wrapper.h" +#include "gdbcmd.h" +#include <math.h> + +#include "varobj.h" + +/* Non-zero if we want to see trace of varobj level stuff. */ + +int varobjdebug = 0; + +/* String representations of gdb's format codes */ +char *varobj_format_string[] = + { "natural", "binary", "decimal", "hexadecimal", "octal" }; + +/* String representations of gdb's known languages */ +char *varobj_language_string[] = { "unknown", "C", "C++", "Java" }; + +/* Data structures */ + +/* Every root variable has one of these structures saved in its + varobj. Members which must be free'd are noted. */ +struct varobj_root +{ + + /* 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 */ + CORE_ADDR 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; +}; + +/* 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. */ +struct varobj +{ + + /* 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; +}; + +/* Every variable keeps a linked list of its children, described + by the following structure. */ +/* FIXME: Deprecated. All should use vlist instead */ + +struct varobj_child +{ + + /* Pointer to the child's data */ + struct varobj *child; + + /* Pointer to the next child */ + struct varobj_child *next; +}; + +/* A stack of varobjs */ +/* FIXME: Deprecated. All should use vlist instead */ + +struct vstack +{ + struct varobj *var; + struct vstack *next; +}; + +struct cpstack +{ + char *name; + struct cpstack *next; +}; + +/* A list of varobjs */ + +struct vlist +{ + struct varobj *var; + struct vlist *next; +}; + +/* Private function prototypes */ + +/* Helper functions for the above subcommands. */ + +static int delete_variable (struct cpstack **, struct varobj *, int); + +static void delete_variable_1 (struct cpstack **, int *, + struct varobj *, int, int); + +static int install_variable (struct varobj *); + +static void uninstall_variable (struct varobj *); + +static struct varobj *child_exists (struct varobj *, char *); + +static struct varobj *create_child (struct varobj *, int, char *); + +static void save_child_in_parent (struct varobj *, struct varobj *); + +static void remove_child_from_parent (struct varobj *, struct varobj *); + +/* Utility routines */ + +static struct varobj *new_variable (void); + +static struct varobj *new_root_variable (void); + +static void free_variable (struct varobj *var); + +static struct cleanup *make_cleanup_free_variable (struct varobj *var); + +static struct type *get_type (struct varobj *var); + +static struct type *get_type_deref (struct varobj *var); + +static struct type *get_target_type (struct type *); + +static enum varobj_display_formats variable_default_display (struct varobj *); + +static int my_value_equal (struct value *, struct value *, int *); + +static void vpush (struct vstack **pstack, struct varobj *var); + +static struct varobj *vpop (struct vstack **pstack); + +static void cppush (struct cpstack **pstack, char *name); + +static char *cppop (struct cpstack **pstack); + +/* Language-specific routines. */ + +static enum varobj_languages variable_language (struct varobj *var); + +static int number_of_children (struct varobj *); + +static char *name_of_variable (struct varobj *); + +static char *name_of_child (struct varobj *, int); + +static struct value *value_of_root (struct varobj **var_handle, int *); + +static struct value *value_of_child (struct varobj *parent, int index); + +static struct type *type_of_child (struct varobj *var); + +static int variable_editable (struct varobj *var); + +static char *my_value_of_variable (struct varobj *var); + +static int type_changeable (struct varobj *var); + +/* C implementation */ + +static int c_number_of_children (struct varobj *var); + +static char *c_name_of_variable (struct varobj *parent); + +static char *c_name_of_child (struct varobj *parent, int index); + +static struct value *c_value_of_root (struct varobj **var_handle); + +static struct value *c_value_of_child (struct varobj *parent, int index); + +static struct type *c_type_of_child (struct varobj *parent, int index); + +static int c_variable_editable (struct varobj *var); + +static char *c_value_of_variable (struct varobj *var); + +/* C++ implementation */ + +static int cplus_number_of_children (struct varobj *var); + +static void cplus_class_num_children (struct type *type, int children[3]); + +static char *cplus_name_of_variable (struct varobj *parent); + +static char *cplus_name_of_child (struct varobj *parent, int index); + +static struct value *cplus_value_of_root (struct varobj **var_handle); + +static struct value *cplus_value_of_child (struct varobj *parent, int index); + +static struct type *cplus_type_of_child (struct varobj *parent, int index); + +static int cplus_variable_editable (struct varobj *var); + +static char *cplus_value_of_variable (struct varobj *var); + +/* Java implementation */ + +static int java_number_of_children (struct varobj *var); + +static char *java_name_of_variable (struct varobj *parent); + +static char *java_name_of_child (struct varobj *parent, int index); + +static struct value *java_value_of_root (struct varobj **var_handle); + +static struct value *java_value_of_child (struct varobj *parent, int index); + +static struct type *java_type_of_child (struct varobj *parent, int index); + +static int java_variable_editable (struct varobj *var); + +static char *java_value_of_variable (struct varobj *var); + +/* The language specific vector */ + +struct language_specific +{ + + /* 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); +}; + +/* Array of known source language routines. */ +static 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} +}; + +/* A little convenience enum for dealing with C++/Java */ +enum vsections +{ + v_public = 0, v_private, v_protected +}; + +/* Private data */ + +/* Mappings of varobj_display_formats enums to gdb's format codes */ +static int format_code[] = { 0, 't', 'd', 'x', 'o' }; + +/* Header of the list of root variable objects */ +static struct varobj_root *rootlist; +static int rootcount = 0; /* number of root varobjs in the list */ + +/* Prime number indicating the number of buckets in the hash table */ +/* A prime large enough to avoid too many colisions */ +#define VAROBJ_TABLE_SIZE 227 + +/* Pointer to the varobj hash table (built at run time) */ +static struct vlist **varobj_table; + +/* Is the variable X one of our "fake" children? */ +#define CPLUS_FAKE_CHILD(x) \ +((x) != NULL && (x)->type == NULL && (x)->value == NULL) + + +/* API Implementation */ + +/* Creates a varobj (not its children) */ + +struct varobj * +varobj_create (char *objname, + char *expression, CORE_ADDR frame, enum varobj_type type) +{ + struct varobj *var; + struct frame_info *fi; + struct frame_info *old_fi = NULL; + 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) + { + 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 = selected_frame; + else + 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; + if (fi != NULL) + block = get_frame_block (fi); + + p = expression; + innermost_block = NULL; + /* 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; + } + + /* 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; + } + + 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) + { + var->root->frame = FRAME_FP (fi); + old_fi = selected_frame; + select_frame (fi, -1); + } + + /* 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)) + gdb_value_fetch_lazy (var->value); + } + else + var->value = evaluate_type (var->root->exp); + + var->type = VALUE_TYPE (var->value); + + /* 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) + select_frame (old_fi, -1); + } + + /* If the variable object name is null, that means this + is a temporary variable, so don't install it. */ + + if ((var != NULL) && (objname != NULL)) + { + 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; + } + } + + discard_cleanups (old_chain); + return var; +} + +/* Generates an unique name that can be used for a varobj */ + +char * +varobj_gen_name (void) +{ + static int id = 0; + char obj_name[31]; + + /* generate a name for this object */ + id++; + sprintf (obj_name, "var%d", id); + + return xstrdup (obj_name); +} + +/* Given an "objname", returns the pointer to the corresponding varobj + or NULL if not found */ + +struct varobj * +varobj_get_handle (char *objname) +{ + 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_SIZE; + } + + cv = *(varobj_table + index); + while ((cv != NULL) && (strcmp (cv->var->obj_name, objname) != 0)) + cv = cv->next; + + if (cv == NULL) + error ("Variable object not found"); + + return cv->var; +} + +/* Given the handle, return the name of the object */ + +char * +varobj_get_objname (struct varobj *var) +{ + return var->obj_name; +} + +/* Given the handle, return the expression represented by the object */ + +char * +varobj_get_expression (struct varobj *var) +{ + return name_of_variable (var); +} + +/* 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) */ + +int +varobj_delete (struct varobj *var, char ***dellist, int only_children) +{ + int delcount; + int mycount; + struct cpstack *result = NULL; + char **cp; + + /* Initialize a stack for temporary results */ + cppush (&result, NULL); + + 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) + { + *dellist = xmalloc ((delcount + 1) * sizeof (char *)); + + cp = *dellist; + mycount = delcount; + *cp = cppop (&result); + while ((*cp != NULL) && (mycount > 0)) + { + mycount--; + cp++; + *cp = cppop (&result); + } + + if (mycount || (*cp != NULL)) + warning ("varobj_delete: assertion failed - mycount(=%d) <> 0", + mycount); + } + + return delcount; +} + +/* Set/Get variable object display format */ + +enum varobj_display_formats +varobj_set_display_format (struct varobj *var, + enum varobj_display_formats format) +{ + 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; +} + +enum varobj_display_formats +varobj_get_display_format (struct varobj *var) +{ + return var->format; +} + +int +varobj_get_num_children (struct varobj *var) +{ + if (var->num_children == -1) + var->num_children = number_of_children (var); + + return var->num_children; +} + +/* Creates a list of the immediate children of a variable object; + the return code is the number of such children or -1 on error */ + +int +varobj_list_children (struct varobj *var, struct varobj ***childlist) +{ + struct varobj *child; + char *name; + int i; + + /* sanity check: have we been passed a pointer? */ + if (childlist == NULL) + return -1; + + *childlist = NULL; + + 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; + + /* check if child exists, if not create */ + name = name_of_child (var, i); + child = child_exists (var, name); + if (child == NULL) + child = create_child (var, i, name); + + *((*childlist) + i) = child; + } + + /* End of list is marked by a NULL pointer */ + *((*childlist) + i) = NULL; + + return var->num_children; +} + +/* Obtain the type of an object Variable as a string similar to the one gdb + prints on the console */ + +char * +varobj_get_type (struct varobj *var) +{ + 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)) + return NULL; + + 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), "", stb, -1); + + thetype = ui_file_xstrdup (stb, &length); + do_cleanups (old_chain); + return thetype; +} + +enum varobj_languages +varobj_get_language (struct varobj *var) +{ + return variable_language (var); +} + +int +varobj_get_attributes (struct varobj *var) +{ + int attributes = 0; + + if (variable_editable (var)) + /* FIXME: define masks for attributes */ + attributes |= 0x00000001; /* Editable */ + + return attributes; +} + +char * +varobj_get_value (struct varobj *var) +{ + return my_value_of_variable (var); +} + +/* Set the value of an object variable (if it is editable) to the + value of the given expression */ +/* Note: Invokes functions that can call error() */ + +int +varobj_set_value (struct varobj *var, char *expression) +{ + struct value *val; + 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 && 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 (!gdb_value_assign (var->value, value, &val)) + return 0; + value_free (var->value); + release_value (val); + var->value = val; + input_radix = saved_input_radix; + return 1; + } + + return 0; +} + +/* Returns a malloc'ed list with all root variable objects */ +int +varobj_list (struct varobj ***varlist) +{ + 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) && (mycount > 0)) + { + *cv = croot->rootvar; + mycount--; + cv++; + croot = croot->next; + } + /* Mark the end of the list */ + *cv = NULL; + + if (mycount || (croot != NULL)) + warning + ("varobj_list: assertion failed - wrong tally of root vars (%d:%d)", + rootcount, mycount); + + return rootcount; +} + +/* 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. */ + +int +varobj_update (struct varobj **varp, struct varobj ***changelist) +{ + int changed = 0; + int type_changed; + int i; + int vleft; + int error2; + struct varobj *v; + struct varobj **cv; + struct varobj **templist = NULL; + struct value *new; + struct vstack *stack = NULL; + struct vstack *result = NULL; + struct frame_info *old_fi; + + /* sanity check: have we been passed a pointer? */ + if (changelist == NULL) + return -1; + + /* Only root variables can be updated... */ + if ((*varp)->root->rootvar != *varp) + /* Not a root var */ + return -1; + + /* Save the selected stack frame, since we will need to change it + in order to evaluate expressions. */ + old_fi = 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) + { + (*varp)->error = 1; + return -1; + } + + /* Initialize a stack for temporary results */ + vpush (&result, NULL); + + /* If this is a "use_selected_frame" varobj, and its type has changed, + them note that it's changed. */ + if (type_changed) + { + 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) + && !my_value_equal ((*varp)->value, new, &error2)) + { + vpush (&result, *varp); + 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); + (*varp)->value = new; + + /* Initialize a stack */ + vpush (&stack, NULL); + + /* Push the root's children */ + if ((*varp)->children != NULL) + { + struct varobj_child *c; + for (c = (*varp)->children; c != NULL; c = c->next) + vpush (&stack, c->child); + } + + /* Walk through the children, reconstructing them all. */ + v = vpop (&stack); + while (v != NULL) + { + /* Push any children */ + if (v->children != NULL) + { + struct varobj_child *c; + for (c = v->children; c != NULL; c = c->next) + vpush (&stack, c->child); + } + + /* Update this variable */ + new = value_of_child (v->parent, v->index); + if (type_changeable (v) && !my_value_equal (v->value, new, &error2)) + { + /* Note that it's changed */ + vpush (&result, v); + changed++; + } + /* error2 replaces v->error since this new value + WILL replace the old one. */ + v->error = error2; + + /* We must always keep new values, since children depend on it. */ + if (v->value != NULL) + value_free (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) && (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; + } + + /* Restore selected frame */ + select_frame (old_fi, -1); + + if (type_changed) + return -2; + else + return changed; +} + + +/* Helper functions */ + +/* + * Variable object construction/destruction + */ + +static int +delete_variable (struct cpstack **resultp, struct varobj *var, + int only_children_p) +{ + int delcount = 0; + + delete_variable_1 (resultp, &delcount, var, + only_children_p, 1 /* remove_from_parent_p */ ); + + return delcount; +} + +/* Delete the variable object VAR and its children */ +/* 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 */ +static void +delete_variable_1 (struct cpstack **resultp, int *delcountp, + struct varobj *var, int only_children_p, + int remove_from_parent_p) +{ + struct varobj_child *vc; + struct varobj_child *next; + + /* Delete any children of this variable, too. */ + for (vc = var->children; vc != NULL; vc = next) + { + if (!remove_from_parent_p) + vc->child->parent = NULL; + 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) + { + 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)) + { + remove_child_from_parent (var->parent, var); + } + + if (var->obj_name != NULL) + uninstall_variable (var); + + /* Free memory associated with this variable */ + free_variable (var); +} + +/* Install the given variable VAR with the object name VAR->OBJ_NAME. */ +static int +install_variable (struct varobj *var) +{ + 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_SIZE; + } + + cv = *(varobj_table + index); + while ((cv != NULL) && (strcmp (cv->var->obj_name, var->obj_name) != 0)) + cv = cv->next; + + if (cv != NULL) + 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) + var->root->next = NULL; + else + var->root->next = rootlist; + rootlist = var->root; + rootcount++; + } + + return 1; /* OK */ +} + +/* Unistall the object VAR. */ +static void +uninstall_variable (struct varobj *var) +{ + 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_SIZE; + } + + cv = *(varobj_table + index); + prev = NULL; + while ((cv != NULL) && (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) + { + warning + ("Assertion failed: Could not find variable object \"%s\" to delete", + var->obj_name); + return; + } + + if (prev == NULL) + *(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; + cr = rootlist; + while ((cr != NULL) && (cr->rootvar != var)) + { + prer = cr; + cr = cr->next; + } + if (cr == NULL) + { + warning + ("Assertion failed: Could not find varobj \"%s\" in root list", + var->obj_name); + return; + } + if (prer == NULL) + rootlist = NULL; + else + prer->next = cr->next; + } + rootcount--; + } + +} + +/* Does a child with the name NAME exist in VAR? If so, return its data. + If not, return NULL. */ +static struct varobj * +child_exists (struct varobj *var, char *name) +{ + struct varobj_child *vc; + + for (vc = var->children; vc != NULL; vc = vc->next) + { + if (STREQ (vc->child->name, name)) + return vc->child; + } + + return NULL; +} + +/* Create and install a child of the parent of the given name */ +static struct varobj * +create_child (struct varobj *parent, int index, char *name) +{ + 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->value == NULL) || parent->error) + child->error = 1; + child->parent = parent; + child->root = parent->root; + childs_name = + (char *) xmalloc ((strlen (parent->obj_name) + strlen (name) + 2) * + sizeof (char)); + sprintf (childs_name, "%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; +} + +/* FIXME: This should be a generic add to list */ +/* Save CHILD in the PARENT's data. */ +static void +save_child_in_parent (struct varobj *parent, struct varobj *child) +{ + 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; +} + +/* FIXME: This should be a generic remove from list */ +/* Remove the CHILD from the PARENT's list of children. */ +static void +remove_child_from_parent (struct varobj *parent, struct varobj *child) +{ + struct varobj_child *vc, *prev; + + /* Find the child in the parent's list */ + prev = NULL; + for (vc = parent->children; vc != NULL;) + { + if (vc->child == child) + break; + prev = vc; + vc = vc->next; + } + + if (prev == NULL) + parent->children = vc->next; + else + prev->next = vc->next; + +} + + +/* + * Miscellaneous utility functions. + */ + +/* Allocate memory and initialize a new variable */ +static struct varobj * +new_variable (void) +{ + struct varobj *var; + + var = (struct varobj *) xmalloc (sizeof (struct varobj)); + var->name = NULL; + var->obj_name = NULL; + var->index = -1; + var->type = NULL; + var->value = NULL; + var->error = 0; + var->num_children = -1; + var->parent = NULL; + var->children = NULL; + var->format = 0; + var->root = NULL; + + return var; +} + +/* Allocate memory and initialize a new root variable */ +static struct varobj * +new_root_variable (void) +{ + struct varobj *var = new_variable (); + var->root = (struct varobj_root *) xmalloc (sizeof (struct varobj_root));; + var->root->lang = NULL; + var->root->exp = NULL; + var->root->valid_block = NULL; + var->root->frame = (CORE_ADDR) -1; + var->root->use_selected_frame = 0; + var->root->rootvar = NULL; + + return var; +} + +/* Free any allocated memory associated with VAR. */ +static void +free_variable (struct varobj *var) +{ + /* 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); +} + +static void +do_free_variable_cleanup (void *var) +{ + free_variable (var); +} + +static struct cleanup * +make_cleanup_free_variable (struct varobj *var) +{ + return make_cleanup (do_free_variable_cleanup, var); +} + +/* This returns the type of the variable. This skips past typedefs + and returns the real type of the variable. It also dereferences + pointers and references. */ +static struct type * +get_type (struct varobj *var) +{ + struct type *type; + type = var->type; + + while (type != NULL && TYPE_CODE (type) == TYPE_CODE_TYPEDEF) + type = TYPE_TARGET_TYPE (type); + + return type; +} + +/* This returns the type of the variable, dereferencing pointers, too. */ +static struct type * +get_type_deref (struct varobj *var) +{ + struct type *type; + + type = get_type (var); + + if (type != NULL && (TYPE_CODE (type) == TYPE_CODE_PTR + || TYPE_CODE (type) == TYPE_CODE_REF)) + type = get_target_type (type); + + return type; +} + +/* This returns the target type (or NULL) of TYPE, also skipping + past typedefs, just like get_type (). */ +static struct type * +get_target_type (struct type *type) +{ + if (type != NULL) + { + type = TYPE_TARGET_TYPE (type); + while (type != NULL && TYPE_CODE (type) == TYPE_CODE_TYPEDEF) + type = TYPE_TARGET_TYPE (type); + } + + return type; +} + +/* What is the default display for this variable? We assume that + everything is "natural". Any exceptions? */ +static enum varobj_display_formats +variable_default_display (struct varobj *var) +{ + return FORMAT_NATURAL; +} + +/* 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. */ +static int +my_value_equal (struct value *val1, struct value *val2, int *error2) +{ + int r, err1, err2; + + *error2 = 0; + /* Special case: NULL values. If both are null, say + they're equal. */ + if (val1 == NULL && val2 == NULL) + return 1; + else if (val1 == NULL || val2 == NULL) + 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; +} + +/* FIXME: The following should be generic for any pointer */ +static void +vpush (struct vstack **pstack, struct varobj *var) +{ + struct vstack *s; + + s = (struct vstack *) xmalloc (sizeof (struct vstack)); + s->var = var; + s->next = *pstack; + *pstack = s; +} + +/* FIXME: The following should be generic for any pointer */ +static struct varobj * +vpop (struct vstack **pstack) +{ + struct vstack *s; + struct varobj *v; + + if ((*pstack)->var == NULL && (*pstack)->next == NULL) + return NULL; + + s = *pstack; + v = s->var; + *pstack = (*pstack)->next; + xfree (s); + + return v; +} + +/* FIXME: The following should be generic for any pointer */ +static void +cppush (struct cpstack **pstack, char *name) +{ + struct cpstack *s; + + s = (struct cpstack *) xmalloc (sizeof (struct cpstack)); + s->name = name; + s->next = *pstack; + *pstack = s; +} + +/* FIXME: The following should be generic for any pointer */ +static char * +cppop (struct cpstack **pstack) +{ + struct cpstack *s; + char *v; + + if ((*pstack)->name == NULL && (*pstack)->next == NULL) + return NULL; + + s = *pstack; + v = s->name; + *pstack = (*pstack)->next; + xfree (s); + + return v; +} + +/* + * Language-dependencies + */ + +/* Common entry points */ + +/* Get the language of variable VAR. */ +static enum varobj_languages +variable_language (struct varobj *var) +{ + 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; +} + +/* 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. */ +static int +number_of_children (struct varobj *var) +{ + return (*var->root->lang->number_of_children) (var);; +} + +/* What is the expression for the root varobj VAR? Returns a malloc'd string. */ +static char * +name_of_variable (struct varobj *var) +{ + return (*var->root->lang->name_of_variable) (var); +} + +/* What is the name of the INDEX'th child of VAR? Returns a malloc'd string. */ +static char * +name_of_child (struct varobj *var, int index) +{ + return (*var->root->lang->name_of_child) (var, index); +} + +/* 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. */ +static struct value * +value_of_root (struct varobj **var_handle, int *type_changed) +{ + struct varobj *var; + + if (var_handle == NULL) + return NULL; + + 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; + + 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, var->name, (CORE_ADDR) 0, + USE_SELECTED_FRAME); + if (tmp_var == NULL) + { + return NULL; + } + new_type = varobj_get_type (tmp_var); + if (strcmp (old_type, new_type) == 0) + { + varobj_delete (tmp_var, NULL, 0); + *type_changed = 0; + } + else + { + if (*type_changed) + { + tmp_var->obj_name = + savestring (var->obj_name, strlen (var->obj_name)); + varobj_delete (var, NULL, 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); +} + +/* What is the ``struct value *'' for the INDEX'th child of PARENT? */ +static struct value * +value_of_child (struct varobj *parent, int index) +{ + 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 && VALUE_LAZY (value)) + { + /* 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; + } + + return value; +} + +/* What is the type of VAR? */ +static struct type * +type_of_child (struct varobj *var) +{ + + /* If the child had no evaluation errors, var->value + will be non-NULL and contain a valid type. */ + if (var->value != NULL) + return VALUE_TYPE (var->value); + + /* Otherwise, we must compute the type. */ + return (*var->root->lang->type_of_child) (var->parent, var->index); +} + +/* Is this variable editable? Use the variable's type to make + this determination. */ +static int +variable_editable (struct varobj *var) +{ + return (*var->root->lang->variable_editable) (var); +} + +/* GDB already has a command called "value_of_variable". Sigh. */ +static char * +my_value_of_variable (struct varobj *var) +{ + return (*var->root->lang->value_of_variable) (var); +} + +/* Is VAR something that can change? Depending on language, + some variable's values never change. For example, + struct and unions never change values. */ +static int +type_changeable (struct varobj *var) +{ + int r; + struct type *type; + + if (CPLUS_FAKE_CHILD (var)) + return 0; + + type = get_type (var); + + switch (TYPE_CODE (type)) + { + case TYPE_CODE_STRUCT: + case TYPE_CODE_UNION: + case TYPE_CODE_ARRAY: + r = 0; + break; + + default: + r = 1; + } + + return r; +} + +/* C */ +static int +c_number_of_children (struct varobj *var) +{ + struct type *type; + struct type *target; + int children; + + type = get_type (var); + target = get_target_type (type); + children = 0; + + switch (TYPE_CODE (type)) + { + case TYPE_CODE_ARRAY: + if (TYPE_LENGTH (type) > 0 && TYPE_LENGTH (target) > 0 + && TYPE_ARRAY_UPPER_BOUND_TYPE (type) != BOUND_CANNOT_BE_DETERMINED) + children = TYPE_LENGTH (type) / TYPE_LENGTH (target); + else + children = -1; + break; + + case TYPE_CODE_STRUCT: + case TYPE_CODE_UNION: + children = TYPE_NFIELDS (type); + 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)) + { + case TYPE_CODE_STRUCT: + case TYPE_CODE_UNION: + children = TYPE_NFIELDS (target); + 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; +} + +static char * +c_name_of_variable (struct varobj *parent) +{ + return savestring (parent->name, strlen (parent->name)); +} + +static char * +c_name_of_child (struct varobj *parent, int index) +{ + struct type *type; + struct type *target; + char *name; + char *string; + + type = get_type (parent); + target = get_target_type (type); + + switch (TYPE_CODE (type)) + { + case TYPE_CODE_ARRAY: + { + /* We never get here unless parent->num_children is greater than 0... */ + int len = 1; + while ((int) pow ((double) 10, (double) len) < index) + len++; + name = (char *) xmalloc (1 + len * sizeof (char)); + sprintf (name, "%d", index); + } + break; + + case TYPE_CODE_STRUCT: + case TYPE_CODE_UNION: + string = TYPE_FIELD_NAME (type, index); + name = savestring (string, strlen (string)); + break; + + case TYPE_CODE_PTR: + switch (TYPE_CODE (target)) + { + case TYPE_CODE_STRUCT: + case TYPE_CODE_UNION: + string = TYPE_FIELD_NAME (target, index); + name = savestring (string, strlen (string)); + break; + + default: + name = + (char *) xmalloc ((strlen (parent->name) + 2) * sizeof (char)); + sprintf (name, "*%s", parent->name); + break; + } + break; + + default: + /* This should not happen */ + name = xstrdup ("???"); + } + + return name; +} + +static struct value * +c_value_of_root (struct varobj **var_handle) +{ + 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; + + + /* Determine whether the variable is still around. */ + if (var->root->valid_block == NULL) + within_scope = 1; + else + { + reinit_frame_cache (); + + + fi = find_frame_addr_in_frame_chain (var->root->frame); + + within_scope = fi != NULL; + /* FIXME: select_frame could fail */ + if (within_scope) + select_frame (fi, -1); + } + + 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)) + { + /* 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; +} + +static struct value * +c_value_of_child (struct varobj *parent, int index) +{ + 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; + + if (temp != NULL) + { + switch (TYPE_CODE (type)) + { + case TYPE_CODE_ARRAY: +#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); +#else + indval = value_from_longest (builtin_type_int, (LONGEST) index); + gdb_value_subscript (temp, indval, &value); +#endif + break; + + case TYPE_CODE_STRUCT: + case TYPE_CODE_UNION: + gdb_value_struct_elt (NULL, &value, &temp, NULL, name, NULL, "vstructure"); + break; + + case TYPE_CODE_PTR: + switch (TYPE_CODE (target)) + { + case TYPE_CODE_STRUCT: + case TYPE_CODE_UNION: + gdb_value_struct_elt (NULL, &value, &temp, NULL, name, NULL, "vstructure"); + break; + + default: + gdb_value_ind (temp, &value); + break; + } + break; + + default: + break; + } + } + + if (value != NULL) + release_value (value); + + xfree (name); + return value; +} + +static struct type * +c_type_of_child (struct varobj *parent, int index) +{ + struct type *type; + char *name = name_of_child (parent, index); + + switch (TYPE_CODE (parent->type)) + { + case TYPE_CODE_ARRAY: + type = TYPE_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 (TYPE_TARGET_TYPE (parent->type))) + { + case TYPE_CODE_STRUCT: + case TYPE_CODE_UNION: + type = lookup_struct_elt_type (parent->type, name, 0); + break; + + default: + type = TYPE_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; + break; + } + + xfree (name); + return type; +} + +static int +c_variable_editable (struct varobj *var) +{ + switch (TYPE_CODE (get_type (var))) + { + 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; + } +} + +static char * +c_value_of_variable (struct varobj *var) +{ + struct type *type; + + /* BOGUS: if val_print sees a struct/class, it will print out its + children instead of "{...}" */ + type = get_type (var); + switch (TYPE_CODE (type)) + { + case TYPE_CODE_STRUCT: + case TYPE_CODE_UNION: + return xstrdup ("{...}"); + /* break; */ + + case TYPE_CODE_ARRAY: + { + char number[18]; + sprintf (number, "[%d]", var->num_children); + return xstrdup (number); + } + /* break; */ + + default: + { + long dummy; + struct ui_file *stb = mem_fileopen (); + struct cleanup *old_chain = make_cleanup_ui_file_delete (stb); + char *thevalue; + + if (var->value == NULL) + { + /* 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; + } + else + { + if (VALUE_LAZY (var->value)) + gdb_value_fetch_lazy (var->value); + val_print (VALUE_TYPE (var->value), VALUE_CONTENTS_RAW (var->value), 0, + VALUE_ADDRESS (var->value), + stb, format_code[(int) var->format], 1, 0, 0); + thevalue = ui_file_xstrdup (stb, &dummy); + do_cleanups (old_chain); + } + + return thevalue; + } + /* break; */ + } +} + + +/* C++ */ + +static int +cplus_number_of_children (struct varobj *var) +{ + struct type *type; + int children, dont_know; + + dont_know = 1; + children = 0; + + if (!CPLUS_FAKE_CHILD (var)) + { + type = get_type_deref (var); + + if (((TYPE_CODE (type)) == TYPE_CODE_STRUCT) || + ((TYPE_CODE (type)) == 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); + 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 (STREQ (var->name, "public")) + children = kids[v_public]; + else if (STREQ (var->name, "private")) + children = kids[v_private]; + else + children = kids[v_protected]; + dont_know = 0; + } + + if (dont_know) + children = c_number_of_children (var); + + return children; +} + +/* 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. */ +static void +cplus_class_num_children (struct type *type, int children[3]) +{ + int i; + + children[v_public] = 0; + children[v_private] = 0; + children[v_protected] = 0; + + for (i = TYPE_N_BASECLASSES (type); i < TYPE_NFIELDS (type); i++) + { + /* If we have a virtual table pointer, omit it. */ + if (TYPE_VPTR_BASETYPE (type) == type && TYPE_VPTR_FIELDNO (type) == i) + continue; + + if (TYPE_FIELD_PROTECTED (type, i)) + children[v_protected]++; + else if (TYPE_FIELD_PRIVATE (type, i)) + children[v_private]++; + else + children[v_public]++; + } +} + +static char * +cplus_name_of_variable (struct varobj *parent) +{ + return c_name_of_variable (parent); +} + +static char * +cplus_name_of_child (struct varobj *parent, int index) +{ + char *name; + struct type *type; + int children[3]; + + if (CPLUS_FAKE_CHILD (parent)) + { + /* Looking for children of public, private, or protected. */ + type = get_type_deref (parent->parent); + } + else + type = get_type_deref (parent); + + name = NULL; + switch (TYPE_CODE (type)) + { + case TYPE_CODE_STRUCT: + case TYPE_CODE_UNION: + cplus_class_num_children (type, children); + + if (CPLUS_FAKE_CHILD (parent)) + { + int i; + + /* Skip over vptr, if it exists. */ + if (TYPE_VPTR_BASETYPE (type) == type + && index >= TYPE_VPTR_FIELDNO (type)) + index++; + + /* FIXME: This assumes that type orders + inherited, public, private, protected */ + i = index + TYPE_N_BASECLASSES (type); + if (STREQ (parent->name, "private") || STREQ (parent->name, "protected")) + i += children[v_public]; + if (STREQ (parent->name, "protected")) + i += children[v_private]; + + name = TYPE_FIELD_NAME (type, i); + } + else if (index < TYPE_N_BASECLASSES (type)) + name = TYPE_FIELD_NAME (type, index); + else + { + /* Everything beyond the baseclasses can + only be "public", "private", or "protected" */ + index -= TYPE_N_BASECLASSES (type); + switch (index) + { + case 0: + if (children[v_public] != 0) + { + name = "public"; + break; + } + case 1: + if (children[v_private] != 0) + { + name = "private"; + break; + } + case 2: + if (children[v_protected] != 0) + { + name = "protected"; + break; + } + default: + /* error! */ + break; + } + } + break; + + default: + break; + } + + if (name == NULL) + return c_name_of_child (parent, index); + else + { + if (name != NULL) + name = savestring (name, strlen (name)); + } + + return name; +} + +static struct value * +cplus_value_of_root (struct varobj **var_handle) +{ + return c_value_of_root (var_handle); +} + +static struct value * +cplus_value_of_child (struct varobj *parent, int index) +{ + struct type *type; + struct value *value; + + if (CPLUS_FAKE_CHILD (parent)) + type = get_type_deref (parent->parent); + else + type = get_type_deref (parent); + + value = NULL; + + if (((TYPE_CODE (type)) == TYPE_CODE_STRUCT) || + ((TYPE_CODE (type)) == TYPE_CODE_UNION)) + { + if (CPLUS_FAKE_CHILD (parent)) + { + char *name; + struct value *temp = parent->parent->value; + + if (temp == NULL) + return NULL; + + name = name_of_child (parent, index); + gdb_value_struct_elt (NULL, &value, &temp, NULL, name, NULL, + "cplus_structure"); + if (value != NULL) + release_value (value); + + xfree (name); + } + else if (index >= TYPE_N_BASECLASSES (type)) + { + /* public, private, or protected */ + return NULL; + } + else + { + /* Baseclass */ + if (parent->value != NULL) + { + struct value *temp = NULL; + + if (TYPE_CODE (VALUE_TYPE (parent->value)) == TYPE_CODE_PTR + || TYPE_CODE (VALUE_TYPE (parent->value)) == TYPE_CODE_REF) + { + if (!gdb_value_ind (parent->value, &temp)) + return NULL; + } + else + temp = parent->value; + + if (temp != NULL) + { + value = value_cast (TYPE_FIELD_TYPE (type, index), 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; + } + } + } + } + + if (value == NULL) + return c_value_of_child (parent, index); + + return value; +} + +static struct type * +cplus_type_of_child (struct varobj *parent, int index) +{ + struct type *type, *t; + + if (CPLUS_FAKE_CHILD (parent)) + { + /* 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; + switch (TYPE_CODE (t)) + { + case TYPE_CODE_STRUCT: + case TYPE_CODE_UNION: + if (CPLUS_FAKE_CHILD (parent)) + { + 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)) + type = TYPE_FIELD_TYPE (t, index); + else + { + /* special */ + return NULL; + } + break; + + default: + break; + } + + if (type == NULL) + return c_type_of_child (parent, index); + + return type; +} + +static int +cplus_variable_editable (struct varobj *var) +{ + if (CPLUS_FAKE_CHILD (var)) + return 0; + + return c_variable_editable (var); +} + +static char * +cplus_value_of_variable (struct varobj *var) +{ + + /* If we have one of our special types, don't print out + any value. */ + if (CPLUS_FAKE_CHILD (var)) + return xstrdup (""); + + return c_value_of_variable (var); +} + +/* Java */ + +static int +java_number_of_children (struct varobj *var) +{ + return cplus_number_of_children (var); +} + +static char * +java_name_of_variable (struct varobj *parent) +{ + 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; +} + +static char * +java_name_of_child (struct varobj *parent, int index) +{ + 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; +} + +static struct value * +java_value_of_root (struct varobj **var_handle) +{ + return cplus_value_of_root (var_handle); +} + +static struct value * +java_value_of_child (struct varobj *parent, int index) +{ + return cplus_value_of_child (parent, index); +} + +static struct type * +java_type_of_child (struct varobj *parent, int index) +{ + return cplus_type_of_child (parent, index); +} + +static int +java_variable_editable (struct varobj *var) +{ + return cplus_variable_editable (var); +} + +static char * +java_value_of_variable (struct varobj *var) +{ + return cplus_value_of_variable (var); +} + +extern void _initialize_varobj (void); +void +_initialize_varobj (void) +{ + int sizeof_table = sizeof (struct vlist *) * VAROBJ_TABLE_SIZE; + + varobj_table = xmalloc (sizeof_table); + memset (varobj_table, 0, sizeof_table); + + add_show_from_set (add_set_cmd ("debugvarobj", class_maintenance, var_zinteger, (char *) &varobjdebug, "Set varobj debugging.\n\ +When non-zero, varobj debugging is enabled.", &setlist), + &showlist); +} |