Changeset 661


Ignore:
Timestamp:
Mar 17, 2004, 3:29:31 PM (15 years ago)
Author:
gb
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/ccl/lisp-kernel/lisp-debug.c

    r619 r661  
    1919#include "lisp_globals.h"
    2020#include "area.h"
     21#include "Threads.h"
    2122#include <ctype.h>
    2223#include <stdio.h>
     
    630631  va_list args;
    631632
     633  if (threads_initialized) {
     634    suspend_other_threads();
     635  }
     636
    632637  va_start(args,message);
    633638  debug_command_return state = debug_continue;
     
    651656  switch (state) {
    652657  case debug_exit_success:
    653     resume_other_threads();
     658    if (threads_initialized) {
     659      resume_other_threads();
     660    }
    654661    return 0;
    655662  case debug_exit_fail:
    656     resume_other_threads();
     663    if (threads_initialized) {
     664      resume_other_threads();
     665    }
    657666    return -1;
    658667  case debug_kill:
Note: See TracChangeset for help on using the changeset viewer.