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

fix ts_scheme_tail_apply...

Browse Source 
svn: r16843
This commit is contained in:
Matthew Flatt 2009-11-17 20:02:21 +00:00
parent 0c0945bb08
commit a145f096cb
6 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
src/mzscheme/src/jit.c
View File

@ -2232,6 +2232,7 @@ static void ts_on_demand(void)
# define mz_direct_only(p) p
# define ts_scheme_apply_multi_from_native _scheme_apply_multi_from_native
# define ts_scheme_apply_from_native _scheme_apply_from_native
# define ts_scheme_tail_apply_from_native _scheme_tail_apply_from_native
# define ts_on_demand on_demand
#endif

4
src/mzscheme/src/mzmark.c
View File

@ -5419,7 +5419,7 @@ static int future_SIZE(void *p) {
}
static int future_MARK(void *p) {
future_t *c = (future_t *)p;
future_t *f = (future_t *)p;
gcMARK(f->runstack);
gcMARK(f->runstack_start);
gcMARK(f->orig_thread);
@ -5433,7 +5433,7 @@ static int future_MARK(void *p) {
}
static int future_FIXUP(void *p) {
future_t *c = (future_t *)p;
future_t *f = (future_t *)p;
gcFIXUP(f->runstack);
gcFIXUP(f->runstack_start);
gcFIXUP(f->orig_thread);

2
src/mzscheme/src/mzmarksrc.c
View File

@ -2222,7 +2222,7 @@ START future;
future {
mark:
future_t *c = (future_t *)p;
future_t *f = (future_t *)p;
gcMARK(f->runstack);
gcMARK(f->runstack_start);
gcMARK(f->orig_thread);

2
src/mzscheme/src/schemex.h
View File

@ -54,7 +54,7 @@ Scheme_Object *(*scheme_current_break_cell)();
/* threads */
/*========================================================================*/
#ifndef LINK_EXTENSIONS_BY_TABLE
# ifndef MZ_USE_PLACES
# if !defined(MZ_USE_PLACES) || !defined(FUTURES_ENABLED)
Scheme_Thread *scheme_current_thread;
# endif
volatile int scheme_fuel_counter;

2
src/mzscheme/src/schemex.inc
View File

@ -19,7 +19,7 @@
scheme_extension_table->scheme_inherit_cells = scheme_inherit_cells;
scheme_extension_table->scheme_current_break_cell = scheme_current_break_cell;
#ifndef LINK_EXTENSIONS_BY_TABLE
# ifndef MZ_USE_PLACES
# if !defined(MZ_USE_PLACES) || !defined(FUTURES_ENABLED)
scheme_extension_table->scheme_current_thread = scheme_current_thread;
# endif
scheme_extension_table->scheme_fuel_counter = scheme_fuel_counter;

2
src/mzscheme/src/schemexm.h
View File

@ -19,7 +19,7 @@
#define scheme_inherit_cells (scheme_extension_table->scheme_inherit_cells)
#define scheme_current_break_cell (scheme_extension_table->scheme_current_break_cell)
#ifndef LINK_EXTENSIONS_BY_TABLE
# ifndef MZ_USE_PLACES
# if !defined(MZ_USE_PLACES) || !defined(FUTURES_ENABLED)
#define scheme_current_thread (scheme_extension_table->scheme_current_thread)
# endif
#define scheme_fuel_counter (scheme_extension_table->scheme_fuel_counter)