diff options
Diffstat (limited to 'gdb/guile')
| -rw-r--r-- | gdb/guile/scm-breakpoint.c | 4 | ||||
| -rw-r--r-- | gdb/guile/scm-ports.c | 2 |
2 files changed, 3 insertions, 3 deletions
diff --git a/gdb/guile/scm-breakpoint.c b/gdb/guile/scm-breakpoint.c index 61d16da..977ba18 100644 --- a/gdb/guile/scm-breakpoint.c +++ b/gdb/guile/scm-breakpoint.c @@ -990,12 +990,12 @@ gdbscm_breakpoint_commands (SCM self) string_file = mem_fileopen (); chain = make_cleanup_ui_file_delete (string_file); - ui_out_redirect (current_uiout, string_file); + current_uiout->redirect (string_file); TRY { print_command_lines (current_uiout, breakpoint_commands (bp), 0); } - ui_out_redirect (current_uiout, NULL); + current_uiout->redirect (NULL); CATCH (except, RETURN_MASK_ALL) { do_cleanups (chain); diff --git a/gdb/guile/scm-ports.c b/gdb/guile/scm-ports.c index dea9077..68f2f8d 100644 --- a/gdb/guile/scm-ports.c +++ b/gdb/guile/scm-ports.c @@ -531,7 +531,7 @@ ioscm_with_output_to_port_worker (SCM port, SCM thunk, enum oport oport, gdb_stderr = port_file; else { - if (ui_out_redirect (current_uiout, port_file) < 0) + if (current_uiout->redirect (port_file) < 0) warning (_("Current output protocol does not support redirection")); else make_cleanup_ui_out_redirect_pop (current_uiout); |