123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206 |
- /* Print in infix form a struct expression.
- Copyright (C) 1986-2022 Free Software Foundation, Inc.
- This file is part of GDB.
- This program is free software; you can redistribute it and/or modify
- it under the terms of the GNU General Public License as published by
- the Free Software Foundation; either version 3 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, see <http://www.gnu.org/licenses/>. */
- #include "defs.h"
- #include "symtab.h"
- #include "gdbtypes.h"
- #include "expression.h"
- #include "value.h"
- #include "language.h"
- #include "parser-defs.h"
- #include "user-regs.h" /* For user_reg_map_regnum_to_name. */
- #include "target.h"
- #include "block.h"
- #include "objfiles.h"
- #include "valprint.h"
- #include "cli/cli-style.h"
- #include "c-lang.h"
- #include "expop.h"
- #include "ada-exp.h"
- #include <ctype.h>
- /* Default name for the standard operator OPCODE (i.e., one defined in
- the definition of enum exp_opcode). */
- const char *
- op_name (enum exp_opcode opcode)
- {
- switch (opcode)
- {
- default:
- {
- static char buf[30];
- xsnprintf (buf, sizeof (buf), "<unknown %d>", opcode);
- return buf;
- }
- #define OP(name) \
- case name: \
- return #name ;
- #include "std-operator.def"
- #undef OP
- }
- }
- void
- dump_prefix_expression (struct expression *exp, struct ui_file *stream)
- {
- exp->op->dump (stream, 0);
- }
- namespace expr
- {
- void
- dump_for_expression (struct ui_file *stream, int depth, enum exp_opcode op)
- {
- gdb_printf (stream, _("%*sOperation: %s\n"), depth, "", op_name (op));
- }
- void
- dump_for_expression (struct ui_file *stream, int depth, const std::string &str)
- {
- gdb_printf (stream, _("%*sString: %s\n"), depth, "", str.c_str ());
- }
- void
- dump_for_expression (struct ui_file *stream, int depth, struct type *type)
- {
- gdb_printf (stream, _("%*sType: "), depth, "");
- type_print (type, nullptr, stream, 0);
- gdb_printf (stream, "\n");
- }
- void
- dump_for_expression (struct ui_file *stream, int depth, CORE_ADDR addr)
- {
- gdb_printf (stream, _("%*sConstant: %s\n"), depth, "",
- core_addr_to_string (addr));
- }
- void
- dump_for_expression (struct ui_file *stream, int depth, internalvar *ivar)
- {
- gdb_printf (stream, _("%*sInternalvar: $%s\n"), depth, "",
- internalvar_name (ivar));
- }
- void
- dump_for_expression (struct ui_file *stream, int depth, symbol *sym)
- {
- gdb_printf (stream, _("%*sSymbol: %s\n"), depth, "",
- sym->print_name ());
- }
- void
- dump_for_expression (struct ui_file *stream, int depth,
- bound_minimal_symbol msym)
- {
- gdb_printf (stream, _("%*sMinsym %s in objfile %s\n"), depth, "",
- msym.minsym->print_name (), objfile_name (msym.objfile));
- }
- void
- dump_for_expression (struct ui_file *stream, int depth, const block *bl)
- {
- gdb_printf (stream, _("%*sBlock: %p\n"), depth, "", bl);
- }
- void
- dump_for_expression (struct ui_file *stream, int depth,
- const block_symbol &sym)
- {
- gdb_printf (stream, _("%*sBlock symbol:\n"), depth, "");
- dump_for_expression (stream, depth + 1, sym.symbol);
- dump_for_expression (stream, depth + 1, sym.block);
- }
- void
- dump_for_expression (struct ui_file *stream, int depth,
- type_instance_flags flags)
- {
- gdb_printf (stream, _("%*sType flags: "), depth, "");
- if (flags & TYPE_INSTANCE_FLAG_CONST)
- gdb_puts ("const ", stream);
- if (flags & TYPE_INSTANCE_FLAG_VOLATILE)
- gdb_puts ("volatile", stream);
- gdb_printf (stream, "\n");
- }
- void
- dump_for_expression (struct ui_file *stream, int depth,
- enum c_string_type_values flags)
- {
- gdb_printf (stream, _("%*sC string flags: "), depth, "");
- switch (flags & ~C_CHAR)
- {
- case C_WIDE_STRING:
- gdb_puts (_("wide "), stream);
- break;
- case C_STRING_16:
- gdb_puts (_("u16 "), stream);
- break;
- case C_STRING_32:
- gdb_puts (_("u32 "), stream);
- break;
- default:
- gdb_puts (_("ordinary "), stream);
- break;
- }
- if ((flags & C_CHAR) != 0)
- gdb_puts (_("char"), stream);
- else
- gdb_puts (_("string"), stream);
- gdb_puts ("\n", stream);
- }
- void
- dump_for_expression (struct ui_file *stream, int depth,
- enum range_flag flags)
- {
- gdb_printf (stream, _("%*sRange:"), depth, "");
- if ((flags & RANGE_LOW_BOUND_DEFAULT) != 0)
- gdb_puts (_("low-default "), stream);
- if ((flags & RANGE_HIGH_BOUND_DEFAULT) != 0)
- gdb_puts (_("high-default "), stream);
- if ((flags & RANGE_HIGH_BOUND_EXCLUSIVE) != 0)
- gdb_puts (_("high-exclusive "), stream);
- if ((flags & RANGE_HAS_STRIDE) != 0)
- gdb_puts (_("has-stride"), stream);
- gdb_printf (stream, "\n");
- }
- void
- dump_for_expression (struct ui_file *stream, int depth,
- const std::unique_ptr<ada_component> &comp)
- {
- comp->dump (stream, depth);
- }
- void
- float_const_operation::dump (struct ui_file *stream, int depth) const
- {
- gdb_printf (stream, _("%*sFloat: "), depth, "");
- print_floating (m_data.data (), m_type, stream);
- gdb_printf (stream, "\n");
- }
- } /* namespace expr */
|