Changeset 14487
- Timestamp:
- Dec 15, 2010, 5:46:37 PM (10 years ago)
- Location:
- release/1.6/source
- Files:
-
- 4 edited
Legend:
- Unmodified
- Added
- Removed
-
release/1.6/source
- Property svn:mergeinfo changed
/trunk/source merged: 14483-14484
- Property svn:mergeinfo changed
-
release/1.6/source/level-1/l1-readloop-lds.lisp
r14381 r14487 476 476 (ignore-errors 477 477 (print-call-history) 478 (write-line (lisp-implementation-version) *debug-io*) 478 479 (force-output *debug-io*) 479 480 (quit -1)) -
release/1.6/source/lisp-kernel/lisp-debug.c
r14352 r14487 1421 1421 } 1422 1422 debug_memory_areas(xp, info, 0); 1423 debug_show_lisp_version(xp, info, 0); 1423 1424 debug_backtrace(xp, info, 0); 1424 debug_show_lisp_version(xp, info, 0);1425 1426 1425 abort(); 1427 1426 } -
release/1.6/source/lisp-kernel/xlbt.c
r13067 r14487 17 17 #include "lispdcmd.h" 18 18 #include <stdio.h> 19 #include <signal.h> 19 20 20 21 … … 105 106 } else { 106 107 if (start->backlink) { 107 fprintf(dbgout, "Bogus 108 fprintf(dbgout, "Bogus frame %lx\n", start); 108 109 } 109 110 return; … … 155 156 } else { 156 157 fprintf(dbgout, "current thread: tcr = 0x" LISP ", native thread ID = 0x" LISP ", interrupts %s\n", tcr, tcr->native_thread_id, ilevel); 158 159 #ifndef WINDOWS 160 if (lisp_global(BATCH_FLAG)) { 161 /* 162 * In batch mode, we will be exiting. Reset some signal actions 163 * to the default to avoid a loop of "Unhandled exception 11" or 164 * whatever if we try to print some call stack that is totally 165 * screwed up. (Instead, we'll just die horribly and get it 166 * over with.) 167 */ 168 signal(SIGBUS, SIG_DFL); 169 signal(SIGSEGV, SIG_DFL); 170 } 171 #endif 172 157 173 walk_stack_frames((lisp_frame *) ptr_from_lispobj(current_fp), (lisp_frame *) (vs_area->high)); 158 174 /* walk_other_areas();*/ … … 164 180 plbt(ExceptionInformation *xp) 165 181 { 166 #ifdef X8632 167 plbt_sp(xpGPR(xp,Iebp)); 168 #else 169 plbt_sp(xpGPR(xp,Irbp)); 170 #endif 182 plbt_sp(xpGPR(xp, Ifp)); 171 183 }
Note: See TracChangeset
for help on using the changeset viewer.