Attachment #237467 for bug #324161

Lines 45-51 static void print_out_pointer(const char prefix, void *p, Link Here

(-)a/src/racket/gc2/backtrace.c (-3 / +3 lines)
45	trace_page_t *page;	45	trace_page_t *page;
46	const char *what;	46	const char *what;
47		47
48	page = pagemap_find_page(GC->page_maps, p);	48	page = pagemap_find_page(GC_instance->page_maps, p);
49	if (!page \|\| (trace_page_type(page) == TRACE_PAGE_BAD)) {	49	if (!page \|\| (trace_page_type(page) == TRACE_PAGE_BAD)) {
50	GCPRINT(GCOUTF, "%s??? %p\n", prefix, p);	50	GCPRINT(GCOUTF, "%s??? %p\n", prefix, p);
51	return NULL;	51	return NULL;
Lines 94-100 static void print_traced_objects(int path_length_limit, Link Here
94	GC_print_tagged_value_proc print_tagged_value)	94	GC_print_tagged_value_proc print_tagged_value)
95	{	95	{
96	int i;	96	int i;
97	GC->dumping_avoid_collection++;	97	GC_instance->dumping_avoid_collection++;
98	GCPRINT(GCOUTF, "Begin Trace\n");	98	GCPRINT(GCOUTF, "Begin Trace\n");
99	for (i = 0; i < found_object_count; i++) {	99	for (i = 0; i < found_object_count; i++) {
100	void *p;	100	void *p;
Lines 107-111 static void print_traced_objects(int path_length_limit, Link Here
107	}	107	}
108	}	108	}
109	GCPRINT(GCOUTF, "End Trace\n");	109	GCPRINT(GCOUTF, "End Trace\n");
110	--GC->dumping_avoid_collection;	110	--GC_instance->dumping_avoid_collection;
111	}	111	}

Lines 1332-1338 static void backtrace_new_page(NewGC gc, mpage page) Link Here

(-)a/src/racket/gc2/newgc.c (-1 / +1 lines)
1332	static void free_backtrace(mpage *page)	1332	static void free_backtrace(mpage *page)
1333	{	1333	{
1334	if (page->backtrace)	1334	if (page->backtrace)
1335	free_pages(GC, page->backtrace, APAGE_SIZE);	1335	free_pages(GC_instance, page->backtrace, APAGE_SIZE);
1336	}	1336	}
1337		1337
1338	static void *bt_source;	1338	static void *bt_source;

Return to bug 324161