Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-07-11 23:17:34 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

also printing the root context when debugging threads

Browse source
This commit is contained in:
Alex Shinn 2012-09-17 15:26:51 +09:00
parent 35bfe1702b
commit 2154f78b13
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
vm.c
View file

@ -1008,8 +1008,8 @@ sexp sexp_apply (sexp ctx, sexp proc, sexp args) {
cp = sexp_procedure_vars(self); cp = sexp_procedure_vars(self);
#if SEXP_USE_DEBUG_THREADS #if SEXP_USE_DEBUG_THREADS
if (ctx != tmp2) { if (ctx != tmp2) {
fprintf(stderr, "****** schedule: %p (%s) active:", fprintf(stderr, "****** schedule %p: %p (%s) active:",
ctx, sexp_thread_debug_name(ctx)); root_thread, ctx, sexp_thread_debug_name(ctx));
for (tmp1=sexp_global(ctx, SEXP_G_THREADS_FRONT); sexp_pairp(tmp1); tmp1=sexp_cdr(tmp1)) 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, " %p (%s)", sexp_car(tmp1), sexp_thread_debug_name(sexp_car(tmp1)));
fprintf(stderr, " paused:"); fprintf(stderr, " paused:");
@ -2112,8 +2112,8 @@ sexp sexp_apply (sexp ctx, sexp proc, sexp args) {
sexp_print_exception(ctx, _ARG1, tmp1); sexp_print_exception(ctx, _ARG1, tmp1);
} }
#if SEXP_USE_DEBUG_THREADS #if SEXP_USE_DEBUG_THREADS
fprintf(stderr, "****** schedule: terminating %p (%s)\n", fprintf(stderr, "****** schedule %p: terminating %p (%s)\n",
ctx, sexp_thread_debug_name(ctx)); root_thread, ctx, sexp_thread_debug_name(ctx));
#endif #endif
sexp_context_refuel(ctx) = fuel = 0; sexp_context_refuel(ctx) = fuel = 0;
goto loop; goto loop;