suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

GC: fix backtrace reporting

Browse Source 
The addition ot limited recursive marking broke the implementation
of memory-debugging backtraces.
This commit is contained in:
Matthew Flatt 2016-04-18 18:39:20 -06:00
parent 027dd9a43c
commit 84bffd41af
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
racket/src/racket/gc2/newgc.c
View File

@ -3223,11 +3223,17 @@ static void promote_marked_gen0_big_page(NewGC *gc, mpage *page) {
#endif #endif
} }
#ifdef MZ_GC_BACKTRACE
# define BACKTRACE_DISABLES_RECUR 1
#else
# define BACKTRACE_DISABLES_RECUR 0
#endif
static void mark_recur_or_push_ptr(struct NewGC *gc, void *p, int is_a_master_page, int inc_gen1) static void mark_recur_or_push_ptr(struct NewGC *gc, void *p, int is_a_master_page, int inc_gen1)
{ {
objhead *ohead = OBJPTR_TO_OBJHEAD(p); objhead *ohead = OBJPTR_TO_OBJHEAD(p);
if ((gc->mark_depth < MAX_RECUR_MARK_DEPTH) && !is_a_master_page && !inc_gen1) { if ((gc->mark_depth < MAX_RECUR_MARK_DEPTH) && !is_a_master_page && !inc_gen1 && !BACKTRACE_DISABLES_RECUR) {
switch (ohead->type) { switch (ohead->type) {
case PAGE_TAGGED: case PAGE_TAGGED:
{ {