mirror of
https://github.com/ashinn/chibi-scheme.git
synced 2025-07-11 15:07:34 +02:00
also printing the root context when debugging threads
This commit is contained in:
parent
35bfe1702b
commit
2154f78b13
1 changed files with 4 additions and 4 deletions
8
vm.c
8
vm.c
|
@ -1008,8 +1008,8 @@ sexp sexp_apply (sexp ctx, sexp proc, sexp args) {
|
|||
cp = sexp_procedure_vars(self);
|
||||
#if SEXP_USE_DEBUG_THREADS
|
||||
if (ctx != tmp2) {
|
||||
fprintf(stderr, "****** schedule: %p (%s) active:",
|
||||
ctx, sexp_thread_debug_name(ctx));
|
||||
fprintf(stderr, "****** schedule %p: %p (%s) active:",
|
||||
root_thread, ctx, sexp_thread_debug_name(ctx));
|
||||
for (tmp1=sexp_global(ctx, SEXP_G_THREADS_FRONT); sexp_pairp(tmp1); tmp1=sexp_cdr(tmp1))
|
||||
fprintf(stderr, " %p (%s)", sexp_car(tmp1), sexp_thread_debug_name(sexp_car(tmp1)));
|
||||
fprintf(stderr, " paused:");
|
||||
|
@ -2112,8 +2112,8 @@ sexp sexp_apply (sexp ctx, sexp proc, sexp args) {
|
|||
sexp_print_exception(ctx, _ARG1, tmp1);
|
||||
}
|
||||
#if SEXP_USE_DEBUG_THREADS
|
||||
fprintf(stderr, "****** schedule: terminating %p (%s)\n",
|
||||
ctx, sexp_thread_debug_name(ctx));
|
||||
fprintf(stderr, "****** schedule %p: terminating %p (%s)\n",
|
||||
root_thread, ctx, sexp_thread_debug_name(ctx));
|
||||
#endif
|
||||
sexp_context_refuel(ctx) = fuel = 0;
|
||||
goto loop;
|
||||
|
|
Loading…
Add table
Reference in a new issue