From 93ba544c60b80693bb7d0db3cc8393e44a57b3dc Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Fri, 22 Oct 2010 19:43:21 -0600 Subject: [PATCH] fix PPC JIT `vector-length' Merge to 5.0.2 --- src/racket/src/jit.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/racket/src/jit.c b/src/racket/src/jit.c index e1952071ec..8d32ea8229 100644 --- a/src/racket/src/jit.c +++ b/src/racket/src/jit.c @@ -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); else { (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 */ @@ -8725,7 +8725,7 @@ static int generate_inlined_nary(mz_jit_state *jitter, Scheme_App_Rec *app, int mz_rs_sync(); JIT_UPDATE_THREAD_RSPTR_IF_NEEDED(); mz_prepare(0); - mz_finish(scheme_current_future); + (void)mz_finish(scheme_current_future); jit_retval(JIT_R0); return 1; } else if (!for_branch) {