Ticket #1393: tt_1393_debug_prints.diff
File tt_1393_debug_prints.diff, 2.6 KB (added by lithos, 12 years ago) |
---|
-
src/pmc/retcontinuation.pmc
84 84 85 85 /* recycle this PMC and make sure it doesn't get marked */ 86 86 if (!PMC_IS_NULL(from_ctx)) 87 { 88 fprintf(stderr,"%s:%d: resetting continuation (SELF=%p) in context %p\n", 89 __FILE__, __LINE__, (void*)SELF, (void*)from_ctx); 87 90 Parrot_pcc_set_continuation(interp, from_ctx, NULL); 91 } 92 fprintf(stderr,"%s:%d: freeing myself (SELF=%p)\n", 93 __FILE__, __LINE__, (void*)SELF); 88 94 Parrot_gc_free_pmc_header(interp, SELF); 89 95 90 96 if (INTERP->code != seg) -
src/pmc/sub.pmc
380 380 INTERP->current_cont = NULL; 381 381 382 382 if (ccont == NEED_CONTINUATION) 383 { 383 384 ccont = new_ret_continuation_pmc(interp, (opcode_t *)next); 385 fprintf(stderr, "created ret continuation %p\n", (void*)ccont); 386 } 384 387 385 388 PARROT_ASSERT(!PMC_IS_NULL(ccont)); 386 389 … … 395 398 Parrot_pcc_init_context(INTERP, context, caller_ctx); 396 399 397 400 Parrot_pcc_set_sub(interp, context, SELF); 401 fprintf(stderr, "%s:%d: setting continuation %p in context %p\n", 402 __FILE__, __LINE__, (void*)ccont, (void*)context); 398 403 Parrot_pcc_set_continuation(interp, context, ccont); 399 404 Parrot_pcc_set_constants(interp, context, sub->seg->const_table->constants); 400 405 -
src/gc/api.c
94 94 #include "parrot/gc_api.h" 95 95 #include "gc_private.h" 96 96 97 static unsigned debug_counter = 0; 98 97 99 /* HEADERIZER HFILE: include/parrot/gc_api.h */ 98 100 99 101 /* HEADERIZER BEGIN: static */ … … 401 403 pmc->vtable = NULL; 402 404 PMC_data(pmc) = NULL; 403 405 406 fprintf(stderr, "%d: created pmc %p\n", debug_counter++, (void*)pmc); 407 408 #if 0 409 if (debug_counter-1 == 28455) 410 abort(); 411 #endif 412 404 413 return pmc; 405 414 } 406 415 … … 421 430 Fixed_Size_Pool * const pool = (PObj_constant_TEST(pmc)) ? 422 431 interp->mem_pools->constant_pmc_pool : interp->mem_pools->pmc_pool; 423 432 433 fprintf(stderr, "%d: free pmc %p\n", debug_counter++, (void*)pmc); 434 435 #if 0 436 if (debug_counter-1 == 28480) 437 abort(); 438 #endif 439 424 440 Parrot_pmc_destroy(interp, pmc); 425 441 426 442 PObj_flags_SETTO((PObj *)pmc, PObj_on_free_list_FLAG);