[patch] Fix building with backtrace

racket-5.0-rename-gc.patch (text/plain), 1.63 KB, created by Dmitry Dzhus on 2010-07-04 17:02:19 UTC

This fixes leftovers from 
http://git.racket-lang.org/plt/commitdiff/9b6ccb1476938785e95474968429359f05d7aaba
http://git.racket-lang.org/plt/commitdiff/706c1b9e00b1534a32f1c5df8ca35b16ec450e89

diff --git a/src/racket/gc2/backtrace.c b/src/racket/gc2/backtrace.c
index 4f3ecc4..783a7d9 100644
--- a/src/racket/gc2/backtrace.c
+++ b/src/racket/gc2/backtrace.c
@@ -45,7 +45,7 @@ static void *print_out_pointer(const char *prefix, void *p,
   trace_page_t *page;
   const char *what;
 
-  page = pagemap_find_page(GC->page_maps, p);
+  page = pagemap_find_page(GC_instance->page_maps, p);
   if (!page || (trace_page_type(page) == TRACE_PAGE_BAD)) {
     GCPRINT(GCOUTF, "%s??? %p\n", prefix, p);
     return NULL;
@@ -94,7 +94,7 @@ static void print_traced_objects(int path_length_limit,
 				 GC_print_tagged_value_proc print_tagged_value)
 {
   int i;
-  GC->dumping_avoid_collection++;
+  GC_instance->dumping_avoid_collection++;
   GCPRINT(GCOUTF, "Begin Trace\n");
   for (i = 0; i < found_object_count; i++) {
     void *p;
@@ -107,5 +107,5 @@ static void print_traced_objects(int path_length_limit,
     }
   }
   GCPRINT(GCOUTF, "End Trace\n");
-  --GC->dumping_avoid_collection;
+  --GC_instance->dumping_avoid_collection;
 }
diff --git a/src/racket/gc2/newgc.c b/src/racket/gc2/newgc.c
index c3222cf..dc44360 100644
--- a/src/racket/gc2/newgc.c
+++ b/src/racket/gc2/newgc.c
@@ -1332,7 +1332,7 @@ static void backtrace_new_page(NewGC *gc, mpage *page)
 static void free_backtrace(mpage *page)
 {
   if (page->backtrace)
-    free_pages(GC, page->backtrace, APAGE_SIZE);
+    free_pages(GC_instance, page->backtrace, APAGE_SIZE);
 }
 
 static void *bt_source;