Check for single-threadedness

diff --git a/src/pdumper.c b/src/pdumper.c
index 956d90cc853489d1285fce1f226e5295b8b97be1..cf2aaf474bb119681ec25a8df6c8096c71091f66 100644 (file)
--- 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;