diff options
author | Fred Fish <fnf@specifix.com> | 2006-02-18 20:47:54 +0000 |
---|---|---|
committer | Fred Fish <fnf@specifix.com> | 2006-02-18 20:47:54 +0000 |
commit | d843c49cbf3970abc659c9ab96f845859ce28377 (patch) | |
tree | b57cf6c8b4ae33600462a0b8cfaf4df6eeec9f10 /gdb/typeprint.c | |
parent | 62f3a2ba52dfda0e6166bb4670fce9b90b3bf218 (diff) | |
download | fsf-binutils-gdb-d843c49cbf3970abc659c9ab96f845859ce28377.zip fsf-binutils-gdb-d843c49cbf3970abc659c9ab96f845859ce28377.tar.gz fsf-binutils-gdb-d843c49cbf3970abc659c9ab96f845859ce28377.tar.bz2 |
2006-02-16 Fred Fish <fnf@specifix.com>
* eval.c (evaluate_subexp_standard): For OP_TYPE, return
a non lval value zero, of the appropriate type, when avoiding
side effects.
* typeprint.c (ptype_eval): Remove function and declaration.
(ptype_command): Simplify to just a call to whatis_exp.
Diffstat (limited to 'gdb/typeprint.c')
-rw-r--r-- | gdb/typeprint.c | 47 |
1 files changed, 1 insertions, 46 deletions
diff --git a/gdb/typeprint.c b/gdb/typeprint.c index 2fcd225..d31d521 100644 --- a/gdb/typeprint.c +++ b/gdb/typeprint.c @@ -45,8 +45,6 @@ extern void _initialize_typeprint (void); static void ptype_command (char *, int); -static struct type *ptype_eval (struct expression *); - static void whatis_command (char *, int); static void whatis_exp (char *, int); @@ -182,55 +180,12 @@ whatis_command (char *exp, int from_tty) whatis_exp (exp, -1); } -/* Simple subroutine for ptype_command. */ - -static struct type * -ptype_eval (struct expression *exp) -{ - if (exp->elts[0].opcode == OP_TYPE) - { - return (exp->elts[1].type); - } - else - { - return (NULL); - } -} - /* TYPENAME is either the name of a type, or an expression. */ static void ptype_command (char *typename, int from_tty) { - struct type *type; - struct expression *expr; - struct cleanup *old_chain; - - if (typename == NULL) - { - /* Print type of last thing in value history. */ - whatis_exp (typename, 1); - } - else - { - expr = parse_expression (typename); - old_chain = make_cleanup (free_current_contents, &expr); - type = ptype_eval (expr); - if (type != NULL) - { - /* User did "ptype <typename>" */ - printf_filtered ("type = "); - type_print (type, "", gdb_stdout, 1); - printf_filtered ("\n"); - do_cleanups (old_chain); - } - else - { - /* User did "ptype <symbolname>" */ - do_cleanups (old_chain); - whatis_exp (typename, 1); - } - } + whatis_exp (typename, 1); } /* Print integral scalar data VAL, of type TYPE, onto stdio stream STREAM. |