From 13bd0135282e5814197845e99fc6e159dc007c10 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Tue, 11 Aug 2015 15:29:58 -0600 Subject: [PATCH] fix JIT-inlined `set-cpointer-tag!` for non-x86 --- racket/src/racket/src/jitcommon.c | 2 +- racket/src/racket/src/jitinline.c | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/racket/src/racket/src/jitcommon.c b/racket/src/racket/src/jitcommon.c index 30cec6dc42..665ff8b904 100644 --- a/racket/src/racket/src/jitcommon.c +++ b/racket/src/racket/src/jitcommon.c @@ -3361,7 +3361,7 @@ static int common13(mz_jit_state *jitter, void *_data) scheme_jit_register_sub_func(jitter, sjc.slow_cpointer_tag_code, scheme_false); CHECK_LIMIT(); - /* *** slow_cpointer_tag_code *** */ + /* *** slow_set_cpointer_tag_code *** */ sjc.slow_set_cpointer_tag_code = jit_get_ip(); mz_prolog(JIT_R2); JIT_UPDATE_THREAD_RSPTR(); diff --git a/racket/src/racket/src/jitinline.c b/racket/src/racket/src/jitinline.c index 22a667d228..a43e1cb664 100644 --- a/racket/src/racket/src/jitinline.c +++ b/racket/src/racket/src/jitinline.c @@ -3727,7 +3727,7 @@ int scheme_generate_inlined_binary(mz_jit_state *jitter, Scheme_App3_Rec *app, i __START_TINY_JUMPS__(1); refdone = jit_jmpi(jit_forward()); mz_patch_branch(ref); - (void)mz_bnei_t(refslow, JIT_R0, scheme_cpointer_type, JIT_R1); + (void)mz_bnei_t(refslow, JIT_R0, scheme_cpointer_type, JIT_R2); CHECK_LIMIT(); jit_stxi_p((intptr_t)&SCHEME_CPTR_TYPE((Scheme_Object *)0x0), JIT_R0, JIT_R1);