[guile] Run finalizers from GDB thread

[deliverable/binutils-gdb.git] / gdb / guile / scm-safe-call.c

diff --git a/gdb/guile/scm-safe-call.c b/gdb/guile/scm-safe-call.c
index 925555681fea91eba017e99e61068bc07ff11485..6052214f15f5c159993e3b3b4384837c425a4bfe 100644 (file)
--- a/gdb/guile/scm-safe-call.c
+++ b/gdb/guile/scm-safe-call.c
@@ -155,6 +155,10 @@ gdbscm_with_catch (void *data)
                   d->unwind_handler, d,
                   d->pre_unwind_handler, d);
 
+#if HAVE_GUILE_MANUAL_FINALIZATION
+  scm_run_finalizers ();
+#endif
+
   return NULL;
 }