projects
/
binutils-gdb.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[arm] Cleanup: use hex for offsets
[binutils-gdb.git]
/
gdb
/
p-valprint.c
diff --git
a/gdb/p-valprint.c
b/gdb/p-valprint.c
index e71aa4c5ef972ebce3b36287c30018ad2fce6821..43c286d6472705cd3bfdda9c27a3daaa660faef2 100644
(file)
--- a/
gdb/p-valprint.c
+++ b/
gdb/p-valprint.c
@@
-122,20
+122,20
@@
pascal_language::value_print_inner (struct value *val,
}
else
{
}
else
{
-
fprintf_filtered
(stream, "{");
+
gdb_printf
(stream, "{");
/* If this is a virtual function table, print the 0th
entry specially, and the rest of the members normally. */
if (pascal_object_is_vtbl_ptr_type (elttype))
{
i = 1;
/* If this is a virtual function table, print the 0th
entry specially, and the rest of the members normally. */
if (pascal_object_is_vtbl_ptr_type (elttype))
{
i = 1;
-
fprintf_filtered
(stream, "%d vtable entries", len - 1);
+
gdb_printf
(stream, "%d vtable entries", len - 1);
}
else
{
i = 0;
}
value_print_array_elements (val, stream, recurse, options, i);
}
else
{
i = 0;
}
value_print_array_elements (val, stream, recurse, options, i);
-
fprintf_filtered
(stream, "}");
+
gdb_printf
(stream, "}");
}
break;
}
}
break;
}
@@
-228,7
+228,7
@@
pascal_language::value_print_inner (struct value *val,
/* If 'symbol_print' is set, we did the work above. */
if (!options->symbol_print
&& (msymbol.minsym != NULL)
/* If 'symbol_print' is set, we did the work above. */
if (!options->symbol_print
&& (msymbol.minsym != NULL)
- && (vt_address ==
BMSYMBOL_VALUE_ADDRESS (msymbol
)))
+ && (vt_address ==
msymbol.value_address (
)))
{
if (want_space)
gdb_puts (" ", stream);
{
if (want_space)
gdb_puts (" ", stream);
@@
-266,8
+266,8
@@
pascal_language::value_print_inner (struct value *val,
current_language);
if (options->prettyformat)
{
current_language);
if (options->prettyformat)
{
-
fprintf_filtered
(stream, "\n");
- print_spaces
_filtered
(2 + 2 * recurse, stream);
+
gdb_printf
(stream, "\n");
+ print_spaces (2 + 2 * recurse, stream);
}
}
}
}
}
}
@@
-292,7
+292,7
@@
pascal_language::value_print_inner (struct value *val,
case TYPE_CODE_UNION:
if (recurse && !options->unionprint)
{
case TYPE_CODE_UNION:
if (recurse && !options->unionprint)
{
-
fprintf_filtered
(stream, "{...}");
+
gdb_printf
(stream, "{...}");
break;
}
/* Fall through. */
break;
}
/* Fall through. */
@@
-430,9
+430,9
@@
pascal_language::value_print (struct value *val, struct ui_file *stream,
}
else
{
}
else
{
-
fprintf_filtered
(stream, "(");
+
gdb_printf
(stream, "(");
type_print (type, "", stream, -1);
type_print (type, "", stream, -1);
-
fprintf_filtered
(stream, ") ");
+
gdb_printf
(stream, ") ");
}
}
common_val_print (val, stream, 0, &opts, current_language);
}
}
common_val_print (val, stream, 0, &opts, current_language);
@@
-443,8
+443,8
@@
static void
show_pascal_static_field_print (struct ui_file *file, int from_tty,
struct cmd_list_element *c, const char *value)
{
show_pascal_static_field_print (struct ui_file *file, int from_tty,
struct cmd_list_element *c, const char *value)
{
-
fprintf_filtered
(file, _("Printing of pascal static members is %s.\n"),
-
value);
+
gdb_printf
(file, _("Printing of pascal static members is %s.\n"),
+ value);
}
static struct obstack dont_print_vb_obstack;
}
static struct obstack dont_print_vb_obstack;
@@
-520,7
+520,7
@@
pascal_object_print_value_fields (struct value *val, struct ui_file *stream,
struct type *type = check_typedef (value_type (val));
struct type *type = check_typedef (value_type (val));
-
fprintf_filtered
(stream, "{");
+
gdb_printf
(stream, "{");
len = type->num_fields ();
n_baseclasses = TYPE_N_BASECLASSES (type);
len = type->num_fields ();
n_baseclasses = TYPE_N_BASECLASSES (type);
@@
-553,13
+553,13
@@
pascal_object_print_value_fields (struct value *val, struct ui_file *stream,
&& field_is_static (&type->field (i)))
continue;
if (fields_seen)
&& field_is_static (&type->field (i)))
continue;
if (fields_seen)
-
fprintf_filtered
(stream, ", ");
+
gdb_printf
(stream, ", ");
else if (n_baseclasses > 0)
{
if (options->prettyformat)
{
else if (n_baseclasses > 0)
{
if (options->prettyformat)
{
-
fprintf_filtered
(stream, "\n");
- print_spaces
_filtered
(2 + 2 * recurse, stream);
+
gdb_printf
(stream, "\n");
+ print_spaces (2 + 2 * recurse, stream);
gdb_puts ("members of ", stream);
gdb_puts (type->name (), stream);
gdb_puts (": ", stream);
gdb_puts ("members of ", stream);
gdb_puts (type->name (), stream);
gdb_puts (": ", stream);
@@
-569,8
+569,8
@@
pascal_object_print_value_fields (struct value *val, struct ui_file *stream,
if (options->prettyformat)
{
if (options->prettyformat)
{
-
fprintf_filtered
(stream, "\n");
- print_spaces
_filtered
(2 + 2 * recurse, stream);
+
gdb_printf
(stream, "\n");
+ print_spaces (2 + 2 * recurse, stream);
}
else
{
}
else
{
@@
-582,10
+582,10
@@
pascal_object_print_value_fields (struct value *val, struct ui_file *stream,
if (field_is_static (&type->field (i)))
{
gdb_puts ("static ", stream);
if (field_is_static (&type->field (i)))
{
gdb_puts ("static ", stream);
- fprintf_symbol
_filtered
(stream,
-
type->field (i).name (),
-
current_language->la_language,
-
DMGL_PARAMS | DMGL_ANSI);
+ fprintf_symbol (stream,
+ type->field (i).name (),
+ current_language->la_language,
+ DMGL_PARAMS | DMGL_ANSI);
}
else
fputs_styled (type->field (i).name (),
}
else
fputs_styled (type->field (i).name (),
@@
-670,11
+670,11
@@
pascal_object_print_value_fields (struct value *val, struct ui_file *stream,
if (options->prettyformat)
{
if (options->prettyformat)
{
-
fprintf_filtered
(stream, "\n");
- print_spaces
_filtered
(2 * recurse, stream);
+
gdb_printf
(stream, "\n");
+ print_spaces (2 * recurse, stream);
}
}
}
}
-
fprintf_filtered
(stream, "}");
+
gdb_printf
(stream, "}");
}
/* Special val_print routine to avoid printing multiple copies of virtual
}
/* Special val_print routine to avoid printing multiple copies of virtual
@@
-761,8
+761,8
@@
pascal_object_print_value (struct value *val, struct ui_file *stream,
if (options->prettyformat)
{
if (options->prettyformat)
{
-
fprintf_filtered
(stream, "\n");
- print_spaces
_filtered
(2 * recurse, stream);
+
gdb_printf
(stream, "\n");
+ print_spaces (2 * recurse, stream);
}
gdb_puts ("<", stream);
/* Not sure what the best notation is in the case where there is no
}
gdb_puts ("<", stream);
/* Not sure what the best notation is in the case where there is no