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

fix non-futures build

Browse Source
This commit is contained in:
Matthew Flatt 2011-04-10 09:04:19 -06:00
parent 8f9b71d785
commit 6b503fa947
2 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -153,6 +153,7 @@ define_ts_s_s(scheme_box, FSRC_OTHER)
# define ts_scheme_checked_cadr scheme_checked_cadr # define ts_scheme_checked_cadr scheme_checked_cadr
# define ts_scheme_checked_cdar scheme_checked_cdar # define ts_scheme_checked_cdar scheme_checked_cdar
# define ts_scheme_checked_cddr scheme_checked_cddr # define ts_scheme_checked_cddr scheme_checked_cddr
# define ts_scheme_checked_length scheme_checked_length
# define ts_scheme_checked_mcar scheme_checked_mcar # define ts_scheme_checked_mcar scheme_checked_mcar
# define ts_scheme_checked_mcdr scheme_checked_mcdr # define ts_scheme_checked_mcdr scheme_checked_mcdr
# define ts_scheme_checked_set_mcar scheme_checked_set_mcar # define ts_scheme_checked_set_mcar scheme_checked_set_mcar

4
src/racket/src/jitcommon.c
View File

@ -1900,7 +1900,7 @@ static int common7(mz_jit_state *jitter, void *_data)
CHECK_LIMIT(); CHECK_LIMIT();
if (!i) if (!i)
jit_movi_p(JIT_R0, scheme_true); (void)jit_movi_p(JIT_R0, scheme_true);
mz_epilog(JIT_R2); mz_epilog(JIT_R2);
__START_SHORT_JUMPS__(1); __START_SHORT_JUMPS__(1);
@ -1933,7 +1933,7 @@ static int common7(mz_jit_state *jitter, void *_data)
mz_epilog_without_jmp(); mz_epilog_without_jmp();
jit_jmpr(JIT_V1); jit_jmpr(JIT_V1);
} else { } else {
jit_movi_p(JIT_R0, scheme_false); (void)jit_movi_p(JIT_R0, scheme_false);
mz_epilog(JIT_R2); mz_epilog(JIT_R2);
} }