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

fix non-futures build

Browse Source 
svn: r16901
This commit is contained in:
Matthew Flatt 2009-11-19 22:06:54 +00:00
parent 9473d1809f
commit f0b5a9e6c6
2 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2150,6 +2150,8 @@ static jit_insn *generate_proc_struct_retry(mz_jit_state *jitter, int num_rands,
extern int g_print_prims;
#endif
#include "jit_ts.c"
/* Support for intercepting direct calls to primitives: */
#ifdef FUTURES_ENABLED
# define mz_prepare_direct_prim(n) mz_prepare(n)
@ -2184,8 +2186,6 @@ static Scheme_Object *prim_indirect(Scheme_Primitive_Closure_Proc proc, int argc
be invoked directly from JIT code and are not considered thread-safe
(are not invoked via apply_multi_from_native, etc.) */
#include "jit_ts.c"
static void ts_on_demand(void)
{
START_XFORM_SKIP;

3
src/mzscheme/src/jit_ts.c
View File

@ -75,6 +75,9 @@ define_ts_S_s(apply_checked_fail)
define_ts_iSi_s(scheme_build_list_offset)
define_ts_siS_v(wrong_argument_count)
#else
# 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__scheme_tail_apply_from_native_fixup_args _scheme_tail_apply_from_native_fixup_args
# define ts_scheme_force_value_same_mark scheme_force_value_same_mark
# define ts_scheme_force_one_value_same_mark scheme_force_one_value_same_mark