[Emacs-diffs] pdumper 66c350a: Check for single-threadedness

[Daniel Colascione]

branch: pdumper
commit 66c350ad04800031ea39ed3036cb2565994fe9da
Author: Daniel Colascione <address@hidden>
Commit: Daniel Colascione <address@hidden>

    Check for single-threadedness
---
 src/pdumper.c | 9 ++++-----
 1 file changed, 4 insertions(+), 5 deletions(-)

diff --git a/src/pdumper.c b/src/pdumper.c
index 956d90c..cf2aaf4 100644
--- a/src/pdumper.c
+++ b/src/pdumper.c
@@ -451,10 +451,7 @@ struct dump_flags
   /* Pack objects tighter than GC memory alignment would normally
      require.  Useful for objects copied into the Emacs image instead
      of used directly from the loaded dump.
-
-     XXX: actually use
-
-     */
+  */
   bool_bf pack_objects : 1;
   /* Sometimes we dump objects that we've already scanned for outbound
      references to other objects.  These objects should not cause new
@@ -4033,10 +4030,12 @@ types.  */)
            "dumper.  Dumping with the portable dumper may produce "
            "unexpected results.");
 
-  // XXX: check that we have no other threads running
   if (!main_thread_p (current_thread))
     error ("Function can be called only on main thread");
 
+  if (!NILP (XCDR (Fall_threads ())))
+    error ("No other threads can be running");
+
   /* Clear out any detritus in memory.  */
   do {
     number_finalizers_run = 0;