diff options
Diffstat (limited to 'gdb/guile/scm-ports.c')
| -rw-r--r-- | gdb/guile/scm-ports.c | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/gdb/guile/scm-ports.c b/gdb/guile/scm-ports.c index 78187c4..a7c0bd4 100644 --- a/gdb/guile/scm-ports.c +++ b/gdb/guile/scm-ports.c @@ -461,7 +461,6 @@ static SCM ioscm_with_output_to_port_worker (SCM port, SCM thunk, enum oport oport, const char *func_name) { - struct cleanup *cleanups; SCM result; SCM_ASSERT_TYPE (gdbscm_is_true (scm_output_port_p (port)), port, @@ -469,7 +468,7 @@ ioscm_with_output_to_port_worker (SCM port, SCM thunk, enum oport oport, SCM_ASSERT_TYPE (gdbscm_is_true (scm_thunk_p (thunk)), thunk, SCM_ARG2, func_name, _("thunk")); - cleanups = set_batch_flag_and_make_cleanup_restore_page_info (); + set_batch_flag_and_restore_page_info save_page_info; scoped_restore restore_async = make_scoped_restore (¤t_ui->async, 0); @@ -493,8 +492,6 @@ ioscm_with_output_to_port_worker (SCM port, SCM thunk, enum oport oport, result = gdbscm_safe_call_0 (thunk, NULL); } - do_cleanups (cleanups); - if (gdbscm_is_exception (result)) gdbscm_throw (result); |