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

unbreak no-places, no-futures build

Browse Source
This commit is contained in:
Matthew Flatt 2015-10-17 07:00:37 -06:00
parent c50c23c134
commit e803a3c15e
2 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
racket/src/racket/src/eval.c
View File

@ -6150,6 +6150,7 @@ static void mark_pruned_prefixes(struct NewGC *gc) XFORM_SKIP_PROC
cl->vals[closure_size-1] = (Scheme_Object *)pf; cl->vals[closure_size-1] = (Scheme_Object *)pf;
} else { } else {
MZ_ASSERT(0); MZ_ASSERT(0);
next = NULL;
} }
clo = (Scheme_Object *)GC_resolve2(next, gc); clo = (Scheme_Object *)GC_resolve2(next, gc);
} }

1
racket/src/racket/src/schpriv.h
View File

@ -183,6 +183,7 @@ THREAD_LOCAL_DECL(extern intptr_t scheme_total_gc_time);
THREAD_LOCAL_DECL(extern int scheme_cont_capture_count); THREAD_LOCAL_DECL(extern int scheme_cont_capture_count);
THREAD_LOCAL_DECL(extern int scheme_continuation_application_count); THREAD_LOCAL_DECL(extern int scheme_continuation_application_count);
THREAD_LOCAL_DECL(extern struct Scheme_Prefix *scheme_prefix_finalize); THREAD_LOCAL_DECL(extern struct Scheme_Prefix *scheme_prefix_finalize);
THREAD_LOCAL_DECL(extern struct Scheme_Prefix *scheme_inc_prefix_finalize);
int scheme_num_types(void); int scheme_num_types(void);