Changeset 661

Timestamp:

Mar 17, 2004, 7:29:31 AM (21 years ago)

Author:

Gary Byers

Message:

Suspend other threads on entry to debugger (not on entry to Bug.)

File:

• trunk/ccl/lisp-kernel/lisp-debug.c (modified) (3 diffs)

trunk/ccl/lisp-kernel/lisp-debug.c

@@ -19 +19 @@
 #include "lisp_globals.h"
 #include "area.h"
+#include "Threads.h"
 #include <ctype.h>
 #include <stdio.h>
@@ -630 +631 @@
   va_list args;
 
+  if (threads_initialized) {
+    suspend_other_threads();
+  }
+
   va_start(args,message);
   debug_command_return state = debug_continue;
@@ -651 +656 @@
   switch (state) {
   case debug_exit_success:
-    resume_other_threads();
+    if (threads_initialized) {
+      resume_other_threads();
+    }
     return 0;
   case debug_exit_fail:
-    resume_other_threads();
+    if (threads_initialized) {
+      resume_other_threads();
+    }
     return -1;
   case debug_kill: