summaryrefslogtreecommitdiff
path: root/gdb/p-lang.c
diff options
context:
space:
mode:
authorTom Tromey <tromey@redhat.com>2013-01-07 16:40:31 +0000
committerTom Tromey <tromey@redhat.com>2013-01-07 16:40:31 +0000
commit037033b8a0abf586ef69adca59c1dda19dd88af9 (patch)
treee03dcc94408708df4babcdbfca9d616d732e2a1d /gdb/p-lang.c
parentf5ae614f8f72f384ba71feeb9e592976676eafdf (diff)
downloadgdb-037033b8a0abf586ef69adca59c1dda19dd88af9.tar.gz
PR cli/7719:
* NEWS: Update. * ada-valprint.c (printstr, print_field_values): Remove "inspect_it" code. * cp-valprint.c (cp_print_value_fields): Remove "inspect_it" code. * jv-valprint.c (java_print_value_fields): Remove "inspect_it" code. * m2-lang.c (m2_printstr): Remove "inspect_it" code. * main.c (captured_main): Remove "epoch" argument. * objc-lang.c (objc_printstr): Remove "inspect_it" code. * p-lang.c (pascal_printstr): Remove "inspect_it" code. * p-valprint.c (pascal_object_print_value_fields): Remove "inspect_it" code. * printcmd.c (print_command_1): Remove 'inspect' argument. (print_command, call_command): Update. (inspect_command): Remove. (_initialize_printcmd): Make "inspect" an alias for "print". * top.c (epoch_interface): Remove. * top.h (epoch_interface): Remove. * valprint.c (user_print_options): Update. (print_converted_chars_to_obstack): Remove "inspect_it" code. * valprint.h (struct value_print_options) <inspect_it>: Remove field. doc * gdb.texinfo (Mode Options): Don't mention -epoch. (Data, Emacs): Remove obsolete comments.
Diffstat (limited to 'gdb/p-lang.c')
-rw-r--r--gdb/p-lang.c17
1 files changed, 3 insertions, 14 deletions
diff --git a/gdb/p-lang.c b/gdb/p-lang.c
index 3fa5f341ce1..07006cd079c 100644
--- a/gdb/p-lang.c
+++ b/gdb/p-lang.c
@@ -279,10 +279,7 @@ pascal_printstr (struct ui_file *stream, struct type *type,
{
if (in_quotes)
{
- if (options->inspect_it)
- fputs_filtered ("\\', ", stream);
- else
- fputs_filtered ("', ", stream);
+ fputs_filtered ("', ", stream);
in_quotes = 0;
}
pascal_printchar (current_char, type, stream);
@@ -295,10 +292,7 @@ pascal_printstr (struct ui_file *stream, struct type *type,
{
if ((!in_quotes) && (PRINT_LITERAL_FORM (current_char)))
{
- if (options->inspect_it)
- fputs_filtered ("\\'", stream);
- else
- fputs_filtered ("'", stream);
+ fputs_filtered ("'", stream);
in_quotes = 1;
}
pascal_one_char (current_char, stream, &in_quotes);
@@ -308,12 +302,7 @@ pascal_printstr (struct ui_file *stream, struct type *type,
/* Terminate the quotes if necessary. */
if (in_quotes)
- {
- if (options->inspect_it)
- fputs_filtered ("\\'", stream);
- else
- fputs_filtered ("'", stream);
- }
+ fputs_filtered ("'", stream);
if (force_ellipses || i < length)
fputs_filtered ("...", stream);