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

fix PPC JIT `vector-length'

Browse Source 
Merge to 5.0.2
This commit is contained in:
Matthew Flatt 2010-10-22 19:43:21 -06:00
parent 2847ac86bd
commit 93ba544c60
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -7051,7 +7051,7 @@ static int generate_inlined_unary(mz_jit_state *jitter, Scheme_App2_Rec *app, in
(void)jit_calli(bad_fxvector_length_code); (void)jit_calli(bad_fxvector_length_code);
else { else {
(void)jit_calli(bad_vector_length_code); (void)jit_calli(bad_vector_length_code);
jit_retval(JIT_R0); /* can return with updated R0 */
} }
/* bad_vector_length_code may unpack a proxied object */ /* bad_vector_length_code may unpack a proxied object */
@ -8725,7 +8725,7 @@ static int generate_inlined_nary(mz_jit_state *jitter, Scheme_App_Rec *app, int
mz_rs_sync(); mz_rs_sync();
JIT_UPDATE_THREAD_RSPTR_IF_NEEDED(); JIT_UPDATE_THREAD_RSPTR_IF_NEEDED();
mz_prepare(0); mz_prepare(0);
mz_finish(scheme_current_future); (void)mz_finish(scheme_current_future);
jit_retval(JIT_R0); jit_retval(JIT_R0);
return 1; return 1;
} else if (!for_branch) { } else if (!for_branch) {