Ignore:
Timestamp:
May 1, 2009, 5:04:33 PM (10 years ago)
Author:
gb
Message:

Propagate r11949 (print bug report info if kernel debugger entered
and --batch) to trunk.

File:
1 edited

Legend:

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

    r11864 r11993  
    11461146  }
    11471147
    1148   if (lisp_global(BATCH_FLAG)) {
    1149     abort();
    1150   }
    11511148  if (xp) {
    11521149    if (why > debug_entry_exception) {
     
    11551152    debug_identify_function(xp, info);
    11561153  }
     1154  if (lisp_global(BATCH_FLAG)) {
     1155#ifdef WINDOWS
     1156    fprintf(dbgout, "Current Process Id %d\n", (int)GetCurrentProcessId());
     1157#else
     1158    fprintf(dbgout, "Main thread pid %d\n", main_thread_pid);
     1159#endif
     1160    debug_thread_info(xp, info, 0);
     1161    if (xp) {
     1162      debug_show_registers(xp, info, 0);
     1163      debug_lisp_registers(xp, info, 0);
     1164      debug_show_fpu(xp, info, 0);
     1165    }
     1166    debug_backtrace(xp, info, 0);
     1167    abort();
     1168  }
     1169
    11571170  fprintf(dbgout, "? for help\n");
    11581171  while (state == debug_continue) {
Note: See TracChangeset for help on using the changeset viewer.